guarder.dpr

来自「一个检测网络信息的程序.」· DPR 代码 · 共 32 行

program guarder;

uses
  Forms,
  windows,
  main in 'main.pas' {start},
  Des in 'Des.pas';

Resourcestring
  FMutex = 'Mutex_ONLY_ONE';

{$R *.res}

var
  hMutex: HWND;
  iRet: integer;
begin
  Application.Initialize;
  hMutex := CreateMutex(nil,False,PChar(FMutex));
  iRet := GetLastError;
  if iRet <>ERROR_ALREADY_EXISTS then
  begin
    Application.CreateForm(Tstart, start);
  Application.ShowMainForm :=false;

    Application.Run;
    //Application.Minimize ;
  end;
  ReleaseMutex(hMutex);
end.