Email服务器

开发平台：
Delphi

EMail.~dpr：源码内容
							program EMail;
uses
  ExceptionLog,
  Forms,
  Windows,
  ufrmMain in 'ufrmMain.pas' {frmMain},
  uSendMail in 'uSendMail.pas',
  uCommon in 'uCommon.pas',
  ufrmNewUser in 'ufrmNewUser.pas' {frmNewUser},
  NativeXml in 'xmlnativexml.pas',
  NativeXmlAppend in 'xmlNativeXmlAppend.pas',
  NativeXmlObjectStorage in 'xmlNativeXmlObjectStorage.pas',
  ufrmNewSMTP in 'ufrmNewSMTP.pas' {frmNewSMTP},
  uRecvEmail in 'uRecvEmail.pas',
  uEncrypt in 'uEncrypt.pas',
  ufrmCloseTip in 'ufrmCloseTip.pas' {frmCloseTip},
  uMyXml in 'uMyXml.pas',
  FMTips in 'FMTips.pas' {TipsForm},
  ufrmEmailBoxProperty in 'ufrmEmailBoxProperty.pas' {frmEmailBoxProperty},
  UEmailFile in 'UEmailFile.pas',
  uAttemper in 'uAttemper.pas' {frmAttemper},
  ufrmRule in 'ufrmRule.pas' {frmRule},
  uRulerMgr in 'uRulerMgr.pas',
  ufrmFilterPopTip in 'ufrmFilterPopTip.pas' {frmFilterPopTip},
  uCheckEmailThread in 'uCheckEmailThread.pas',
  uCheckEmail in 'uCheckEmail.pas',
  ufrmAttchMgr in 'ufrmAttchMgr.pas' {frmAttchMgr},
  uBaseEditorForm in 'uBaseEditorForm.pas' {BaseEditorForm},
  ufrmWriteEmail in 'ufrmWriteEmail.pas' {frmWriteEmail},
  ufrmViewEmail in 'ufrmViewEmail.pas' {frmViewEmail},
  ufrmArchives in 'ufrmArchives.pas' {frmArchives},
  ufrmGridLineCount in 'ufrmGridLineCount.pas' {frmGridLineCount},
  ufrmAwake in 'ufrmAwake.pas' {frmAwake},
  uEmailAwake in 'uEmailAwake.pas',
  ufrmEmailAwaked in 'ufrmEmailAwaked.pas' {frmEmailAwaked},
  ufrmSingnals in 'ufrmSingnals.pas' {frmSingnals},
  uSingnalMgr in 'uSingnalMgr.pas',
  objs in 'objs.pas',
  ufrmAddr in 'ufrmAddr.pas' {frmAddr},
  ufrmAbout in 'ufrmAbout.pas' {frmAbout};
{$R *.res}
function CheckForPrevInstance: Boolean;
var
  H:THandle;
  Mutex:THandle;
begin
  Mutex := CreateMutex(nil, True, PChar(INST_NAME));  //this mutex release in Main Form's destroy methoed.
  if (Mutex <> 0) and (GetLastError = 0) then  // Not Run
  begin
    Result := True;
  end
  else    //Running
  begin
    H := FindWindow(nil, PChar('邮件收发系统'));
    if H <> 0 then
    begin
      SendMessage(H, WM_PREVINSTRUN, Mutex, 0);
      
      Result:=False;
    end
    else
      Result:=True;
  end;
end;
begin
  Application.Initialize;
  if not CheckForPrevInstance  then Application.Terminate;
  Application.Title := 'E-Mail';
  Application.CreateForm(TfrmMain, frmMain);
  Application.CreateForm(TfrmAbout, frmAbout);
  //Application.CreateForm(TfrmAddr, frmAddr);
  //Application.CreateForm(TfrmSingnals, frmSingnals);
  //Application.CreateForm(TfrmAwake, frmAwake);
  //Application.CreateForm(TfrmEmailAwaked, frmEmailAwaked);
  //Application.CreateForm(TfrmGridLineCount, frmGridLineCount);
  //Application.CreateForm(TfrmArchives, frmArchives);
  //Application.CreateForm(TfrmWriteEmail, frmWriteEmail);
  //Application.CreateForm(TfrmViewEmail, frmViewEmail);
  //Application.CreateForm(TBaseEditorForm, BaseEditorForm);
  //Application.CreateForm(TfrmViewEmail, frmViewEmail);
  //Application.CreateForm(TfrmAttchMgr, frmAttchMgr);
  //Application.CreateForm(TfrmFilterPopTip, frmFilterPopTip);
  //Application.CreateForm(TfrmEmailBoxProperty, frmEmailBoxProperty);
  //Application.CreateForm(TfrmAttemper, frmAttemper);
  //Application.CreateForm(TfrmRule, frmRule);
  //Application.CreateForm(TTipsForm, TipsForm);
  //Application.CreateForm(TfrmNewEMail, frmNewEMail);
  //Application.CreateForm(TfrmCloseTip, frmCloseTip);
  //Application.CreateForm(TfrmWriteEMail, frmWriteEMail);
  //Application.CreateForm(TfrmNewUser, frmNewUser);
  //Application.CreateForm(TfrmNewSMTP, frmNewSMTP);
  Application.Run;
end.

						