liveupdate.dpr

来自「一个基于Socket的在线更新程序」· DPR 代码 · 共 50 行

program LiveUpdate;

uses
  Forms,
  Classes,
  SysUtils,
  Windows,
  frmMain in 'frmMain.pas' {MainForm},
  hxVersion in '..\Common Files\hxVersion.pas',
  hxFileRes in '..\Common Files\hxFileRes.pas',
  hxSysUtils in '..\Common Files\hxSysUtils.pas',
  hxUpdate in '..\Common Files\hxUpdate.pas',
  frmConfig in 'frmConfig.pas' {ConfigForm},
  hxClientApp in 'hxClientApp.pas',
  hxClasses in '..\Common Files\hxClasses.pas',
  frmMiniUpdate in 'frmMiniUpdate.pas' {MiniUpdateForm};

{$R *.res}

procedure RaiseLaunchError;
begin
  raise Exception.Create('程序启动失败!');
end;

begin
  Application.Initialize;
  try
    case ParamCount of
      1: Application.CreateForm(TMainForm, MainForm);
      3:
      if UpperCase(ParamStr(2)) = '-A' then
        Application.CreateForm(TMiniUpdateForm, MiniUpdateForm)
      else
        RaiseLaunchError;
    else
      RaiseLaunchError;
    end;
  except
    MessageBox(Application.Handle, '程序启动失败，正确格式如下：' + #13#10 +
      'LiveUpdate <ProjectName> [-a <AutoRunExeName>]' + #13#10#13#10 +
      '参数说明：' + #13#10 +
      'ProjectName    - 工程名称' + #13#10 +
      '-a             - 自动更新' + #13#10 +
      'AutoRunExeName - 更新完毕后自动运行的程序',
      '提示', MB_OK + MB_ICONERROR);
    Exit;
  end;
  Application.Run;
end.