inno setup 安装完成打开某网站

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;

卸载完成打开某网站

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;