const
WM_LBUTTONDOWN = 513;
WM_LBUTTONUP = 514;

procedure InitializeWizard();
begin
PostMessage(WizardForm.NextButton.Handle,WM_LBUTTONDOWN,0,0);
PostMessage(WizardForm.NextButton.Handle,WM_LBUTTONUP,0,0);
end;

function NextButtonClick(CurPageID: Integer): Boolean;
var ResultCode: Integer;
begin
Result := True;
  if RegValueExists(HKEY_CURRENT_USER, 'SoftwareXXXXPlaza', 'Path') then
  begin
    PostMessage(WizardForm.NextButton.Handle,WM_LBUTTONDOWN,0,0);
    PostMessage(WizardForm.NextButton.Handle,WM_LBUTTONUP,0,0);
  end
end;

安装完成打开某网站

var ErrorCode: Integer;
procedure CurStepChanged(CurStep: TSetupStep);
var
ErrorCode: Integer;
begin
  if CurStep=ssDone then
    ShellExec('open', 'http://www.baidu.com', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;

inno setup 安装完成打开某网站 网站 棋牌技术  第1张

卸载完成打开某网站

inno setup 安装完成打开某网站 网站 棋牌技术  第2张

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var ErrorCode: Integer;
begin
  case CurUninstallStep of usUninstall:
  begin // 开始卸载
  end;
  usPostUninstall:
    begin // 卸载完成
      ShellExec('open', 'http://www.baidu.com', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
    end;
  end;
end;

未经允许不得转载! 作者:棋牌源码网,转载或复制请以超链接形式并注明出处棋牌源码网

原文地址:《inno setup 安装完成打开某网站》发布于:2021-08-06