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

* image_* related constants expanded.

Browse Source 
git-svn-id: trunk@10193 -
This commit is contained in:
marco 2008-02-03 20:01:03 +00:00
parent f2d6410812
commit 5156dc33b2
2 changed files with 53 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
rtl/win/wininc/defines.inc
View File

@ -2282,6 +2282,21 @@
HKEY_CURRENT_CONFIG = HKEY($80000005);
HKEY_DYN_DATA = HKEY($80000006);
Type
SE_OBJECT_TYPE = ( // enum in Delphi apparantly.
SE_UNKNOWN_OBJECT_TYPE = 0,
SE_FILE_OBJECT,
SE_SERVICE,
SE_PRINTER,
SE_REGISTRY_KEY,
SE_LMSHARE,
SE_KERNEL_OBJECT,
SE_WINDOW_OBJECT,
SE_DS_OBJECT,
SE_DS_OBJECT_ALL,
SE_PROVIDER_DEFINED_OBJECT,
SE_WMIGUID_OBJECT,
SE_REGISTRY_WOW64_32KEY);
{ RegCreateKeyEx }
const
@ -3084,7 +3099,14 @@
VS_FF_PRERELEASE = $2;
VS_FF_PRIVATEBUILD = $8;
VS_FF_SPECIALBUILD = $20;
VOS_WINCE = $00050000;
VOS__WINDOWS16 = $00000001;
VOS__PM16 = $00000002;
VOS__PM32 = $00000003;
VOS__WINDOWS32 = $00000004;
VOS_UNKNOWN = 0;
VOS_BASE = 0;
VOS_DOS = $10000;
VOS_OS216 = $20000;
VOS_OS232 = $30000;
@ -3111,6 +3133,9 @@
VFT2_DRV_SYSTEM = $7;
VFT2_DRV_INSTALLABLE = $8;
VFT2_DRV_SOUND = $9;
VFT2_DRV_COMM = $0a;
VFT2_DRV_INPUTMETHOD = $0b;
VFT2_DRV_VERSIONED_PRINTER= $0c;
VFT2_FONT_RASTER = $1;
VFT2_FONT_VECTOR = $2;
VFT2_FONT_TRUETYPE = $3;

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

@ -46,6 +46,9 @@
{$ifdef read_interface}
Const
IMAGE_SIZEOF_SHORT_NAME = 8;
type
{ WARNING
@ -6917,6 +6920,7 @@
e_lfanew : LONG;
end;
PIMAGE_DOS_HEADER = ^IMAGE_DOS_HEADER;
TIMAGE_DOS_HEADER = IMAGE_DOS_HEADER;
TIMAGEDOSHEADER = IMAGE_DOS_HEADER;
PIMAGEDOSHEADER = ^IMAGE_DOS_HEADER;
@ -7038,6 +7042,7 @@ type
Size: DWORD;
end;
IMAGE_DATA_DIRECTORY = _IMAGE_DATA_DIRECTORY;
TIMAGE_DATA_DIRECTORY = _IMAGE_DATA_DIRECTORY;
TImageDataDirectory = IMAGE_DATA_DIRECTORY;
PImageDataDirectory = PIMAGE_DATA_DIRECTORY;
@ -7106,6 +7111,7 @@ type
GpValue: DWORD;
end;
IMAGE_ROM_OPTIONAL_HEADER = _IMAGE_ROM_OPTIONAL_HEADER;
TIMAGE_ROM_OPTIONAL_HEADER = _IMAGE_ROM_OPTIONAL_HEADER;
TImageRomOptionalHeader = IMAGE_ROM_OPTIONAL_HEADER;
PImageRomOptionalHeader = PIMAGE_ROM_OPTIONAL_HEADER;
@ -7222,6 +7228,28 @@ type
CLIPDATA=TagCLIPDATA;
TCLIPDATA=CLIPDATA;
PCLIPDATA=^CLIPDATA;
TImage_Section_SubHeader= record
case longint of
0 : ( PhysicalAddress : DWORD );
1 : ( VirtualSize : DWORD );
end;
_IMAGE_SECTION_HEADER = record
Name : array[0..(IMAGE_SIZEOF_SHORT_NAME)-1] of BYTE;
Misc : TImage_Section_SubHeader;
VirtualAddress : DWORD;
SizeOfRawData : DWORD;
PointerToRawData : DWORD;
PointerToRelocations : DWORD;
PointerToLinenumbers : DWORD;
NumberOfRelocations : WORD;
NumberOfLinenumbers : WORD;
Characteristics : DWORD;
end;
IMAGE_SECTION_HEADER = _IMAGE_SECTION_HEADER;
TIMAGE_SECTION_HEADER = _IMAGE_SECTION_HEADER;
PIMAGE_SECTION_HEADER = ^_IMAGE_SECTION_HEADER;
{$endif read_interface}