在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;