针对之前的一篇博文进行更改,那里的代码确实不好用
直接上代码:
[Files]
; 安装前判断进程,dll文件放在inno的安装目录中
Source: compiler:IsTask.dll; Flags: dontcopy noencryption
[code]
//安装前判断是否有进程正在运行,istask.dll文件放到innosetup安装目录
function RunTask(FileName: string; bFullpath: Boolean): Boolean;
external 'RunTask@files:ISTask.dll stdcall delayload';
function KillTask(ExeFileName: string): Integer;
external 'KillTask@files:ISTask.dll stdcall delayload';
function InitializeSetup(): Boolean;
begin
Result:= true;
if RunTask('{#MyAppExeName}', false) then
begin
KillTask('{#MyAppExeName}');
Result:= true;
end
else
Result:= true;
end;
// 卸载前判断进程是否在运行,istask.dll文件与打包的exe文件一起
function RunTaskU(FileName: string; bFullpath: Boolean): Boolean;
external 'RunTask@{app}/ISTask.dll stdcall delayload uninstallonly';
function KillTaskU(ExeFileName: string): Integer;
external 'KillTask@{app}/ISTask.dll stdcall delayload uninstallonly';
function InitializeUninstall(): Boolean;
begin
Result:= true;
if RunTaskU('{#MyAppExeName}', false) then
begin
KillTaskU('{#MyAppExeName}');
Result:= true;
end
else
Result:= true;
UnloadDll(ExpandConstant('{app}/ISTask.dll'));
end;
下载istask.dll,分别放到exe目录和innosetup安装目录。
100%好用
http://download.csdn.net/detail/yuyefuxiao521/9881212
补充:
如果用的是Unicode版本的innosetup ,上面的代码不能起到检测进程、杀进程的功能。
解决方法:
j将string换成ansistring 这样就可以了