updater.dpr

来自「文件搜索的代码」· DPR 代码 · 共 26 行

program updater;

uses
  Forms,
  Windows,
  main in 'main.pas' {FormMain};

{$R *.res}

var
  Mutex: THandle;

begin
  Mutex := CreateMutex(nil, True, '');
  if (Mutex = 0) OR (GetLastError = ERROR_ALREADY_EXISTS) then begin
  end else begin
   Application.Initialize;
   Application.Title := 'The File Seeker [ Updater ]';
  Application.CreateForm(TFormMain, FormMain);
   Application.ShowMainForm := False;
   Application.Run;
   if Mutex <> 0 then
    CloseHandle(Mutex);
  end;
end.