upgrade.dpr

来自「一个简单的升级代理程序」· DPR 代码 · 共 28 行

program upgrade;

uses
  Forms,
  Windows,
  UpgradeMainForm in 'UpgradeMainForm.pas' {frmMainUpgrade};

{$R *.res}
var
  ErrorID: WORD;
begin
  CreateMutex(nil, false, 'UpgradeService_yx');
  ErrorID := GetLastError;
  if ErrorID = 0 then
  begin
    Application.Initialize;
    if (ParamStr(1)<>'') then
    begin
      RegisterWindowMessage('UpgradeService_yx');
      Application.ShowMainForm := False;
      Application.Title := '程序升级助理';
      Application.CreateForm(TfrmMainUpgrade, frmMainUpgrade);
    end;
    Application.Run;
  end
  else Halt;
end.