project1.~dpr

来自「Navision ERP 极品补丁」· ~DPR 代码 · 共 29 行

program Project1;

uses
  Forms,
  windows,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {dm: TDataModule},
  mainunit in 'mainunit.pas' {nhide};

{$R *.res}
  var hMutex:hWnd;
begin
  Application.Initialize;
  Application.Title:='Navision ERP KIT';
  hMutex:=CreateMutex(nil,false,'Navision ERP KIT');
  if GetLastError<>Error_Already_Exists then
    begin
      Application.CreateForm(TForm1, Form1);
  Application.CreateForm(Tdm, dm);
  Application.CreateForm(Tnhide, nhide);
  Application.Run;
    end
  else
    begin
      Application.MessageBox('本程序只允许同时运行一个','Error');
      ReleaseMutex(hMutex);
    end;
end.