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