project1.dpr

Delphi函数工厂。。。。。。。。。。。。。

program Project1;

uses
  XPTheme,
  Forms,
  Windows,
  SysUtils,
  uCustomModuleForm in 'uCustomModuleForm.pas' {CustomModuleForm},
  uAsciiConstructorForm in 'uAsciiConstructorForm.pas' {AsciiConstructorForm},
  uCommentConstructorForm in 'uCommentConstructorForm.pas' {CommentConstructorForm},
  uKeyValueModuleForm in 'uKeyValueModuleForm.pas' {KeyValueModuleForm},
  uMessageBoxConstructorForm in 'uMessageBoxConstructorForm.pas' {MessageBoxConstructorForm},
  uSendEmaiConstructorForm in 'uSendEmaiConstructorForm.pas' {SendEmaiConstructorForm},
  xuFunctionModuleForm in 'xuFunctionModuleForm.pas' {FunctionModuleForm},
  uApiModuleForm in 'uApiModuleForm.pas' {ApiModuleForm},
  uAccessModuleForm in 'uAccessModuleForm.pas' {AccessModuleForm},
  uMainForm2 in 'uMainForm2.pas' {fmMain},
  uFunctionbaseModuleForm in 'uFunctionbaseModuleForm.pas' {FunctionbaseModuleForm},
  uAddButton in 'uAddButton.pas' {fmAddButton},
  uModifyButton in 'uModifyButton.pas' {fmModifyButton},
  uPasFileEditForm in 'uPasFileEditForm.pas' {PasFileEditForm},
  uPasFileEditSetForm in 'uPasFileEditSetForm.pas' {PasFileEditSetForm},
  uResBuilder in 'uResBuilder.pas' {ResBuilder},
  uFormEffect in 'uFormEffect.pas',
  uhelp in 'uhelp.pas' {HelpConstructorForm};

{$R *.res}
var
  HMutex: HWND;

begin
  if ParamStr(1) = '' then
  begin
    HMutex := CreateMutex(nil, False, 'FUNCTIONSFACTORY_HANDLE_OF_MUTEX'); //创建互斥对象，防止程序被多次加载
    try
      if GetLastError = ERROR_ALREADY_EXISTS then Exit;
      Application.Initialize;
      Application.Title := 'DELPHI函数工厂';
      Application.CreateForm(TfmMain, fmMain);
      fmMain.Show; //把这句放到前面主窗体显示是不是快些,我也不知道.
      fmMain.Update;
      Application.CreateForm(TfmAddButton, fmAddButton);
      Application.CreateForm(TfmModifyButton, fmModifyButton);
      Application.CreateForm(TPasFileEditForm, PasFileEditForm);
      Application.CreateForm(TPasFileEditSetForm, PasFileEditSetForm);
      Application.Run;
    finally
      ReleaseMutex(HMutex);
      CloseHandle(HMutex) //释放互斥体句柄
    end;
  end
  else
  begin
    Application.Initialize;
    Application.CreateForm(TPasFileEditForm, PasFileEditForm);
    Application.CreateForm(TPasFileEditSetForm, PasFileEditSetForm);
    PasFileEditForm.Show;
    PasFileEditForm.Update;
    Application.Run;
  end;
end.