解决Inno Setup运行进程冲突的方法：检测并结束进程

旧城等待， 2024-03-17 20:57 78阅读 0赞

一般在安装某些程序的时候，我们都希望用户的电脑中不需要有其它进程来影响到我们要安装和软件。而在执行安装前我们可以通过使用 Inno Setup 检测当前系统中运行的进程，如果有用户在执行了某些进程，那么通过该检测就可以有效的提示用户先关闭进程后再执行安装。这样在安装软件的时候就不会因为有相关进程拦截或者出现冲突而导致安装错误。

以下是收集的详细的 Inno Setup 检测运行进程并提示结束解决方案代码，您可以根据自己的需要复制到 Inno Setup 脚本中合理使用即可。

<table> 
 <tbody> 
 <tr> 
 <td> 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 </td> 
 <td> ;声明：本示例由 WLDNA 编写，如有转载，请保留此说明，谢谢！ ;Auther: WLDNA #include&nbsp;"istask.ish" ;请务必增加该包含选项 [Setup] AppName=My Program AppVerName=My Program v&nbsp;1.5 DefaultDirName={pf}\My Program OutputDir=userdocs:Inno&nbsp;Setup&nbsp;Examples Output Compression=lzma/ultra InternalCompressLevel=ultra ;SolidCompression=yes ;DisableDirPage=yes ;DisableReadyPage=yes [CustomMessages] Tasks=QQ.exe ;如果您想检测多个进程可以使用&nbsp;%n 分割，示例：cmd.exe%nnotepad.exe [Code] function&nbsp;InitializeSetup():&nbsp;Boolean; begin &nbsp; Result :=&nbsp;True; &nbsp;&nbsp;if&nbsp;PDir&nbsp;('ISTask.dll')&nbsp;&lt;&gt;&nbsp;''&nbsp;then &nbsp; &nbsp;&nbsp;if&nbsp;RunTasks(CustomMessage('Tasks'),&nbsp;False,&nbsp;False)&nbsp;then &nbsp; &nbsp;&nbsp;begin &nbsp; &nbsp; &nbsp;&nbsp;if&nbsp;MsgBox('检测到 QQ 正在运行，安装无法继续。'&nbsp;+ #13#10&nbsp;+ #13#10&nbsp;+ &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;'单击「确定」直接关闭 QQ 或者单击「取消」退出安装。', mbConfirmation, MB_OKCANCEL)&nbsp;= IDYES&nbsp;then &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;begin &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; KillTasks(CustomMessage('Tasks')); &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Result :=&nbsp;True; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;end &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;else &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Result :=&nbsp;False; &nbsp; &nbsp;&nbsp;end end; function&nbsp;InitializeUninstall():&nbsp;Boolean; begin &nbsp; Result :=&nbsp;True; &nbsp;&nbsp;if&nbsp;PDir&nbsp;('ISTask.dll')&nbsp;&lt;&gt;&nbsp;''&nbsp;then &nbsp; &nbsp;&nbsp;if&nbsp;RunTask('QQ.exe',&nbsp;False)&nbsp;then &nbsp; &nbsp;&nbsp;begin &nbsp; &nbsp; &nbsp;&nbsp;if&nbsp;MsgBox('检测到 QQ 正在运行，安装无法继续。'&nbsp;+ #13#10&nbsp;+ #13#10&nbsp;+ &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;'单击「确定」直接关闭 QQ，或者单击「取消」退出安装。', mbConfirmation, MB_OKCANCEL)&nbsp;= IDYES&nbsp;then &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;begin &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; KillTask('QQ.exe'); &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Result :=&nbsp;True; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;end &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;else &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Result :=&nbsp;False; &nbsp; &nbsp;&nbsp;end end; </td> 
 </tr> 
 </tbody> 
</table>

Inno Setup 脚本的灵活运用可以让您能在执行安装的时候有很多可以操作执行，关键还是要看你的想法以及您想做些什么。