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

* better compatible systeminfo (Jedi JCL had a problem with it)

Browse Source 
git-svn-id: trunk@7808 -
This commit is contained in:
marco 2007-06-25 15:57:53 +00:00
parent cd1a283a18
commit f6e2f0b2f0
1 changed files with 13 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
rtl/win/wininc/struct.inc
View File

@ -5992,23 +5992,21 @@
PSYSTEMAUDITACE = ^SYSTEM_AUDIT_ACE;
SYSTEM_INFO = record
u : record
case longint of
0 : ( dwOemId : DWORD );
1 : ( s : record
0 : ( dwOemId : DWORD;
dwPageSize : DWORD;
lpMinimumApplicationAddress : LPVOID;
lpMaximumApplicationAddress : LPVOID;
dwActiveProcessorMask : DWORD;
dwNumberOfProcessors : DWORD;
dwProcessorType : DWORD;
dwAllocationGranularity : DWORD;
wProcessorLevel : WORD;
wProcessorRevision : WORD;
);
1 : (
wProcessorArchitecture : WORD;
wReserved : WORD;
end );
end;
dwPageSize : DWORD;
lpMinimumApplicationAddress : LPVOID;
lpMaximumApplicationAddress : LPVOID;
dwActiveProcessorMask : DWORD;
dwNumberOfProcessors : DWORD;
dwProcessorType : DWORD;
dwAllocationGranularity : DWORD;
wProcessorLevel : WORD;
wProcessorRevision : WORD;
);
end;
LPSYSTEM_INFO = ^SYSTEM_INFO;
_SYSTEM_INFO = SYSTEM_INFO;