Inno Setup安装、卸载时判断是否程序正在运行，安装完成时自动打开网页的脚本

1. [Code]  
2.   
3. var  
4.   
5.   ErrorCode: Integer;  
6.   
7.   IsRunning: Integer;  
8.   
9.   
10.   
11. // 安装时判断客户端是否正在运行  
12.   
13. function InitializeSetup(): Boolean;  
14.   
15. begin  
16.   
17.   Result :=true;  //安装程序继续  
18.   
19.   IsRunning:=FindWindowByWindowName('东方宽频网络电视');  
20.   
21.   while IsRunning<>0 do  
22.   
23.   begin  
24.   
25.     if Msgbox('安装程序检测到客户端正在运行。'  #13#13 '您必须先关闭它然后单击“是”继续安装，或按“否”退出！', mbConfirmation, MB_YESNO) = idNO then  
26.   
27.     begin  
28.   
29.       Result :=false; //安装程序退出  
30.   
31.       IsRunning :=0;  
32.   
33.     end else begin  
34.   
35.       Result :=true;  //安装程序继续  
36.   
37.       IsRunning:=FindWindowByWindowName('东方宽频网络电视');  
38.   
39.     end;  
40.   
41.   end;  
42.   
43.   
44.   
45. end;  
46.   
47.   
48.   
49. // 卸载时判断客户端是否正在运行  
50.   
51. function InitializeUninstall(): Boolean;  
52.   
53. begin  
54.   
55.    Result :=true;  //安装程序继续  
56.   
57.   IsRunning:=FindWindowByWindowName('东方宽频网络电视');  
58.   
59.   while IsRunning<>0 do  
60.   
61.   begin  
62.   
63.     if Msgbox('安装程序检测到客户端正在运行。'  #13#13 '您必须先关闭它然后单击“是”继续安装，或按“否”退出！', mbConfirmation, MB_YESNO) = idNO then  
64.   
65.     begin  
66.   
67.       Result :=false; //安装程序退出  
68.   
69.       IsRunning :=0;  
70.   
71.     end else begin  
72.   
73.       Result :=true;  //安装程序继续  
74.   
75.       IsRunning:=FindWindowByWindowName('东方宽频网络电视');  
76.   
77.     end;  
78.   
79.   end;  
80.   
81. end;  
82.   
83.   
84.   
85. procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);  
86.   
87. begin  
88.   
89.   case CurUninstallStep of  
90.   
91.     usUninstall:  
92.   
93.       begin // 开始卸载  
94.   
95.   
96.   
97.       end;  
98.   
99.     usPostUninstall:  
100.   
101.       begin      // 卸载完成  
102.   
103.         // MsgBox('CurUninstallStepChanged:' #13#13 'Uninstall just finished.', mbInformation, MB_OK);  
104.   
105.         // ...insert code to perform post-uninstall tasks here...  
106.   
107.         ShellExec('open', 'http://www.baidu.com', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);  
108.   
109.       end;  
110.   
111.   end;  
112.   
113. end;  

转载请标明出处：http://blog.csdn.net/wuhuiran/archive/2008/07/02/2605902.aspx