安装时检测旧版，存在则卸载后再安装

Share

1. function InitializeSetup():boolean;
   
2. var
   
3.   MykeynotExist:boolean;
   
4.   ResultCode: Integer;
   
5.   uicmd: String;
   
6.   skNames: TArrayOfString;
   
7.   j: Integer;
   
8. begin
   
9.   MykeynotExist:= true;
   
10.   if RegGetSubkeyNames(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall', skNames) then
    
11.   begin
    
12.   for  j:= 0 to GetArrayLength(skNames)-1 do
    
13.     begin
    
14.     if Copy(skNames[j],1,10) = 'WinCHM Pro' then
    
15.       begin
    
16.       //卸载系统安装的版本
    
17.       if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\'+skNames[j], 'UninstallString', uicmd) then
    
18.         begin
    
19.         MyKeynotExist:= false;
    
20.         if MsgBox('检测到您的系统中已经安装了 ' +  Copy(skNames[j],1,15) + #10#10 + '点击''确定''先卸载已安装版本后再进行安装.'#10#10'点击''取消''不卸载已安装版本，直接继续安装.',mbInformation,MB_OKCANCEL)=IDOK then
    
21.           Exec(RemoveQuotes(uicmd), '', '', SW_SHOW, ewWaitUntilTerminated, ResultCode);
    
22.         end;
    
23.       end;
    
24.     end;
    
25.   end;
    
26.   Result:= true;
    
27. end;

复制代码