IS(Inno Setup，我用的是5.2.2)是一款免費(fèi)的制作安裝包的工具，關(guān)于它的具體介紹和如何制作安裝包（用向?qū)б徊揭徊胶苋菀咨鲜值模┪揖筒唤榻B了。在這里，只介紹兩個(gè)方面的內(nèi)容：

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

2. 卸載軟件的時(shí)候，檢查該軟件是否正在運(yùn)行，如果正在運(yùn)行，則要關(guān)閉才能進(jìn)行卸載。

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

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

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

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

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

[Code]

var

  HasRun:HWND;

function InitializeSetup():Boolean;

begin

  Result := true;

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

  while HasRun<>0 do

  begin

    if MsgBox('安裝程序檢測到你的應(yīng)用程序正在運(yùn)行。' #13#13 '您必須先關(guān)閉它然后單擊“是”繼續(xù)安裝，或按“否”退出！', mbConfirmation, MB_YESNO) = idNO then

    begin

      Result := false;

      HasRun := 0;

    end

    else

    begin

      Result := true;

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

    end;

  end;

end;

function InitializeUninstall(): Boolean;

begin

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

  if HasRun<>0 then

  begin

    MsgBox('卸載程序檢測到你的應(yīng)用程序正在運(yùn)行。' #13#13 '請先退出你的應(yīng)用程序，然后再進(jìn)行卸載！', mbError, MB_OK);

    Result := false;

  end

  else

    Result := true;

end;