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 |