www.pudn.com > 邮件群发程序1.2.rar > mail.pas

unit mail; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, Menus, ToolWin, ComCtrls, ExtCtrls, Buttons, IconTray; 
 
type 
  TfrmMain = class(TForm) 
    MainMenu1: TMainMenu; 
    S1: TMenuItem; 
    M1: TMenuItem; 
    N1: TMenuItem; 
    N2: TMenuItem; 
    N3: TMenuItem; 
    N4: TMenuItem; 
    N5: TMenuItem; 
    CoolBar1: TCoolBar; 
    Panel1: TPanel; 
    StatusBar1: TStatusBar; 
    SpeedButton1: TSpeedButton; 
    SpeedButton2: TSpeedButton; 
    SpeedButton3: TSpeedButton; 
    SpeedButton4: TSpeedButton; 
    SpeedButton5: TSpeedButton; 
    N6: TMenuItem; 
    N7: TMenuItem; 
    SpeedButton6: TSpeedButton; 
    N8: TMenuItem; 
    SpeedButton7: TSpeedButton; 
    N10: TMenuItem; 
    A1: TMenuItem; 
    N9: TMenuItem; 
    SpeedButton8: TSpeedButton; 
    N11: TMenuItem; 
    SysTray1: TSysTray; 
    PopupMenu1: TPopupMenu; 
    N12: TMenuItem; 
    N13: TMenuItem; 
    N14: TMenuItem; 
    N16: TMenuItem; 
    procedure FormClose(Sender: TObject; var Action: TCloseAction); 
    procedure SpeedButton4Click(Sender: TObject); 
    procedure N2Click(Sender: TObject); 
    procedure N4Click(Sender: TObject); 
    procedure N6Click(Sender: TObject); 
    procedure N1Click(Sender: TObject); 
    procedure N5Click(Sender: TObject); 
    procedure N7Click(Sender: TObject); 
    procedure N8Click(Sender: TObject); 
    procedure N10Click(Sender: TObject); 
    procedure N9Click(Sender: TObject); 
    procedure N11Click(Sender: TObject); 
    procedure N14Click(Sender: TObject); 
    procedure N12Click(Sender: TObject); 
    procedure SysTray1IconDoubleClick(Sender: TObject; 
      Button: TMouseButton; X, Y: Integer); 
    procedure N16Click(Sender: TObject); 
    procedure FormCreate(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
    procedure readStart(); 
  end; 
 
var 
  frmMain: TfrmMain; 
 
  procedure clearSta(); 
 
implementation 
 
uses DataInput,OptionMail,ListMail,SendMail,SetMailbody,DataOuput, 
    DateQuery,IniFiles,about,FileAdd; 
 
{$R *.dfm} 
 
procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction); 
begin 
    if Application.MessageBox('你真的要退出该系统吗？  ','确认',MB_YESNO+MB_IConinformation)=IDYES then 
        Action:=caFree 
    else 
        Action:=caNone; 
end; 
 
procedure TfrmMain.SpeedButton4Click(Sender: TObject); 
begin 
close; 
end; 
 
procedure TfrmMain.N2Click(Sender: TObject); 
begin 
    frmInput:=TfrmInput.Create(self); 
end; 
 
procedure TfrmMain.N4Click(Sender: TObject); 
begin 
close; 
end; 
 
procedure TfrmMain.N6Click(Sender: TObject); 
begin 
    frmOption:=TfrmOption.Create(self); 
    frmOption.Show; 
end; 
 
procedure TfrmMain.N1Click(Sender: TObject); 
begin 
    frmListmail:=TfrmListmail.Create(self); 
end; 
 
procedure TfrmMain.N5Click(Sender: TObject); 
begin 
    frmMailsend:=TfrmMailsend.Create(self); 
end; 
 
procedure clearSta(); 
var k:integer; 
begin 
    for k:=0 to 2 do 
          frmMain.StatusBar1.Panels[k].Text:=''; 
end; 
 
procedure TfrmMain.N7Click(Sender: TObject); 
begin 
     frmMailset:=TfrmMailset.Create(self); 
     frmMailset.Show; 
end; 
 
procedure TfrmMain.N8Click(Sender: TObject); 
begin 
frmOuput:=TfrmOuput.Create(self); 
frmOuput.Show; 
end; 
 
procedure TfrmMain.N10Click(Sender: TObject); 
begin 
    frmDateQuery:=TfrmDateQuery.Create(self); 
    frmDateQuery.Width:=401; 
    frmDateQuery.Height:=229; 
    frmDateQuery.Top:=201; 
    frmDateQuery.Left:=280; 
    frmDateQuery.Show; 
end; 
 
procedure TfrmMain.readStart(); 
var 
    fn:string; 
    ini:TiniFile; 
    iNum:Integer; 
begin 
    fn:=ExtractFilePath(Paramstr(0))+'mail.ini'; 
    ini:=ini.Create(fn); 
    try 
        iNum:=ini.ReadInteger('FIRSTSTART','NUM',0); 
        ini.WriteInteger('FIRSTSTART','NUM',1); 
    finally 
        ini.Free; 
    end; 
    if iNum<1 then 
    begin 
        N6Click(nil); 
    end; 
end; 
 
procedure TfrmMain.N9Click(Sender: TObject); 
begin 
    frmAbout:=TfrmAbout.Create(self); 
    frmAbout.Show; 
end; 
 
procedure TfrmMain.N11Click(Sender: TObject); 
begin 
    frmFileAdd:=TfrmFileAdd.Create(self); 
    frmFileAdd.Show; 
end; 
 
procedure TfrmMain.N14Click(Sender: TObject); 
begin 
    Close(); 
end; 
 
procedure TfrmMain.N12Click(Sender: TObject); 
begin 
    Application.Restore; 
end; 
 
procedure TfrmMain.SysTray1IconDoubleClick(Sender: TObject; 
  Button: TMouseButton; X, Y: Integer); 
begin 
    Application.Restore; 
end; 
 
procedure TfrmMain.N16Click(Sender: TObject); 
begin 
N9Click(nil); 
end; 
 
procedure TfrmMain.FormCreate(Sender: TObject); 
begin 
    setWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW); 
end; 
 
end.