From 252d077e787d7486c368b3d8b73017d76b8309d3 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Thu, 5 Aug 2004 12:55:29 +0000
Subject: [PATCH] + initialized SysConfigDir

---
 rtl/win32/sysutils.pp | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/rtl/win32/sysutils.pp b/rtl/win32/sysutils.pp
index 967f815892..f7eeb10f85 100644
--- a/rtl/win32/sysutils.pp
+++ b/rtl/win32/sysutils.pp
@@ -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