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

unit OptionMail; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls, Buttons; 
 
type 
  TfrmOption = class(TForm) 
    GroupBox1: TGroupBox; 
    Label1: TLabel; 
    Label2: TLabel; 
    Label3: TLabel; 
    Label4: TLabel; 
    edtHost: TEdit; 
    edtPort: TEdit; 
    edtUser: TEdit; 
    edtEmail: TEdit; 
    Label5: TLabel; 
    edtName: TEdit; 
    BitBtn1: TBitBtn; 
    BitBtn2: TBitBtn; 
    procedure BitBtn2Click(Sender: TObject); 
    procedure BitBtn1Click(Sender: TObject); 
    procedure FormCreate(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
    procedure dispIni(); 
  end; 
 
var 
  frmOption: TfrmOption; 
 
implementation 
 
uses IniFiles,mail; 
 
{$R *.dfm} 
 
procedure TfrmOption.BitBtn2Click(Sender: TObject); 
begin 
close; 
end; 
 
procedure TfrmOption.BitBtn1Click(Sender: TObject); 
var 
    ini:TiniFile; 
    fn:string; 
    sHost,sPort,sUser,sEmail,sName:string; 
begin 
    fn:=ExtractFilePath(paramstr(0))+'mail.ini'; 
    ini:=TiniFile.Create(fn); 
    sHost:=trim(edtHost.Text); 
    sPort:=trim(edtPort.Text); 
    sUser:=trim(edtUser.Text); 
    sEmail:=trim(edtEmail.Text); 
    sName:=trim(edtName.Text); 
        ini.WriteString('MAILINFO','HOST',sHost); 
        ini.WriteString('MAILINFO','PORT',sPort); 
        ini.WriteString('MAILINFO','USER',sUser); 
        ini.WriteString('MAILINFO','FROMEMAIL',sEmail); 
        ini.WriteString('MAILINFO','FROMNAME',sName); 
    ini.Free; 
    close; 
    frmMain.StatusBar1.Panels[0].Text:='已经设置邮件服务器'; 
end; 
 
procedure TfrmOption.FormCreate(Sender: TObject); 
begin 
    dispIni; 
    BorderIcons:=BorderIcons-[biMaximize]; 
end; 
 
procedure TfrmOption.dispIni(); 
var 
    fi:TiniFile; 
    fn:string; 
begin 
    fn:=ExtractFilePath(Paramstr(0))+'mail.ini'; 
    fi:=TiniFile.Create(fn); 
    try 
        edtHost.Text:=fi.ReadString('MAILINFO','HOST',''); 
        edtPort.Text:=fi.ReadString('MAILINFO','PORT',''); 
        edtUser.Text:=fi.ReadString('MAILINFO','USER',''); 
        edtEmail.Text:=fi.ReadString('MAILINFO','FROMEMAIL',''); 
        edtName.Text:=fi.ReadString('MAILINFO','FROMNAME',''); 
    finally 
        fi.Free; 
    end; 
end; 
 
end.