[JVCL-Checkins] dev/JVCL3/install/JVCLInstall DelphiData.pas,1.22,1.23 - Fixed Mantis #3467: Install fails when JCL installed in non-

[Andreas H. <ah...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/install/JVCLInstall
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32450/install/JVCLInstall

Modified Files:
	DelphiData.pas 
Log Message:
Fixed Mantis #3467: Install fails when JCL installed in non-standard path


Index: DelphiData.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/install/JVCLInstall/DelphiData.pas,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -d -r1.22 -r1.23
*** DelphiData.pas	4 Dec 2005 10:22:50 -0000	1.22
--- DelphiData.pas	26 Jan 2006 18:59:33 -0000	1.23
***************
*** 563,566 ****
--- 563,573 ----
      Reg.RootKey := HKEY_CURRENT_USER;
  
+     if IsBDS and Reg.OpenKeyReadOnly(HKLMRegistryKey + '\Environment Variables') then // do not localize
+     begin
+       if Reg.ValueExists('BDSPROJECTSDIR') then
+         FBDSProjectsDir := ExpandDirMacros(Reg.ReadString('BDSPROJECTSDIR')); // do not localize
+       Reg.CloseKey;
+     end;
+ 
      if Reg.OpenKeyReadOnly(RegistryKey) then
      begin