inno setup 安装完成打开某网站

自助开通VIP,整站资源任意下载

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;

inno setup 安装完成打开某网站,inno setup 安装完成打开某网站,网站,第1张

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;

inno setup 安装完成打开某网站,inno setup 安装完成打开某网站,网站,第2张

安装完成打开某网站

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;

① 本网站名称及网址:八爷资源网 | www.8ye.vip
② 本网站资源来源于网络收集,如有侵权,请联系站长进行删除处理。
③ 分享目的仅供大家学习和交流,请不要用于商业用途,否则后果自负。
④ 如果你也有好源码或者教程,可以联系小编,有钻石奖励和额外收入。
⑤ 本站提供的源码、模板、插件等等其他资源,都不包含技术服务请大家谅解。
⑥ 本站资源售价只是赞助,收取费用仅维持本站的日常运营所需。
⑦ 本站资源大多存储在云盘,如发现链接失效,请联系客服,我们会第一时间更新。
八爷资源网 » inno setup 安装完成打开某网站

VIP会员尊享专属特权,真正的海量,无套路,无限量下载!

游戏演示 联系客服