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

+ Ver 1.0 does not handle initialized variables well

Browse Source
This commit is contained in:
michael 2004-08-06 13:23:21 +00:00
parent 252d077e78
commit aae1e74a73
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/win32/sysutils.pp
View File

@ -847,7 +847,12 @@ Const
Type Type
PFNSHGetFolderPath = Function(Ahwnd: HWND; Csidl: Integer; Token: THandle; Flags: DWord; Path: PChar): HRESULT; stdcall; PFNSHGetFolderPath = Function(Ahwnd: HWND; Csidl: Integer; Token: THandle; Flags: DWord; Path: PChar): HRESULT; stdcall;
Var
{$ifdef VER1_0}
Const
{$else}
var
{$endif}
SHGetFolderPath : PFNSHGetFolderPath = Nil; SHGetFolderPath : PFNSHGetFolderPath = Nil;
CFGDLLHandle : THandle = 0; CFGDLLHandle : THandle = 0;
@ -961,7 +966,10 @@ Finalization
end. end.
{ {
$Log$ $Log$
Revision 1.36 2004-08-05 12:55:29 michael Revision 1.37 2004-08-06 13:23:21 michael
+ Ver 1.0 does not handle initialized variables well
Revision 1.36 2004/08/05 12:55:29 michael
+ initialized SysConfigDir + initialized SysConfigDir
Revision 1.35 2004/08/05 07:28:37 michael Revision 1.35 2004/08/05 07:28:37 michael