www.pudn.com > mail104s.lzh > SETUP.PAS

unit Setup; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  StdCtrls, Buttons,inifiles; 
 
type 
  TSetupDialog = class(TForm) 
    Label1: TLabel; 
    Edit1: TEdit; 
    Label2: TLabel; 
    Edit2: TEdit; 
    Label3: TLabel; 
    Edit3: TEdit; 
    BitBtn1: TBitBtn; 
    Label4: TLabel; 
    Label5: TLabel; 
    Edit4: TEdit; 
    procedure BitBtn1Click(Sender: TObject); 
    procedure FormCreate(Sender: TObject); 
    procedure FormDestroy(Sender: TObject); 
  private 
    { Private declarations } 
  public 
 
    { Public declarations } 
    MailIni:Tinifile; 
    setList:TStringList; 
    FileDir:string; 
    RootDir:string; 
    MailAcc:string; 
 
  end; 
 
var 
  SetupDialog: TSetupDialog; 
 
implementation 
 
{$R *.DFM} 
 
procedure TSetupDialog.BitBtn1Click(Sender: TObject); 
begin 
     Close; 
end; 
 
procedure TSetupDialog.FormCreate(Sender: TObject); 
var 
   DrvStr:string; 
begin 
   mailini:=Tinifile.Create('POPMAIL.INI'); 
   setList:=TStringList.Create; 
   Edit1.Text:=mailini.ReadString('SETUP','POP3SERVER','ms1.hinet.net'); 
   Edit2.Text:=mailini.ReadString('SETUP','USER','yeh'); 
   Edit4.Text:=mailini.ReadString('SETUP','SMTPSERVER','ms1.hinet.net'); 
   Edit3.Text:=mailini.ReadString('SETUP','PASSWD','yeh'); 
   MailAcc:=Edit2.Text+'@'+Edit1.Text; 
   GetDir(0,DrvStr); 
   RootDir:=DrvStr; 
   FileDir:=mailini.ReadString('FILEDIR','DIR',DrvStr+'\MAILBOX.MBF'); 
   RootDir:=mailini.ReadString('FILEDIR','ROOT',RootDir); 
   setList.Destroy; 
end; 
 
procedure TSetupDialog.FormDestroy(Sender: TObject); 
begin 
   mailini.WriteString('SETUP','POP3SERVER',Edit1.Text); 
   mailini.WriteString('SETUP','USER',Edit2.Text); 
   mailini.WriteString('SETUP','SMTPSERVER',Edit4.Text); 
   mailini.WriteString('SETUP','PASSWD',Edit3.Text); 
   mailini.WriteString('FILEDIR','DIR',FileDir); 
   mailini.WriteString('FILEDIR','ROOT',RootDir); 
   mailini.destroy; 
end; 
 
end.