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;
棋牌资源网 » inno setup 安装完成打开某网站