paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 21:51:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* partial fix for 11156

Browse Source 
git-svn-id: trunk@10816 -
This commit is contained in:
marco 2008-04-27 15:22:44 +00:00
parent fa6c504041
commit d2252b8737
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-registry/src/registry.pp
View File

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

6
packages/fcl-registry/src/xregreg.inc
View File

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