注册表检测获取安装路径取消目录指定

Share

1. 
   
2. 检测注册表路径代码：
   
3. DefaultDirName={reg:HKLM\Software\Tencent\QQ,Install|{pf}\YourProgDir}
   
4. 
   
5. procedure InitializeWizard();
   
6. begin
   
7.   if RegValueExists(HKEY_LOCAL_MACHINE, 'Software\Tencent\QQ', 'Install') then
   
8.   begin
   
9.   WizardForm.DirBrowseButton.Enabled := False;
   
10.   WizardForm.DirEdit.Enabled := False;
    
11.   end;
    
12. end;  //安装路径不可选

复制代码