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 安装完成打开某网站

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 安装完成打开某网站

安装完成打开某网站

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;

本站源码仅做学术研究,自娱自乐使用,不得用于赌博性质的非法商业用途!转载请说明出处!
棋牌资源网 » inno setup 安装完成打开某网站

这里有你所需要的,找专业的人做专业的事!

本站演示 联系客服