正式会员享受无限制浏览网站功能和高速网盘下载,赶快加入本站吧!
您需要 登录 才可以下载或查看,没有账号?立即注册
x
- function InitializeSetup():boolean;
- var
- MykeynotExist:boolean;
- ResultCode: Integer;
- uicmd: String;
- skNames: TArrayOfString;
- j: Integer;
- begin
- MykeynotExist:= true;
- if RegGetSubkeyNames(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall', skNames) then
- begin
- for j:= 0 to GetArrayLength(skNames)-1 do
- begin
- if Copy(skNames[j],1,10) = 'WinCHM Pro' then
- begin
- //卸载系统安装的版本
- if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\'+skNames[j], 'UninstallString', uicmd) then
- begin
- MyKeynotExist:= false;
- if MsgBox('检测到您的系统中已经安装了 ' + Copy(skNames[j],1,15) + #10#10 + '点击''确定''先卸载已安装版本后再进行安装.'#10#10'点击''取消''不卸载已安装版本,直接继续安装.',mbInformation,MB_OKCANCEL)=IDOK then
- Exec(RemoveQuotes(uicmd), '', '', SW_SHOW, ewWaitUntilTerminated, ResultCode);
- end;
- end;
- end;
- end;
- Result:= true;
- end;
复制代码
|