安装程序前卸载原有的安装程序

Share

1. function InitializeSetup():boolean;
   
2. var
   
3.   MykeynotExist:boolean;
   
4.   ResultCode: Integer;
   
5.   uicmd: String;
   
6. begin
   
7.   MykeynotExist:= true;
   
8.   if RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{406DB11E-F079-4D0D-955A-8C59306343AE}_is1', 'UninstallString', uicmd) then
   
9.   begin
   
10. MyKeynotExist:= false;
    
11. Exec(RemoveQuotes(uicmd), '', '', SW_SHOW, ewWaitUntilTerminated, ResultCode);
    
12.   end;
    
13.   Result:= MykeynotExist
    
14. end;

复制代码

请替换406DB11E-F079-4D0D-955A-8C59306343AE为你软件的appid值，如果没有的话就是APPNAme