安装前后，关闭执行程序进程，或者杀掉特定进程

针对之前的一篇博文进行更改，那里的代码确实不好用

直接上代码：

[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 这样就可以了