* fixed TRegistry.ChangeKey

git-svn-id: trunk@1818 -

fcl/inc/registry.pp

@@ -207,7 +207,7 @@ end;
 
 function TRegistry.GetBaseKey(Relative: Boolean): HKey;
 begin
-  If Relative Then
+  If Relative and (CurrentKey<>0) Then
     Result := CurrentKey
   else
     Result := RootKey;

fcl/win32/winreg.inc

@@ -226,7 +226,9 @@ end;
 
 procedure TRegistry.ChangeKey(Value: HKey; const Path: String);
 begin
-
+  CloseKey;
+  FCurrentKey:=Value;
+  FCurrentPath:=Path;
 end;
 
 procedure TRegistry.GetKeyNames(Strings: TStrings);