[Inno Setup]檢查程式是否已安裝，並且詢問user是否要安裝舊版程式

我有一個用COM寫的dll，因為會給很多支程式一起發佈，這種清況下有可能使用者剛好安裝到舊版本的dll，雖然這樣不是什麼大問題，但是我還是希望使用者盡量使用最新的dll(不安裝舊版程式)，因此我在Inno Setup加入一小段pascal code去解決這個問題。

[Setup]
; your setup setting

[Code]
function InitializeSetup(): Boolean;
var version: String;
begin
result := true;
if RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\yourapp', 'DisplayVersion', version) = true then begin
  if CompareStr(version, '1.1.5.0') > 0 then    ; 1.1.5.0是你最新版的version
    if WizardSilent() = false then begin        ; Silent就預設不安裝舊的
      if MsgBox('Would you like to install the older version?', mbConfirmation, MB_YESNO or MB_DEFBUTTON2) = IDNO then begin  ;詢問user
        result := false;
      end;
    end else begin
      result := false;
    end;
end;
end;

Note:
1. 原本是以為Inno Setup有這個選項可以設定，不過找了一下還是沒找到，所以就自己手動弄了.. XD