很多時候我們需要在安裝文件之前卸載原有的程序而不是覆蓋安裝,本文的code就是實現了這樣的功能。
實現原理是:從注冊表'UninstallString'項中讀取卸載信息,用Exec進行靜默卸載。
下面code中APP_NAME為你的程序名,可以去注冊表中確認。
function InitializeSetup(): boolean; var ResultStr: String; ResultCode: Integer; begin if RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\APP_NAME_is1', 'UninstallString', ResultStr) then begin ResultStr := RemoveQuotes(ResultStr); Exec(ResultStr, '/silent', '', SW_HIDE, ewWaitUntilTerminated, ResultCode); end; result := true; end;
- 本文固定链接: https://www.maxwoods.net/archives/1003
- 转载请注明: 第五维 于 第五维 发表