正式会员享受无限制浏览网站功能和高速网盘下载,赶快加入本站吧!
您需要 登录 才可以下载或查看,没有账号?立即注册
x
- [Code]
- procedure CurStepChanged(CurStep: TSetupStep); //安装时打开
- var
- ErrorCode: Integer;
- begin
- if CurStep=ssDone then
- ShellExec('open', 'http://www.hanzify.org', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
- end;
- procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep); //卸载时打开
- var
- ErrorCode: Integer;
- begin
- if CurStep=ssDone then
- ShellExec('open', 'http://www.hanzify.org', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
- end;
复制代码
|