* compilable windows.pp file

still to do :
     - findout problems
     - findout the correct DLL for each call !!

rtl/win32/ascdef.sed

@@ -0,0 +1,9 @@
+s/function \([^(]*\)A *(/function \1(/
+s/procedure \([^(]*\)A *(/procedure \1(/
+s/function \([^:(]*\)A *: */function \1 : /
+s/procedure \([^;(]*\)A *;/procedure \1;/
+s/\([^ \t]*\)A *:=/\1:=/
+s/ascfun;/ascdef;/
+s/ascfun.pp,v/ascdef.pp,v/
+s/ASCIIFUNCTIONS/ASCIIFUNCFIONSDEFAULT/
+

rtl/win32/errors.pp

@@ -0,0 +1,767 @@
+{
+    $Id$
+    This file is part of the Free Pascal run time library.
+    This unit contains the record definition for the Win32 API
+    Copyright (c) 1993,97 by Florian KLaempfl,
+    member of the Free Pascal development team.
+
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
+
+{$ifndef windows_include_files}
+{$define read_interface}
+{$define read_implementation}
+{$endif not windows_include_files}
+
+
+{$ifndef windows_include_files}
+
+unit errors;
+
+{  Automatically converted by H2PAS.EXE from errors.h
+   Utility made by Florian Klaempfl 25th-28th september 96
+   Improvements made by Mark A. Malakanov 22nd-25th may 97 
+   Further improvements by Michael Van Canneyt, April 1998 
+   define handling and error recovery by Pierre Muller, June 1998 }
+
+
+  interface
+
+{$endif not windows_include_files}
+
+  { C default packing is dword }
+
+{$PACKRECORDS 4}
+  { 
+     Errors.h
+  
+     Windows32 API error codes
+  
+     Copyright (C) 1996 Free Software Foundation, Inc.
+  
+     Author: Scott Christley <scottc@net-community.com>
+  
+     This file is part of the Windows32 API Library.
+  
+     This library is free software; you can redistribute it and/or
+     modify it under the terms of the GNU Library General Public
+     License as published by the Free Software Foundation; either
+     version 2 of the License, or (at your option) any later version.
+     
+     This library is distributed in the hope that it will be useful,
+     but WITHOUT ANY WARRANTY; without even the implied warranty of
+     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+     Library General Public License for more details.
+  
+     If you are interested in a warranty or support for this source code,
+     contact Scott Christley <scottc@net-community.com> for more information.
+     
+     You should have received a copy of the GNU Library General Public
+     License along with this library; see the file COPYING.LIB.
+     If not, write to the Free Software Foundation, 
+     59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+   }
+{$ifndef _GNU_H_WINDOWS32_ERROR}
+{$define _GNU_H_WINDOWS32_ERROR}
+{ C++ extern C conditionnal removed }
+  { __cplusplus  }
+  { Numerical order  }
+
+  const
+     LZERROR_UNKNOWNALG = -(8);
+     LZERROR_BADVALUE = -(7);
+     LZERROR_GLOBLOCK = -(6);
+     LZERROR_GLOBALLOC = -(5);
+     LZERROR_WRITE = -(4);
+     LZERROR_READ = -(3);
+     LZERROR_BADOUTHANDLE = -(2);
+     LZERROR_BADINHANDLE = -(1);
+     NO_ERROR = 0;
+     ERROR_SUCCESS = 0;
+     ERROR_INVALID_FUNCTION = 1;
+     ERROR_FILE_NOT_FOUND = 2;
+     ERROR_PATH_NOT_FOUND = 3;
+     ERROR_TOO_MANY_OPEN_FILES = 4;
+     ERROR_ACCESS_DENIED = 5;
+     ERROR_INVALID_HANDLE = 6;
+     ERROR_ARENA_TRASHED = 7;
+     ERROR_NOT_ENOUGH_MEMORY = 8;
+     ERROR_INVALID_BLOCK = 9;
+     ERROR_BAD_ENVIRONMENT = 10;
+     ERROR_BAD_FORMAT = 11;
+     ERROR_INVALID_ACCESS = 12;
+     ERROR_INVALID_DATA = 13;
+     ERROR_OUTOFMEMORY = 14;
+     ERROR_INVALID_DRIVE = 15;
+     ERROR_CURRENT_DIRECTORY = 16;
+     ERROR_NOT_SAME_DEVICE = 17;
+     ERROR_NO_MORE_FILES = 18;
+     ERROR_WRITE_PROTECT = 19;
+     ERROR_BAD_UNIT = 20;
+     ERROR_NOT_READY = 21;
+     ERROR_BAD_COMMAND = 22;
+     ERROR_CRC = 23;
+     ERROR_BAD_LENGTH = 24;
+     ERROR_SEEK = 25;
+     ERROR_NOT_DOS_DISK = 26;
+     ERROR_SECTOR_NOT_FOUND = 27;
+     ERROR_OUT_OF_PAPER = 28;
+     ERROR_WRITE_FAULT = 29;
+     ERROR_READ_FAULT = 30;
+     ERROR_GEN_FAILURE = 31;
+     ERROR_SHARING_VIOLATION = 32;
+     ERROR_LOCK_VIOLATION = 33;
+     ERROR_WRONG_DISK = 34;
+     ERROR_SHARING_BUFFER_EXCEEDED = 36;
+     ERROR_HANDLE_EOF = 38;
+     ERROR_HANDLE_DISK_FULL = 39;
+     ERROR_NOT_SUPPORTED = 50;
+     ERROR_REM_NOT_LIST = 51;
+     ERROR_DUP_NAME = 52;
+     ERROR_BAD_NETPATH = 53;
+     ERROR_NETWORK_BUSY = 54;
+     ERROR_DEV_NOT_EXIST = 55;
+     ERROR_TOO_MANY_CMDS = 56;
+     ERROR_ADAP_HDW_ERR = 57;
+     ERROR_BAD_NET_RESP = 58;
+     ERROR_UNEXP_NET_ERR = 59;
+     ERROR_BAD_REM_ADAP = 60;
+     ERROR_PRINTQ_FULL = 61;
+     ERROR_NO_SPOOL_SPACE = 62;
+     ERROR_PRINT_CANCELLED = 63;
+     ERROR_NETNAME_DELETED = 64;
+     ERROR_NETWORK_ACCESS_DENIED = 65;
+     ERROR_BAD_DEV_TYPE = 66;
+     ERROR_BAD_NET_NAME = 67;
+     ERROR_TOO_MANY_NAMES = 68;
+     ERROR_TOO_MANY_SESS = 69;
+     ERROR_SHARING_PAUSED = 70;
+     ERROR_REQ_NOT_ACCEP = 71;
+     ERROR_REDIR_PAUSED = 72;
+     ERROR_FILE_EXISTS = 80;
+     ERROR_CANNOT_MAKE = 82;
+     ERROR_FAIL_I24 = 83;
+     ERROR_OUT_OF_STRUCTURES = 84;
+     ERROR_ALREADY_ASSIGNED = 85;
+     ERROR_INVALID_PASSWORD = 86;
+     ERROR_INVALID_PARAMETER = 87;
+     ERROR_NET_WRITE_FAULT = 88;
+     ERROR_NO_PROC_SLOTS = 89;
+     ERROR_TOO_MANY_SEMAPHORES = 100;
+     ERROR_EXCL_SEM_ALREADY_OWNED = 101;
+     ERROR_SEM_IS_SET = 102;
+     ERROR_TOO_MANY_SEM_REQUESTS = 103;
+     ERROR_INVALID_AT_INTERRUPT_TIME = 104;
+     ERROR_SEM_OWNER_DIED = 105;
+     ERROR_SEM_USER_LIMIT = 106;
+     ERROR_DISK_CHANGE = 107;
+     ERROR_DRIVE_LOCKED = 108;
+     ERROR_BROKEN_PIPE = 109;
+     ERROR_OPEN_FAILED = 110;
+     ERROR_BUFFER_OVERFLOW = 111;
+     ERROR_DISK_FULL = 112;
+     ERROR_NO_MORE_SEARCH_HANDLES = 113;
+     ERROR_INVALID_TARGET_HANDLE = 114;
+     ERROR_INVALID_CATEGORY = 117;
+     ERROR_INVALID_VERIFY_SWITCH = 118;
+     ERROR_BAD_DRIVER_LEVEL = 119;
+     ERROR_CALL_NOT_IMPLEMENTED = 120;
+     ERROR_SEM_TIMEOUT = 121;
+     ERROR_INSUFFICIENT_BUFFER = 122;
+     ERROR_INVALID_NAME = 123;
+     ERROR_INVALID_LEVEL = 124;
+     ERROR_NO_VOLUME_LABEL = 125;
+     ERROR_MOD_NOT_FOUND = 126;
+     ERROR_PROC_NOT_FOUND = 127;
+     ERROR_WAIT_NO_CHILDREN = 128;
+     ERROR_CHILD_NOT_COMPLETE = 129;
+     ERROR_DIRECT_ACCESS_HANDLE = 130;
+     ERROR_NEGATIVE_SEEK = 131;
+     ERROR_SEEK_ON_DEVICE = 132;
+     ERROR_IS_JOIN_TARGET = 133;
+     ERROR_IS_JOINED = 134;
+     ERROR_IS_SUBSTED = 135;
+     ERROR_NOT_JOINED = 136;
+     ERROR_NOT_SUBSTED = 137;
+     ERROR_JOIN_TO_JOIN = 138;
+     ERROR_SUBST_TO_SUBST = 139;
+     ERROR_JOIN_TO_SUBST = 140;
+     ERROR_SUBST_TO_JOIN = 141;
+     ERROR_BUSY_DRIVE = 142;
+     ERROR_SAME_DRIVE = 143;
+     ERROR_DIR_NOT_ROOT = 144;
+     ERROR_DIR_NOT_EMPTY = 145;
+     ERROR_IS_SUBST_PATH = 146;
+     ERROR_IS_JOIN_PATH = 147;
+     ERROR_PATH_BUSY = 148;
+     ERROR_IS_SUBST_TARGET = 149;
+     ERROR_SYSTEM_TRACE = 150;
+     ERROR_INVALID_EVENT_COUNT = 151;
+     ERROR_TOO_MANY_MUXWAITERS = 152;
+     ERROR_INVALID_LIST_FORMAT = 153;
+     ERROR_LABEL_TOO_LONG = 154;
+     ERROR_TOO_MANY_TCBS = 155;
+     ERROR_SIGNAL_REFUSED = 156;
+     ERROR_DISCARDED = 157;
+     ERROR_NOT_LOCKED = 158;
+     ERROR_BAD_THREADID_ADDR = 159;
+     ERROR_BAD_ARGUMENTS = 160;
+     ERROR_BAD_PATHNAME = 161;
+     ERROR_SIGNAL_PENDING = 162;
+     ERROR_MAX_THRDS_REACHED = 164;
+     ERROR_LOCK_FAILED = 167;
+     ERROR_BUSY = 170;
+     ERROR_CANCEL_VIOLATION = 173;
+     ERROR_ATOMIC_LOCKS_NOT_SUPPORTED = 174;
+     ERROR_INVALID_SEGMENT_NUMBER = 180;
+     ERROR_INVALID_ORDINAL = 182;
+     ERROR_ALREADY_EXISTS = 183;
+     ERROR_INVALID_FLAG_NUMBER = 186;
+     ERROR_SEM_NOT_FOUND = 187;
+     ERROR_INVALID_STARTING_CODESEG = 188;
+     ERROR_INVALID_STACKSEG = 189;
+     ERROR_INVALID_MODULETYPE = 190;
+     ERROR_INVALID_EXE_SIGNATURE = 191;
+     ERROR_EXE_MARKED_INVALID = 192;
+     ERROR_BAD_EXE_FORMAT = 193;
+     ERROR_ITERATED_DATA_EXCEEDS_64k = 194;
+     ERROR_INVALID_MINALLOCSIZE = 195;
+     ERROR_DYNLINK_FROM_INVALID_RING = 196;
+     ERROR_IOPL_NOT_ENABLED = 197;
+     ERROR_INVALID_SEGDPL = 198;
+     ERROR_AUTODATASEG_EXCEEDS_64k = 199;
+     ERROR_RING2SEG_MUST_BE_MOVABLE = 200;
+     ERROR_RELOC_CHAIN_XEEDS_SEGLIM = 201;
+     ERROR_INFLOOP_IN_RELOC_CHAIN = 202;
+     ERROR_ENVVAR_NOT_FOUND = 203;
+     ERROR_NO_SIGNAL_SENT = 205;
+     ERROR_FILENAME_EXCED_RANGE = 206;
+     ERROR_RING2_STACK_IN_USE = 207;
+     ERROR_META_EXPANSION_TOO_LONG = 208;
+     ERROR_INVALID_SIGNAL_NUMBER = 209;
+     ERROR_THREAD_1_INACTIVE = 210;
+     ERROR_LOCKED = 212;
+     ERROR_TOO_MANY_MODULES = 214;
+     ERROR_NESTING_NOT_ALLOWED = 215;
+     ERROR_BAD_PIPE = 230;
+     ERROR_PIPE_BUSY = 231;
+     ERROR_NO_DATA = 232;
+     ERROR_PIPE_NOT_CONNECTED = 233;
+     ERROR_MORE_DATA = 234;
+     ERROR_VC_DISCONNECTED = 240;
+     ERROR_INVALID_EA_NAME = 254;
+     ERROR_EA_LIST_INCONSISTENT = 255;
+     ERROR_NO_MORE_ITEMS = 259;
+     ERROR_CANNOT_COPY = 266;
+     ERROR_DIRECTORY = 267;
+     ERROR_EAS_DIDNT_FIT = 275;
+     ERROR_EA_FILE_CORRUPT = 276;
+     ERROR_EA_TABLE_FULL = 277;
+     ERROR_INVALID_EA_HANDLE = 278;
+     ERROR_EAS_NOT_SUPPORTED = 282;
+     ERROR_NOT_OWNER = 288;
+     ERROR_TOO_MANY_POSTS = 298;
+     ERROR_PARTIAL_COPY = 299;
+     ERROR_MR_MID_NOT_FOUND = 317;
+     ERROR_INVALID_ADDRESS = 487;
+     ERROR_ARITHMETIC_OVERFLOW = 534;
+     ERROR_PIPE_CONNECTED = 535;
+     ERROR_PIPE_LISTENING = 536;
+     ERROR_EA_ACCESS_DENIED = 994;
+     ERROR_OPERATION_ABORTED = 995;
+     ERROR_IO_INCOMPLETE = 996;
+     ERROR_IO_PENDING = 997;
+     ERROR_NOACCESS = 998;
+     ERROR_SWAPERROR = 999;
+     ERROR_STACK_OVERFLOW = 1001;
+     ERROR_INVALID_MESSAGE = 1002;
+     ERROR_CAN_NOT_COMPLETE = 1003;
+     ERROR_INVALID_FLAGS = 1004;
+     ERROR_UNRECOGNIZED_VOLUME = 1005;
+     ERROR_FILE_INVALID = 1006;
+     ERROR_FULLSCREEN_MODE = 1007;
+     ERROR_NO_TOKEN = 1008;
+     ERROR_BADDB = 1009;
+     ERROR_BADKEY = 1010;
+     ERROR_CANTOPEN = 1011;
+     ERROR_CANTREAD = 1012;
+     ERROR_CANTWRITE = 1013;
+     ERROR_REGISTRY_RECOVERED = 1014;
+     ERROR_REGISTRY_CORRUPT = 1015;
+     ERROR_REGISTRY_IO_FAILED = 1016;
+     ERROR_NOT_REGISTRY_FILE = 1017;
+     ERROR_KEY_DELETED = 1018;
+     ERROR_NO_LOG_SPACE = 1019;
+     ERROR_KEY_HAS_CHILDREN = 1020;
+     ERROR_CHILD_MUST_BE_VOLATILE = 1021;
+     ERROR_NOTIFY_ENUM_DIR = 1022;
+     ERROR_DEPENDENT_SERVICES_RUNNING = 1051;
+     ERROR_INVALID_SERVICE_CONTROL = 1052;
+     ERROR_SERVICE_REQUEST_TIMEOUT = 1053;
+     ERROR_SERVICE_NO_THREAD = 1054;
+     ERROR_SERVICE_DATABASE_LOCKED = 1055;
+     ERROR_SERVICE_ALREADY_RUNNING = 1056;
+     ERROR_INVALID_SERVICE_ACCOUNT = 1057;
+     ERROR_SERVICE_DISABLED = 1058;
+     ERROR_CIRCULAR_DEPENDENCY = 1059;
+     ERROR_SERVICE_DOES_NOT_EXIST = 1060;
+     ERROR_SERVICE_CANNOT_ACCEPT_CTRL = 1061;
+     ERROR_SERVICE_NOT_ACTIVE = 1062;
+     ERROR_FAILED_SERVICE_CONTROLLER_CONNECT = 1063;
+     ERROR_EXCEPTION_IN_SERVICE = 1064;
+     ERROR_DATABASE_DOES_NOT_EXIST = 1065;
+     ERROR_SERVICE_SPECIFIC_ERROR = 1066;
+     ERROR_PROCESS_ABORTED = 1067;
+     ERROR_SERVICE_DEPENDENCY_FAIL = 1068;
+     ERROR_SERVICE_LOGON_FAILED = 1069;
+     ERROR_SERVICE_START_HANG = 1070;
+     ERROR_INVALID_SERVICE_LOCK = 1071;
+     ERROR_SERVICE_MARKED_FOR_DELETE = 1072;
+     ERROR_SERVICE_EXISTS = 1073;
+     ERROR_ALREADY_RUNNING_LKG = 1074;
+     ERROR_SERVICE_DEPENDENCY_DELETED = 1075;
+     ERROR_BOOT_ALREADY_ACCEPTED = 1076;
+     ERROR_SERVICE_NEVER_STARTED = 1077;
+     ERROR_DUPLICATE_SERVICE_NAME = 1078;
+     ERROR_END_OF_MEDIA = 1100;
+     ERROR_FILEMARK_DETECTED = 1101;
+     ERROR_BEGINNING_OF_MEDIA = 1102;
+     ERROR_SETMARK_DETECTED = 1103;
+     ERROR_NO_DATA_DETECTED = 1104;
+     ERROR_PARTITION_FAILURE = 1105;
+     ERROR_INVALID_BLOCK_LENGTH = 1106;
+     ERROR_DEVICE_NOT_PARTITIONED = 1107;
+     ERROR_UNABLE_TO_LOCK_MEDIA = 1108;
+     ERROR_UNABLE_TO_UNLOAD_MEDIA = 1109;
+     ERROR_MEDIA_CHANGED = 1110;
+     ERROR_BUS_RESET = 1111;
+     ERROR_NO_MEDIA_IN_DRIVE = 1112;
+     ERROR_NO_UNICODE_TRANSLATION = 1113;
+     ERROR_DLL_INIT_FAILED = 1114;
+     ERROR_SHUTDOWN_IN_PROGRESS = 1115;
+     ERROR_NO_SHUTDOWN_IN_PROGRESS = 1116;
+     ERROR_IO_DEVICE = 1117;
+     ERROR_SERIAL_NO_DEVICE = 1118;
+     ERROR_IRQ_BUSY = 1119;
+     ERROR_MORE_WRITES = 1120;
+     ERROR_COUNTER_TIMEOUT = 1121;
+     ERROR_FLOPPY_ID_MARK_NOT_FOUND = 1122;
+     ERROR_FLOPPY_WRONG_CYLINDER = 1123;
+     ERROR_FLOPPY_UNKNOWN_ERROR = 1124;
+     ERROR_FLOPPY_BAD_REGISTERS = 1125;
+     ERROR_DISK_RECALIBRATE_FAILED = 1126;
+     ERROR_DISK_OPERATION_FAILED = 1127;
+     ERROR_DISK_RESET_FAILED = 1128;
+     ERROR_EOM_OVERFLOW = 1129;
+     ERROR_NOT_ENOUGH_SERVER_MEMORY = 1130;
+     ERROR_POSSIBLE_DEADLOCK = 1131;
+     ERROR_MAPPED_ALIGNMENT = 1132;
+     ERROR_SET_POWER_STATE_VETOED = 1140;
+     ERROR_SET_POWER_STATE_FAILED = 1141;
+     ERROR_OLD_WIN_VERSION = 1150;
+     ERROR_APP_WRONG_OS = 1151;
+     ERROR_SINGLE_INSTANCE_APP = 1152;
+     ERROR_RMODE_APP = 1153;
+     ERROR_INVALID_DLL = 1154;
+     ERROR_NO_ASSOCIATION = 1155;
+     ERROR_DDE_FAIL = 1156;
+     ERROR_DLL_NOT_FOUND = 1157;
+     ERROR_BAD_USERNAME = 2202;
+     ERROR_NOT_CONNECTED = 2250;
+     ERROR_OPEN_FILES = 2401;
+     ERROR_ACTIVE_CONNECTIONS = 2402;
+     ERROR_DEVICE_IN_USE = 2404;
+     ERROR_BAD_DEVICE = 1200;
+     ERROR_CONNECTION_UNAVAIL = 1201;
+     ERROR_DEVICE_ALREADY_REMEMBERED = 1202;
+     ERROR_NO_NET_OR_BAD_PATH = 1203;
+     ERROR_BAD_PROVIDER = 1204;
+     ERROR_CANNOT_OPEN_PROFILE = 1205;
+     ERROR_BAD_PROFILE = 1206;
+     ERROR_NOT_CONTAINER = 1207;
+     ERROR_EXTENDED_ERROR = 1208;
+     ERROR_INVALID_GROUPNAME = 1209;
+     ERROR_INVALID_COMPUTERNAME = 1210;
+     ERROR_INVALID_EVENTNAME = 1211;
+     ERROR_INVALID_DOMAINNAME = 1212;
+     ERROR_INVALID_SERVICENAME = 1213;
+     ERROR_INVALID_NETNAME = 1214;
+     ERROR_INVALID_SHARENAME = 1215;
+     ERROR_INVALID_PASSWORDNAME = 1216;
+     ERROR_INVALID_MESSAGENAME = 1217;
+     ERROR_INVALID_MESSAGEDEST = 1218;
+     ERROR_SESSION_CREDENTIAL_CONFLICT = 1219;
+     ERROR_REMOTE_SESSION_LIMIT_EXCEEDED = 1220;
+     ERROR_DUP_DOMAINNAME = 1221;
+     ERROR_NO_NETWORK = 1222;
+     ERROR_CANCELLED = 1223;
+     ERROR_USER_MAPPED_FILE = 1224;
+     ERROR_CONNECTION_REFUSED = 1225;
+     ERROR_GRACEFUL_DISCONNECT = 1226;
+     ERROR_ADDRESS_ALREADY_ASSOCIATED = 1227;
+     ERROR_ADDRESS_NOT_ASSOCIATED = 1228;
+     ERROR_CONNECTION_INVALID = 1229;
+     ERROR_CONNECTION_ACTIVE = 1230;
+     ERROR_NETWORK_UNREACHABLE = 1231;
+     ERROR_HOST_UNREACHABLE = 1232;
+     ERROR_PROTOCOL_UNREACHABLE = 1233;
+     ERROR_PORT_UNREACHABLE = 1234;
+     ERROR_REQUEST_ABORTED = 1235;
+     ERROR_CONNECTION_ABORTED = 1236;
+     ERROR_RETRY = 1237;
+     ERROR_CONNECTION_COUNT_LIMIT = 1238;
+     ERROR_LOGIN_TIME_RESTRICTION = 1239;
+     ERROR_LOGIN_WKSTA_RESTRICTION = 1240;
+     ERROR_INCORRECT_ADDRESS = 1241;
+     ERROR_ALREADY_REGISTERED = 1242;
+     ERROR_SERVICE_NOT_FOUND = 1243;
+     ERROR_NOT_AUTHENTICATED = 1244;
+     ERROR_NOT_LOGGED_ON = 1245;
+     ERROR_CONTINUE = 1246;
+     ERROR_ALREADY_INITIALIZED = 1247;
+     ERROR_NO_MORE_DEVICES = 1248;
+     ERROR_NOT_ALL_ASSIGNED = 1300;
+     ERROR_SOME_NOT_MAPPED = 1301;
+     ERROR_NO_QUOTAS_FOR_ACCOUNT = 1302;
+     ERROR_LOCAL_USER_SESSION_KEY = 1303;
+     ERROR_NULL_LM_PASSWORD = 1304;
+     ERROR_UNKNOWN_REVISION = 1305;
+     ERROR_REVISION_MISMATCH = 1306;
+     ERROR_INVALID_OWNER = 1307;
+     ERROR_INVALID_PRIMARY_GROUP = 1308;
+     ERROR_NO_IMPERSONATION_TOKEN = 1309;
+     ERROR_CANT_DISABLE_MANDATORY = 1310;
+     ERROR_NO_LOGON_SERVERS = 1311;
+     ERROR_NO_SUCH_LOGON_SESSION = 1312;
+     ERROR_NO_SUCH_PRIVILEGE = 1313;
+     ERROR_PRIVILEGE_NOT_HELD = 1314;
+     ERROR_INVALID_ACCOUNT_NAME = 1315;
+     ERROR_USER_EXISTS = 1316;
+     ERROR_NO_SUCH_USER = 1317;
+     ERROR_GROUP_EXISTS = 1318;
+     ERROR_NO_SUCH_GROUP = 1319;
+     ERROR_MEMBER_IN_GROUP = 1320;
+     ERROR_MEMBER_NOT_IN_GROUP = 1321;
+     ERROR_LAST_ADMIN = 1322;
+     ERROR_WRONG_PASSWORD = 1323;
+     ERROR_ILL_FORMED_PASSWORD = 1324;
+     ERROR_PASSWORD_RESTRICTION = 1325;
+     ERROR_LOGON_FAILURE = 1326;
+     ERROR_ACCOUNT_RESTRICTION = 1327;
+     ERROR_INVALID_LOGON_HOURS = 1328;
+     ERROR_INVALID_WORKSTATION = 1329;
+     ERROR_PASSWORD_EXPIRED = 1330;
+     ERROR_ACCOUNT_DISABLED = 1331;
+     ERROR_NONE_MAPPED = 1332;
+     ERROR_TOO_MANY_LUIDS_REQUESTED = 1333;
+     ERROR_LUIDS_EXHAUSTED = 1334;
+     ERROR_INVALID_SUB_AUTHORITY = 1335;
+     ERROR_INVALID_ACL = 1336;
+     ERROR_INVALID_SID = 1337;
+     ERROR_INVALID_SECURITY_DESCR = 1338;
+     ERROR_BAD_INHERITANCE_ACL = 1340;
+     ERROR_SERVER_DISABLED = 1341;
+     ERROR_SERVER_NOT_DISABLED = 1342;
+     ERROR_INVALID_ID_AUTHORITY = 1343;
+     ERROR_ALLOTTED_SPACE_EXCEEDED = 1344;
+     ERROR_INVALID_GROUP_ATTRIBUTES = 1345;
+     ERROR_BAD_IMPERSONATION_LEVEL = 1346;
+     ERROR_CANT_OPEN_ANONYMOUS = 1347;
+     ERROR_BAD_VALIDATION_CLASS = 1348;
+     ERROR_BAD_TOKEN_TYPE = 1349;
+     ERROR_NO_SECURITY_ON_OBJECT = 1350;
+     ERROR_CANT_ACCESS_DOMAIN_INFO = 1351;
+     ERROR_INVALID_SERVER_STATE = 1352;
+     ERROR_INVALID_DOMAIN_STATE = 1353;
+     ERROR_INVALID_DOMAIN_ROLE = 1354;
+     ERROR_NO_SUCH_DOMAIN = 1355;
+     ERROR_DOMAIN_EXISTS = 1356;
+     ERROR_DOMAIN_LIMIT_EXCEEDED = 1357;
+     ERROR_INTERNAL_DB_CORRUPTION = 1358;
+     ERROR_INTERNAL_ERROR = 1359;
+     ERROR_GENERIC_NOT_MAPPED = 1360;
+     ERROR_BAD_DESCRIPTOR_FORMAT = 1361;
+     ERROR_NOT_LOGON_PROCESS = 1362;
+     ERROR_LOGON_SESSION_EXISTS = 1363;
+     ERROR_NO_SUCH_PACKAGE = 1364;
+     ERROR_BAD_LOGON_SESSION_STATE = 1365;
+     ERROR_LOGON_SESSION_COLLISION = 1366;
+     ERROR_INVALID_LOGON_TYPE = 1367;
+     ERROR_CANNOT_IMPERSONATE = 1368;
+     ERROR_RXACT_INVALID_STATE = 1369;
+     ERROR_RXACT_COMMIT_FAILURE = 1370;
+     ERROR_SPECIAL_ACCOUNT = 1371;
+     ERROR_SPECIAL_GROUP = 1372;
+     ERROR_SPECIAL_USER = 1373;
+     ERROR_MEMBERS_PRIMARY_GROUP = 1374;
+     ERROR_TOKEN_ALREADY_IN_USE = 1375;
+     ERROR_NO_SUCH_ALIAS = 1376;
+     ERROR_MEMBER_NOT_IN_ALIAS = 1377;
+     ERROR_MEMBER_IN_ALIAS = 1378;
+     ERROR_ALIAS_EXISTS = 1379;
+     ERROR_LOGON_NOT_GRANTED = 1380;
+     ERROR_TOO_MANY_SECRETS = 1381;
+     ERROR_SECRET_TOO_LONG = 1382;
+     ERROR_INTERNAL_DB_ERROR = 1383;
+     ERROR_TOO_MANY_CONTEXT_IDS = 1384;
+     ERROR_LOGON_TYPE_NOT_GRANTED = 1385;
+     ERROR_NT_CROSS_ENCRYPTION_REQUIRED = 1386;
+     ERROR_NO_SUCH_MEMBER = 1387;
+     ERROR_INVALID_MEMBER = 1388;
+     ERROR_TOO_MANY_SIDS = 1389;
+     ERROR_LM_CROSS_ENCRYPTION_REQUIRED = 1390;
+     ERROR_NO_INHERITANCE = 1391;
+     ERROR_FILE_CORRUPT = 1392;
+     ERROR_DISK_CORRUPT = 1393;
+     ERROR_NO_USER_SESSION_KEY = 1394;
+     ERROR_LICENSE_QUOTA_EXCEEDED = 1395;
+     ERROR_INVALID_WINDOW_HANDLE = 1400;
+     ERROR_INVALID_MENU_HANDLE = 1401;
+     ERROR_INVALID_CURSOR_HANDLE = 1402;
+     ERROR_INVALID_ACCEL_HANDLE = 1403;
+     ERROR_INVALID_HOOK_HANDLE = 1404;
+     ERROR_INVALID_DWP_HANDLE = 1405;
+     ERROR_TLW_WITH_WSCHILD = 1406;
+     ERROR_CANNOT_FIND_WND_CLASS = 1407;
+     ERROR_WINDOW_OF_OTHER_THREAD = 1408;
+     ERROR_HOTKEY_ALREADY_REGISTERED = 1409;
+     ERROR_CLASS_ALREADY_EXISTS = 1410;
+     ERROR_CLASS_DOES_NOT_EXIST = 1411;
+     ERROR_CLASS_HAS_WINDOWS = 1412;
+     ERROR_INVALID_INDEX = 1413;
+     ERROR_INVALID_ICON_HANDLE = 1414;
+     ERROR_PRIVATE_DIALOG_INDEX = 1415;
+     ERROR_LISTBOX_ID_NOT_FOUND = 1416;
+     ERROR_NO_WILDCARD_CHARACTERS = 1417;
+     ERROR_CLIPBOARD_NOT_OPEN = 1418;
+     ERROR_HOTKEY_NOT_REGISTERED = 1419;
+     ERROR_WINDOW_NOT_DIALOG = 1420;
+     ERROR_CONTROL_ID_NOT_FOUND = 1421;
+     ERROR_INVALID_COMBOBOX_MESSAGE = 1422;
+     ERROR_WINDOW_NOT_COMBOBOX = 1423;
+     ERROR_INVALID_EDIT_HEIGHT = 1424;
+     ERROR_DC_NOT_FOUND = 1425;
+     ERROR_INVALID_HOOK_FILTER = 1426;
+     ERROR_INVALID_FILTER_PROC = 1427;
+     ERROR_HOOK_NEEDS_HMOD = 1428;
+     ERROR_GLOBAL_ONLY_HOOK = 1429;
+     ERROR_JOURNAL_HOOK_SET = 1430;
+     ERROR_HOOK_NOT_INSTALLED = 1431;
+     ERROR_INVALID_LB_MESSAGE = 1432;
+     ERROR_SETCOUNT_ON_BAD_LB = 1433;
+     ERROR_LB_WITHOUT_TABSTOPS = 1434;
+     ERROR_DESTROY_OBJECT_OF_OTHER_THREAD = 1435;
+     ERROR_CHILD_WINDOW_MENU = 1436;
+     ERROR_NO_SYSTEM_MENU = 1437;
+     ERROR_INVALID_MSGBOX_STYLE = 1438;
+     ERROR_INVALID_SPI_VALUE = 1439;
+     ERROR_SCREEN_ALREADY_LOCKED = 1440;
+     ERROR_HWNDS_HAVE_DIFF_PARENT = 1441;
+     ERROR_NOT_CHILD_WINDOW = 1442;
+     ERROR_INVALID_GW_COMMAND = 1443;
+     ERROR_INVALID_THREAD_ID = 1444;
+     ERROR_NON_MDICHILD_WINDOW = 1445;
+     ERROR_POPUP_ALREADY_ACTIVE = 1446;
+     ERROR_NO_SCROLLBARS = 1447;
+     ERROR_INVALID_SCROLLBAR_RANGE = 1448;
+     ERROR_INVALID_SHOWWIN_COMMAND = 1449;
+     ERROR_NO_SYSTEM_RESOURCES = 1450;
+     ERROR_NONPAGED_SYSTEM_RESOURCES = 1451;
+     ERROR_PAGED_SYSTEM_RESOURCES = 1452;
+     ERROR_WORKING_SET_QUOTA = 1453;
+     ERROR_PAGEFILE_QUOTA = 1454;
+     ERROR_COMMITMENT_LIMIT = 1455;
+     ERROR_MENU_ITEM_NOT_FOUND = 1456;
+     ERROR_EVENTLOG_FILE_CORRUPT = 1500;
+     ERROR_EVENTLOG_CANT_START = 1501;
+     ERROR_LOG_FILE_FULL = 1502;
+     ERROR_EVENTLOG_FILE_CHANGED = 1503;
+     RPC_S_INVALID_STRING_BINDING = 1700;
+     RPC_S_WRONG_KIND_OF_BINDING = 1701;
+     RPC_S_INVALID_BINDING = 1702;
+     RPC_S_PROTSEQ_NOT_SUPPORTED = 1703;
+     RPC_S_INVALID_RPC_PROTSEQ = 1704;
+     RPC_S_INVALID_STRING_UUID = 1705;
+     RPC_S_INVALID_ENDPOINT_FORMAT = 1706;
+     RPC_S_INVALID_NET_ADDR = 1707;
+     RPC_S_NO_ENDPOINT_FOUND = 1708;
+     RPC_S_INVALID_TIMEOUT = 1709;
+     RPC_S_OBJECT_NOT_FOUND = 1710;
+     RPC_S_ALREADY_REGISTERED = 1711;
+     RPC_S_TYPE_ALREADY_REGISTERED = 1712;
+     RPC_S_ALREADY_LISTENING = 1713;
+     RPC_S_NO_PROTSEQS_REGISTERED = 1714;
+     RPC_S_NOT_LISTENING = 1715;
+     RPC_S_UNKNOWN_MGR_TYPE = 1716;
+     RPC_S_UNKNOWN_IF = 1717;
+     RPC_S_NO_BINDINGS = 1718;
+     RPC_S_NO_PROTSEQS = 1719;
+     RPC_S_CANT_CREATE_ENDPOINT = 1720;
+     RPC_S_OUT_OF_RESOURCES = 1721;
+     RPC_S_SERVER_UNAVAILABLE = 1722;
+     RPC_S_SERVER_TOO_BUSY = 1723;
+     RPC_S_INVALID_NETWORK_OPTIONS = 1724;
+     RPC_S_NO_CALL_ACTIVE = 1725;
+     RPC_S_CALL_FAILED = 1726;
+     RPC_S_CALL_FAILED_DNE = 1727;
+     RPC_S_PROTOCOL_ERROR = 1728;
+     RPC_S_UNSUPPORTED_TRANS_SYN = 1730;
+     RPC_S_UNSUPPORTED_TYPE = 1732;
+     RPC_S_INVALID_TAG = 1733;
+     RPC_S_INVALID_BOUND = 1734;
+     RPC_S_NO_ENTRY_NAME = 1735;
+     RPC_S_INVALID_NAME_SYNTAX = 1736;
+     RPC_S_UNSUPPORTED_NAME_SYNTAX = 1737;
+     RPC_S_UUID_NO_ADDRESS = 1739;
+     RPC_S_DUPLICATE_ENDPOINT = 1740;
+     RPC_S_UNKNOWN_AUTHN_TYPE = 1741;
+     RPC_S_MAX_CALLS_TOO_SMALL = 1742;
+     RPC_S_STRING_TOO_LONG = 1743;
+     RPC_S_PROTSEQ_NOT_FOUND = 1744;
+     RPC_S_PROCNUM_OUT_OF_RANGE = 1745;
+     RPC_S_BINDING_HAS_NO_AUTH = 1746;
+     RPC_S_UNKNOWN_AUTHN_SERVICE = 1747;
+     RPC_S_UNKNOWN_AUTHN_LEVEL = 1748;
+     RPC_S_INVALID_AUTH_IDENTITY = 1749;
+     RPC_S_UNKNOWN_AUTHZ_SERVICE = 1750;
+     EPT_S_INVALID_ENTRY = 1751;
+     EPT_S_CANT_PERFORM_OP = 1752;
+     EPT_S_NOT_REGISTERED = 1753;
+     RPC_S_NOTHING_TO_EXPORT = 1754;
+     RPC_S_INCOMPLETE_NAME = 1755;
+     RPC_S_INVALID_VERS_OPTION = 1756;
+     RPC_S_NO_MORE_MEMBERS = 1757;
+     RPC_S_NOT_ALL_OBJS_UNEXPORTED = 1758;
+     RPC_S_INTERFACE_NOT_FOUND = 1759;
+     RPC_S_ENTRY_ALREADY_EXISTS = 1760;
+     RPC_S_ENTRY_NOT_FOUND = 1761;
+     RPC_S_NAME_SERVICE_UNAVAILABLE = 1762;
+     RPC_S_INVALID_NAF_ID = 1763;
+     RPC_S_CANNOT_SUPPORT = 1764;
+     RPC_S_NO_CONTEXT_AVAILABLE = 1765;
+     RPC_S_INTERNAL_ERROR = 1766;
+     RPC_S_ZERO_DIVIDE = 1767;
+     RPC_S_ADDRESS_ERROR = 1768;
+     RPC_S_FP_DIV_ZERO = 1769;
+     RPC_S_FP_UNDERFLOW = 1770;
+     RPC_S_FP_OVERFLOW = 1771;
+     RPC_X_NO_MORE_ENTRIES = 1772;
+     RPC_X_SS_CHAR_TRANS_OPEN_FAIL = 1773;
+     RPC_X_SS_CHAR_TRANS_SHORT_FILE = 1774;
+     RPC_X_SS_IN_NULL_CONTEXT = 1775;
+     RPC_X_SS_CONTEXT_DAMAGED = 1777;
+     RPC_X_SS_HANDLES_MISMATCH = 1778;
+     RPC_X_SS_CANNOT_GET_CALL_HANDLE = 1779;
+     RPC_X_NULL_REF_POINTER = 1780;
+     RPC_X_ENUM_VALUE_OUT_OF_RANGE = 1781;
+     RPC_X_BYTE_COUNT_TOO_SMALL = 1782;
+     RPC_X_BAD_STUB_DATA = 1783;
+     ERROR_INVALID_USER_BUFFER = 1784;
+     ERROR_UNRECOGNIZED_MEDIA = 1785;
+     ERROR_NO_TRUST_LSA_SECRET = 1786;
+     ERROR_NO_TRUST_SAM_ACCOUNT = 1787;
+     ERROR_TRUSTED_DOMAIN_FAILURE = 1788;
+     ERROR_TRUSTED_RELATIONSHIP_FAILURE = 1789;
+     ERROR_TRUST_FAILURE = 1790;
+     RPC_S_CALL_IN_PROGRESS = 1791;
+     ERROR_NETLOGON_NOT_STARTED = 1792;
+     ERROR_ACCOUNT_EXPIRED = 1793;
+     ERROR_REDIRECTOR_HAS_OPEN_HANDLES = 1794;
+     ERROR_PRINTER_DRIVER_ALREADY_INSTALLED = 1795;
+     ERROR_UNKNOWN_PORT = 1796;
+     ERROR_UNKNOWN_PRINTER_DRIVER = 1797;
+     ERROR_UNKNOWN_PRINTPROCESSOR = 1798;
+     ERROR_INVALID_SEPARATOR_FILE = 1799;
+     ERROR_INVALID_PRIORITY = 1800;
+     ERROR_INVALID_PRINTER_NAME = 1801;
+     ERROR_PRINTER_ALREADY_EXISTS = 1802;
+     ERROR_INVALID_PRINTER_COMMAND = 1803;
+     ERROR_INVALID_DATATYPE = 1804;
+     ERROR_INVALID_ENVIRONMENT = 1805;
+     RPC_S_NO_MORE_BINDINGS = 1806;
+     ERROR_NOLOGON_INTERDOMAIN_TRUST_ACCOUNT = 1807;
+     ERROR_NOLOGON_WORKSTATION_TRUST_ACCOUNT = 1808;
+     ERROR_NOLOGON_SERVER_TRUST_ACCOUNT = 1809;
+     ERROR_DOMAIN_TRUST_INCONSISTENT = 1810;
+     ERROR_SERVER_HAS_OPEN_HANDLES = 1811;
+     ERROR_RESOURCE_DATA_NOT_FOUND = 1812;
+     ERROR_RESOURCE_TYPE_NOT_FOUND = 1813;
+     ERROR_RESOURCE_NAME_NOT_FOUND = 1814;
+     ERROR_RESOURCE_LANG_NOT_FOUND = 1815;
+     ERROR_NOT_ENOUGH_QUOTA = 1816;
+     RPC_S_NO_INTERFACES = 1817;
+     RPC_S_CALL_CANCELLED = 1818;
+     RPC_S_BINDING_INCOMPLETE = 1819;
+     RPC_S_COMM_FAILURE = 1820;
+     RPC_S_UNSUPPORTED_AUTHN_LEVEL = 1821;
+     RPC_S_NO_PRINC_NAME = 1822;
+     RPC_S_NOT_RPC_ERROR = 1823;
+     RPC_S_UUID_LOCAL_ONLY = 1824;
+     RPC_S_SEC_PKG_ERROR = 1825;
+     RPC_S_NOT_CANCELLED = 1826;
+     RPC_X_INVALID_ES_ACTION = 1827;
+     RPC_X_WRONG_ES_VERSION = 1828;
+     RPC_X_WRONG_STUB_VERSION = 1829;
+     RPC_S_GROUP_MEMBER_NOT_FOUND = 1898;
+     EPT_S_CANT_CREATE = 1899;
+     RPC_S_INVALID_OBJECT = 1900;
+     ERROR_INVALID_TIME = 1901;
+     ERROR_INVALID_FORM_NAME = 1902;
+     ERROR_INVALID_FORM_SIZE = 1903;
+     ERROR_ALREADY_WAITING = 1904;
+     ERROR_PRINTER_DELETED = 1905;
+     ERROR_INVALID_PRINTER_STATE = 1906;
+     ERROR_PASSWORD_MUST_CHANGE = 1907;
+     ERROR_DOMAIN_CONTROLLER_NOT_FOUND = 1908;
+     ERROR_ACCOUNT_LOCKED_OUT = 1909;
+     ERROR_NO_BROWSER_SERVERS_FOUND = 6118;
+     ERROR_INVALID_PIXEL_FORMAT = 2000;
+     ERROR_BAD_DRIVER = 2001;
+     ERROR_INVALID_WINDOW_STYLE = 2002;
+     ERROR_METAFILE_NOT_SUPPORTED = 2003;
+     ERROR_TRANSFORM_NOT_SUPPORTED = 2004;
+     ERROR_CLIPPING_NOT_SUPPORTED = 2005;
+     ERROR_UNKNOWN_PRINT_MONITOR = 3000;
+     ERROR_PRINTER_DRIVER_IN_USE = 3001;
+     ERROR_SPOOL_FILE_NOT_FOUND = 3002;
+     ERROR_SPL_NO_STARTDOC = 3003;
+     ERROR_SPL_NO_ADDJOB = 3004;
+     ERROR_PRINT_PROCESSOR_ALREADY_INSTALLED = 3005;
+     ERROR_PRINT_MONITOR_ALREADY_INSTALLED = 3006;
+     ERROR_WINS_INTERNAL = 4000;
+     ERROR_CAN_NOT_DEL_LOCAL_WINS = 4001;
+     ERROR_STATIC_INIT = 4002;
+     ERROR_INC_BACKUP = 4003;
+     ERROR_FULL_BACKUP = 4004;
+     ERROR_REC_NON_EXISTENT = 4005;
+     ERROR_RPL_NOT_ALLOWED = 4006;
+     {ERROR_NO_BROWSER_SERVERS_FOUND = 6118; already above }
+{ C++ end of extern C conditionnal removed }
+  { __cplusplus  }
+{$endif}
+  { _GNU_H_WINDOWS32_ERROR  }
+
+{$ifndef windows_include_files}
+  implementation
+
+{ const External_library='kernel32'; not needed }
+
+
+end.
+
+{$endif windows_include_files}
+{
+  $Log$
+  Revision 1.1  1998-08-31 11:53:56  pierre
+    * compilable windows.pp file
+      still to do :
+       - findout problems
+       - findout the correct DLL for each call !!
+
+}

rtl/win32/makefile

@@ -124,7 +124,13 @@ SHAREDLIBEXT=.dll
 SYSTEMPPU=syswin32$(PPUEXT)
 OBJECTS=strings objpas \
 	dos \
-	base messages defines
+        windows
+#	base messages defines
+
+# Files used by windows.pp
+WINDOWS_FILES=base.pp errors.pp defines.pp \
+	struct.pp ascfun.pp ascdef.pp \
+	unifun.pp unidef.pp func.pp
 
 # Add Prefix and Suffixes
 PPUOBJECTS=$(addsuffix $(PPUEXT), $(OBJECTS))
@@ -181,6 +187,9 @@ messages$(PPUEXT) : messages.pp $(SYSTEMPPU)
 defines$(PPUEXT) : defines.pp $(SYSTEMPPU)
 	$(PP) $(OPT) defines.pp $(REDIR)
 
+windows$(PPUEXT) : windows.pp $(WINDOWS_INCLUDE) $(SYSTEMPPU)
+	$(PP) $(OPT) windows.pp $(REDIR)
+
 #
 # TP7 Compatible RTL Units
 #
@@ -236,7 +245,13 @@ include $(CFG)/makefile.def
 
 #
 # $Log$
-# Revision 1.7  1998-08-21 15:17:01  peter
+# Revision 1.8  1998-08-31 11:53:57  pierre
+#   * compilable windows.pp file
+#     still to do :
+#      - findout problems
+#      - findout the correct DLL for each call !!
+#
+# Revision 1.7  1998/08/21 15:17:01  peter
 #   * win32 compiles a bit better, no growheap crash
 #
 #

rtl/win32/messages.pp

@@ -13,45 +13,90 @@
 
  **********************************************************************}
 
-{
+{$ifndef windows_include_files}
-    This file is generated using h2pas written by Florian Klaempfl,
+{$define read_interface}
-    but some modifications are done.
+{$define read_implementation}
+{$endif not windows_include_files}
 
-    The C header file was messages.h of the
-    GNU Windows32 API Library Version 0.1.2
 
- ****************************************************************************
+{$ifndef windows_include_files}
-
-  FK     Florian Klaempfl
-  +      added
-  -      removed
-  *      modified
-
-  History (started with version 0.1.0):
-      18th november 1997 version:
-         + started (FK)
-
-  Unimplemented:
-
- ****************************************************************************}
 
 unit messages;
 
+{  Automatically converted by H2PAS.EXE from messages.h
+   Utility made by Florian Klaempfl 25th-28th september 96
+   Improvements made by Mark A. Malakanov 22nd-25th may 97 
+   Further improvements by Michael Van Canneyt, April 1998 
+   define handling and error recovery by Pierre Muller, June 1998 }
+
+
   interface
 
+{$endif not windows_include_files}
+
+{$ifdef read_interface}
+
+  { C default packing is dword }
+
+{$PACKRECORDS 4}
+  { 
+     Messages.h
+  
+     Windows32 API message definitions
+  
+     Copyright (C) 1996 Free Software Foundation, Inc.
+  
+     Author: Scott Christley <scottc@net-community.com>
+  
+     This file is part of the Windows32 API Library.
+  
+     This library is free software; you can redistribute it and/or
+     modify it under the terms of the GNU Library General Public
+     License as published by the Free Software Foundation; either
+     version 2 of the License, or (at your option) any later version.
+     
+     This library is distributed in the hope that it will be useful,
+     but WITHOUT ANY WARRANTY; without even the implied warranty of
+     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+     Library General Public License for more details.
+  
+     If you are interested in a warranty or support for this source code,
+     contact Scott Christley <scottc@net-community.com> for more information.
+     
+     You should have received a copy of the GNU Library General Public
+     License along with this library; see the file COPYING.LIB.
+     If not, write to the Free Software Foundation, 
+     59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+   }
+  { WARNING:  This file is automatically generated.  }
+{$ifndef _GNU_H_WINDOWS32_MESSAGES}
+{$define _GNU_H_WINDOWS32_MESSAGES}
+{ C++ extern C conditionnal removed }
+  { __cplusplus  }
+  { Application bar  }
+  { Application bar notifications  }
+  { Animation Control  }
+
   const
      ACM_OPENW = 1127;
      ACM_OPENA = 1124;
 {$ifdef UNICODE}
+
+  const
      ACM_OPEN = ACM_OPENW;
-{$else UNICODE}
+{$else}
+
+  const
      ACM_OPEN = ACM_OPENA;
-{$endif UNICODE}
+{$endif}
+  { UNICODE  }
+
+  const
      ACM_PLAY = 1125;
      ACM_STOP = 1126;
      ACN_START = 1;
-       { Buttons }
      ACN_STOP = 2;
+  { Buttons  }
      BM_CLICK = 245;
      BM_GETCHECK = 240;
      BM_GETIMAGE = 246;
@@ -70,8 +115,8 @@ unit messages;
      BN_PUSHED = 2;
      BN_SETFOCUS = 6;
      BN_UNHILITE = 3;
-    { Combo Box }
      BN_UNPUSHED = 3;
+  { Combo Box  }
      CB_ADDSTRING = 323;
      CB_DELETESTRING = 324;
      CB_DIR = 325;
@@ -105,31 +150,31 @@ unit messages;
      CB_SETITEMHEIGHT = 339;
      CB_SETLOCALE = 345;
      CB_SETTOPINDEX = 348;
-    { Combo Box notifications }
      CB_SHOWDROPDOWN = 335;
+  { Combo Box notifications  }
      CBN_CLOSEUP = 8;
      CBN_DBLCLK = 2;
      CBN_DROPDOWN = 7;
      CBN_EDITCHANGE = 5;
      CBN_EDITUPDATE = 6;
-       CBN_ERRSPACE = -1;
+     CBN_ERRSPACE = -(1);
      CBN_KILLFOCUS = 4;
      CBN_SELCHANGE = 1;
      CBN_SELENDCANCEL = 10;
      CBN_SELENDOK = 9;
+     CBN_SETFOCUS = 3;
   { Control Panel  }
   { Device messages  }
   { Drag list box  }
-       CBN_SETFOCUS = 3;
      DL_BEGINDRAG = 1157;
      DL_CANCELDRAG = 1160;
      DL_DRAGGING = 1158;
-    { Default push button }
      DL_DROPPED = 1159;
+  { Default push button  }
      DM_GETDEFID = 1024;
      DM_REPOSITION = 1026;
-    { RTF control }
      DM_SETDEFID = 1025;
+  { RTF control  }
      EM_CANPASTE = 1074;
      EM_CANUNDO = 198;
      EM_CHARFROMPOS = 215;
@@ -206,8 +251,8 @@ unit messages;
      EM_SETWORDWRAPMODE = 1126;
      EM_STREAMIN = 1097;
      EM_STREAMOUT = 1098;
-    { Edit control }
      EM_UNDO = 199;
+  { Edit control  }
      EN_CHANGE = 768;
      EN_CORRECTTEXT = 1797;
      EN_DROPFILES = 1795;
@@ -225,10 +270,10 @@ unit messages;
      EN_SETFOCUS = 256;
      EN_STOPNOUNDO = 1798;
      EN_UPDATE = 1024;
+     EN_VSCROLL = 1538;
   { File Manager extensions  }
   { File Manager extensions DLL events  }
   { Header control  }
-       EN_VSCROLL = 1538;
      HDM_DELETEITEM = 4610;
      HDM_GETITEMW = 4619;
      HDM_INSERTITEMW = 4618;
@@ -237,35 +282,44 @@ unit messages;
      HDM_INSERTITEMA = 4609;
      HDM_SETITEMA = 4612;
 {$ifdef UNICODE}
+
+  const
      HDM_GETITEM = HDM_GETITEMW;
      HDM_INSERTITEM = HDM_INSERTITEMW;
      HDM_SETITEM = HDM_SETITEMW;
-{$else UNICODE}
+{$else}
+
+  const
      HDM_GETITEM = HDM_GETITEMA;
      HDM_INSERTITEM = HDM_INSERTITEMA;
      HDM_SETITEM = HDM_SETITEMA;
-{$endif UNICODE}
+{$endif}
+  { UNICODE  }
+
+  const
      HDM_GETITEMCOUNT = 4608;
      HDM_HITTEST = 4614;
-    { Header control notifications }
      HDM_LAYOUT = 4613;
-       HDN_BEGINTRACKW = -326;
+  { Header control notifications  }
-       HDN_DIVIDERDBLCLICKW = -325;
+     HDN_BEGINTRACKW = -(326);
-       HDN_ENDTRACKW = -327;
+     HDN_DIVIDERDBLCLICKW = -(325);
-       HDN_ITEMCHANGEDW = -321;
+     HDN_ENDTRACKW = -(327);
-       HDN_ITEMCHANGINGW = -320;
+     HDN_ITEMCHANGEDW = -(321);
-       HDN_ITEMCLICKW = -322;
+     HDN_ITEMCHANGINGW = -(320);
-       HDN_ITEMDBLCLICKW = -323;
+     HDN_ITEMCLICKW = -(322);
-       HDN_TRACKW = -328;
+     HDN_ITEMDBLCLICKW = -(323);
-       HDN_BEGINTRACKA = -306;
+     HDN_TRACKW = -(328);
-       HDN_DIVIDERDBLCLICKA = -305;
+     HDN_BEGINTRACKA = -(306);
-       HDN_ENDTRACKA = -307;
+     HDN_DIVIDERDBLCLICKA = -(305);
-       HDN_ITEMCHANGEDA = -301;
+     HDN_ENDTRACKA = -(307);
-       HDN_ITEMCHANGINGA = -300;
+     HDN_ITEMCHANGEDA = -(301);
-       HDN_ITEMCLICKA = -302;
+     HDN_ITEMCHANGINGA = -(300);
-       HDN_ITEMDBLCLICKA = -303;
+     HDN_ITEMCLICKA = -(302);
-       HDN_TRACKA = -308;
+     HDN_ITEMDBLCLICKA = -(303);
+     HDN_TRACKA = -(308);
 {$ifdef UNICODE}
+
+  const
      HDN_BEGINTRACK = HDN_BEGINTRACKW;
      HDN_DIVIDERDBLCLICK = HDN_DIVIDERDBLCLICKW;
      HDN_ENDTRACK = HDN_ENDTRACKW;
@@ -274,7 +328,9 @@ unit messages;
      HDN_ITEMCLICK = HDN_ITEMCLICKW;
      HDN_ITEMDBLCLICK = HDN_ITEMDBLCLICKW;
      HDN_TRACK = HDN_TRACKW;
-{$else UNICODE}
+{$else}
+
+  const
      HDN_BEGINTRACK = HDN_BEGINTRACKA;
      HDN_DIVIDERDBLCLICK = HDN_DIVIDERDBLCLICKA;
      HDN_ENDTRACK = HDN_ENDTRACKA;
@@ -283,8 +339,11 @@ unit messages;
      HDN_ITEMCLICK = HDN_ITEMCLICKA;
      HDN_ITEMDBLCLICK = HDN_ITEMDBLCLICKA;
      HDN_TRACK = HDN_TRACKA;
-{$endif UNICODE}
+{$endif}
+  { UNICODE  }
   { Hot key control  }
+
+  const
      HKM_GETHOTKEY = 1026;
      HKM_SETHOTKEY = 1025;
      HKM_SETRULES = 1027;
@@ -328,15 +387,15 @@ unit messages;
      LB_SETLOCALE = 421;
      LB_SETSEL = 389;
      LB_SETTABSTOPS = 402;
-    { List box notifications }
      LB_SETTOPINDEX = 407;
+  { List box notifications  }
      LBN_DBLCLK = 2;
-       LBN_ERRSPACE = -2;
+     LBN_ERRSPACE = -(2);
      LBN_KILLFOCUS = 5;
      LBN_SELCANCEL = 3;
      LBN_SELCHANGE = 1;
-    { List view control }
      LBN_SETFOCUS = 4;
+  { List view control  }
      LVM_ARRANGE = 4118;
      LVM_CREATEDRAGIMAGE = 4129;
      LVM_DELETEALLITEMS = 4105;
@@ -371,11 +430,11 @@ unit messages;
      LVM_INSERTCOLUMNA = 4123;
      LVM_INSERTITEMA = 4103;
      LVM_SETCOLUMNA = 4122;
-       LVM_SETITEMA = 4102;
-       LVM_SETITEMTEXTA = 4242;
-{$ifdef UNICODE}
      LVM_SETITEMA = 4102;
      LVM_SETITEMTEXTA = 4142;
+{$ifdef UNICODE}
+
+  const
      LVM_EDITLABEL = LVM_EDITLABELW;
      LVM_FINDITEM = LVM_FINDITEMW;
      LVM_GETCOLUMN = LVM_GETCOLUMNW;
@@ -388,7 +447,9 @@ unit messages;
      LVM_SETCOLUMN = LVM_SETCOLUMNW;
      LVM_SETITEM = LVM_SETITEMW;
      LVM_SETITEMTEXT = LVM_SETITEMTEXTW;
-{$else UNICODE}
+{$else}
+
+  const
      LVM_EDITLABEL = LVM_EDITLABELA;
      LVM_FINDITEM = LVM_FINDITEMA;
      LVM_GETCOLUMN = LVM_GETCOLUMNA;
@@ -401,7 +462,10 @@ unit messages;
      LVM_SETCOLUMN = LVM_SETCOLUMNA;
      LVM_SETITEM = LVM_SETITEMA;
      LVM_SETITEMTEXT = LVM_SETITEMTEXTA;
-{$endif UNICODE}
+{$endif}
+  { UNICODE  }
+
+  const
      LVM_GETITEMCOUNT = 4100;
      LVM_GETITEMPOSITION = 4112;
      LVM_GETITEMRECT = 4110;
@@ -428,47 +492,54 @@ unit messages;
      LVM_SETTEXTBKCOLOR = 4134;
      LVM_SETTEXTCOLOR = 4132;
      LVM_SORTITEMS = 4144;
-    { List view control notifications }
      LVM_UPDATE = 4138;
-       LVN_BEGINDRAG = -109;
+  { List view control notifications  }
-       LVN_BEGINRDRAG = -111;
+     LVN_BEGINDRAG = -(109);
-       LVN_COLUMNCLICK = -108;
+     LVN_BEGINRDRAG = -(111);
-       LVN_DELETEALLITEMS = -104;
+     LVN_COLUMNCLICK = -(108);
-       LVN_DELETEITEM = -103;
+     LVN_DELETEALLITEMS = -(104);
-       LVN_BEGINLABELEDITW = -175;
+     LVN_DELETEITEM = -(103);
-       LVN_ENDLABELEDITW = -176;
+     LVN_BEGINLABELEDITW = -(175);
-       LVN_GETDISPINFOW = -177;
+     LVN_ENDLABELEDITW = -(176);
-       LVN_SETDISPINFOW = -178;
+     LVN_GETDISPINFOW = -(177);
-       LVN_BEGINLABELEDITA = -105;
+     LVN_SETDISPINFOW = -(178);
-       LVN_ENDLABELEDITA = -106;
+     LVN_BEGINLABELEDITA = -(105);
-       LVN_GETDISPINFOA = -150;
+     LVN_ENDLABELEDITA = -(106);
-       LVN_SETDISPINFOA = -151;
+     LVN_GETDISPINFOA = -(150);
+     LVN_SETDISPINFOA = -(151);
 {$ifdef UNICODE}
+
+  const
      LVN_BEGINLABELEDIT = LVN_BEGINLABELEDITW;
      LVN_ENDLABELEDIT = LVN_ENDLABELEDITW;
      LVN_GETDISPINFO = LVN_GETDISPINFOW;
      LVN_SETDISPINFO = LVN_SETDISPINFOW;
-{$else UNICODE}
+{$else}
+
+  const
      LVN_BEGINLABELEDIT = LVN_BEGINLABELEDITA;
      LVN_ENDLABELEDIT = LVN_ENDLABELEDITA;
      LVN_GETDISPINFO = LVN_GETDISPINFOA;
      LVN_SETDISPINFO = LVN_SETDISPINFOA;
-{$endif UNICODE}
+{$endif}
-       LVN_INSERTITEM = -102;
+  { UNICODE  }
-       LVN_ITEMCHANGED = -101;
+
-       LVN_ITEMCHANGING = -100;
+  const
+     LVN_INSERTITEM = -(102);
+     LVN_ITEMCHANGED = -(101);
+     LVN_ITEMCHANGING = -(100);
+     LVN_KEYDOWN = -(155);
   { Control notification  }
-       LVN_KEYDOWN = -155;
+     NM_CLICK = -(2);
-       NM_CLICK = -2;
+     NM_DBLCLK = -(3);
-       NM_DBLCLK = -3;
+     NM_KILLFOCUS = -(8);
-       NM_KILLFOCUS = -8;
+     NM_OUTOFMEMORY = -(1);
-       NM_OUTOFMEMORY = -1;
+     NM_RCLICK = -(5);
-       NM_RCLICK = -5;
+     NM_RDBLCLK = -(6);
-       NM_RDBLCLK = -6;
+     NM_RETURN = -(4);
-       NM_RETURN = -4;
+     NM_SETFOCUS = -(7);
   { Power status  }
   { Progress bar control  }
-       NM_SETFOCUS = -7;
      PBM_DELTAPOS = 1027;
      PBM_SETPOS = 1026;
      PBM_SETRANGE = 1025;
@@ -494,24 +565,31 @@ unit messages;
      PSM_SETFINISHTEXTA = 1139;
      PSM_SETTITLEA = 1135;
 {$ifdef UNICODE}
+
+  const
      PSM_SETFINISHTEXT = PSM_SETFINISHTEXTW;
      PSM_SETTITLE = PSM_SETTITLEW;
-{$else UNICODE}
+{$else}
+
+  const
      PSM_SETFINISHTEXT = PSM_SETFINISHTEXTA;
      PSM_SETTITLE = PSM_SETTITLEA;
-{$endif UNICODE}
+{$endif}
-    { Property sheet notifications }
+  { UNICODE  }
+
+  const
      PSM_SETWIZBUTTONS = 1136;
      PSM_UNCHANGED = 1133;
-       PSN_APPLY = -202;
+  { Property sheet notifications  }
-       PSN_HELP = -205;
+     PSN_APPLY = -(202);
-       PSN_KILLACTIVE = -201;
+     PSN_HELP = -(205);
-       PSN_QUERYCANCEL = -209;
+     PSN_KILLACTIVE = -(201);
-       PSN_RESET = -203;
+     PSN_QUERYCANCEL = -(209);
-       PSN_SETACTIVE = -200;
+     PSN_RESET = -(203);
-       PSN_WIZBACK = -206;
+     PSN_SETACTIVE = -(200);
-       PSN_WIZFINISH = -208;
+     PSN_WIZBACK = -(206);
-       PSN_WIZNEXT = -207;
+     PSN_WIZFINISH = -(208);
+     PSN_WIZNEXT = -(207);
   { Status window  }
      SB_GETBORDERS = 1031;
      SB_GETPARTS = 1030;
@@ -523,14 +601,21 @@ unit messages;
      SB_GETTEXTLENGTHA = 1027;
      SB_SETTEXTA = 1025;
 {$ifdef UNICODE}
+
+  const
      SB_GETTEXT = SB_GETTEXTW;
      SB_GETTEXTLENGTH = SB_GETTEXTLENGTHW;
      SB_SETTEXT = SB_SETTEXTW;
-{$else UNICODE}
+{$else}
+
+  const
      SB_GETTEXT = SB_GETTEXTA;
      SB_GETTEXTLENGTH = SB_GETTEXTLENGTHA;
      SB_SETTEXT = SB_SETTEXTA;
-{$endif UNICODE}
+{$endif}
+  { UNICODE  }
+
+  const
      SB_SETMINHEIGHT = 1032;
      SB_SETPARTS = 1028;
      SB_SIMPLE = 1033;
@@ -542,18 +627,18 @@ unit messages;
      SBM_SETPOS = 224;
      SBM_SETRANGE = 226;
      SBM_SETRANGEREDRAW = 230;
-    { Static control }
      SBM_SETSCROLLINFO = 233;
+  { Static control  }
      STM_GETICON = 369;
      STM_GETIMAGE = 371;
      STM_SETICON = 368;
-    { Static control notifications }
      STM_SETIMAGE = 370;
+  { Static control notifications  }
      STN_CLICKED = 0;
      STN_DBLCLK = 1;
      STN_DISABLE = 3;
-    { Toolbar control }
      STN_ENABLE = 2;
+  { Toolbar control  }
      TB_ADDBITMAP = 1043;
      TB_ADDBUTTONS = 1044;
      TB_AUTOSIZE = 1057;
@@ -575,14 +660,21 @@ unit messages;
      TB_GETBUTTONTEXTA = 1069;
      TB_SAVERESTOREA = 1050;
 {$ifdef UNICODE}
+
+  const
      TB_ADDSTRING = TB_ADDSTRINGW;
      TB_GETBUTTONTEXT = TB_GETBUTTONTEXTW;
      TB_SAVERESTORE = TB_SAVERESTOREW;
-{$else UNICODE}
+{$else}
+
+  const
      TB_ADDSTRING = TB_ADDSTRINGA;
      TB_GETBUTTONTEXT = TB_GETBUTTONTEXTA;
      TB_SAVERESTORE = TB_SAVERESTOREA;
-{$endif UNICODE}
+{$endif}
+  { UNICODE  }
+
+  const
      TB_GETITEMRECT = 1053;
      TB_GETROWS = 1064;
      TB_GETSTATE = 1042;
@@ -602,8 +694,8 @@ unit messages;
      TB_SETPARENT = 1061;
      TB_SETROWS = 1063;
      TB_SETSTATE = 1041;
-    { Track bar control }
      TB_SETTOOLTIPS = 1060;
+  { Track bar control  }
      TBM_CLEARSEL = 1043;
      TBM_CLEARTICS = 1033;
      TBM_GETCHANNELRECT = 1050;
@@ -631,24 +723,31 @@ unit messages;
      TBM_SETSELSTART = 1035;
      TBM_SETTHUMBLENGTH = 1051;
      TBM_SETTIC = 1028;
-    { Tool bar control notifications }
      TBM_SETTICFREQ = 1044;
-       TBN_BEGINADJUST = -703;
+  { Tool bar control notifications  }
-       TBN_BEGINDRAG = -701;
+     TBN_BEGINADJUST = -(703);
-       TBN_CUSTHELP = -709;
+     TBN_BEGINDRAG = -(701);
-       TBN_ENDADJUST = -704;
+     TBN_CUSTHELP = -(709);
-       TBN_ENDDRAG = -702;
+     TBN_ENDADJUST = -(704);
-       TBN_GETBUTTONINFOW = -720;
+     TBN_ENDDRAG = -(702);
-       TBN_GETBUTTONINFOA = -700;
+     TBN_GETBUTTONINFOW = -(720);
+     TBN_GETBUTTONINFOA = -(700);
 {$ifdef UNICODE}
+
+  const
      TBN_GETBUTTONINFO = TBN_GETBUTTONINFOW;
-{$else UNICODE}
+{$else}
+
+  const
      TBN_GETBUTTONINFO = TBN_GETBUTTONINFOA;
-{$endif UNICODE}
+{$endif}
-       TBN_QUERYDELETE = -707;
+  { UNICODE  }
-       TBN_QUERYINSERT = -706;
+
-       TBN_RESET = -705;
+  const
-       TBN_TOOLBARCHANGE = -708;
+     TBN_QUERYDELETE = -(707);
+     TBN_QUERYINSERT = -(706);
+     TBN_RESET = -(705);
+     TBN_TOOLBARCHANGE = -(708);
   { Tab control  }
      TCM_ADJUSTRECT = 4904;
      TCM_DELETEALLITEMS = 4873;
@@ -663,14 +762,21 @@ unit messages;
      TCM_INSERTITEMA = 4871;
      TCM_SETITEMA = 4870;
 {$ifdef UNICODE}
-       TCM_GETITEM = TCM_GETITEMW;
+
+  const
+     TCM_GETITEM = TCM_GETITEM;
      TCM_INSERTITEM = TCM_INSERTITEMW;
      TCM_SETITEM = TCM_SETITEMW;
-{$else UNICODE}
+{$else}
+
+  const
      TCM_GETITEM = TCM_GETITEMA;
      TCM_INSERTITEM = TCM_INSERTITEMA;
      TCM_SETITEM = TCM_SETITEMA;
-{$endif UNICODE}
+{$endif}
+  { UNICODE  }
+
+  const
      TCM_GETITEMCOUNT = 4868;
      TCM_GETITEMRECT = 4874;
      TCM_GETROWCOUNT = 4908;
@@ -683,12 +789,12 @@ unit messages;
      TCM_SETITEMEXTRA = 4878;
      TCM_SETITEMSIZE = 4905;
      TCM_SETPADDING = 4907;
-    { Tab control notifications }
      TCM_SETTOOLTIPS = 4910;
-       TCN_KEYDOWN = -550;
+  { Tab control notifications  }
-       TCN_SELCHANGE = -551;
+     TCN_KEYDOWN = -(550);
+     TCN_SELCHANGE = -(551);
+     TCN_SELCHANGING = -(552);
   { Tool tip control  }
-       TCN_SELCHANGING = -552;
      TTM_ACTIVATE = 1025;
      TTM_ADDTOOLW = 1074;
      TTM_DELTOOLW = 1075;
@@ -711,6 +817,8 @@ unit messages;
      TTM_SETTOOLINFOA = 1033;
      TTM_UPDATETIPTEXTA = 1036;
 {$ifdef UNICODE}
+
+  const
      TTM_ADDTOOL = TTM_ADDTOOLW;
      TTM_DELTOOL = TTM_DELTOOLW;
      TTM_ENUMTOOLS = TTM_ENUMTOOLSW;
@@ -721,7 +829,9 @@ unit messages;
      TTM_NEWTOOLRECT = TTM_NEWTOOLRECTW;
      TTM_SETTOOLINFO = TTM_SETTOOLINFOW;
      TTM_UPDATETIPTEXT = TTM_UPDATETIPTEXTW;
-{$else UNICODE}
+{$else}
+
+  const
      TTM_ADDTOOL = TTM_ADDTOOLA;
      TTM_DELTOOL = TTM_DELTOOLA;
      TTM_ENUMTOOLS = TTM_ENUMTOOLSA;
@@ -732,21 +842,31 @@ unit messages;
      TTM_NEWTOOLRECT = TTM_NEWTOOLRECTA;
      TTM_SETTOOLINFO = TTM_SETTOOLINFOA;
      TTM_UPDATETIPTEXT = TTM_UPDATETIPTEXTA;
-{$endif UNICODE}
+{$endif}
+  { UNICODE  }
+
+  const
      TTM_GETTOOLCOUNT = 1037;
      TTM_RELAYEVENT = 1031;
      TTM_SETDELAYTIME = 1027;
      TTM_WINDOWFROMPOINT = 1040;
   { Tool tip control notification  }
-       TTN_NEEDTEXTW = -530;
+     TTN_NEEDTEXTW = -(530);
-       TTN_NEEDTEXTA = -520;
+     TTN_NEEDTEXTA = -(520);
 {$ifdef UNICODE}
+
+  const
      TTN_NEEDTEXT = TTN_NEEDTEXTW;
-{$else UNICODE}
+{$else}
+
+  const
      TTN_NEEDTEXT = TTN_NEEDTEXTA;
-{$endif UNICODE}
+{$endif}
-       TTN_POP = -522;
+  { UNICODE  }
-       TTN_SHOW = -521;
+
+  const
+     TTN_POP = -(522);
+     TTN_SHOW = -(521);
   { Tree view control  }
      TVM_CREATEDRAGIMAGE = 4370;
      TVM_DELETEITEM = 4353;
@@ -772,48 +892,57 @@ unit messages;
      TVM_INSERTITEMA = 4352;
      TVM_SETITEMA = 4365;
 {$ifdef UNICODE}
+
+  const
      TVM_EDITLABEL = TVM_EDITLABELW;
      TVM_GETISEARCHSTRING = TVM_GETISEARCHSTRINGW;
      TVM_GETITEM = TVM_GETITEMW;
      TVM_INSERTITEM = TVM_INSERTITEMW;
      TVM_SETITEM = TVM_SETITEMW;
-{$else UNICODE}
+{$else}
+
+  const
      TVM_EDITLABEL = TVM_EDITLABELA;
      TVM_GETISEARCHSTRING = TVM_GETISEARCHSTRINGA;
      TVM_GETITEM = TVM_GETITEMA;
      TVM_INSERTITEM = TVM_INSERTITEMA;
      TVM_SETITEM = TVM_SETITEMA;
-{$endif UNICODE}
+{$endif}
+  { UNICODE  }
+
+  const
      TVM_SELECTITEM = 4363;
      TVM_SETIMAGELIST = 4361;
      TVM_SETINDENT = 4359;
      TVM_SORTCHILDREN = 4371;
      TVM_SORTCHILDRENCB = 4373;
   { Tree view control notification  }
-       TVN_KEYDOWN = -412;
+     TVN_KEYDOWN = -(412);
-       TVN_BEGINDRAGW = -456;
+     TVN_BEGINDRAGW = -(456);
-       TVN_BEGINLABELEDITW = -459;
+     TVN_BEGINLABELEDITW = -(459);
-       TVN_BEGINRDRAGW = -457;
+     TVN_BEGINRDRAGW = -(457);
-       TVN_DELETEITEMW = -458;
+     TVN_DELETEITEMW = -(458);
-       TVN_ENDLABELEDITW = -460;
+     TVN_ENDLABELEDITW = -(460);
-       TVN_GETDISPINFOW = -452;
+     TVN_GETDISPINFOW = -(452);
-       TVN_ITEMEXPANDEDW = -455;
+     TVN_ITEMEXPANDEDW = -(455);
-       TVN_ITEMEXPANDINGW = -454;
+     TVN_ITEMEXPANDINGW = -(454);
-       TVN_SELCHANGEDW = -451;
+     TVN_SELCHANGEDW = -(451);
-       TVN_SELCHANGINGW = -450;
+     TVN_SELCHANGINGW = -(450);
-       TVN_SETDISPINFOW = -453;
+     TVN_SETDISPINFOW = -(453);
-       TVN_BEGINDRAGA = -407;
+     TVN_BEGINDRAGA = -(407);
-       TVN_BEGINLABELEDITA = -410;
+     TVN_BEGINLABELEDITA = -(410);
-       TVN_BEGINRDRAGA = -408;
+     TVN_BEGINRDRAGA = -(408);
-       TVN_DELETEITEMA = -409;
+     TVN_DELETEITEMA = -(409);
-       TVN_ENDLABELEDITA = -411;
+     TVN_ENDLABELEDITA = -(411);
-       TVN_GETDISPINFOA = -403;
+     TVN_GETDISPINFOA = -(403);
-       TVN_ITEMEXPANDEDA = -406;
+     TVN_ITEMEXPANDEDA = -(406);
-       TVN_ITEMEXPANDINGA = -405;
+     TVN_ITEMEXPANDINGA = -(405);
-       TVN_SELCHANGEDA = -402;
+     TVN_SELCHANGEDA = -(402);
-       TVN_SELCHANGINGA = -401;
+     TVN_SELCHANGINGA = -(401);
-       TVN_SETDISPINFOA = -404;
+     TVN_SETDISPINFOA = -(404);
 {$ifdef UNICODE}
+
+  const
      TVN_BEGINDRAG = TVN_BEGINDRAGW;
      TVN_BEGINLABELEDIT = TVN_BEGINLABELEDITW;
      TVN_BEGINRDRAG = TVN_BEGINRDRAGW;
@@ -825,7 +954,9 @@ unit messages;
      TVN_SELCHANGED = TVN_SELCHANGEDW;
      TVN_SELCHANGING = TVN_SELCHANGINGW;
      TVN_SETDISPINFO = TVN_SETDISPINFOW;
-{$else UNICODE}
+{$else}
+
+  const
      TVN_BEGINDRAG = TVN_BEGINDRAGA;
      TVN_BEGINLABELEDIT = TVN_BEGINLABELEDITA;
      TVN_BEGINRDRAG = TVN_BEGINRDRAGA;
@@ -837,8 +968,11 @@ unit messages;
      TVN_SELCHANGED = TVN_SELCHANGEDA;
      TVN_SELCHANGING = TVN_SELCHANGINGA;
      TVN_SETDISPINFO = TVN_SETDISPINFOA;
-{$endif UNICODE}
+{$endif}
+  { UNICODE  }
   { Up/down control  }
+
+  const
      UDM_GETACCEL = 1132;
      UDM_GETBASE = 1134;
      UDM_GETBUDDY = 1130;
@@ -848,10 +982,10 @@ unit messages;
      UDM_SETBASE = 1133;
      UDM_SETBUDDY = 1129;
      UDM_SETPOS = 1127;
-    { Up/down control notification }
      UDM_SETRANGE = 1125;
+  { Up/down control notification  }
+     UDN_DELTAPOS = -(722);
   { Window messages  }
-       UDN_DELTAPOS = -722;
      WM_ACTIVATE = 6;
      WM_ACTIVATEAPP = 28;
      WM_ASKCBFORMATNAME = 780;
@@ -976,6 +1110,7 @@ unit messages;
      WM_NEXTDLGCTL = 40;
      WM_NOTIFY = 78;
      WM_NOTIFYFORMAT = 85;
+     WM_NULL = 0;
      WM_PAINT = 15;
      WM_PAINTCLIPBOARD = 777;
      WM_PAINTICON = 38;
@@ -983,6 +1118,8 @@ unit messages;
      WM_PALETTEISCHANGING = 784;
      WM_PARENTNOTIFY = 528;
      WM_PASTE = 770;
+     WM_PENWINFIRST = 896;
+     WM_PENWINLAST = 911;
      WM_POWER = 72;
      WM_POWERBROADCAST = 536;
      WM_PRINT = 791;
@@ -1037,20 +1174,37 @@ unit messages;
      WM_VSCROLLCLIPBOARD = 778;
      WM_WINDOWPOSCHANGED = 71;
      WM_WINDOWPOSCHANGING = 70;
-    { Window message ranges }
      WM_WININICHANGE = 26;
+  { Window message ranges  }
      WM_KEYFIRST = 256;
      WM_KEYLAST = 264;
      WM_MOUSEFIRST = 512;
      WM_MOUSELAST = 521;
+{ C++ end of extern C conditionnal removed }
+  { __cplusplus  }
+{$endif}
+  { _GNU_H_WINDOWS32_MESSAGES  }
 
+{$endif read_interface}
+
+{$ifndef windows_include_files}
   implementation
 
+{ const External_library='kernel32'; not needed }
+
+
 end.
 
+{$endif windows_include_files}
 {
   $Log$
-  Revision 1.3  1998-06-10 10:39:15  peter
+  Revision 1.4  1998-08-31 11:53:58  pierre
+    * compilable windows.pp file
+      still to do :
+       - findout problems
+       - findout the correct DLL for each call !!
+
+  Revision 1.3  1998/06/10 10:39:15  peter
     * working w32 rtl
 
 }

rtl/win32/syswin32.pp

@@ -243,10 +243,24 @@ end;
    { memory functions }
    function GlobalAlloc(mode,size:longint):longint;
      external 'kernel32' name 'GlobalAlloc';
+   function GlobalReAlloc(mode,size:longint):longint;
+     external 'kernel32' name 'GlobalReAlloc';
+   function GlobalHandle(p:pointer):longint;
+     external 'kernel32' name 'GlobalHandle';
    function GlobalLock(handle:longint):pointer;
      external 'kernel32' name 'GlobalLock';
+   function GlobalUnlock(h:longint):longint;
+     external 'kernel32' name 'GlobalUnlock';
+   function GlobalFree(h:longint):longint;
+     external 'kernel32' name 'GlobalFree';
    function GlobalSize(h:longint):longint;
      external 'kernel32' name 'GlobalSize';
+   procedure GlobalMemoryStatus(p:pointer);
+     external 'kernel32' name 'GlobalMemoryStatus';
+   function LocalAlloc(uFlags : UINT;uBytes :UINT) : HLOCAL;
+     external 'kernel32' name 'LocalAlloc';
+   function LocalFree(hMem:HLOCAL):HLOCAL;
+     external 'kernel32' name 'LocalFree';
 
 function Sbrk(size : longint):longint;
 var
@@ -254,12 +268,8 @@ var
 begin
   h:=GlobalAlloc(258,size);
   l:=longint(GlobalLock(h));
-{$ifdef SYSTEMDEBUG}  
+  if l=0 then l:=-1;
   Writeln('new heap part at $',hexstr(l,8), ' size = ',GlobalSize(h));
-{$endif SYSTEMDEBUG}  
-  if l=0 then
-   sbrk:=-1
-  else
   sbrk:=l;
 end;
 
@@ -751,8 +761,11 @@ end.
 
 {
   $Log$
-  Revision 1.17  1998-08-26 10:05:08  peter
+  Revision 1.18  1998-08-31 11:54:00  pierre
-    * sbrk returns -1 on error
+    * compilable windows.pp file
+      still to do :
+       - findout problems
+       - findout the correct DLL for each call !!
 
   Revision 1.16  1998/08/24 14:45:22  pierre
     * sbrk was wrong

rtl/win32/unidef.sed

@@ -0,0 +1,9 @@
+s/function \([^(]*\)W *(/function \1(/
+s/procedure \([^(]*\)W *(/procedure \1(/
+s/function \([^:(]*\)W *: */function \1 : /
+s/procedure \([^;(]*\)W *;/procedure \1;/
+s/\([^ \t]*\)W *:=/\1:=/
+s/unifun;/unidef;/
+s/unifun.pp,v/unidef.pp,v/
+s/UNICODEFUNCTIONS/UNICODEFUNCFIONSDEFAULT/
+

rtl/win32/windows.pp

@@ -0,0 +1,72 @@
+{
+    $Id$
+    This file is part of the Free Pascal run time library.
+    This unit contains the record definition for the Win32 API
+    Copyright (c) 1993,97 by Florian KLaempfl,
+    member of the Free Pascal development team.
+
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
+
+unit windows;
+
+{$define windows_include_files}
+
+  interface
+
+{$define read_interface}
+{$undef read_implementation}
+  
+{$warning starting interface of windows unit }
+
+{$i base.pp}
+{$i errors.pp}
+{$i defines.pp}
+{$i messages.pp}
+{$i struct.pp}
+{$i ascfun.pp}
+{$i unifun.pp}
+{$ifdef UNICODE}
+{$i unidef.pp}
+{$else not UNICODE}
+{$i ascdef.pp}
+{$endif UNICODE}
+{$i func.pp}
+
+  implementation
+
+{$undef read_interface}
+{$define read_implementation}
+  
+const External_library='kernel32';
+
+{$i base.pp}
+{$i errors.pp}
+{$i defines.pp}
+{$i messages.pp}
+{$i struct.pp}
+{$i ascfun.pp}
+{$i unifun.pp}
+{$ifdef UNICODE}
+{$i unidef.pp}
+{$else not UNICODE}
+{$i ascdef.pp}
+{$endif UNICODE}
+{$i func.pp}
+
+end.
+{
+  $Log$
+  Revision 1.1  1998-08-31 11:54:02  pierre
+    * compilable windows.pp file
+      still to do :
+       - findout problems
+       - findout the correct DLL for each call !!
+
+}