Inno Setip 安装卸载打开主页

Share

1. [Code]
   
2. procedure CurStepChanged(CurStep: TSetupStep); //安装时打开
   
3. var
   
4. ErrorCode: Integer;
   
5. begin
   
6. if CurStep=ssDone then
   
7. ShellExec('open', 'http://www.hanzify.org', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
   
8. end;
   
9. 
   
10. procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep); //卸载时打开
    
11. var
    
12. ErrorCode: Integer;
    
13. begin
    
14. if CurStep=ssDone then
    
15. ShellExec('open', 'http://www.hanzify.org', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
    
16. end;

复制代码