Inno setup 安装前判断进程是否存在，以及停止相应进程

admin

       最近用inno setup想做一个exe，可是在安装之前要停止正在运行的相应进程，可是发现它自身的方法不能满足要求，终于在网上找到了相应的资料，在这里总结一下，方便以后使用。

1：如果我只是单纯的想在安装之前判断一个进程是否存在，要引入psvince.dll这个dll，放在inno setup的安装目录下（与其他dll相同目录），代码如下：  

1. [files]
   
2. 
   
3. ; 安装前判断进程，dll文件放在inno的安装目录中
   
4. Source: compiler:psvince.dll; Flags: dontcopy noencryption
   
5. 
   
6. //安装前判断是否有进程正在运行
   
7. function IsModuleLoaded(modulename: String ): Boolean;
   
8. external 'IsModuleLoaded@files:psvince.dll stdcall setuponly';
   
9. 
   
10. function InitializeSetup(): Boolean;
    
11. var
    
12.     value: string;
    
13.     IsAppRunning: boolean;
    
14. 
    
15. begin
    
16.     //check Diagnosis press
    
17.     value := ExpandConstant('{cm:DiagnosisRunning}');      
    
18.     Result:= true;
    
19.     IsAppRunning:= IsModuleLoaded('进程名：如MySQL.exe');
    
20.     while IsAppRunning do
    
21.     begin
    
22.         if MsgBox('**工具正在运行，请先关闭它！', mbConfirmation, MB_OKCANCEL) = IDOK then
    
23.         IsAppRunning:= IsModuleLoaded('进程名：如mysql.exe')
    
24.         else
    
25.         begin
    
26.             IsAppRunning:= false;
    
27.             Result:= false;
    
28.         end;
    
29.     end;
    
30. end;

复制代码

2：如果我想在安装前结束掉某个进程，就要引入IsTask.dll了，放在inno setup的安装目录下（与其他dll相同目录），代码如下：  

1. [Files]
   
2. Source: D:\FDisk\makeexe\fd\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs
   
3. ; NOTE: Don't use "Flags: ignoreversion" on any shared system files
   
4. ; 安装前判断进程，dll文件放在inno的安装目录中
   
5. Source: compiler:IsTask.dll; Flags: dontcopy noencryption
   
6. 
   
7. [Code]
   
8. //安装前判断是否有进程正在运行，istask.dll文件与打包的exe文件一起
   
9. function RunTask(FileName: string; bFullpath: Boolean): Boolean;
   
10. external 'RunTask@files:ISTask.dll stdcall delayload';
    
11. function KillTask(ExeFileName: string): Integer;
    
12. external 'KillTask@files:ISTask.dll stdcall delayload';
    
13. 
    
14. function InitializeSetup(): Boolean;
    
15. begin
    
16.   Result:= true;
    
17.   if RunTask('进程名：如mysql.exe', false) then
    
18.       begin
    
19.            if MsgBox('安装程序检测到**正在运行!'#13''#13'点击 "是" 按钮将停止进程然后继续安装;'#13''#13'点击"否" 按钮将终止安装程序!', mbConfirmation, MB_YESNO) = IDYES then
    
20.               begin
    
21.               KillTask('进程名：如mysql.exe');
    
22.               KillTask('mysqld.exe');
    
23.               Result:= true;
    
24.               end
    
25.            else
    
26.               Result:= false;
    
27.       end
    
28.   else
    
29.   Result:= true;
    
30. end;

复制代码