inno setup 安装之前卸载旧版本

[Code]
//卸载软件，红色部分需要修改，参考APPID
function InitializeSetup(): boolean;
var
ResultStr: String;
ResultCode: Integer;
begin
if RegQueryStringValue(HKLM, ‘SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall{7AB469CE-8A39-4AC5-9656-37AE61E6B1A2}_is1’, ‘UninstallString’, ResultStr) then
begin
ResultStr := RemoveQuotes(ResultStr);
Exec(ResultStr, ‘/silent’, ‘’, SW_HIDE, ewWaitUntilTerminated, ResultCode);
end;
result := true;
end;

//删除 卸载后的残余文件
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
if CurUninstallStep = usDone then
begin
DelTree(ExpandConstant(’{app}’), True, True, True);
end;
end;