mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-17 02:19:40 +02:00
florian
parent
7afe679a99
commit
d5d3779360
rtl
@ -3,7 +3,12 @@ type
|
||||
TResourceHandle = Cardinal;
|
||||
HMODULE = Cardinal;
|
||||
HGLOBAL = Cardinal;
|
||||
{$ifdef UNICODE}
|
||||
{roozbeh : maybe it shoud be moved after ifndef mswindows,as there is one declared in wince,base.inc}
|
||||
MAKEINTRESOURCE = pwidechar;
|
||||
{$else}
|
||||
MAKEINTRESOURCE = pchar;
|
||||
{$endif}
|
||||
|
||||
{$ifndef MSWINDOWS }
|
||||
{ windows has this in the windows unit. It probably would better
|
||||
@ -37,4 +42,4 @@ Function LockResource(ResData: HGLOBAL): Pointer;
|
||||
Function UnlockResource(ResData: HGLOBAL): LongBool;
|
||||
Function FreeResource(ResData: HGLOBAL): LongBool;
|
||||
|
||||
|
||||
|
||||
|
||||
@ -21,8 +21,14 @@ unit types;
|
||||
Windows;
|
||||
{$endif Windows}
|
||||
|
||||
const
|
||||
{$ifdef wince}
|
||||
//roozbeh:the reason is currently RT_RCDATA is defines in windows for wince as constant,
|
||||
// but in win32 it is function so here is required to redeclared.
|
||||
//RT_RCDATA = PWideChar(10);
|
||||
{$else}
|
||||
const
|
||||
RT_RCDATA = PChar(10);
|
||||
{$endif}
|
||||
|
||||
type
|
||||
DWORD = LongWord;
|
||||
|
||||
@ -54,7 +54,9 @@
|
||||
const
|
||||
ANYSIZE_ARRAY = 1; //~winnt, moved from define to compile SID
|
||||
type
|
||||
ATOM = word; //windef
|
||||
|
||||
MAKEINTRESOURCE = pwidechar;
|
||||
ATOM = word; //windef
|
||||
TAtom = ATOM;
|
||||
|
||||
WINBOOL = longbool;
|
||||
@ -461,9 +463,6 @@
|
||||
{ argument types are unknown }
|
||||
function MAKEINTATOM(i : longint) : LPTSTR;
|
||||
|
||||
{ was #define dname(params) def_expr }
|
||||
{ argument types are unknown }
|
||||
function MAKEINTRESOURCE(i : longint) : LPTSTR;
|
||||
|
||||
{ was #define dname(params) def_expr }
|
||||
{ argument types are unknown }
|
||||
@ -859,12 +858,6 @@ type
|
||||
MAKEINTATOM:=LPTSTR(DWORD(WORD(i)));
|
||||
end;
|
||||
|
||||
{ was #define dname(params) def_expr }
|
||||
{ argument types are unknown }
|
||||
function MAKEINTRESOURCE(i : longint) : LPTSTR;
|
||||
begin
|
||||
MAKEINTRESOURCE:=LPTSTR(DWORD(WORD(i)));
|
||||
end;
|
||||
|
||||
{ was #define dname(params) def_expr }
|
||||
{ argument types are unknown }
|
||||
@ -992,3 +985,4 @@ type
|
||||
|
||||
{$endif read_implementation}
|
||||
|
||||
|
||||
|
||||
@ -50,10 +50,9 @@
|
||||
|
||||
{$PACKRECORDS C}
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function UNICODE_NULL : WCHAR;
|
||||
|
||||
const
|
||||
UNICODE_NULL = widechar(#0);
|
||||
NULL=0; //+windef
|
||||
//FALSE=0; //+windef, removed can't compile
|
||||
//TRUE=1; //+windef, removed can't compile
|
||||
@ -1155,61 +1154,20 @@
|
||||
{ EnumPrinters }
|
||||
{ EnumProtocols }
|
||||
{ EnumResLangProc }
|
||||
{ was #define dname def_expr }
|
||||
function RT_ACCELERATOR : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function RT_BITMAP : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function RT_DIALOG : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function RT_FONT : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function RT_FONTDIR : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function RT_MENU : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function RT_RCDATA : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function RT_STRING : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function RT_MESSAGETABLE : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function RT_CURSOR : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function RT_GROUP_CURSOR : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function RT_ICON : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function RT_GROUP_ICON : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function RT_VERSION : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
RT_ACCELERATOR = MAKEINTRESOURCE(9);
|
||||
RT_BITMAP = MAKEINTRESOURCE(2);
|
||||
RT_DIALOG = MAKEINTRESOURCE(5);
|
||||
RT_FONT = MAKEINTRESOURCE(8);
|
||||
RT_FONTDIR = MAKEINTRESOURCE(7);
|
||||
RT_MENU = MAKEINTRESOURCE(4);
|
||||
RT_RCDATA = MAKEINTRESOURCE(10);
|
||||
RT_STRING = MAKEINTRESOURCE(6);
|
||||
RT_MESSAGETABLE = MAKEINTRESOURCE(11);
|
||||
RT_CURSOR = MAKEINTRESOURCE(1);
|
||||
RT_GROUP_CURSOR = MAKEINTRESOURCE(12);
|
||||
RT_ICON = MAKEINTRESOURCE(3);
|
||||
RT_GROUP_ICON = MAKEINTRESOURCE(13);
|
||||
RT_VERSION = MAKEINTRESOURCE(16);
|
||||
|
||||
{ EnumServicesStatus }
|
||||
|
||||
@ -1621,93 +1579,28 @@
|
||||
HANDLE_FLAG_INHERIT = 1;
|
||||
HANDLE_FLAG_PROTECT_FROM_CLOSE = 2;
|
||||
{ GetIconInfo }
|
||||
{ was #define dname def_expr }
|
||||
function IDC_ARROW : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function IDC_IBEAM : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function IDC_WAIT : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function IDC_CROSS : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function IDC_UPARROW : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function IDC_SIZENWSE : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function IDC_SIZENESW : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function IDC_SIZEWE : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function IDC_SIZENS : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function IDC_SIZEALL : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function IDC_NO : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function IDC_APPSTARTING : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function IDC_HELP : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function IDI_APPLICATION : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function IDI_HAND : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function IDI_QUESTION : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function IDI_EXCLAMATION : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function IDI_ASTERISK : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function IDI_WINLOGO : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function IDC_SIZE : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function IDC_ICON : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function IDC_HAND : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
IDC_ARROW = MAKEINTRESOURCE(32512);
|
||||
IDC_IBEAM = MAKEINTRESOURCE(32513);
|
||||
IDC_WAIT = MAKEINTRESOURCE(32514);
|
||||
IDC_CROSS = MAKEINTRESOURCE(32515);
|
||||
IDC_UPARROW = MAKEINTRESOURCE(32516);
|
||||
IDC_SIZENWSE = MAKEINTRESOURCE(32642);
|
||||
IDC_SIZENESW = MAKEINTRESOURCE(32643);
|
||||
IDC_SIZEWE = MAKEINTRESOURCE(32644);
|
||||
IDC_SIZENS = MAKEINTRESOURCE(32645);
|
||||
IDC_SIZEALL = MAKEINTRESOURCE(32646);
|
||||
IDC_NO = MAKEINTRESOURCE(32648);
|
||||
IDC_APPSTARTING = MAKEINTRESOURCE(32650);
|
||||
IDC_HELP = MAKEINTRESOURCE(32651);
|
||||
IDI_APPLICATION = MAKEINTRESOURCE(32512);
|
||||
IDI_HAND = MAKEINTRESOURCE(32513);
|
||||
IDI_QUESTION = MAKEINTRESOURCE(32514);
|
||||
IDI_EXCLAMATION = MAKEINTRESOURCE(32515);
|
||||
IDI_ASTERISK = MAKEINTRESOURCE(32516);
|
||||
IDI_WINLOGO = MAKEINTRESOURCE(32517);
|
||||
IDC_SIZE = MAKEINTRESOURCE(32640);
|
||||
IDC_ICON = MAKEINTRESOURCE(32641);
|
||||
IDC_HAND = MAKEINTRESOURCE(32649);
|
||||
|
||||
{ GetMapMode }
|
||||
|
||||
@ -1771,22 +1664,18 @@
|
||||
SIF_DISABLENOSCROLL = 8;
|
||||
SIF_TRACKPOS = $10;
|
||||
{ GetStdHandle }
|
||||
{ was #define dname def_expr }
|
||||
function STD_INPUT_HANDLE : DWORD;
|
||||
|
||||
|
||||
{ was #define dname def_expr }
|
||||
STD_INPUT_HANDLE = DWORD(-(10));
|
||||
STD_OUTPUT_HANDLE = DWORD(-(11));
|
||||
STD_ERROR_HANDLE = DWORD(-(12));
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function STD_OUTPUT_HANDLE : DWORD;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function STD_ERROR_HANDLE : DWORD;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
Const
|
||||
INVALID_HANDLE_VALUE = HANDLE(-1);
|
||||
INVALID_HANDLE_VALUE = HANDLE(-1);
|
||||
|
||||
{ GetStockObject }
|
||||
|
||||
const
|
||||
BLACK_BRUSH = 4;
|
||||
DKGRAY_BRUSH = 3;
|
||||
GRAY_BRUSH = 2;
|
||||
@ -2376,7 +2265,7 @@ Const
|
||||
SC_MANAGER_MODIFY_BOOT_CONFIG = 32;
|
||||
{ PostMessage }
|
||||
{ was #define dname def_expr }
|
||||
function HWND_BROADCAST : HWND;
|
||||
HWND_BROADCAST = HWND($FFFF);
|
||||
|
||||
{ PrepareTape }
|
||||
|
||||
@ -2427,26 +2316,13 @@ Const
|
||||
RDW_ALLCHILDREN = 128;
|
||||
RDW_NOCHILDREN = 64;
|
||||
{ RegCreateKey }
|
||||
{ was #define dname def_expr }
|
||||
function HKEY_CLASSES_ROOT : HKEY;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function HKEY_CURRENT_USER : HKEY;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function HKEY_LOCAL_MACHINE : HKEY;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function HKEY_USERS : HKEY;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function HKEY_PERFORMANCE_DATA : HKEY;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function HKEY_CURRENT_CONFIG : HKEY;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function HKEY_DYN_DATA : HKEY;
|
||||
HKEY_CLASSES_ROOT = HKEY($80000000);
|
||||
HKEY_CURRENT_USER = HKEY($80000001);
|
||||
HKEY_LOCAL_MACHINE = HKEY($80000002);
|
||||
HKEY_USERS = HKEY($80000003);
|
||||
HKEY_PERFORMANCE_DATA = HKEY($80000004);
|
||||
HKEY_CURRENT_CONFIG = HKEY($80000005);
|
||||
HKEY_DYN_DATA = HKEY($80000006);
|
||||
|
||||
{ RegCreateKeyEx }
|
||||
|
||||
@ -2693,17 +2569,10 @@ Const
|
||||
EXCEPTION_CONTINUE_EXECUTION = -(1);
|
||||
EXCEPTION_CONTINUE_SEARCH = 0;
|
||||
{ SetWindowPos, DeferWindowPos }
|
||||
{ was #define dname def_expr }
|
||||
function HWND_BOTTOM : HWND;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function HWND_NOTOPMOST : HWND;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function HWND_TOP : HWND;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function HWND_TOPMOST : HWND;
|
||||
HWND_BOTTOM = HWND(1);
|
||||
HWND_NOTOPMOST = HWND(-(2));
|
||||
HWND_TOP = HWND(0);
|
||||
HWND_TOPMOST = HWND(-(1));
|
||||
|
||||
|
||||
const
|
||||
@ -3251,9 +3120,7 @@ Const
|
||||
WIZ_CYDLG = 140;
|
||||
|
||||
{ VX_FIXEDFILEINFO structure }
|
||||
{ was #define dname def_expr }
|
||||
function VS_FILE_INFO : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
VS_FILE_INFO = MAKEINTRESOURCE(16);
|
||||
|
||||
|
||||
const
|
||||
@ -3782,8 +3649,7 @@ Const
|
||||
HHT_TOLEFT = 2048;
|
||||
HHT_TORIGHT = 1024;
|
||||
{ TBADDBITMAP structure }
|
||||
{ was #define dname def_expr }
|
||||
function HINST_COMMCTRL : HINST;
|
||||
HINST_COMMCTRL = HINST(-(1));
|
||||
|
||||
|
||||
const
|
||||
@ -3952,26 +3818,24 @@ Const
|
||||
PBS_SMOOTH = 01;
|
||||
PBS_VERTICAL = 04;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function LPSTR_TEXTCALLBACKW : LPWSTR;
|
||||
LPSTR_TEXTCALLBACKW = LPWSTR(-(1));
|
||||
LPSTR_TEXTCALLBACKA = LPSTR(-(1));
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function LPSTR_TEXTCALLBACKA : LPSTR;
|
||||
|
||||
{$ifdef UNICODE}
|
||||
{$ifdef UNICODE}
|
||||
|
||||
{const this is a function in fact !!
|
||||
LPSTR_TEXTCALLBACK = LPSTR_TEXTCALLBACKW;}
|
||||
function LPSTR_TEXTCALLBACK : LPWSTR;
|
||||
{const this is a function in fact !!
|
||||
LPSTR_TEXTCALLBACK = LPSTR_TEXTCALLBACKW;}
|
||||
LPSTR_TEXTCALLBACK = LPWSTR(-(1));
|
||||
|
||||
{$else}
|
||||
{$else}
|
||||
|
||||
{const
|
||||
LPSTR_TEXTCALLBACK = LPSTR_TEXTCALLBACKA; }
|
||||
function LPSTR_TEXTCALLBACK : LPSTR;
|
||||
{$endif}
|
||||
{ UNICODE }
|
||||
{ LV_ITEM structure }
|
||||
{const
|
||||
LPSTR_TEXTCALLBACK = LPSTR_TEXTCALLBACKA; }
|
||||
LPSTR_TEXTCALLBACK =LPSTR(-(1));
|
||||
{$endif}
|
||||
|
||||
{ LV_ITEM structure }
|
||||
|
||||
const
|
||||
LVIF_TEXT = 1;
|
||||
@ -5178,7 +5042,7 @@ Const
|
||||
PRF_OWNED = $20;
|
||||
{ MapWindowPoints }
|
||||
{ was #define dname def_expr }
|
||||
function HWND_DESKTOP : HWND;
|
||||
HWND_DESKTOP = HWND(0);
|
||||
|
||||
{ WM_SYSCOMMAND message }
|
||||
|
||||
@ -5924,263 +5788,9 @@ const
|
||||
|
||||
{$ifdef read_implementation}
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function UNICODE_NULL : WCHAR;
|
||||
begin
|
||||
UNICODE_NULL:=#0;
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function RT_ACCELERATOR : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
begin
|
||||
RT_ACCELERATOR:=MAKEINTRESOURCE(9);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function RT_BITMAP : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
begin
|
||||
RT_BITMAP:=MAKEINTRESOURCE(2);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function RT_DIALOG : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
begin
|
||||
RT_DIALOG:=MAKEINTRESOURCE(5);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function RT_FONT : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
begin
|
||||
RT_FONT:=MAKEINTRESOURCE(8);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function RT_FONTDIR : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
begin
|
||||
RT_FONTDIR:=MAKEINTRESOURCE(7);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function RT_MENU : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
begin
|
||||
RT_MENU:=MAKEINTRESOURCE(4);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function RT_RCDATA : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
begin
|
||||
RT_RCDATA:=MAKEINTRESOURCE(10);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function RT_STRING : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
begin
|
||||
RT_STRING:=MAKEINTRESOURCE(6);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function RT_MESSAGETABLE : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
begin
|
||||
RT_MESSAGETABLE:=MAKEINTRESOURCE(11);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function RT_CURSOR : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
begin
|
||||
RT_CURSOR:=MAKEINTRESOURCE(1);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function RT_GROUP_CURSOR : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
begin
|
||||
RT_GROUP_CURSOR:=MAKEINTRESOURCE(12);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function RT_ICON : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
begin
|
||||
RT_ICON:=MAKEINTRESOURCE(3);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function RT_GROUP_ICON : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
begin
|
||||
RT_GROUP_ICON:=MAKEINTRESOURCE(13);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function RT_VERSION : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
begin
|
||||
RT_VERSION:=MAKEINTRESOURCE(16);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function IDC_ARROW : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
begin
|
||||
IDC_ARROW:=MAKEINTRESOURCE(32512);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function IDC_IBEAM : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
begin
|
||||
IDC_IBEAM:=MAKEINTRESOURCE(32513);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function IDC_WAIT : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
begin
|
||||
IDC_WAIT:=MAKEINTRESOURCE(32514);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function IDC_CROSS : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
begin
|
||||
IDC_CROSS:=MAKEINTRESOURCE(32515);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function IDC_UPARROW : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
begin
|
||||
IDC_UPARROW:=MAKEINTRESOURCE(32516);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function IDC_SIZENWSE : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
begin
|
||||
IDC_SIZENWSE:=MAKEINTRESOURCE(32642);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function IDC_SIZENESW : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
begin
|
||||
IDC_SIZENESW:=MAKEINTRESOURCE(32643);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function IDC_SIZEWE : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
begin
|
||||
IDC_SIZEWE:=MAKEINTRESOURCE(32644);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function IDC_SIZENS : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
begin
|
||||
IDC_SIZENS:=MAKEINTRESOURCE(32645);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function IDC_SIZEALL : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
begin
|
||||
IDC_SIZEALL:=MAKEINTRESOURCE(32646);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function IDC_NO : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
begin
|
||||
IDC_NO:=MAKEINTRESOURCE(32648);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function IDC_APPSTARTING : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
begin
|
||||
IDC_APPSTARTING:=MAKEINTRESOURCE(32650);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function IDC_HELP : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
begin
|
||||
IDC_HELP:=MAKEINTRESOURCE(32651);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function IDI_APPLICATION : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
begin
|
||||
IDI_APPLICATION:=MAKEINTRESOURCE(32512);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function IDI_HAND : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
begin
|
||||
IDI_HAND:=MAKEINTRESOURCE(32513);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function IDI_QUESTION : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
begin
|
||||
IDI_QUESTION:=MAKEINTRESOURCE(32514);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function IDI_EXCLAMATION : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
begin
|
||||
IDI_EXCLAMATION:=MAKEINTRESOURCE(32515);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function IDI_ASTERISK : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
begin
|
||||
IDI_ASTERISK:=MAKEINTRESOURCE(32516);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function IDI_WINLOGO : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
begin
|
||||
IDI_WINLOGO:=MAKEINTRESOURCE(32517);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function IDC_SIZE : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
begin
|
||||
IDC_SIZE:=MAKEINTRESOURCE(32640);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function IDC_ICON : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
begin
|
||||
IDC_ICON:=MAKEINTRESOURCE(32641);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function IDC_HAND : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
begin
|
||||
IDC_HAND:=MAKEINTRESOURCE(32649);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) def_expr }
|
||||
{ argument types are unknown }
|
||||
@ -6207,147 +5817,7 @@ const
|
||||
end;
|
||||
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function STD_INPUT_HANDLE : DWORD;
|
||||
begin
|
||||
STD_INPUT_HANDLE:=DWORD(-(10));
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function STD_OUTPUT_HANDLE : DWORD;
|
||||
begin
|
||||
STD_OUTPUT_HANDLE:=DWORD(-(11));
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function STD_ERROR_HANDLE : DWORD;
|
||||
begin
|
||||
STD_ERROR_HANDLE:=DWORD(-(12));
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
{
|
||||
function INVALID_HANDLE_VALUE : HANDLE;
|
||||
begin
|
||||
INVALID_HANDLE_VALUE:=HANDLE(-(1));
|
||||
end;
|
||||
}
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function HWND_BROADCAST : HWND;
|
||||
begin
|
||||
HWND_BROADCAST:=HWND($FFFF);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function HKEY_CLASSES_ROOT : HKEY;
|
||||
begin
|
||||
HKEY_CLASSES_ROOT:=HKEY($80000000);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function HKEY_CURRENT_USER : HKEY;
|
||||
begin
|
||||
HKEY_CURRENT_USER:=HKEY($80000001);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function HKEY_LOCAL_MACHINE : HKEY;
|
||||
begin
|
||||
HKEY_LOCAL_MACHINE:=HKEY($80000002);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function HKEY_USERS : HKEY;
|
||||
begin
|
||||
HKEY_USERS:=HKEY($80000003);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function HKEY_PERFORMANCE_DATA : HKEY;
|
||||
begin
|
||||
HKEY_PERFORMANCE_DATA:=HKEY($80000004);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function HKEY_CURRENT_CONFIG : HKEY;
|
||||
begin
|
||||
HKEY_CURRENT_CONFIG:=HKEY($80000005);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function HKEY_DYN_DATA : HKEY;
|
||||
begin
|
||||
HKEY_DYN_DATA:=HKEY($80000006);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function HWND_BOTTOM : HWND;
|
||||
begin
|
||||
HWND_BOTTOM:=HWND(1);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function HWND_NOTOPMOST : HWND;
|
||||
begin
|
||||
HWND_NOTOPMOST:=HWND(-(2));
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function HWND_TOP : HWND;
|
||||
begin
|
||||
HWND_TOP:=HWND(0);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function HWND_TOPMOST : HWND;
|
||||
begin
|
||||
HWND_TOPMOST:=HWND(-(1));
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function VS_FILE_INFO : LPTSTR;
|
||||
{ return type might be wrong }
|
||||
begin
|
||||
VS_FILE_INFO:=MAKEINTRESOURCE(16);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function HINST_COMMCTRL : HINST;
|
||||
begin
|
||||
HINST_COMMCTRL:=HINST(-(1));
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function LPSTR_TEXTCALLBACKW : LPWSTR;
|
||||
begin
|
||||
LPSTR_TEXTCALLBACKW:=LPWSTR(-(1));
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function LPSTR_TEXTCALLBACKA : LPSTR;
|
||||
begin
|
||||
LPSTR_TEXTCALLBACKA:=LPSTR(-(1));
|
||||
end;
|
||||
{$ifdef UNICODE}
|
||||
|
||||
{const this is a function in fact !!
|
||||
LPSTR_TEXTCALLBACK = LPSTR_TEXTCALLBACKW;}
|
||||
function LPSTR_TEXTCALLBACK : LPWSTR;
|
||||
begin
|
||||
LPSTR_TEXTCALLBACK:=LPWSTR(-(1));
|
||||
end;
|
||||
|
||||
{$else}
|
||||
|
||||
{const
|
||||
LPSTR_TEXTCALLBACK = LPSTR_TEXTCALLBACKA; }
|
||||
function LPSTR_TEXTCALLBACK : LPSTR;
|
||||
begin
|
||||
LPSTR_TEXTCALLBACK:=LPSTR(-(1));
|
||||
end;
|
||||
{$endif}
|
||||
|
||||
// INVALID_HANDLE_VALUE = HANDLE(-(1));
|
||||
{ was #define dname def_expr }
|
||||
function TVI_ROOT : HTREEITEM;
|
||||
begin
|
||||
@ -6372,12 +5842,6 @@ const
|
||||
TVI_SORT:=HTREEITEM($FFFF0003);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function HWND_DESKTOP : HWND;
|
||||
begin
|
||||
HWND_DESKTOP:=HWND(0);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
@ -6539,3 +6003,4 @@ const
|
||||
|
||||
{$endif read_implementation}
|
||||
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user