sunwayerp.dpr

来自「SunwayERP框架(支持Plugin)」· DPR 代码 · 共 29 行

program SunwayERP;

uses
  sharemem,
  Forms,
  Windows,
  Main in 'Main.pas' {frmMain},
  BaseForm in 'Common\BaseForm.pas' {frmBaseForm},
  BaseDlgForm in 'Common\BaseDlgForm.pas' {frmBaseDlgForm},
  Login in 'Login.pas' {frmLogin},
  Loading in 'Loading.pas' {frmLoading},
  ChgPassword in 'ChgPassword.pas' {frmChgPassword};

{$R *.res}
var
  hMutex: THandle;
begin
  Application.Initialize;
  hmutex:=createmutex(nil,false,'SunwayERP');
  if WaitForSingleObject(hMutex, 0) <> wait_TimeOut then
    begin
      Application.Title:='商维ERP';
      Application.CreateForm(TfrmMain, frmMain);
  Application.Run;
    end
  else
    Application.MessageBox('系统已经运行!','系统提示',0);
end.