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

* patch for #8375 from Roozbeh Gholizadeh

Browse Source 
git-svn-id: trunk@6621 -
This commit is contained in:
florian 2007-02-23 19:35:35 +00:00
parent 7afe679a99
commit d5d3779360
4 changed files with 91 additions and 621 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/resh.inc
View File

@ -3,7 +3,12 @@ type
TResourceHandle = Cardinal; TResourceHandle = Cardinal;
HMODULE = Cardinal; HMODULE = Cardinal;
HGLOBAL = 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; MAKEINTRESOURCE = pchar;
{$endif}
{$ifndef MSWINDOWS } {$ifndef MSWINDOWS }
{ windows has this in the windows unit. It probably would better { 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 UnlockResource(ResData: HGLOBAL): LongBool;
Function FreeResource(ResData: HGLOBAL): LongBool; Function FreeResource(ResData: HGLOBAL): LongBool;

8
rtl/objpas/types.pp
View File

@ -21,8 +21,14 @@ unit types;
Windows; Windows;
{$endif 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); RT_RCDATA = PChar(10);
{$endif}
type type
DWORD = LongWord; DWORD = LongWord;

14
rtl/wince/wininc/base.inc
View File

@ -54,7 +54,9 @@
const const
ANYSIZE_ARRAY = 1; //~winnt, moved from define to compile SID ANYSIZE_ARRAY = 1; //~winnt, moved from define to compile SID
type type
ATOM = word; //windef
MAKEINTRESOURCE = pwidechar;
ATOM = word; //windef
TAtom = ATOM; TAtom = ATOM;
WINBOOL = longbool; WINBOOL = longbool;
@ -461,9 +463,6 @@
{ argument types are unknown } { argument types are unknown }
function MAKEINTATOM(i : longint) : LPTSTR; 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 } { was #define dname(params) def_expr }
{ argument types are unknown } { argument types are unknown }
@ -859,12 +858,6 @@ type
MAKEINTATOM:=LPTSTR(DWORD(WORD(i))); MAKEINTATOM:=LPTSTR(DWORD(WORD(i)));
end; 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 } { was #define dname(params) def_expr }
{ argument types are unknown } { argument types are unknown }
@ -992,3 +985,4 @@ type
{$endif read_implementation} {$endif read_implementation}

683
rtl/wince/wininc/defines.inc
View File

@ -50,10 +50,9 @@
{$PACKRECORDS C} {$PACKRECORDS C}
{ was #define dname def_expr }
function UNICODE_NULL : WCHAR;
const const
UNICODE_NULL = widechar(#0);
NULL=0; //+windef NULL=0; //+windef
//FALSE=0; //+windef, removed can't compile //FALSE=0; //+windef, removed can't compile
//TRUE=1; //+windef, removed can't compile //TRUE=1; //+windef, removed can't compile
@ -1155,61 +1154,20 @@
{ EnumPrinters } { EnumPrinters }
{ EnumProtocols } { EnumProtocols }
{ EnumResLangProc } { EnumResLangProc }
{ was #define dname def_expr } RT_ACCELERATOR = MAKEINTRESOURCE(9);
function RT_ACCELERATOR : LPTSTR; RT_BITMAP = MAKEINTRESOURCE(2);
{ return type might be wrong } RT_DIALOG = MAKEINTRESOURCE(5);
RT_FONT = MAKEINTRESOURCE(8);
{ was #define dname def_expr } RT_FONTDIR = MAKEINTRESOURCE(7);
function RT_BITMAP : LPTSTR; RT_MENU = MAKEINTRESOURCE(4);
{ return type might be wrong } RT_RCDATA = MAKEINTRESOURCE(10);
RT_STRING = MAKEINTRESOURCE(6);
{ was #define dname def_expr } RT_MESSAGETABLE = MAKEINTRESOURCE(11);
function RT_DIALOG : LPTSTR; RT_CURSOR = MAKEINTRESOURCE(1);
{ return type might be wrong } RT_GROUP_CURSOR = MAKEINTRESOURCE(12);
RT_ICON = MAKEINTRESOURCE(3);
{ was #define dname def_expr } RT_GROUP_ICON = MAKEINTRESOURCE(13);
function RT_FONT : LPTSTR; RT_VERSION = MAKEINTRESOURCE(16);
{ 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 }
{ EnumServicesStatus } { EnumServicesStatus }
@ -1621,93 +1579,28 @@
HANDLE_FLAG_INHERIT = 1; HANDLE_FLAG_INHERIT = 1;
HANDLE_FLAG_PROTECT_FROM_CLOSE = 2; HANDLE_FLAG_PROTECT_FROM_CLOSE = 2;
{ GetIconInfo } { GetIconInfo }
{ was #define dname def_expr } IDC_ARROW = MAKEINTRESOURCE(32512);
function IDC_ARROW : LPTSTR; IDC_IBEAM = MAKEINTRESOURCE(32513);
{ return type might be wrong } IDC_WAIT = MAKEINTRESOURCE(32514);
IDC_CROSS = MAKEINTRESOURCE(32515);
{ was #define dname def_expr } IDC_UPARROW = MAKEINTRESOURCE(32516);
function IDC_IBEAM : LPTSTR; IDC_SIZENWSE = MAKEINTRESOURCE(32642);
{ return type might be wrong } IDC_SIZENESW = MAKEINTRESOURCE(32643);
IDC_SIZEWE = MAKEINTRESOURCE(32644);
{ was #define dname def_expr } IDC_SIZENS = MAKEINTRESOURCE(32645);
function IDC_WAIT : LPTSTR; IDC_SIZEALL = MAKEINTRESOURCE(32646);
{ return type might be wrong } IDC_NO = MAKEINTRESOURCE(32648);
IDC_APPSTARTING = MAKEINTRESOURCE(32650);
{ was #define dname def_expr } IDC_HELP = MAKEINTRESOURCE(32651);
function IDC_CROSS : LPTSTR; IDI_APPLICATION = MAKEINTRESOURCE(32512);
{ return type might be wrong } IDI_HAND = MAKEINTRESOURCE(32513);
IDI_QUESTION = MAKEINTRESOURCE(32514);
{ was #define dname def_expr } IDI_EXCLAMATION = MAKEINTRESOURCE(32515);
function IDC_UPARROW : LPTSTR; IDI_ASTERISK = MAKEINTRESOURCE(32516);
{ return type might be wrong } IDI_WINLOGO = MAKEINTRESOURCE(32517);
IDC_SIZE = MAKEINTRESOURCE(32640);
{ was #define dname def_expr } IDC_ICON = MAKEINTRESOURCE(32641);
function IDC_SIZENWSE : LPTSTR; IDC_HAND = MAKEINTRESOURCE(32649);
{ 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 }
{ GetMapMode } { GetMapMode }
@ -1771,22 +1664,18 @@
SIF_DISABLENOSCROLL = 8; SIF_DISABLENOSCROLL = 8;
SIF_TRACKPOS = $10; SIF_TRACKPOS = $10;
{ GetStdHandle } { 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 } { was #define dname def_expr }
function STD_OUTPUT_HANDLE : DWORD; INVALID_HANDLE_VALUE = HANDLE(-1);
{ was #define dname def_expr }
function STD_ERROR_HANDLE : DWORD;
{ was #define dname def_expr }
Const
INVALID_HANDLE_VALUE = HANDLE(-1);
{ GetStockObject } { GetStockObject }
const
BLACK_BRUSH = 4; BLACK_BRUSH = 4;
DKGRAY_BRUSH = 3; DKGRAY_BRUSH = 3;
GRAY_BRUSH = 2; GRAY_BRUSH = 2;
@ -2376,7 +2265,7 @@ Const
SC_MANAGER_MODIFY_BOOT_CONFIG = 32; SC_MANAGER_MODIFY_BOOT_CONFIG = 32;
{ PostMessage } { PostMessage }
{ was #define dname def_expr } { was #define dname def_expr }
function HWND_BROADCAST : HWND; HWND_BROADCAST = HWND($FFFF);
{ PrepareTape } { PrepareTape }
@ -2427,26 +2316,13 @@ Const
RDW_ALLCHILDREN = 128; RDW_ALLCHILDREN = 128;
RDW_NOCHILDREN = 64; RDW_NOCHILDREN = 64;
{ RegCreateKey } { RegCreateKey }
{ was #define dname def_expr } HKEY_CLASSES_ROOT = HKEY($80000000);
function HKEY_CLASSES_ROOT : HKEY; HKEY_CURRENT_USER = HKEY($80000001);
HKEY_LOCAL_MACHINE = HKEY($80000002);
{ was #define dname def_expr } HKEY_USERS = HKEY($80000003);
function HKEY_CURRENT_USER : HKEY; HKEY_PERFORMANCE_DATA = HKEY($80000004);
HKEY_CURRENT_CONFIG = HKEY($80000005);
{ was #define dname def_expr } HKEY_DYN_DATA = HKEY($80000006);
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;
{ RegCreateKeyEx } { RegCreateKeyEx }
@ -2693,17 +2569,10 @@ Const
EXCEPTION_CONTINUE_EXECUTION = -(1); EXCEPTION_CONTINUE_EXECUTION = -(1);
EXCEPTION_CONTINUE_SEARCH = 0; EXCEPTION_CONTINUE_SEARCH = 0;
{ SetWindowPos, DeferWindowPos } { SetWindowPos, DeferWindowPos }
{ was #define dname def_expr } HWND_BOTTOM = HWND(1);
function HWND_BOTTOM : HWND; HWND_NOTOPMOST = HWND(-(2));
HWND_TOP = HWND(0);
{ was #define dname def_expr } HWND_TOPMOST = HWND(-(1));
function HWND_NOTOPMOST : HWND;
{ was #define dname def_expr }
function HWND_TOP : HWND;
{ was #define dname def_expr }
function HWND_TOPMOST : HWND;
const const
@ -3251,9 +3120,7 @@ Const
WIZ_CYDLG = 140; WIZ_CYDLG = 140;
{ VX_FIXEDFILEINFO structure } { VX_FIXEDFILEINFO structure }
{ was #define dname def_expr } VS_FILE_INFO = MAKEINTRESOURCE(16);
function VS_FILE_INFO : LPTSTR;
{ return type might be wrong }
const const
@ -3782,8 +3649,7 @@ Const
HHT_TOLEFT = 2048; HHT_TOLEFT = 2048;
HHT_TORIGHT = 1024; HHT_TORIGHT = 1024;
{ TBADDBITMAP structure } { TBADDBITMAP structure }
{ was #define dname def_expr } HINST_COMMCTRL = HINST(-(1));
function HINST_COMMCTRL : HINST;
const const
@ -3952,26 +3818,24 @@ Const
PBS_SMOOTH = 01; PBS_SMOOTH = 01;
PBS_VERTICAL = 04; PBS_VERTICAL = 04;
{ was #define dname def_expr } LPSTR_TEXTCALLBACKW = LPWSTR(-(1));
function LPSTR_TEXTCALLBACKW : LPWSTR; LPSTR_TEXTCALLBACKA = LPSTR(-(1));
{ was #define dname def_expr }
function LPSTR_TEXTCALLBACKA : LPSTR;
{$ifdef UNICODE} {$ifdef UNICODE}
{const this is a function in fact !! {const this is a function in fact !!
LPSTR_TEXTCALLBACK = LPSTR_TEXTCALLBACKW;} LPSTR_TEXTCALLBACK = LPSTR_TEXTCALLBACKW;}
function LPSTR_TEXTCALLBACK : LPWSTR; LPSTR_TEXTCALLBACK = LPWSTR(-(1));
{$else} {$else}
{const {const
LPSTR_TEXTCALLBACK = LPSTR_TEXTCALLBACKA; } LPSTR_TEXTCALLBACK = LPSTR_TEXTCALLBACKA; }
function LPSTR_TEXTCALLBACK : LPSTR; LPSTR_TEXTCALLBACK =LPSTR(-(1));
{$endif} {$endif}
{ UNICODE }
{ LV_ITEM structure } { LV_ITEM structure }
const const
LVIF_TEXT = 1; LVIF_TEXT = 1;
@ -5178,7 +5042,7 @@ Const
PRF_OWNED = $20; PRF_OWNED = $20;
{ MapWindowPoints } { MapWindowPoints }
{ was #define dname def_expr } { was #define dname def_expr }
function HWND_DESKTOP : HWND; HWND_DESKTOP = HWND(0);
{ WM_SYSCOMMAND message } { WM_SYSCOMMAND message }
@ -5924,263 +5788,9 @@ const
{$ifdef read_implementation} {$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 } { was #define dname(params) def_expr }
{ argument types are unknown } { argument types are unknown }
@ -6207,147 +5817,7 @@ const
end; end;
{ was #define dname def_expr } // INVALID_HANDLE_VALUE = HANDLE(-(1));
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}
{ was #define dname def_expr } { was #define dname def_expr }
function TVI_ROOT : HTREEITEM; function TVI_ROOT : HTREEITEM;
begin begin
@ -6372,12 +5842,6 @@ const
TVI_SORT:=HTREEITEM($FFFF0003); TVI_SORT:=HTREEITEM($FFFF0003);
end; end;
{ was #define dname def_expr }
function HWND_DESKTOP : HWND;
begin
HWND_DESKTOP:=HWND(0);
end;
{ was #define dname(params) def_expr } { was #define dname(params) def_expr }
{ argument types are unknown } { argument types are unknown }
{ return type might be wrong } { return type might be wrong }
@ -6539,3 +6003,4 @@ const
{$endif read_implementation} {$endif read_implementation}