* partial fix for 11156

git-svn-id: trunk@10816 -

packages/fcl-registry/src/registry.pp

@@ -192,6 +192,9 @@ ResourceString
   SRegSetDataFailed = 'Failed to set data for value "%s"';
   SRegGetDataFailed = 'Failed to get data for value "%s"';
 
+var
+  GlobalXMLFile : Boolean = False;
+
 implementation
 
 { ---------------------------------------------------------------------

packages/fcl-registry/src/xregreg.inc

@@ -10,9 +10,11 @@ Const
   XFileName = 'reg.xml';
 
 Procedure TRegistry.SysRegCreate;
-
+var s : string;
 begin
-  FSysData:=TXMLRegistry.Create(XFileName);
+  s:=includetrailingpathdelimiter(GetAppConfigDir(GlobalXMLFile));
+  ForceDirectories(s);
+  FSysData:=TXMLRegistry.Create(s+XFileName);
   TXmlRegistry(FSysData).AutoFlush:=False;
 end;