* Patch from Bart Broersma to fix bug ID #33993

git-svn-id: trunk@39658 -

packages/fcl-registry/src/regini.inc

@@ -14,6 +14,8 @@ begin
   fFileName := FN;
   if fFileName<>'' then begin
     fPath := fFileName + '\';
+    if fPath[1]='\' then
+      System.Delete(fPath,1,1);
     OpenKey(fFileName, aaccess <> KEY_READ);
   end
   else

packages/fcl-registry/src/xregreg.inc

@@ -183,7 +183,7 @@ end;
 
 function TRegistry.GetKey(const Key: string): HKEY;
 begin
-  Result := 0;
+  Result := FCurrentKey;
 end;
 
 function TRegistry.GetKeyInfo(Out Value: TRegKeyInfo): Boolean;