InnoSetup 安装前卸载旧版程序

function InitializeSetup:boolean;

var

ResultStr,ResultCode:string;

begin

if RegQueryStringValue(

HKLM,

‘SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\APPID_is1’,

‘UninstallString’,

ResultStr)

then

begin

ResultStr := RemoveQuotes(ResultStr);

Exec(ResultStr, ‘/VERYSILENT’, ”, SW_HIDE, ewWaitUntilTerminated, ResultCode);

end;

end;

/VERYSILENT 静默

APPID 程序ID