Inno Setup 使用 psvince.dll或istask.dll插件判断进程

Share

1. [Files]
   
2. Source: "embedded\psvince.dll"; Flags: dontcopy noencryption
   
3. Source: "embedded\psvince.dll"; DestDir: "{app}";
   
4. Source: "embedded\psvince.dll"; DestDir: "{app}\kl 8.5\XX";  
   
5. 
   
6. [code]
   
7. function IsModuleLoaded(modulename: AnsiString ):  Boolean;
   
8. external 'IsModuleLoaded@files:psvince.dll stdcall';
   
9. 
   
10. function InitializeSetup():boolean;
    
11. var
    
12.    IsAppRunning: boolean;
    
13. begin
    
14.     Result := true;
    
15. // 第二步，安装时判断客户端是否正在运行
    
16.    begin
    
17.     Result:= true;//安装程序继续
    
18.     IsAppRunning:= IsModuleLoaded('XXX.exe');
    
19.     while IsAppRunning do
    
20.        begin
    
21.         if MsgBox('安装程序检测到XXX正在运行！' #13#13 '您必须先关闭它然后单击“确定”继续安装，否则按“取消”退出！', mbConfirmation, MB_OKCANCEL) = IDOK then
    
22.          begin
    
23.          IsAppRunning:= IsModuleLoaded('xxx.exe')
    
24.          Result:= true;
    
25.          end else begin
    
26.          IsAppRunning:= false;
    
27.          Result:= false;//安装程序退出
    
28.          Exit;
    
29.          end;
    
30.        end;
    
31.      end;
    
32. end;
    
33. 
    
34. // 卸载时判断xxx是否正在运行
    
35. function IsModuleLoadedU(modulename: String ): Boolean;
    
36. external 'IsModuleLoaded@{app}\psvince.dll stdcall uninstallonly';
    
37. 
    
38. function InitializeUninstall(): Boolean;
    
39. var
    
40.   IsAppRunning: boolean;
    
41. begin
    
42.   Result :=true;  //卸载程序继续
    
43.   IsAppRunning:= IsModuleLoadedU('xxxx.exe');
    
44.   while IsAppRunning do
    
45.   begin
    
46.     if Msgbox('安装程序检测到xxx正在运行。'  #13#13 '您必须先关闭它然后单击“确定”继续卸载，否则按“取消”退出！', mbConfirmation, MB_OKCANCEL) = IDOK then
    
47.     begin
    
48.       IsAppRunning:= IsModuleLoadedU('xxxx.exe');
    
49.       Result :=true; //卸载程序继续
    
50.     end else begin
    
51.       Result :=false; //卸载程序退出
    
52.       Exit;
    
53.     end;
    
54.   end;
    
55.   UnloadDLL(ExpandConstant('{app}\psvince.dll'));
    
56. end;

复制代码

经过反复测试，发现psvince.dll插件确实有问题，但是也不是网上说的64位系统里检测不到的问题，
而是检测不到64位进程，跟系统无关。现在，下面的代码可以解决问题（代码来自网上），就不需要任何插件了：

1. // PSVince控件无法检测到64位exe程序的进程，使用下面的函数可以解决。
   
2. function IsAppRunning(const FileName: string): Boolean;
   
3. var
   
4.   FWMIService: Variant;
   
5.   FSWbemLocator: Variant;
   
6.   FWbemObjectSet: Variant;
   
7. begin
   
8.   Result := false;
   
9.   FSWbemLocator := CreateOleObject('WBEMScripting.SWBEMLocator');
   
10.   FWMIService := FSWbemLocator.ConnectServer('', 'root\CIMV2', '', '');
    
11.   FWbemObjectSet := FWMIService.ExecQuery(Format('SELECT Name FROM Win32_Process Where Name="%s"',[FileName]));
    
12.   Result := (FWbemObjectSet.Count > 0);
    
13.   FWbemObjectSet := Unassigned;
    
14.   FWMIService := Unassigned;
    
15.   FSWbemLocator := Unassigned;
    
16. end;
    
17. 
    
18. function InitializeSetup():boolean;
    
19. var
    
20.    IsRunning: boolean;
    
21. // 第二步，安装时判断客户端是否正在运行,注意：使用IsAppRunning函数（已在前面定义），
    
22.     //可以在32和64位系统下检测32和64位进程，但还是不能识别进程的版本，如果有多版本的话。
    
23.     begin
    
24.       Result:= true;//安装程序继续
    
25.       IsRunning:= IsAppRunning('ugraf.exe');
    
26.       while IsRunning do
    
27.          begin
    
28.            if MsgBox('安装程序检测到 UG软件 正在运行！' #13#13 '您必须先关闭所有正在运行的UG软件，然后单击“确定”继续安装，否则按“取消”退出！', mbConfirmation, MB_OKCANCEL) = IDOK then
    
29.              begin
    
30.              IsRunning:= IsAppRunning('ugraf.exe');
    
31.              Result:= true;
    
32.              end else begin
    
33.              IsRunning:= false;
    
34.              Result:= false;//安装程序退出
    
35.              Exit;
    
36.              end;
    
37.          end;
    
38.      end;

复制代码