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

* type HINSTANCE -> HINST

Browse Source
This commit is contained in:
peter 1998-10-27 11:17:07 +00:00
parent 8524ceeea4
commit 77bd6071b3
8 changed files with 1277 additions and 1259 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

421
rtl/win32/ascdef.pp
View File

File diff suppressed because it is too large Load Diff

421
rtl/win32/ascfun.pp
View File

File diff suppressed because it is too large Load Diff

139
rtl/win32/base.pp
View File

@ -26,8 +26,8 @@ unit base;
{ Automatically converted by H2PAS.EXE from base.h { Automatically converted by H2PAS.EXE from base.h
Utility made by Florian Klaempfl 25th-28th september 96 Utility made by Florian Klaempfl 25th-28th september 96
Improvements made by Mark A. Malakanov 22nd-25th may 97 Improvements made by Mark A. Malakanov 22nd-25th may 97
Further improvements by Michael Van Canneyt, April 1998 Further improvements by Michael Van Canneyt, April 1998
define handling and error recovery by Pierre Muller, June 1998 } define handling and error recovery by Pierre Muller, June 1998 }
@ -40,33 +40,33 @@ unit base;
{ C default packing is dword } { C default packing is dword }
{$PACKRECORDS 4} {$PACKRECORDS 4}
{ {
Base.h Base.h
Base definitions Base definitions
Copyright (C) 1996, 1997 Free Software Foundation, Inc. Copyright (C) 1996, 1997 Free Software Foundation, Inc.
Author: Scott Christley <scottc@net-community.com> Author: Scott Christley <scottc@net-community.com>
This file is part of the Windows32 API Library. This file is part of the Windows32 API Library.
This library is free software; you can redistribute it and/or This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version. version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful, This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details. Library General Public License for more details.
If you are interested in a warranty or support for this source code, If you are interested in a warranty or support for this source code,
contact Scott Christley <scottc@net-community.com> for more information. contact Scott Christley <scottc@net-community.com> for more information.
You should have received a copy of the GNU Library General Public You should have received a copy of the GNU Library General Public
License along with this library; see the file COPYING.LIB. License along with this library; see the file COPYING.LIB.
If not, write to the Free Software Foundation, If not, write to the Free Software Foundation,
59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
} }
@ -101,13 +101,10 @@ unit base;
type type
ATOM = word; ATOM = word;
{ Changed from BOOL to WINBOOL to avoid Objective-C conflict }
WINBOOL = longbool; WINBOOL = longbool;
{ Not convertable by H2PAS
typedef unsigned char BOOLEAN; BOOL = WINBOOL;
typedef unsigned char BYTE;
}
CALTYPE = cardinal; CALTYPE = cardinal;
@ -157,9 +154,9 @@ unit base;
{ typedef GLOBALHANDLE; } { typedef GLOBALHANDLE; }
{ HANDLE = pointer; { HANDLE = pointer;
need to be compatible need to be compatible
with longint for Delphi !! } with longint for Delphi !! }
HANDLE = longint;{ or should it be cardinal ?? PM } HANDLE = longint; { or should it be cardinal ?? PM }
HACCEL = HANDLE; HACCEL = HANDLE;
@ -207,7 +204,9 @@ unit base;
HIMAGELIST = HANDLE; HIMAGELIST = HANDLE;
HINSTANCE = HANDLE; { Not HINSTANCE, that will create prolems with the var hInstance
and in delphi its also called HINST (PFV) }
HINST = HANDLE;
HKEY = HANDLE; HKEY = HANDLE;
@ -263,31 +262,26 @@ unit base;
LPBOOL = ^WINBOOL; LPBOOL = ^WINBOOL;
LPBYTE = ^BYTE; LPBYTE = ^BYTE;
(* Const before type ignored *)
LPCCH = ^CHAR; LPCCH = ^CHAR;
LPCH = ^CHAR; LPCH = ^CHAR;
LPCOLORREF = ^COLORREF; LPCOLORREF = ^COLORREF;
(* Const before type ignored *)
LPCSTR = ^char; LPCSTR = ^char;
{$ifdef UNICODE} {$ifdef UNICODE}
(* Const before type ignored *)
type type
LPCTSTR = ^word; LPCTSTR = ^word;
{$else} {$else}
(* Const before type ignored *)
type type
LPCTSTR = ^char; LPCTSTR = ^char;
{$endif} {$endif}
{ UNICODE } { UNICODE }
(* Const before type ignored *)
type type
@ -491,7 +485,7 @@ unit base;
#define WINAPI STDCALL #define WINAPI STDCALL
#define APIENTRY STDCALL #define APIENTRY STDCALL
#define WINGDIAPI #define WINGDIAPI
#define _export #define _export
} }
{ {
@ -571,7 +565,7 @@ unit base;
{ Not convertable by H2PAS { Not convertable by H2PAS
#define FORWARD_WM_NOTIFY(hwnd, idFrom, pnmhdr, fn) \ #define FORWARD_WM_NOTIFY(hwnd, idFrom, pnmhdr, fn) \
(void)(fn)((hwnd), WM_NOTIFY, (WPARAM)(int)(id), \ (void)(fn)((hwnd), WM_NOTIFY, (WPARAM)(int)(id), \
(LPARAM)(NMHDR FAR )(pnmhdr)) (LPARAM)(NMHDR FAR )(pnmhdr))
} }
{ was #define dname(params) def_expr } { was #define dname(params) def_expr }
{ argument types are unknown } { argument types are unknown }
@ -591,7 +585,7 @@ unit base;
{ Not convertable by H2PAS { Not convertable by H2PAS
#define HANDLE_WM_NOTIFY(hwnd, wParam, lParam, fn) \ #define HANDLE_WM_NOTIFY(hwnd, wParam, lParam, fn) \
(fn)((hwnd), (int)(wParam), (NMHDR FAR )(lParam)) (fn)((hwnd), (int)(wParam), (NMHDR FAR )(lParam))
} }
{ was #define dname(params) def_expr } { was #define dname(params) def_expr }
{ argument types are unknown } { argument types are unknown }
@ -620,15 +614,15 @@ unit base;
{ original Cygnus headers also had the following defined: } { original Cygnus headers also had the following defined: }
{ 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 }
function SEXT_HIWORD(l : longint) : longint; function SEXT_HIWORD(l : longint) : longint;
{ return type might be wrong } { return type might be wrong }
{ 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 }
function ZEXT_HIWORD(l : longint) : longint; function ZEXT_HIWORD(l : longint) : longint;
{ return type might be wrong } { return type might be wrong }
{ was #define dname(params) def_expr } { was #define dname(params) def_expr }
{ argument types are unknown } { argument types are unknown }
@ -636,15 +630,15 @@ unit base;
{ 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 }
function INDEXTOOVERLAYMASK(i : longint) : longint; function INDEXTOOVERLAYMASK(i : longint) : longint;
{ return type might be wrong } { return type might be wrong }
{ 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 }
function INDEXTOSTATEIMAGEMASK(i : longint) : longint; function INDEXTOSTATEIMAGEMASK(i : longint) : longint;
{ return type might be wrong } { return type might be wrong }
{ was #define dname(params) def_expr } { was #define dname(params) def_expr }
{ argument types are unknown } { argument types are unknown }
@ -656,9 +650,9 @@ unit base;
{ 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 }
function MAKELANGID(p,s : longint) : longint; function MAKELANGID(p,s : longint) : longint;
{ return type might be wrong } { return type might be wrong }
{ was #define dname(params) def_expr } { was #define dname(params) def_expr }
{ argument types are unknown } { argument types are unknown }
@ -666,9 +660,9 @@ unit base;
{ 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 }
function SUBLANGID(lgid : longint) : longint; function SUBLANGID(lgid : longint) : longint;
{ return type might be wrong } { return type might be wrong }
{ was #define dname(params) def_expr } { was #define dname(params) def_expr }
{ argument types are unknown } { argument types are unknown }
@ -691,7 +685,7 @@ unit base;
function MAKELRESULT(l,h : longint) : LRESULT; function MAKELRESULT(l,h : longint) : LRESULT;
{ Not convertable by H2PAS { Not convertable by H2PAS
#define MAKEPOINTS(l) ( ((POINTS FAR ) & (l))) #define MAKEPOINTS(l) ( ((POINTS FAR ) & (l)))
} }
{ was #define dname(params) def_expr } { was #define dname(params) def_expr }
{ argument types are unknown } { argument types are unknown }
@ -704,17 +698,17 @@ unit base;
{$ifndef max} {$ifndef max}
{ 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 }
function max(a,b : longint) : longint; function max(a,b : longint) : longint;
{ return type might be wrong } { return type might be wrong }
{$endif} {$endif}
{$ifndef min} {$ifndef min}
{ 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 }
function min(a,b : longint) : longint; function min(a,b : longint) : longint;
{ return type might be wrong } { return type might be wrong }
{$endif} {$endif}
{ was #define dname(params) def_expr } { was #define dname(params) def_expr }
@ -723,23 +717,23 @@ unit base;
{ 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 }
function PALETTERGB(r,g,b : longint) : longint; function PALETTERGB(r,g,b : longint) : longint;
{ return type might be wrong } { return type might be wrong }
(* Not convertable by H2PAS (* Not convertable by H2PAS
#define POINTSTOPOINT(pt, pts) {(pt).x = (SHORT) LOWORD(pts); \ #define POINTSTOPOINT(pt, pts) {(pt).x = (SHORT) LOWORD(pts); \
(pt).y = (SHORT) HIWORD(pts);} (pt).y = (SHORT) HIWORD(pts);}
#define POINTTOPOINTS(pt) \ #define POINTTOPOINTS(pt) \
(MAKELONG((short) ((pt).x), (short) ((pt).y))) (MAKELONG((short) ((pt).x), (short) ((pt).y)))
*) *)
{ already declared before { already declared before
#define INDEXTOOVERLAYMASK(i) ((i) << 8) #define INDEXTOOVERLAYMASK(i) ((i) << 8)
#define INDEXTOSTATEIMAGEMASK(i) ((i) << 12) #define INDEXTOSTATEIMAGEMASK(i) ((i) << 12)
} }
{ Not convertable by H2PAS { Not convertable by H2PAS
#ifdef UNICODE #ifdef UNICODE
#define TEXT(quote) L##quote #define TEXT(quote) L##quote
#else #else
#define TEXT(quote) quote #define TEXT(quote) quote
#endif #endif
@ -781,7 +775,7 @@ unit base;
WNDPROC = function (_para1:HWND; _para2:UINT; _para3:WPARAM; _para4:LPARAM):LRESULT; WNDPROC = function (_para1:HWND; _para2:UINT; _para3:WPARAM; _para4:LPARAM):LRESULT;
FARPROC = function :longint; FARPROC = pointer; {function :longint;}
PROC = FARPROC; PROC = FARPROC;
@ -1025,18 +1019,18 @@ unit base;
{ 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 }
function SEXT_HIWORD(l : longint) : longint; function SEXT_HIWORD(l : longint) : longint;
{ return type might be wrong } { return type might be wrong }
begin begin
SEXT_HIWORD:=(longint(l)) shr 16; SEXT_HIWORD:=(longint(l)) shr 16;
end; 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 }
function ZEXT_HIWORD(l : longint) : longint; function ZEXT_HIWORD(l : longint) : longint;
{ return type might be wrong } { return type might be wrong }
begin begin
ZEXT_HIWORD:=(cardinal(l)) shr 16; ZEXT_HIWORD:=(cardinal(l)) shr 16;
end; end;
@ -1050,18 +1044,18 @@ unit base;
{ 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 }
function INDEXTOOVERLAYMASK(i : longint) : longint; function INDEXTOOVERLAYMASK(i : longint) : longint;
{ return type might be wrong } { return type might be wrong }
begin begin
INDEXTOOVERLAYMASK:=i shl 8; INDEXTOOVERLAYMASK:=i shl 8;
end; 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 }
function INDEXTOSTATEIMAGEMASK(i : longint) : longint; function INDEXTOSTATEIMAGEMASK(i : longint) : longint;
{ return type might be wrong } { return type might be wrong }
begin begin
INDEXTOSTATEIMAGEMASK:=i shl 12; INDEXTOSTATEIMAGEMASK:=i shl 12;
end; end;
@ -1082,9 +1076,9 @@ unit base;
{ 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 }
function MAKELANGID(p,s : longint) : longint; function MAKELANGID(p,s : longint) : longint;
{ return type might be wrong } { return type might be wrong }
begin begin
MAKELANGID:=((WORD(s)) shl 10) or (WORD(p)); MAKELANGID:=((WORD(s)) shl 10) or (WORD(p));
end; end;
@ -1100,9 +1094,9 @@ unit base;
{ 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 }
function SUBLANGID(lgid : longint) : longint; function SUBLANGID(lgid : longint) : longint;
{ return type might be wrong } { return type might be wrong }
begin begin
SUBLANGID:=(WORD(lgid)) shr 10; SUBLANGID:=(WORD(lgid)) shr 10;
end; end;
@ -1158,9 +1152,9 @@ unit base;
{ 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 }
function max(a,b : longint) : longint; function max(a,b : longint) : longint;
{ return type might be wrong } { return type might be wrong }
var var
if_local1 : longint; if_local1 : longint;
(* result types are not known *) (* result types are not known *)
@ -1174,9 +1168,9 @@ unit base;
{ 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 }
function min(a,b : longint) : longint; function min(a,b : longint) : longint;
{ return type might be wrong } { return type might be wrong }
var var
if_local1 : longint; if_local1 : longint;
(* result types are not known *) (* result types are not known *)
@ -1197,9 +1191,9 @@ unit base;
{ 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 }
function PALETTERGB(r,g,b : longint) : longint; function PALETTERGB(r,g,b : longint) : longint;
{ return type might be wrong } { return type might be wrong }
begin begin
PALETTERGB:=$02000000 or (RGB(r,g,b)); PALETTERGB:=$02000000 or (RGB(r,g,b));
end; end;
@ -1213,7 +1207,10 @@ end.
{ {
$Log$ $Log$
Revision 1.7 1998-09-08 14:30:03 pierre Revision 1.8 1998-10-27 11:17:11 peter
* type HINSTANCE -> HINST
Revision 1.7 1998/09/08 14:30:03 pierre
* WINBOOL changed from longint to longbool * WINBOOL changed from longint to longbool
Revision 1.6 1998/09/04 17:17:32 pierre Revision 1.6 1998/09/04 17:17:32 pierre

173
rtl/win32/defines.pp
View File

@ -26,8 +26,8 @@ unit defines;
{ Automatically converted by H2PAS.EXE from defines.h { Automatically converted by H2PAS.EXE from defines.h
Utility made by Florian Klaempfl 25th-28th september 96 Utility made by Florian Klaempfl 25th-28th september 96
Improvements made by Mark A. Malakanov 22nd-25th may 97 Improvements made by Mark A. Malakanov 22nd-25th may 97
Further improvements by Michael Van Canneyt, April 1998 Further improvements by Michael Van Canneyt, April 1998
define handling and error recovery by Pierre Muller, June 1998 } define handling and error recovery by Pierre Muller, June 1998 }
@ -36,33 +36,33 @@ unit defines;
{ C default packing is dword } { C default packing is dword }
{$PACKRECORDS 4} {$PACKRECORDS 4}
{ {
Defines.h Defines.h
Windows32 API definitions Windows32 API definitions
Copyright (C) 1996, 1997 Free Software Foundation, Inc. Copyright (C) 1996, 1997 Free Software Foundation, Inc.
Author: Scott Christley <scottc@net-community.com> Author: Scott Christley <scottc@net-community.com>
This file is part of the Windows32 API Library. This file is part of the Windows32 API Library.
This library is free software; you can redistribute it and/or This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version. version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful, This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details. Library General Public License for more details.
If you are interested in a warranty or support for this source code, If you are interested in a warranty or support for this source code,
contact Scott Christley <scottc@net-community.com> for more information. contact Scott Christley <scottc@net-community.com> for more information.
You should have received a copy of the GNU Library General Public You should have received a copy of the GNU Library General Public
License along with this library; see the file COPYING.LIB. License along with this library; see the file COPYING.LIB.
If not, write to the Free Software Foundation, If not, write to the Free Software Foundation,
59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
} }
{ WARNING: This file is automatically generated. } { WARNING: This file is automatically generated. }
@ -437,22 +437,22 @@ unit defines;
FILE_WRITE_ATTRIBUTES = $0100; FILE_WRITE_ATTRIBUTES = $0100;
{ displaced lower { displaced lower
#define FILE_ALL_ACCESS (STANDARD_RIGHTS_REQUIRED | SYNCHRONIZE | 0x1FF) #define FILE_ALL_ACCESS (STANDARD_RIGHTS_REQUIRED | SYNCHRONIZE | 0x1FF)
#define FILE_GENERIC_READ (STANDARD_RIGHTS_READ |\ #define FILE_GENERIC_READ (STANDARD_RIGHTS_READ |\
FILE_READ_DATA |\ FILE_READ_DATA |\
FILE_READ_ATTRIBUTES |\ FILE_READ_ATTRIBUTES |\
FILE_READ_EA |\ FILE_READ_EA |\
SYNCHRONIZE) SYNCHRONIZE)
#define FILE_GENERIC_WRITE (STANDARD_RIGHTS_WRITE |\ #define FILE_GENERIC_WRITE (STANDARD_RIGHTS_WRITE |\
FILE_WRITE_DATA |\ FILE_WRITE_DATA |\
FILE_WRITE_ATTRIBUTES |\ FILE_WRITE_ATTRIBUTES |\
FILE_WRITE_EA |\ FILE_WRITE_EA |\
FILE_APPEND_DATA |\ FILE_APPEND_DATA |\
SYNCHRONIZE) SYNCHRONIZE)
#define FILE_GENERIC_EXECUTE (STANDARD_RIGHTS_EXECUTE |\ #define FILE_GENERIC_EXECUTE (STANDARD_RIGHTS_EXECUTE |\
FILE_READ_ATTRIBUTES |\ FILE_READ_ATTRIBUTES |\
FILE_EXECUTE |\ FILE_EXECUTE |\
@ -587,7 +587,7 @@ unit defines;
LR_DEFAULTCOLOR = 0; LR_DEFAULTCOLOR = 0;
LR_LOADREALSIZE = 128; LR_LOADREALSIZE = 128;
{ already defined above !! { already defined above !!
#define LR_MONOCHROME (1) #define LR_MONOCHROME (1)
} }
{ CreateMailslot, GetMailslotInfo } { CreateMailslot, GetMailslotInfo }
MAILSLOT_WAIT_FOREVER = $ffffffff; MAILSLOT_WAIT_FOREVER = $ffffffff;
@ -660,16 +660,16 @@ unit defines;
READ_CONTROL = $20000; READ_CONTROL = $20000;
GENERIC_EXECUTE = $20000000; GENERIC_EXECUTE = $20000000;
{ already defined above !! { already defined above !!
#define SERVICE_WIN32_OWN_PROCESS (16) #define SERVICE_WIN32_OWN_PROCESS (16)
#define SERVICE_WIN32_SHARE_PROCESS (32) #define SERVICE_WIN32_SHARE_PROCESS (32)
#define SERVICE_KERNEL_DRIVER (1) #define SERVICE_KERNEL_DRIVER (1)
#define SERVICE_FILE_SYSTEM_DRIVER (2) #define SERVICE_FILE_SYSTEM_DRIVER (2)
#define SERVICE_INTERACTIVE_PROCESS (256) #define SERVICE_INTERACTIVE_PROCESS (256)
#define SERVICE_BOOT_START (0) #define SERVICE_BOOT_START (0)
#define SERVICE_SYSTEM_START (1) #define SERVICE_SYSTEM_START (1)
#define SERVICE_AUTO_START (2) #define SERVICE_AUTO_START (2)
#define SERVICE_DEMAND_START (3) #define SERVICE_DEMAND_START (3)
#define SERVICE_DISABLED (4) #define SERVICE_DISABLED (4)
} }
SERVICE_ERROR_IGNORE = 0; SERVICE_ERROR_IGNORE = 0;
SERVICE_ERROR_NORMAL = 1; SERVICE_ERROR_NORMAL = 1;
@ -882,7 +882,7 @@ unit defines;
WH_SHELL = 10; WH_SHELL = 10;
WH_SYSMSGFILTER = 6; WH_SYSMSGFILTER = 6;
{ already defined above !! { already defined above !!
#define WH_MSGFILTER (-1) } #define WH_MSGFILTER (-1) }
WH_FOREGROUNDIDLE = 11; WH_FOREGROUNDIDLE = 11;
{ DefineDosDevice } { DefineDosDevice }
DDD_RAW_TARGET_PATH = 1; DDD_RAW_TARGET_PATH = 1;
@ -914,7 +914,7 @@ unit defines;
DC_VERSION = 10; DC_VERSION = 10;
DC_BINADJUST = 19; DC_BINADJUST = 19;
{ already defined above !! { already defined above !!
#define DC_DATATYPE_PRODUCED (21) #define DC_DATATYPE_PRODUCED (21)
} }
{ DeviceIoControl } { DeviceIoControl }
{ DlgDirList } { DlgDirList }
@ -1429,8 +1429,8 @@ unit defines;
CP_OEMCP = 1; CP_OEMCP = 1;
{ GetDateFormat } { GetDateFormat }
{ already defined above !! { already defined above !!
#define DATE_SHORTDATE (1) #define DATE_SHORTDATE (1)
#define DATE_LONGDATE (2) #define DATE_LONGDATE (2)
} }
DATE_USE_ALT_CALENDAR = 4; DATE_USE_ALT_CALENDAR = 4;
{ GetDCEx } { GetDCEx }
@ -1475,12 +1475,12 @@ unit defines;
NUMRESERVED = 106; NUMRESERVED = 106;
COLORRES = 108; COLORRES = 108;
{ already defined above !! { already defined above !!
#define PHYSICALWIDTH (110) #define PHYSICALWIDTH (110)
#define PHYSICALHEIGHT (111) #define PHYSICALHEIGHT (111)
#define PHYSICALOFFSETX (112) #define PHYSICALOFFSETX (112)
#define PHYSICALOFFSETY (113) #define PHYSICALOFFSETY (113)
#define SCALINGFACTORX (114) #define SCALINGFACTORX (114)
#define SCALINGFACTORY (115) #define SCALINGFACTORY (115)
} }
VREFRESH = 116; VREFRESH = 116;
DESKTOPHORZRES = 118; DESKTOPHORZRES = 118;
@ -3581,7 +3581,7 @@ unit defines;
HHT_TORIGHT = 1024; HHT_TORIGHT = 1024;
{ TBADDBITMAP structure } { TBADDBITMAP structure }
{ was #define dname def_expr } { was #define dname def_expr }
function HINST_COMMCTRL : HINSTANCE; function HINST_COMMCTRL : HINST;
const const
@ -3736,7 +3736,7 @@ unit defines;
{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; function LPSTR_TEXTCALLBACK : LPWSTR;
{$else} {$else}
{const {const
@ -3833,7 +3833,7 @@ unit defines;
TREEITEM = record TREEITEM = record
end; end;
HTREEITEM = ^TREEITEM; HTREEITEM = ^TREEITEM;
{ was #define dname def_expr } { was #define dname def_expr }
function TVI_ROOT : HTREEITEM; function TVI_ROOT : HTREEITEM;
@ -4824,15 +4824,15 @@ unit defines;
{ 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 }
function GET_WM_COMMAND_CMD(w,l : longint) : longint; function GET_WM_COMMAND_CMD(w,l : longint) : longint;
{ return type might be wrong } { return type might be wrong }
{ 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 }
function GET_WM_COMMAND_ID(w,l : longint) : longint; function GET_WM_COMMAND_ID(w,l : longint) : longint;
{ return type might be wrong } { return type might be wrong }
{ was #define dname(params) def_expr } { was #define dname(params) def_expr }
{ argument types are unknown } { argument types are unknown }
@ -4844,9 +4844,9 @@ unit defines;
{ 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 }
function GET_WM_HSCROLL_CODE(w,l : longint) : longint; function GET_WM_HSCROLL_CODE(w,l : longint) : longint;
{ return type might be wrong } { return type might be wrong }
{ was #define dname(params) def_expr } { was #define dname(params) def_expr }
{ argument types are unknown } { argument types are unknown }
@ -4854,15 +4854,15 @@ unit defines;
{ 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 }
function GET_WM_HSCROLL_POS(w,l : longint) : longint; function GET_WM_HSCROLL_POS(w,l : longint) : longint;
{ return type might be wrong } { return type might be wrong }
{ 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 }
function GET_WM_MDIACTIVATE_FACTIVATE(h,a,b : longint) : longint; function GET_WM_MDIACTIVATE_FACTIVATE(h,a,b : longint) : longint;
{ return type might be wrong } { return type might be wrong }
{ was #define dname(params) def_expr } { was #define dname(params) def_expr }
{ argument types are unknown } { argument types are unknown }
@ -4874,9 +4874,9 @@ unit defines;
{ 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 }
function GET_WM_VSCROLL_CODE(w,l : longint) : longint; function GET_WM_VSCROLL_CODE(w,l : longint) : longint;
{ return type might be wrong } { return type might be wrong }
{ was #define dname(params) def_expr } { was #define dname(params) def_expr }
{ argument types are unknown } { argument types are unknown }
@ -4884,9 +4884,9 @@ unit defines;
{ 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 }
function GET_WM_VSCROLL_POS(w,l : longint) : longint; function GET_WM_VSCROLL_POS(w,l : longint) : longint;
{ return type might be wrong } { return type might be wrong }
{ Not convertable by H2PAS { Not convertable by H2PAS
#define FORWARD_WM_CLOSE(h, fn) __CRACK_VOID_F(fn,(h, WM_CLOSE, 0, 0)) #define FORWARD_WM_CLOSE(h, fn) __CRACK_VOID_F(fn,(h, WM_CLOSE, 0, 0))
@ -4905,7 +4905,7 @@ unit defines;
#define FORWARD_WM_QUERYENDSESSION(h, fn) __CRACK_BOOL_F(fn,(h, WM_QUERYENDSESSION, 0, 0)) #define FORWARD_WM_QUERYENDSESSION(h, fn) __CRACK_BOOL_F(fn,(h, WM_QUERYENDSESSION, 0, 0))
#define FORWARD_WM_SIZE(h, state, cx, cy, fn) __CRACK_VOID_F(fn,(h, WM_SIZE, (WPARAM)state, MAKELPARAM(cx, cy))) #define FORWARD_WM_SIZE(h, state, cx, cy, fn) __CRACK_VOID_F(fn,(h, WM_SIZE, (WPARAM)state, MAKELPARAM(cx, cy)))
#define FORWARD_WM_SYSCOMMAND(h, c, x, y, fn) __CRACK_VOID_F(fn,(h, WM_SYSCOMMAND, (WPARAM)c, MAKELPARAM(x, y))) #define FORWARD_WM_SYSCOMMAND(h, c, x, y, fn) __CRACK_VOID_F(fn,(h, WM_SYSCOMMAND, (WPARAM)c, MAKELPARAM(x, y)))
#define HANDLE_WM_CLOSE(h, w, l, fn) __CRACK_ZERO_F(fn,(h)); #define HANDLE_WM_CLOSE(h, w, l, fn) __CRACK_ZERO_F(fn,(h));
#define HANDLE_WM_COMMAND(h, w, l, fn) __CRACK_ZERO_F(fn,(h, SEXT_LOWORD(w), (HWND)l, HIWORD(w))) #define HANDLE_WM_COMMAND(h, w, l, fn) __CRACK_ZERO_F(fn,(h, SEXT_LOWORD(w), (HWND)l, HIWORD(w)))
#define HANDLE_WM_CREATE(h, w, l, fn) (LRESULT)((fn(h, (CREATESTRUCT )l)) ? 0 : -1) #define HANDLE_WM_CREATE(h, w, l, fn) (LRESULT)((fn(h, (CREATESTRUCT )l)) ? 0 : -1)
@ -5038,19 +5038,19 @@ unit defines;
PROCESSOR_ARCHITECTURE_ALPHA = 2; PROCESSOR_ARCHITECTURE_ALPHA = 2;
PROCESSOR_ARCHITECTURE_PPC = 3; PROCESSOR_ARCHITECTURE_PPC = 3;
{ was #define dname(params) def_expr } { was #define dname(params) def_expr }
function FreeModule(h:HINSTANCE):WINBOOL; function FreeModule(h:HINST):WINBOOL;
{ 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 }
function MakeProcInstance(p,i : longint) : longint; function MakeProcInstance(p,i : longint) : longint;
{ return type might be wrong } { return type might be wrong }
{ 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 }
function FreeProcInstance(p : longint) : longint; function FreeProcInstance(p : longint) : longint;
{ return type might be wrong } { return type might be wrong }
const const
@ -5138,7 +5138,7 @@ unit defines;
ascdef, ascdef,
{$endif UNICODE} {$endif UNICODE}
func; func;
const External_library='kernel32'; {Setup as you need!} const External_library='kernel32'; {Setup as you need!}
{$endif not windows_include_files} {$endif not windows_include_files}
@ -5505,9 +5505,9 @@ unit defines;
end; end;
{ was #define dname def_expr } { was #define dname def_expr }
function HINST_COMMCTRL : HINSTANCE; function HINST_COMMCTRL : HINST;
begin begin
HINST_COMMCTRL:=HINSTANCE(-(1)); HINST_COMMCTRL:=HINST(-(1));
end; end;
{ was #define dname def_expr } { was #define dname def_expr }
@ -5529,7 +5529,7 @@ unit defines;
begin begin
LPSTR_TEXTCALLBACK:=LPWSTR(-(1)); LPSTR_TEXTCALLBACK:=LPWSTR(-(1));
end; end;
{$else} {$else}
{const {const
@ -5596,18 +5596,18 @@ unit defines;
{ 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 }
function GET_WM_COMMAND_CMD(w,l : longint) : longint; function GET_WM_COMMAND_CMD(w,l : longint) : longint;
{ return type might be wrong } { return type might be wrong }
begin begin
GET_WM_COMMAND_CMD:=HIWORD(w); GET_WM_COMMAND_CMD:=HIWORD(w);
end; 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 }
function GET_WM_COMMAND_ID(w,l : longint) : longint; function GET_WM_COMMAND_ID(w,l : longint) : longint;
{ return type might be wrong } { return type might be wrong }
begin begin
GET_WM_COMMAND_ID:=LOWORD(w); GET_WM_COMMAND_ID:=LOWORD(w);
end; end;
@ -5628,9 +5628,9 @@ unit defines;
{ 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 }
function GET_WM_HSCROLL_CODE(w,l : longint) : longint; function GET_WM_HSCROLL_CODE(w,l : longint) : longint;
{ return type might be wrong } { return type might be wrong }
begin begin
GET_WM_HSCROLL_CODE:=LOWORD(w); GET_WM_HSCROLL_CODE:=LOWORD(w);
end; end;
@ -5644,18 +5644,18 @@ unit defines;
{ 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 }
function GET_WM_HSCROLL_POS(w,l : longint) : longint; function GET_WM_HSCROLL_POS(w,l : longint) : longint;
{ return type might be wrong } { return type might be wrong }
begin begin
GET_WM_HSCROLL_POS:=HIWORD(w); GET_WM_HSCROLL_POS:=HIWORD(w);
end; 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 }
function GET_WM_MDIACTIVATE_FACTIVATE(h,a,b : longint) : longint; function GET_WM_MDIACTIVATE_FACTIVATE(h,a,b : longint) : longint;
{ return type might be wrong } { return type might be wrong }
begin begin
GET_WM_MDIACTIVATE_FACTIVATE:=b = (LONG(h)); GET_WM_MDIACTIVATE_FACTIVATE:=b = (LONG(h));
end; end;
@ -5676,9 +5676,9 @@ unit defines;
{ 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 }
function GET_WM_VSCROLL_CODE(w,l : longint) : longint; function GET_WM_VSCROLL_CODE(w,l : longint) : longint;
{ return type might be wrong } { return type might be wrong }
begin begin
GET_WM_VSCROLL_CODE:=LOWORD(w); GET_WM_VSCROLL_CODE:=LOWORD(w);
end; end;
@ -5692,33 +5692,33 @@ unit defines;
{ 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 }
function GET_WM_VSCROLL_POS(w,l : longint) : longint; function GET_WM_VSCROLL_POS(w,l : longint) : longint;
{ return type might be wrong } { return type might be wrong }
begin begin
GET_WM_VSCROLL_POS:=HIWORD(w); GET_WM_VSCROLL_POS:=HIWORD(w);
end; end;
{ was #define dname(params) def_expr } { was #define dname(params) def_expr }
function FreeModule(h:HINSTANCE):WINBOOL; function FreeModule(h:HINST):WINBOOL;
begin begin
FreeModule:=FreeLibrary(h); FreeModule:=FreeLibrary(h);
end; 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 }
function MakeProcInstance(p,i : longint) : longint; function MakeProcInstance(p,i : longint) : longint;
{ return type might be wrong } { return type might be wrong }
begin begin
MakeProcInstance:=p; MakeProcInstance:=p;
end; 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 }
function FreeProcInstance(p : longint) : longint; function FreeProcInstance(p : longint) : longint;
{ return type might be wrong } { return type might be wrong }
begin begin
FreeProcInstance:=p; FreeProcInstance:=p;
end; end;
@ -5730,7 +5730,10 @@ end.
{$endif not windows_include_files} {$endif not windows_include_files}
{ {
$Log$ $Log$
Revision 1.5 1998-08-31 11:53:54 pierre Revision 1.6 1998-10-27 11:17:12 peter
* type HINSTANCE -> HINST
Revision 1.5 1998/08/31 11:53:54 pierre
* compilable windows.pp file * compilable windows.pp file
still to do : still to do :
- findout problems - findout problems

403
rtl/win32/func.pp
View File

File diff suppressed because it is too large Load Diff

113
rtl/win32/struct.pp
View File

@ -26,8 +26,8 @@ unit struct;
{ Automatically converted by H2PAS.EXE from structures.h { Automatically converted by H2PAS.EXE from structures.h
Utility made by Florian Klaempfl 25th-28th september 96 Utility made by Florian Klaempfl 25th-28th september 96
Improvements made by Mark A. Malakanov 22nd-25th may 97 Improvements made by Mark A. Malakanov 22nd-25th may 97
Further improvements by Michael Van Canneyt, April 1998 Further improvements by Michael Van Canneyt, April 1998
define handling and error recovery by Pierre Muller, June 1998 } define handling and error recovery by Pierre Muller, June 1998 }
@ -43,34 +43,34 @@ unit struct;
{ C default packing is dword } { C default packing is dword }
{$PACKRECORDS 4} {$PACKRECORDS 4}
{ {
Structures.h Structures.h
Declarations for all the Windows32 API Structures Declarations for all the Windows32 API Structures
Copyright (C) 1996 Free Software Foundation, Inc. Copyright (C) 1996 Free Software Foundation, Inc.
Author: Scott Christley <scottc@net-community.com> Author: Scott Christley <scottc@net-community.com>
Date: 1996 Date: 1996
This file is part of the Windows32 API Library. This file is part of the Windows32 API Library.
This library is free software; you can redistribute it and/or This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version. version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful, This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details. Library General Public License for more details.
If you are interested in a warranty or support for this source code, If you are interested in a warranty or support for this source code,
contact Scott Christley <scottc@net-community.com> for more information. contact Scott Christley <scottc@net-community.com> for more information.
You should have received a copy of the GNU Library General Public You should have received a copy of the GNU Library General Public
License along with this library; see the file COPYING.LIB. License along with this library; see the file COPYING.LIB.
If not, write to the Free Software Foundation, If not, write to the Free Software Foundation,
59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
} }
{$ifndef _GNU_H_WINDOWS32_STRUCTURES} {$ifndef _GNU_H_WINDOWS32_STRUCTURES}
@ -315,9 +315,9 @@ unit struct;
LPBITMAPCOREINFO = ^BITMAPCOREINFO; LPBITMAPCOREINFO = ^BITMAPCOREINFO;
_BITMAPCOREINFO = BITMAPCOREINFO; _BITMAPCOREINFO = BITMAPCOREINFO;
(* error (* error
WORD bfReserved1; WORD bfReserved1;
WORD bfReserved2; WORD bfReserved2;
in declarator_list *) in declarator_list *)
BITMAPINFOHEADER = record BITMAPINFOHEADER = record
@ -550,7 +550,7 @@ unit struct;
CREATESTRUCT = record CREATESTRUCT = record
lpCreateParams : LPVOID; lpCreateParams : LPVOID;
hInstance : HINSTANCE; hInstance : HINST;
hMenu : HMENU; hMenu : HMENU;
hwndParent : HWND; hwndParent : HWND;
cy : longint; cy : longint;
@ -689,7 +689,7 @@ unit struct;
lCustData : LPARAM; lCustData : LPARAM;
lpfnHook : LPCFHOOKPROC; lpfnHook : LPCFHOOKPROC;
lpTemplateName : LPCTSTR; lpTemplateName : LPCTSTR;
hInstance : HINSTANCE; hInstance : HINST;
lpszStyle : LPTSTR; lpszStyle : LPTSTR;
nFontType : WORD; nFontType : WORD;
___MISSING_ALIGNMENT__ : WORD; ___MISSING_ALIGNMENT__ : WORD;
@ -1311,12 +1311,12 @@ unit struct;
} SOCKET_ADDRESS, PSOCKET_ADDRESS, LPSOCKET_ADDRESS; } SOCKET_ADDRESS, PSOCKET_ADDRESS, LPSOCKET_ADDRESS;
} }
{ {
typedef struct _CSADDR_INFO { typedef struct _CSADDR_INFO {
SOCKET_ADDRESS LocalAddr; SOCKET_ADDRESS LocalAddr;
SOCKET_ADDRESS RemoteAddr; SOCKET_ADDRESS RemoteAddr;
INT iSocketType; INT iSocketType;
INT iProtocol; INT iProtocol;
} CSADDR_INFO; } CSADDR_INFO;
*) *)
CURRENCYFMT = record CURRENCYFMT = record
@ -3068,15 +3068,15 @@ unit struct;
tagENUMLOGFONTEX = ENUMLOGFONTEX; tagENUMLOGFONTEX = ENUMLOGFONTEX;
{ {
Then follow: Then follow:
TCHAR SourceName[] TCHAR SourceName[]
TCHAR Computername[] TCHAR Computername[]
SID UserSid SID UserSid
TCHAR Strings[] TCHAR Strings[]
BYTE Data[] BYTE Data[]
CHAR Pad[] CHAR Pad[]
DWORD Length; DWORD Length;
} }
EVENTLOGRECORD = record EVENTLOGRECORD = record
@ -3164,7 +3164,7 @@ unit struct;
FINDREPLACE = record FINDREPLACE = record
lStructSize : DWORD; lStructSize : DWORD;
hwndOwner : HWND; hwndOwner : HWND;
hInstance : HINSTANCE; hInstance : HINST;
Flags : DWORD; Flags : DWORD;
lpstrFindWhat : LPTSTR; lpstrFindWhat : LPTSTR;
lpstrReplaceWith : LPTSTR; lpstrReplaceWith : LPTSTR;
@ -4134,7 +4134,7 @@ unit struct;
MSGBOXPARAMS = record MSGBOXPARAMS = record
cbSize : UINT; cbSize : UINT;
hwndOwner : HWND; hwndOwner : HWND;
hInstance : HINSTANCE; hInstance : HINST;
lpszText : LPCSTR; lpszText : LPCSTR;
lpszCaption : LPCSTR; lpszCaption : LPCSTR;
dwStyle : DWORD; dwStyle : DWORD;
@ -4444,7 +4444,7 @@ unit struct;
OPENFILENAME = record OPENFILENAME = record
lStructSize : DWORD; lStructSize : DWORD;
hwndOwner : HWND; hwndOwner : HWND;
hInstance : HINSTANCE; hInstance : HINST;
lpstrFilter : LPCTSTR; lpstrFilter : LPCTSTR;
lpstrCustomFilter : LPTSTR; lpstrCustomFilter : LPTSTR;
nMaxCustFilter : DWORD; nMaxCustFilter : DWORD;
@ -4581,7 +4581,7 @@ unit struct;
ptPaperSize : POINT; ptPaperSize : POINT;
rtMinMargin : RECT; rtMinMargin : RECT;
rtMargin : RECT; rtMargin : RECT;
hInstance : HINSTANCE; hInstance : HINST;
lCustData : LPARAM; lCustData : LPARAM;
lpfnPageSetupHook : LPPAGESETUPHOOK; lpfnPageSetupHook : LPPAGESETUPHOOK;
lpfnPagePaintHook : LPPAGEPAINTHOOK; lpfnPagePaintHook : LPPAGEPAINTHOOK;
@ -4739,7 +4739,7 @@ unit struct;
nMinPage : WORD; nMinPage : WORD;
nMaxPage : WORD; nMaxPage : WORD;
nCopies : WORD; nCopies : WORD;
hInstance : HINSTANCE; hInstance : HINST;
lCustData : DWORD; lCustData : DWORD;
lpfnPrintHook : LPPRINTHOOKPROC; lpfnPrintHook : LPPRINTHOOKPROC;
lpfnSetupHook : LPSETUPHOOKPROC; lpfnSetupHook : LPSETUPHOOKPROC;
@ -4924,7 +4924,7 @@ unit struct;
PROPSHEETPAGE = record PROPSHEETPAGE = record
dwSize : DWORD; dwSize : DWORD;
dwFlags : DWORD; dwFlags : DWORD;
hInstance : HINSTANCE; hInstance : HINST;
u1 : record u1 : record
case longint of case longint of
0 : ( pszTemplate : LPCTSTR ); 0 : ( pszTemplate : LPCTSTR );
@ -4957,7 +4957,7 @@ unit struct;
dwSize : DWORD; dwSize : DWORD;
dwFlags : DWORD; dwFlags : DWORD;
hwndParent : HWND; hwndParent : HWND;
hInstance : HINSTANCE; hInstance : HINST;
u1 : record u1 : record
case longint of case longint of
0 : ( hIcon : HICON ); 0 : ( hIcon : HICON );
@ -5164,18 +5164,18 @@ unit struct;
_REMOTE_NAME_INFO = REMOTE_NAME_INFO; _REMOTE_NAME_INFO = REMOTE_NAME_INFO;
(* (*
TODO: OLE TODO: OLE
typedef struct _reobject { typedef struct _reobject {
DWORD cbStruct; DWORD cbStruct;
LONG cp; LONG cp;
CLSID clsid; CLSID clsid;
LPOLEOBJECT poleobj; LPOLEOBJECT poleobj;
LPSTORAGE pstg; LPSTORAGE pstg;
LPOLECLIENTSITE polesite; LPOLECLIENTSITE polesite;
SIZEL sizel; SIZEL sizel;
DWORD dvaspect; DWORD dvaspect;
DWORD dwFlags; DWORD dwFlags;
DWORD dwUser; DWORD dwUser;
} REOBJECT; } REOBJECT;
*) *)
REPASTESPECIAL = record REPASTESPECIAL = record
@ -5591,7 +5591,7 @@ unit struct;
_TAPE_WRITE_MARKS = TAPE_WRITE_MARKS; _TAPE_WRITE_MARKS = TAPE_WRITE_MARKS;
TBADDBITMAP = record TBADDBITMAP = record
hInst : HINSTANCE; hInst : HINST;
nID : UINT; nID : UINT;
end; end;
@ -5780,7 +5780,7 @@ unit struct;
hwnd : HWND; hwnd : HWND;
uId : UINT; uId : UINT;
rect : RECT; rect : RECT;
hinst : HINSTANCE; hinst : HINST;
lpszText : LPTSTR; lpszText : LPTSTR;
end; end;
@ -5792,7 +5792,7 @@ unit struct;
hdr : NMHDR; hdr : NMHDR;
lpszText : LPTSTR; lpszText : LPTSTR;
szText : array[0..79] of char; szText : array[0..79] of char;
hinst : HINSTANCE; hinst : HINST;
uFlags : UINT; uFlags : UINT;
end; end;
@ -6813,7 +6813,10 @@ end.
{$endif not windows_include_files} {$endif not windows_include_files}
{ {
$Log$ $Log$
Revision 1.4 1998-08-31 11:53:59 pierre Revision 1.5 1998-10-27 11:17:17 peter
* type HINSTANCE -> HINST
Revision 1.4 1998/08/31 11:53:59 pierre
* compilable windows.pp file * compilable windows.pp file
still to do : still to do :
- findout problems - findout problems

433
rtl/win32/unidef.pp
View File

File diff suppressed because it is too large Load Diff

433
rtl/win32/unifun.pp
View File

File diff suppressed because it is too large Load Diff