IS(Inno Setup，我用的是5.2.2)是一款免費的制作安裝包的工具，關于它的具體介紹和如何制作安裝包（用向導一步一步很容易上手的）我就不介紹了。在這里，只介紹兩個方面的內(nèi)容：

1. 安裝軟件前，檢查該軟件是否正在運行，如果正在運行，則提示用戶，需要先關閉，然后才能進一步按照。

2. 卸載軟件的時候，檢查該軟件是否正在運行，如果正在運行，則要關閉才能進行卸載。

在IS中，有[code]段，該段是用來編寫pascal腳本的。

這里，主要用到FindWindowByWindowName這個函數(shù)，該函數(shù)通過窗口標題來獲取其句柄，本來想用FindWindowByClassName，但現(xiàn)在的窗口類有些難找，用spy++，查出的是一些afx…之類的。具體用法可以查看IS幫助文檔。

在IS編寫腳本中，有兩個函數(shù)很重要，InitializeSetup, InitializeUninstall，大家從字面應該可以看出是什么意思了，分別是安裝前，安裝后執(zhí)行的動作。

所以，我們的腳本應該寫在這里。
另外，[code]段可以放在IS腳本的最后部分。

這里還是直接給出代碼，代碼倒不怎么難，拋磚引玉了，希望大家對于安裝制作有更好的方法。

[Code]

var

  HasRun:HWND;

function InitializeSetup():Boolean;

begin

  Result := true;

  HasRun := FindWindowByWindowName('你的窗口標題');

  while HasRun<>0 do

  begin

    if MsgBox('安裝程序檢測到你的應用程序正在運行。' #13#13 '您必須先關閉它然后單擊“是”繼續(xù)安裝，或按“否”退出！', 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;