Email服务器

开发平台：

Delphi

ufrmEmailAwaked.pas：源码内容

							unit ufrmEmailAwaked;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxControls, cxContainer, cxEdit, cxLabel, Menus,
  cxLookAndFeelPainters, StdCtrls, cxButtons, cxListBox, ExtCtrls,
  cxGraphics, cxMemo, cxTextEdit, cxMaskEdit, cxDropDownEdit,
  cxImageComboBox, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel,
  dxSkinCoffee, {dxSkinDarkRoom,} dxSkinDarkSide, {dxSkinFoggy,}
  dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
  dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
  dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
  dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinPumpkin, {dxSkinSeven,}
  {dxSkinSharp,} dxSkinSilver, {dxSkinSpringTime,} dxSkinStardust,
  dxSkinSummer2008, dxSkinsDefaultPainters, dxSkinValentine,
  dxSkinXmas2008Blue;
type
  TfrmEmailAwaked = class(TForm)
    pnl1: TPanel;
    lblTitle: TcxLabel;
    lblMemo: TcxLabel;
    btn3: TcxButton;
    btn4: TcxButton;
    btn5: TcxButton;
    cb1: TcxImageComboBox;
    lbl1: TcxLabel;
    edMemo: TcxMemo;
    lbl2: TcxLabel;
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
    procedure btn5Click(Sender: TObject);
  private
    { Private declarations }
    FMutex:THandle;
  public
    { Public declarations }
    FEmailAddr,
    FContentFilePath:string;
  end;
var
  frmEmailAwaked: TfrmEmailAwaked;
implementation
{$R *.dfm}
procedure TfrmEmailAwaked.FormDestroy(Sender: TObject);
begin
  FMutex:=CreateMutex(nil,false,'TfrmEmailAwaked_One_Inst');
end;
procedure TfrmEmailAwaked.FormCreate(Sender: TObject);
begin
  CloseHandle(FMutex);
end;
procedure TfrmEmailAwaked.btn3Click(Sender: TObject);
begin
  ModalResult:=mrRetry;
end;
procedure TfrmEmailAwaked.btn4Click(Sender: TObject);
begin
 ModalResult:=mrOk;
end;
procedure TfrmEmailAwaked.btn5Click(Sender: TObject);
begin
  ModalResult:=mrCancel;
end;
end.

						