3
TResourceHandle = Cardinal;
6
MAKEINTRESOURCE = pchar;
9
{ windows has this in the windows unit. It probably would better
10
fit into the classes/sysutils unit but because it is resource
11
related, I put it here (FK)
14
RT_CURSOR = MAKEINTRESOURCE(1);
15
RT_BITMAP = MAKEINTRESOURCE(2);
16
RT_ICON = MAKEINTRESOURCE(3);
17
RT_MENU = MAKEINTRESOURCE(4);
18
RT_DIALOG = MAKEINTRESOURCE(5);
19
RT_STRING = MAKEINTRESOURCE(6);
20
RT_FONTDIR = MAKEINTRESOURCE(7);
21
RT_FONT = MAKEINTRESOURCE(8);
22
RT_ACCELERATOR = MAKEINTRESOURCE(9);
23
RT_RCDATA = MAKEINTRESOURCE(10);
24
RT_MESSAGETABLE = MAKEINTRESOURCE(11);
25
RT_GROUP_CURSOR = MAKEINTRESOURCE(12);
26
RT_GROUP_ICON = MAKEINTRESOURCE(13);
27
RT_VERSION = MAKEINTRESOURCE(16);
30
// Win32 API compatible Resource functions
31
Function HINSTANCE : HMODULE;
32
Function FindResource(ModuleHandle: HMODULE; ResourceName, ResourceType: PChar): TResourceHandle;
33
Function FindResource(ModuleHandle: HMODULE; ResourceName, ResourceType: AnsiString): TResourceHandle;
34
Function LoadResource(ModuleHandle: HMODULE; ResHandle: TResourceHandle): HGLOBAL;
35
Function SizeofResource(ModuleHandle: HMODULE; ResHandle: TResourceHandle): Integer;
36
Function LockResource(ResData: HGLOBAL): Pointer;
37
Function UnlockResource(ResData: HGLOBAL): LongBool;
38
Function FreeResource(ResData: HGLOBAL): LongBool;
b'\\ No newline at end of file'