很多時候我們需要在安裝檔案之前解除安裝原有的程式而不是覆蓋安裝，本文的code就是實現了這樣的功能。

實現原理是：從註冊表'UninstallString'項中讀取解除安裝資訊，用Exec進行靜默解除安裝。

下面code中APP_NAME為你的程式名，可以去註冊表中確認。

function InitializeSetup(): boolean;varResultStr: String;ResultCode: Integer;beginif RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\APP_NAME_is1', 'UninstallString', ResultStr) thenbeginResultStr := RemoveQuotes(ResultStr);Exec(ResultStr, '/silent', '', SW_HIDE, ewWaitUntilTerminated, ResultCode);end;result := true;end;