在Inno Setup制作的安装包中利用Pascal脚本检查安装，卸载前检查程序是否已经启动 [转载]

IS(Inno Setup，我用的是5.2.2)是一款免费的制作安装包的工具，关于它的具体介绍和如何制作安装包（用向导一步一步很容易上手的）我就不介绍了。在这里，只介绍两个方面的内容：

1. 安装软件前，检查该软件是否正在运行，如果正在运行，则提示用户，需要先关闭，然后才能进一步按照。

2. 卸载软件的时候，检查该软件是否正在运行，如果正在运行，则要关闭才能进行卸载。

在IS中，有[code]段，该段是用来编写pascal脚本的。

这里，主要用到FindWindowByWindowName这个函数，该函数通过窗口标题来获取其句柄，本来想用FindWindowByClassName，但现在的窗口类有些难找，用spy++，查出的是一些afx…之类的。具体用法可以查看IS帮助文档。

在IS编写脚本中，有两个函数很重要，InitializeSetup, InitializeUninstall，大家从字面应该可以看出是什么意思了，分别是安装前，安装后执行的动作。

所以，我们的脚本应该写在这里。
另外，[code]段可以放在IS脚本的最后部分。

这里还是直接给出代码，代码倒不怎么难，抛砖引玉了，希望大家对于安装制作有更好的方法。

[Code]

var

HasRun:HWND;

function InitializeSetup():Boolean;

begin

Result := true;

HasRun := FindWindowByWindowName('你的窗口标题');

while HasRun<>0 do

begin

    if MsgBox('安装程序检测到你的应用程序正在运行。' #13#13 '您必须先关闭它然后单击“是”继续安装，或按“否”退出！', mbConfirmation, MB_YESNO) = idNO then

    begin

      Result := false;

      HasRun := 0;

    end

    else

    begin

      Result := true;

      HasRun := FindWindowByWindowName('你的窗口标题');

    end;

end;

end;

function InitializeUninstall(): Boolean;

begin

HasRun := FindWindowByWindowName('你的窗口标题');

if HasRun<>0 then

begin

    MsgBox('卸载程序检测到你的应用程序正在运行。' #13#13 '请先退出你的应用程序，然后再进行卸载！', mbError, MB_OK);

    Result := false;

end

else

    Result := true;

end;