EMail.~dpr
上传用户:yjb1804
上传日期:2021-01-30
资源大小:3105k
文件大小:4k
源码类别:

Email服务器

开发平台:

Delphi

  1. program EMail;
  2. uses
  3.   ExceptionLog,
  4.   Forms,
  5.   Windows,
  6.   ufrmMain in 'ufrmMain.pas' {frmMain},
  7.   uSendMail in 'uSendMail.pas',
  8.   uCommon in 'uCommon.pas',
  9.   ufrmNewUser in 'ufrmNewUser.pas' {frmNewUser},
  10.   NativeXml in 'xmlnativexml.pas',
  11.   NativeXmlAppend in 'xmlNativeXmlAppend.pas',
  12.   NativeXmlObjectStorage in 'xmlNativeXmlObjectStorage.pas',
  13.   ufrmNewSMTP in 'ufrmNewSMTP.pas' {frmNewSMTP},
  14.   uRecvEmail in 'uRecvEmail.pas',
  15.   uEncrypt in 'uEncrypt.pas',
  16.   ufrmCloseTip in 'ufrmCloseTip.pas' {frmCloseTip},
  17.   uMyXml in 'uMyXml.pas',
  18.   FMTips in 'FMTips.pas' {TipsForm},
  19.   ufrmEmailBoxProperty in 'ufrmEmailBoxProperty.pas' {frmEmailBoxProperty},
  20.   UEmailFile in 'UEmailFile.pas',
  21.   uAttemper in 'uAttemper.pas' {frmAttemper},
  22.   ufrmRule in 'ufrmRule.pas' {frmRule},
  23.   uRulerMgr in 'uRulerMgr.pas',
  24.   ufrmFilterPopTip in 'ufrmFilterPopTip.pas' {frmFilterPopTip},
  25.   uCheckEmailThread in 'uCheckEmailThread.pas',
  26.   uCheckEmail in 'uCheckEmail.pas',
  27.   ufrmAttchMgr in 'ufrmAttchMgr.pas' {frmAttchMgr},
  28.   uBaseEditorForm in 'uBaseEditorForm.pas' {BaseEditorForm},
  29.   ufrmWriteEmail in 'ufrmWriteEmail.pas' {frmWriteEmail},
  30.   ufrmViewEmail in 'ufrmViewEmail.pas' {frmViewEmail},
  31.   ufrmArchives in 'ufrmArchives.pas' {frmArchives},
  32.   ufrmGridLineCount in 'ufrmGridLineCount.pas' {frmGridLineCount},
  33.   ufrmAwake in 'ufrmAwake.pas' {frmAwake},
  34.   uEmailAwake in 'uEmailAwake.pas',
  35.   ufrmEmailAwaked in 'ufrmEmailAwaked.pas' {frmEmailAwaked},
  36.   ufrmSingnals in 'ufrmSingnals.pas' {frmSingnals},
  37.   uSingnalMgr in 'uSingnalMgr.pas',
  38.   objs in 'objs.pas',
  39.   ufrmAddr in 'ufrmAddr.pas' {frmAddr},
  40.   ufrmAbout in 'ufrmAbout.pas' {frmAbout};
  41. {$R *.res}
  42. function CheckForPrevInstance: Boolean;
  43. var
  44.   H:THandle;
  45.   Mutex:THandle;
  46. begin
  47.   Mutex := CreateMutex(nil, True, PChar(INST_NAME));  //this mutex release in Main Form's destroy methoed.
  48.   if (Mutex <> 0) and (GetLastError = 0) then  // Not Run
  49.   begin
  50.     Result := True;
  51.   end
  52.   else    //Running
  53.   begin
  54.     H := FindWindow(nil, PChar('邮件收发系统'));
  55.     if H <> 0 then
  56.     begin
  57.       SendMessage(H, WM_PREVINSTRUN, Mutex, 0);
  58.       
  59.       Result:=False;
  60.     end
  61.     else
  62.       Result:=True;
  63.   end;
  64. end;
  65. begin
  66.   Application.Initialize;
  67.   if not CheckForPrevInstance  then Application.Terminate;
  68.   Application.Title := 'E-Mail';
  69.   Application.CreateForm(TfrmMain, frmMain);
  70.   Application.CreateForm(TfrmAbout, frmAbout);
  71.   //Application.CreateForm(TfrmAddr, frmAddr);
  72.   //Application.CreateForm(TfrmSingnals, frmSingnals);
  73.   //Application.CreateForm(TfrmAwake, frmAwake);
  74.   //Application.CreateForm(TfrmEmailAwaked, frmEmailAwaked);
  75.   //Application.CreateForm(TfrmGridLineCount, frmGridLineCount);
  76.   //Application.CreateForm(TfrmArchives, frmArchives);
  77.   //Application.CreateForm(TfrmWriteEmail, frmWriteEmail);
  78.   //Application.CreateForm(TfrmViewEmail, frmViewEmail);
  79.   //Application.CreateForm(TBaseEditorForm, BaseEditorForm);
  80.   //Application.CreateForm(TfrmViewEmail, frmViewEmail);
  81.   //Application.CreateForm(TfrmAttchMgr, frmAttchMgr);
  82.   //Application.CreateForm(TfrmFilterPopTip, frmFilterPopTip);
  83.   //Application.CreateForm(TfrmEmailBoxProperty, frmEmailBoxProperty);
  84.   //Application.CreateForm(TfrmAttemper, frmAttemper);
  85.   //Application.CreateForm(TfrmRule, frmRule);
  86.   //Application.CreateForm(TTipsForm, TipsForm);
  87.   //Application.CreateForm(TfrmNewEMail, frmNewEMail);
  88.   //Application.CreateForm(TfrmCloseTip, frmCloseTip);
  89.   //Application.CreateForm(TfrmWriteEMail, frmWriteEMail);
  90.   //Application.CreateForm(TfrmNewUser, frmNewUser);
  91.   //Application.CreateForm(TfrmNewSMTP, frmNewSMTP);
  92.   Application.Run;
  93. end.