paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 15:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ initialized SysConfigDir

Browse Source
This commit is contained in:
michael 2004-08-05 12:55:29 +00:00
parent 6476856744
commit 252d077e78
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/win32/sysutils.pp
View File

@ -936,12 +936,21 @@ begin
end;
end;
Procedure InitSysConfigDir;
begin
SetLength(SysConfigDir, MAX_PATH);
SetLength(SysConfigDir, GetWindowsDirectory(PChar(SysConfigDir), MAX_PATH));
end;
Initialization
InitExceptions; { Initialize exceptions. OS independent }
InitInternational; { Initialize internationalization settings }
LoadVersionInfo;
InitSysConfigDir;
Finalization
DoneExceptions;
@ -952,7 +961,10 @@ Finalization
end.
{
$Log$
Revision 1.35 2004-08-05 07:28:37 michael
Revision 1.36 2004-08-05 12:55:29 michael
+ initialized SysConfigDir
Revision 1.35 2004/08/05 07:28:37 michael
Added getappconfig calls
Revision 1.34 2004/06/13 10:49:50 florian