View Issue Details
ID | Project | Category | View Status | Date Submitted | Last Update |
---|---|---|---|---|---|
0003467 | JEDI VCL | 02 Installation | public | 2006-01-25 03:48 | 2006-01-26 11:46 |
Reporter | ivan_ra | Assigned To | AHUser | ||
Priority | normal | Severity | block | Reproducibility | always |
Status | resolved | Resolution | fixed | ||
Product Version | 3.10 | ||||
Target Version | Fixed in Version | 3.20 | |||
Summary | 0003467: Install fails when JCL installed in non-standart path (with decision) | ||||
Description | I have jcl 1.96 installed in non-standart path: C:\Borland\BDS\3.0\Projects\Bpl In BDS IDE macros $(BDSPROJECTDIR) redeclared as "$(BDS)\Projects". But JVCL installer cant recognize it and assumes what JCL is not installed (look at screenshot). JVCL 3.0 has not this problem. | ||||
Additional Information | The cause of problem is code of function TCompileTarget.ReadBDSProjectsDir (delphidata.pas). This code does not recognize redeclared 'bdsprojectsdir' macros and always returns standart path. But it can be readed from registry: "HCU\Software\Borland\BDS\3.0\Environment Variables\BDSPROJECTDIR" (can be expanded from TCompileTarget.FHKLMRegistryKey or TCompileTarget.FRegistryKey) | ||||
Tags | No tags attached. | ||||
2006-01-25 03:49
|
|
|
Sorry, the key is HCU\Software\Borland\BDS\3.0\Environment Variables\BDSPROJECTSDIR ,and in other places BDSPROJECTSDIR too (lost "S") |
|
I think issue 0003384 is the same |
|
This is patch and screenshots of successfully install |
2006-01-26 05:00
|
DelphiData.pas.patch (839 bytes)
Index: install/JVCLInstall/DelphiData.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/install/JVCLInstall/DelphiData.pas,v retrieving revision 1.22 diff -u -r1.22 DelphiData.pas --- install/JVCLInstall/DelphiData.pas 4 Dec 2005 10:22:50 -0000 1.22 +++ install/JVCLInstall/DelphiData.pas 26 Jan 2006 12:05:50 -0000 @@ -562,6 +562,13 @@ 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 // obtain updates state |
2006-01-26 05:00
|
|
2006-01-26 05:01
|
|
2006-01-26 05:21
|
|
|
Fixed in CVS. |
Date Modified | Username | Field | Change |
---|---|---|---|
2006-01-25 03:48 | ivan_ra | New Issue | |
2006-01-25 03:49 | ivan_ra | File Added: JVCLInstall.JPG | |
2006-01-25 03:57 | ivan_ra | Note Added: 0008450 | |
2006-01-25 03:59 | ivan_ra | Note Edited: 0008450 | |
2006-01-25 12:53 | ivan_ra | Note Added: 0008454 | |
2006-01-26 05:00 | ivan_ra | Note Added: 0008460 | |
2006-01-26 05:00 | ivan_ra | File Added: DelphiData.pas.patch | |
2006-01-26 05:00 | ivan_ra | File Added: JVCLInstall1.JPG | |
2006-01-26 05:01 | ivan_ra | File Added: JVCLInstall2.JPG | |
2006-01-26 05:21 | ivan_ra | File Added: Success.JPG | |
2006-01-26 06:04 | obones | Relationship added | related to 0003384 |
2006-01-26 11:46 | AHUser | Status | new => resolved |
2006-01-26 11:46 | AHUser | Resolution | open => fixed |
2006-01-26 11:46 | AHUser | Assigned To | => AHUser |
2006-01-26 11:46 | AHUser | Note Added: 0008467 |