' ------------------------------------------------------------------------ ' ' WIN32API.TXT -- Win32 API Declarations for Visual Basic ' ' Copyright (C) 1994-99 Microsoft Corporation ' ' This file is required for the Visual Basic 6.0 version of the APILoader. ' Older versions of this file will not work correctly with the version ' 6.0 APILoader. This file is backwards compatible with previous releases ' of the APILoader with the exception that Constants are no longer declared ' as Global or Public in this file. ' ' This file contains only the Const, Type, ' and Declare statements for Win32 APIs. ' ' You have a royalty-free right to use, modify, reproduce and distribute ' this file (and/or any modified version) in any way you find useful, ' provided that you agree that Microsoft has no warranty, obligation or ' liability for its contents. Refer to the Microsoft Windows Programmer's ' Reference for further information. ' ' ------------------------------------------------------------------------ ' Type definitions for Windows' basic types. Const ANYSIZE_ARRAY = 1 Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Type RECTL Left As Long Top As Long Right As Long Bottom As Long End Type Type POINTAPI x As Long y As Long End Type Type POINTL x As Long y As Long End Type Type Size cx As Long cy As Long End Type Type POINTS x As Integer y As Integer End Type Type MSG hwnd As Long message As Long wParam As Long lParam As Long time As Long pt As POINTAPI End Type Const DELETE = &H10000 Const READ_CONTROL = &H20000 Const WRITE_DAC = &H40000 Const WRITE_OWNER = &H80000 Const SYNCHRONIZE = &H100000 Const STANDARD_RIGHTS_READ = (READ_CONTROL) Const STANDARD_RIGHTS_WRITE = (READ_CONTROL) Const STANDARD_RIGHTS_EXECUTE = (READ_CONTROL) Const STANDARD_RIGHTS_REQUIRED = &HF0000 Const STANDARD_RIGHTS_ALL = &H1F0000 Const SPECIFIC_RIGHTS_ALL = &HFFFF Type SID_IDENTIFIER_AUTHORITY Value(6) As Byte End Type Const SID_REVISION = (1) ' Current revision level Const SID_MAX_SUB_AUTHORITIES = (15) Const SID_RECOMMENDED_SUB_AUTHORITIES = (1) ' Will change to around 6 in a future release. Const SidTypeUser = 1 Const SidTypeGroup = 2 Const SidTypeDomain = 3 Const SidTypeAlias = 4 Const SidTypeWellKnownGroup = 5 Const SidTypeDeletedAccount = 6 Const SidTypeInvalid = 7 Const SidTypeUnknown = 8 Type SID_AND_ATTRIBUTES Sid As Long Attributes As Long End Type ' /////////////////////////////////////////////////////////////////////////// ' // ' Universal well-known SIDs // ' // ' Null SID S-1-0-0 // ' World S-1-1-0 // ' Local S-1-2-0 // ' Creator Owner ID S-1-3-0 // ' Creator Group ID S-1-3-1 // ' // ' (Non-unique IDs) S-1-4 // ' // ' /////////////////////////////////////////////////////////////////////////// Const SECURITY_NULL_RID = &H0 Const SECURITY_WORLD_RID = &H0 Const SECURITY_LOCAL_RID = &H0 Const SECURITY_CREATOR_OWNER_RID = &H0 Const SECURITY_CREATOR_GROUP_RID = &H1 ' /////////////////////////////////////////////////////////////////////////// ' // ' NT well-known SIDs // ' // ' NT Authority S-1-5 // ' Dialup S-1-5-1 // ' // ' Network S-1-5-2 // ' Batch S-1-5-3 // ' Interactive S-1-5-4 // ' Service S-1-5-6 // ' AnonymousLogon S-1-5-7 (aka null logon session) // ' // ' (Logon IDs) S-1-5-5-X-Y // ' // ' (NT non-unique IDs) S-1-5-0x15-... // ' // ' (Built-in domain) s-1-5-0x20 // ' // ' /////////////////////////////////////////////////////////////////////////// Const SECURITY_DIALUP_RID = &H1 Const SECURITY_NETWORK_RID = &H2 Const SECURITY_BATCH_RID = &H3 Const SECURITY_INTERACTIVE_RID = &H4 Const SECURITY_SERVICE_RID = &H6 Const SECURITY_ANONYMOUS_LOGON_RID = &H7 Const SECURITY_LOGON_IDS_RID = &H5 Const SECURITY_LOCAL_SYSTEM_RID = &H12 Const SECURITY_NT_NON_UNIQUE = &H15 Const SECURITY_BUILTIN_DOMAIN_RID = &H20 ' /////////////////////////////////////////////////////////////////////////// ' // ' well-known domain relative sub-authority values (RIDs)... // ' // ' /////////////////////////////////////////////////////////////////////////// Const DOMAIN_USER_RID_ADMIN = &H1F4 Const DOMAIN_USER_RID_GUEST = &H1F5 Const DOMAIN_GROUP_RID_ADMINS = &H200 Const DOMAIN_GROUP_RID_USERS = &H201 Const DOMAIN_GROUP_RID_GUESTS = &H202 Const DOMAIN_ALIAS_RID_ADMINS = &H220 Const DOMAIN_ALIAS_RID_USERS = &H221 Const DOMAIN_ALIAS_RID_GUESTS = &H222 Const DOMAIN_ALIAS_RID_POWER_USERS = &H223 Const DOMAIN_ALIAS_RID_ACCOUNT_OPS = &H224 Const DOMAIN_ALIAS_RID_SYSTEM_OPS = &H225 Const DOMAIN_ALIAS_RID_PRINT_OPS = &H226 Const DOMAIN_ALIAS_RID_BACKUP_OPS = &H227 Const DOMAIN_ALIAS_RID_REPLICATOR = &H228 ' Allocate the System Luid. The first 1000 LUIDs are reserved. ' Use #999 here0x3E7 = 999) ' end_ntifs ' ////////////////////////////////////////////////////////////////////// ' // ' User and Group related SID attributes // ' // ' ////////////////////////////////////////////////////////////////////// ' Group attributes Const SE_GROUP_MANDATORY = &H1 Const SE_GROUP_ENABLED_BY_DEFAULT = &H2 Const SE_GROUP_ENABLED = &H4 Const SE_GROUP_OWNER = &H8 Const SE_GROUP_LOGON_ID = &HC0000000 ' User attributes ' (None yet defined.) ' ---------------- ' Kernel Section ' ---------------- Const FILE_BEGIN = 0 Const FILE_CURRENT = 1 Const FILE_END = 2 Const FILE_FLAG_WRITE_THROUGH = &H80000000 Const FILE_FLAG_OVERLAPPED = &H40000000 Const FILE_FLAG_NO_BUFFERING = &H20000000 Const FILE_FLAG_RANDOM_ACCESS = &H10000000 Const FILE_FLAG_SEQUENTIAL_SCAN = &H8000000 Const FILE_FLAG_DELETE_ON_CLOSE = &H4000000 Const FILE_FLAG_BACKUP_SEMANTICS = &H2000000 Const FILE_FLAG_POSIX_SEMANTICS = &H1000000 Const CREATE_NEW = 1 Const CREATE_ALWAYS = 2 Const OPEN_EXISTING = 3 Const OPEN_ALWAYS = 4 Const TRUNCATE_EXISTING = 5 ' Define the dwOpenMode values for CreateNamedPipe Const PIPE_ACCESS_INBOUND = &H1 Const PIPE_ACCESS_OUTBOUND = &H2 Const PIPE_ACCESS_DUPLEX = &H3 ' Define the Named Pipe End flags for GetNamedPipeInfo Const PIPE_CLIENT_END = &H0 Const PIPE_SERVER_END = &H1 ' Define the dwPipeMode values for CreateNamedPipe Const PIPE_WAIT = &H0 Const PIPE_NOWAIT = &H1 Const PIPE_READMODE_BYTE = &H0 Const PIPE_READMODE_MESSAGE = &H2 Const PIPE_TYPE_BYTE = &H0 Const PIPE_TYPE_MESSAGE = &H4 ' Define the well known values for CreateNamedPipe nMaxInstances Const PIPE_UNLIMITED_INSTANCES = 255 ' Define the Security Quality of Service bits to be passed ' into CreateFile Const SECURITY_CONTEXT_TRACKING = &H40000 Const SECURITY_EFFECTIVE_ONLY = &H80000 Const SECURITY_SQOS_PRESENT = &H100000 Const SECURITY_VALID_SQOS_FLAGS = &H1F0000 Type OVERLAPPED Internal As Long InternalHigh As Long offset As Long OffsetHigh As Long hEvent As Long End Type Type SECURITY_ATTRIBUTES nLength As Long lpSecurityDescriptor As Long bInheritHandle As Long End Type Type PROCESS_INFORMATION hProcess As Long hThread As Long dwProcessId As Long dwThreadId As Long End Type Type FILETIME dwLowDateTime As Long dwHighDateTime As Long End Type Type SYSTEMTIME wYear As Integer wMonth As Integer wDayOfWeek As Integer wDay As Integer wHour As Integer wMinute As Integer wSecond As Integer wMilliseconds As Integer End Type ' Serial provider type. Const SP_SERIALCOMM = &H1& ' Provider SubTypes Const PST_UNSPECIFIED = &H0& Const PST_RS232 = &H1& Const PST_PARALLELPORT = &H2& Const PST_RS422 = &H3& Const PST_RS423 = &H4& Const PST_RS449 = &H5& Const PST_FAX = &H21& Const PST_SCANNER = &H22& Const PST_NETWORK_BRIDGE = &H100& Const PST_LAT = &H101& Const PST_TCPIP_TELNET = &H102& Const PST_X25 = &H103& ' Provider capabilities flags. Const PCF_DTRDSR = &H1& Const PCF_RTSCTS = &H2& Const PCF_RLSD = &H4& Const PCF_PARITY_CHECK = &H8& Const PCF_XONXOFF = &H10& Const PCF_SETXCHAR = &H20& Const PCF_TOTALTIMEOUTS = &H40& Const PCF_INTTIMEOUTS = &H80& Const PCF_SPECIALCHARS = &H100& Const PCF_16BITMODE = &H200& ' Comm provider settable parameters. Const SP_PARITY = &H1& Const SP_BAUD = &H2& Const SP_DATABITS = &H4& Const SP_STOPBITS = &H8& Const SP_HANDSHAKING = &H10& Const SP_PARITY_CHECK = &H20& Const SP_RLSD = &H40& ' Settable baud rates in the provider. Const BAUD_075 = &H1& Const BAUD_110 = &H2& Const BAUD_134_5 = &H4& Const BAUD_150 = &H8& Const BAUD_300 = &H10& Const BAUD_600 = &H20& Const BAUD_1200 = &H40& Const BAUD_1800 = &H80& Const BAUD_2400 = &H100& Const BAUD_4800 = &H200& Const BAUD_7200 = &H400& Const BAUD_9600 = &H800& Const BAUD_14400 = &H1000& Const BAUD_19200 = &H2000& Const BAUD_38400 = &H4000& Const BAUD_56K = &H8000& Const BAUD_128K = &H10000 Const BAUD_115200 = &H20000 Const BAUD_57600 = &H40000 Const BAUD_USER = &H10000000 ' Settable Data Bits Const DATABITS_5 = &H1& Const DATABITS_6 = &H2& Const DATABITS_7 = &H4& Const DATABITS_8 = &H8& Const DATABITS_16 = &H10& Const DATABITS_16X = &H20& ' Settable Stop and Parity bits. Const STOPBITS_10 = &H1& Const STOPBITS_15 = &H2& Const STOPBITS_20 = &H4& Const PARITY_NONE = &H100& Const PARITY_ODD = &H200& Const PARITY_EVEN = &H400& Const PARITY_MARK = &H800& Const PARITY_SPACE = &H1000& Type COMMPROP wPacketLength As Integer wPacketVersion As Integer dwServiceMask As Long dwReserved1 As Long dwMaxTxQueue As Long dwMaxRxQueue As Long dwMaxBaud As Long dwProvSubType As Long dwProvCapabilities As Long dwSettableParams As Long dwSettableBaud As Long wSettableData As Integer wSettableStopParity As Integer dwCurrentTxQueue As Long dwCurrentRxQueue As Long dwProvSpec1 As Long dwProvSpec2 As Long wcProvChar(1) As Integer End Type 'Type COMSTAT ' fCtsHold As Long ' fDsrHold As Long ' fRlsdHold As Long ' fXoffHold As Long ' fXoffSent As Long ' fEof As Long ' fTxim As Long ' fReserved As Long ' cbInQue As Long ' cbOutQue As Long 'End Type Type COMSTAT fBitFields As Long 'See Comment in Win32API.Txt cbInQue As Long cbOutQue As Long End Type ' The eight actual COMSTAT bit-sized data fields within the four bytes of fBitFields can be manipulated by bitwise logical And/Or operations. ' FieldName Bit # Description ' --------- ----- --------------------------- ' fCtsHold 1 Tx waiting for CTS signal ' fDsrHold 2 Tx waiting for DSR signal ' fRlsdHold 3 Tx waiting for RLSD signal ' fXoffHold 4 Tx waiting, XOFF char rec'd ' fXoffSent 5 Tx waiting, XOFF char sent ' fEof 6 EOF character sent ' fTxim 7 character waiting for Tx ' fReserved 8 reserved (25 bits) ' DTR Control Flow Values. Const DTR_CONTROL_DISABLE = &H0 Const DTR_CONTROL_ENABLE = &H1 Const DTR_CONTROL_HANDSHAKE = &H2 ' RTS Control Flow Values Const RTS_CONTROL_DISABLE = &H0 Const RTS_CONTROL_ENABLE = &H1 Const RTS_CONTROL_HANDSHAKE = &H2 Const RTS_CONTROL_TOGGLE = &H3 'Type DCB ' DCBlength As Long ' BaudRate As Long ' fBinary As Long ' fParity As Long ' fOutxCtsFlow As Long ' fOutxDsrFlow As Long ' fDtrControl As Long ' fDsrSensitivity As Long ' fTXContinueOnXoff As Long ' fOutX As Long ' fInX As Long ' fErrorChar As Long ' fNull As Long ' fRtsControl As Long ' fAbortOnError As Long ' fDummy2 As Long ' wReserved As Integer ' XonLim As Integer ' XoffLim As Integer ' ByteSize As Byte ' Parity As Byte ' StopBits As Byte ' XonChar As Byte ' XoffChar As Byte ' ErrorChar As Byte ' EofChar As Byte ' EvtChar As Byte 'End Type Type DCB DCBlength As Long BaudRate As Long fBitFields As Long 'See Comments in Win32API.Txt wReserved As Integer XonLim As Integer XoffLim As Integer ByteSize As Byte Parity As Byte StopBits As Byte XonChar As Byte XoffChar As Byte ErrorChar As Byte EofChar As Byte EvtChar As Byte wReserved1 As Integer 'Reserved; Do Not Use End Type ' The fourteen actual DCB bit-sized data fields within the four bytes of fBitFields can be manipulated by bitwise logical And/Or operations. ' FieldName Bit # Description ' ----------------- ----- ------------------------------ ' fBinary 1 binary mode, no EOF check ' fParity 2 enable parity checking ' fOutxCtsFlow 3 CTS output flow control ' fOutxDsrFlow 4 DSR output flow control ' fDtrControl 5 DTR flow control type (2 bits) ' fDsrSensitivity 7 DSR sensitivity ' fTXContinueOnXoff 8 XOFF continues Tx ' fOutX 9 XON/XOFF out flow control ' fInX 10 XON/XOFF in flow control ' fErrorChar 11 enable error replacement ' fNull 12 enable null stripping ' fRtsControl 13 RTS flow control (2 bits) ' fAbortOnError 15 abort reads/writes on error ' fDummy2 16 reserved Type COMMTIMEOUTS ReadIntervalTimeout As Long ReadTotalTimeoutMultiplier As Long ReadTotalTimeoutConstant As Long WriteTotalTimeoutMultiplier As Long WriteTotalTimeoutConstant As Long End Type Type SYSTEM_INFO dwOemID As Long dwPageSize As Long lpMinimumApplicationAddress As Long lpMaximumApplicationAddress As Long dwActiveProcessorMask As Long dwNumberOrfProcessors As Long dwProcessorType As Long dwAllocationGranularity As Long dwReserved As Long End Type ' Global Memory Flags Const GMEM_FIXED = &H0 Const GMEM_MOVEABLE = &H2 Const GMEM_NOCOMPACT = &H10 Const GMEM_NODISCARD = &H20 Const GMEM_ZEROINIT = &H40 Const GMEM_MODIFY = &H80 Const GMEM_DISCARDABLE = &H100 Const GMEM_NOT_BANKED = &H1000 Const GMEM_SHARE = &H2000 Const GMEM_DDESHARE = &H2000 Const GMEM_NOTIFY = &H4000 Const GMEM_LOWER = GMEM_NOT_BANKED Const GMEM_VALID_FLAGS = &H7F72 Const GMEM_INVALID_HANDLE = &H8000 Const GHND = (GMEM_MOVEABLE Or GMEM_ZEROINIT) Const GPTR = (GMEM_FIXED Or GMEM_ZEROINIT) ' Flags returned by GlobalFlags (in addition to GMEM_DISCARDABLE) Const GMEM_DISCARDED = &H4000 Const GMEM_LOCKCOUNT = &HFF Type MEMORYSTATUS dwLength As Long dwMemoryLoad As Long dwTotalPhys As Long dwAvailPhys As Long dwTotalPageFile As Long dwAvailPageFile As Long dwTotalVirtual As Long dwAvailVirtual As Long End Type ' Local Memory Flags Const LMEM_FIXED = &H0 Const LMEM_MOVEABLE = &H2 Const LMEM_NOCOMPACT = &H10 Const LMEM_NODISCARD = &H20 Const LMEM_ZEROINIT = &H40 Const LMEM_MODIFY = &H80 Const LMEM_DISCARDABLE = &HF00 Const LMEM_VALID_FLAGS = &HF72 Const LMEM_INVALID_HANDLE = &H8000 Const LHND = (LMEM_MOVEABLE + LMEM_ZEROINIT) Const LPTR = (LMEM_FIXED + LMEM_ZEROINIT) Const NONZEROLHND = (LMEM_MOVEABLE) Const NONZEROLPTR = (LMEM_FIXED) ' Flags returned by LocalFlags (in addition to LMEM_DISCARDABLE) Const LMEM_DISCARDED = &H4000 Const LMEM_LOCKCOUNT = &HFF ' dwCreationFlag values Const DEBUG_PROCESS = &H1 Const DEBUG_ONLY_THIS_PROCESS = &H2 Const CREATE_SUSPENDED = &H4 Const DETACHED_PROCESS = &H8 Const CREATE_NEW_CONSOLE = &H10 Const NORMAL_PRIORITY_CLASS = &H20 Const IDLE_PRIORITY_CLASS = &H40 Const HIGH_PRIORITY_CLASS = &H80 Const REALTIME_PRIORITY_CLASS = &H100 Const CREATE_NEW_PROCESS_GROUP = &H200 Const CREATE_NO_WINDOW = &H8000000 Const PROFILE_USER = &H10000000 Const PROFILE_KERNEL = &H20000000 Const PROFILE_SERVER = &H40000000 Const MAXLONG = &H7FFFFFFF Const THREAD_BASE_PRIORITY_MIN = -2 Const THREAD_BASE_PRIORITY_MAX = 2 Const THREAD_BASE_PRIORITY_LOWRT = 15 Const THREAD_BASE_PRIORITY_IDLE = -15 Const THREAD_PRIORITY_LOWEST = THREAD_BASE_PRIORITY_MIN Const THREAD_PRIORITY_BELOW_NORMAL = (THREAD_PRIORITY_LOWEST + 1) Const THREAD_PRIORITY_NORMAL = 0 Const THREAD_PRIORITY_HIGHEST = THREAD_BASE_PRIORITY_MAX Const THREAD_PRIORITY_ABOVE_NORMAL = (THREAD_PRIORITY_HIGHEST - 1) Const THREAD_PRIORITY_ERROR_RETURN = (MAXLONG) Const THREAD_PRIORITY_TIME_CRITICAL = THREAD_BASE_PRIORITY_LOWRT Const THREAD_PRIORITY_IDLE = THREAD_BASE_PRIORITY_IDLE ' ++ BUILD Version: 0093 Increment this if a change has global effects ' Copyright (c) 1990-1995 Microsoft Corporation ' Module Name: ' winnt.h ' Abstract: ' This module defines the 32-Bit Windows types and constants that are ' defined by NT, but exposed through the Win32 API. ' Revision History: Const APPLICATION_ERROR_MASK = &H20000000 Const ERROR_SEVERITY_SUCCESS = &H0 Const ERROR_SEVERITY_INFORMATIONAL = &H40000000 Const ERROR_SEVERITY_WARNING = &H80000000 Const ERROR_SEVERITY_ERROR = &HC0000000 Const MINCHAR = &H80 Const MAXCHAR = &H7F Const MINSHORT = &H8000 Const MAXSHORT = &H7FFF Const MINLONG = &H80000000 Const MAXByte = &HFF Const MAXWORD = &HFFFF Const MAXDWORD = &HFFFFFFFF ' ' Calculate the byte offset of a field in a structure of type type. ' * Language IDs. ' * ' * The following two combinations of primary language ID and ' * sublanguage ID have special semantics: ' * ' * Primary Language ID Sublanguage ID Result ' * ------------------- --------------- ------------------------ ' * LANG_NEUTRAL SUBLANG_NEUTRAL Language neutral ' * LANG_NEUTRAL SUBLANG_DEFAULT User default language ' * LANG_NEUTRAL SUBLANG_SYS_DEFAULT System default language ' */ ' ' * Primary language IDs. ' */ Const LANG_NEUTRAL = &H0 Const LANG_BULGARIAN = &H2 Const LANG_CHINESE = &H4 Const LANG_CROATIAN = &H1A Const LANG_CZECH = &H5 Const LANG_DANISH = &H6 Const LANG_DUTCH = &H13 Const LANG_ENGLISH = &H9 Const LANG_FINNISH = &HB Const LANG_FRENCH = &HC Const LANG_GERMAN = &H7 Const LANG_GREEK = &H8 Const LANG_HUNGARIAN = &HE Const LANG_ICELANDIC = &HF Const LANG_ITALIAN = &H10 Const LANG_JAPANESE = &H11 Const LANG_KOREAN = &H12 Const LANG_NORWEGIAN = &H14 Const LANG_POLISH = &H15 Const LANG_PORTUGUESE = &H16 Const LANG_ROMANIAN = &H18 Const LANG_RUSSIAN = &H19 Const LANG_SLOVAK = &H1B Const LANG_SLOVENIAN = &H24 Const LANG_SPANISH = &HA Const LANG_SWEDISH = &H1D Const LANG_TURKISH = &H1F ' ' * Sublanguage IDs. ' * ' * The name immediately following SUBLANG_ dictates which primary ' * language ID that sublanguage ID can be combined with to form a ' * valid language ID. ' */ Const SUBLANG_NEUTRAL = &H0 ' language neutral Const SUBLANG_DEFAULT = &H1 ' user default Const SUBLANG_SYS_DEFAULT = &H2 ' system default Const SUBLANG_CHINESE_TRADITIONAL = &H1 ' Chinese (Taiwan) Const SUBLANG_CHINESE_SIMPLIFIED = &H2 ' Chinese (PR China) Const SUBLANG_CHINESE_HONGKONG = &H3 ' Chinese (Hong Kong SAR, PRC) Const SUBLANG_CHINESE_SINGAPORE = &H4 ' Chinese (Singapore) Const SUBLANG_DUTCH = &H1 ' Dutch Const SUBLANG_DUTCH_BELGIAN = &H2 ' Dutch (Belgian) Const SUBLANG_ENGLISH_US = &H1 ' English (USA) Const SUBLANG_ENGLISH_UK = &H2 ' English (UK) Const SUBLANG_ENGLISH_AUS = &H3 ' English (Australian) Const SUBLANG_ENGLISH_CAN = &H4 ' English (Canadian) Const SUBLANG_ENGLISH_NZ = &H5 ' English (New Zealand) Const SUBLANG_ENGLISH_EIRE = &H6 ' English (Irish) Const SUBLANG_FRENCH = &H1 ' French Const SUBLANG_FRENCH_BELGIAN = &H2 ' French (Belgian) Const SUBLANG_FRENCH_CANADIAN = &H3 ' French (Canadian) Const SUBLANG_FRENCH_SWISS = &H4 ' French (Swiss) Const SUBLANG_GERMAN = &H1 ' German Const SUBLANG_GERMAN_SWISS = &H2 ' German (Swiss) Const SUBLANG_GERMAN_AUSTRIAN = &H3 ' German (Austrian) Const SUBLANG_ITALIAN = &H1 ' Italian Const SUBLANG_ITALIAN_SWISS = &H2 ' Italian (Swiss) Const SUBLANG_NORWEGIAN_BOKMAL = &H1 ' Norwegian (Bokma Const SUBLANG_NORWEGIAN_NYNORSK = &H2 ' Norwegian (Nynorsk) Const SUBLANG_PORTUGUESE = &H2 ' Portuguese Const SUBLANG_PORTUGUESE_BRAZILIAN = &H1 ' Portuguese (Brazilian) Const SUBLANG_SPANISH = &H1 ' Spanish (Castilian) Const SUBLANG_SPANISH_MEXICAN = &H2 ' Spanish (Mexican) Const SUBLANG_SPANISH_MODERN = &H3 ' Spanish (Modern) ' ' * Sorting IDs. ' * ' */ Const SORT_DEFAULT = &H0 ' sorting default Const SORT_JAPANESE_XJIS = &H0 ' Japanese0xJIS order Const SORT_JAPANESE_UNICODE = &H1 ' Japanese Unicode order Const SORT_CHINESE_BIG5 = &H0 ' Chinese BIG5 order Const SORT_CHINESE_UNICODE = &H1 ' Chinese Unicode order Const SORT_KOREAN_KSC = &H0 ' Korean KSC order Const SORT_KOREAN_UNICODE = &H1 ' Korean Unicode order ' The FILE_READ_DATA and FILE_WRITE_DATA constants are also defined in ' devioctl.h as FILE_READ_ACCESS and FILE_WRITE_ACCESS. The values for these ' constants *MUST* always be in sync. ' The values are redefined in devioctl.h because they must be available to ' both DOS and NT. ' Const FILE_READ_DATA = (&H1) ' file pipe Const FILE_LIST_DIRECTORY = (&H1) ' directory Const FILE_WRITE_DATA = (&H2) ' file pipe Const FILE_ADD_FILE = (&H2) ' directory Const FILE_APPEND_DATA = (&H4) ' file Const FILE_ADD_SUBDIRECTORY = (&H4) ' directory Const FILE_CREATE_PIPE_INSTANCE = (&H4) ' named pipe Const FILE_READ_EA = (&H8) ' file directory Const FILE_READ_PROPERTIES = FILE_READ_EA Const FILE_WRITE_EA = (&H10) ' file directory Const FILE_WRITE_PROPERTIES = FILE_WRITE_EA Const FILE_EXECUTE = (&H20) ' file Const FILE_TRAVERSE = (&H20) ' directory Const FILE_DELETE_CHILD = (&H40) ' directory Const FILE_READ_ATTRIBUTES = (&H80) ' all Const FILE_WRITE_ATTRIBUTES = (&H100) ' all Const FILE_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &H1FF) Const FILE_GENERIC_READ = (STANDARD_RIGHTS_READ Or FILE_READ_DATA Or FILE_READ_ATTRIBUTES Or FILE_READ_EA Or SYNCHRONIZE) Const FILE_GENERIC_WRITE = (STANDARD_RIGHTS_WRITE Or FILE_WRITE_DATA Or FILE_WRITE_ATTRIBUTES Or FILE_WRITE_EA Or FILE_APPEND_DATA Or SYNCHRONIZE) Const FILE_GENERIC_EXECUTE = (STANDARD_RIGHTS_EXECUTE Or FILE_READ_ATTRIBUTES Or FILE_EXECUTE Or SYNCHRONIZE) Const FILE_SHARE_READ = &H1 Const FILE_SHARE_WRITE = &H2 Const FILE_ATTRIBUTE_READONLY = &H1 Const FILE_ATTRIBUTE_HIDDEN = &H2 Const FILE_ATTRIBUTE_SYSTEM = &H4 Const FILE_ATTRIBUTE_DIRECTORY = &H10 Const FILE_ATTRIBUTE_ARCHIVE = &H20 Const FILE_ATTRIBUTE_NORMAL = &H80 Const FILE_ATTRIBUTE_TEMPORARY = &H100 Const FILE_ATTRIBUTE_COMPRESSED = &H800 Const FILE_NOTIFY_CHANGE_FILE_NAME = &H1 Const FILE_NOTIFY_CHANGE_DIR_NAME = &H2 Const FILE_NOTIFY_CHANGE_ATTRIBUTES = &H4 Const FILE_NOTIFY_CHANGE_SIZE = &H8 Const FILE_NOTIFY_CHANGE_LAST_WRITE = &H10 Const FILE_NOTIFY_CHANGE_SECURITY = &H100 Const MAILSLOT_NO_MESSAGE = (-1) Const MAILSLOT_WAIT_FOREVER = (-1) Const FILE_CASE_SENSITIVE_SEARCH = &H1 Const FILE_CASE_PRESERVED_NAMES = &H2 Const FILE_UNICODE_ON_DISK = &H4 Const FILE_PERSISTENT_ACLS = &H8 Const FILE_FILE_COMPRESSION = &H10 Const FILE_VOLUME_IS_COMPRESSED = &H8000 Const IO_COMPLETION_MODIFY_STATE = &H2 Const IO_COMPLETION_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &H3) Const DUPLICATE_CLOSE_SOURCE = &H1 Const DUPLICATE_SAME_ACCESS = &H2 ' ////////////////////////////////////////////////////////////////////// ' // ' ACCESS MASK // ' // ' ////////////////////////////////////////////////////////////////////// ' ' Define the access mask as a longword sized structure divided up as ' follows: ' typedef struct _ACCESS_MASK { ' WORD SpecificRights; ' Byte StandardRights; ' Byte AccessSystemAcl : 1; ' Byte Reserved : 3; ' Byte GenericAll : 1; ' Byte GenericExecute : 1; ' Byte GenericWrite : 1; ' Byte GenericRead : 1; ' } ACCESS_MASK; ' typedef ACCESS_MASK *PACCESS_MASK; ' ' but to make life simple for programmer's we'll allow them to specify ' a desired access mask by simply OR'ing together mulitple single rights ' and treat an access mask as a DWORD. For example ' ' DesiredAccess = DELETE Or READ_CONTROL ' ' So we'll declare ACCESS_MASK as DWORD ' ' begin_ntddk begin_nthal begin_ntifs ' ////////////////////////////////////////////////////////////////////// ' // ' ACCESS TYPES // ' // ' ////////////////////////////////////////////////////////////////////// ' begin_ntddk begin_nthal begin_ntifs ' ' The following are masks for the predefined standard access types ' AccessSystemAcl access type Const ACCESS_SYSTEM_SECURITY = &H1000000 ' MaximumAllowed access type Const MAXIMUM_ALLOWED = &H2000000 ' These are the generic rights. Const GENERIC_READ = &H80000000 Const GENERIC_WRITE = &H40000000 Const GENERIC_EXECUTE = &H20000000 Const GENERIC_ALL = &H10000000 ' Define the generic mapping array. This is used to denote the ' mapping of each generic access right to a specific access mask. Type GENERIC_MAPPING GenericRead As Long GenericWrite As Long GenericExecute As Long GenericAll As Long End Type ' ////////////////////////////////////////////////////////////////////// ' // ' LUID_AND_ATTRIBUTES // ' // ' ////////////////////////////////////////////////////////////////////// ' Type LUID LowPart As Long HighPart As Long End Type Type LUID_AND_ATTRIBUTES pLuid As LUID Attributes As Long End Type ' ////////////////////////////////////////////////////////////////////// ' // ' ACL and ACE // ' // ' ////////////////////////////////////////////////////////////////////// ' ' Define an ACL and the ACE format. The structure of an ACL header ' followed by one or more ACEs. Pictorally the structure of an ACL header ' is as follows: ' ' The current AclRevision is defined to be ACL_REVISION. ' ' AclSize is the size, in bytes, allocated for the ACL. This includes ' the ACL header, ACES, and remaining free space in the buffer. ' ' AceCount is the number of ACES in the ACL. ' ' begin_ntddk begin_ntifs ' This is the *current* ACL revision Const ACL_REVISION = (2) ' This is the history of ACL revisions. Add a new one whenever ' ACL_REVISION is updated Const ACL_REVISION1 = (1) Const ACL_REVISION2 = (2) Type ACL AclRevision As Byte Sbz1 As Byte AclSize As Integer AceCount As Integer Sbz2 As Integer End Type ' typedef ACL *PACL; ' end_ntddk ' The structure of an ACE is a common ace header followed by ace type ' specific data. Pictorally the structure of the common ace header is ' as follows: ' AceType denotes the type of the ace, there are some predefined ace ' types ' ' AceSize is the size, in bytes, of ace. ' ' AceFlags are the Ace flags for audit and inheritance, defined Integerly. Type ACE_HEADER AceType As Byte AceFlags As Byte AceSize As Long End Type ' ' The following are the predefined ace types that go into the AceType ' field of an Ace header. Const ACCESS_ALLOWED_ACE_TYPE = &H0 Const ACCESS_DENIED_ACE_TYPE = &H1 Const SYSTEM_AUDIT_ACE_TYPE = &H2 Const SYSTEM_ALARM_ACE_TYPE = &H3 ' The following are the inherit flags that go into the AceFlags field ' of an Ace header. Const OBJECT_INHERIT_ACE = &H1 Const CONTAINER_INHERIT_ACE = &H2 Const NO_PROPAGATE_INHERIT_ACE = &H4 Const INHERIT_ONLY_ACE = &H8 Const VALID_INHERIT_FLAGS = &HF ' The following are the currently defined ACE flags that go into the ' AceFlags field of an ACE header. Each ACE type has its own set of ' AceFlags. ' ' SUCCESSFUL_ACCESS_ACE_FLAG - used only with system audit and alarm ACE ' types to indicate that a message is generated for successful accesses. ' ' FAILED_ACCESS_ACE_FLAG - used only with system audit and alarm ACE types ' to indicate that a message is generated for failed accesses. ' SYSTEM_AUDIT and SYSTEM_ALARM AceFlags ' ' These control the signaling of audit and alarms for success or failure. Const SUCCESSFUL_ACCESS_ACE_FLAG = &H40 Const FAILED_ACCESS_ACE_FLAG = &H80 ' ' We'll define the structure of the predefined ACE types. Pictorally ' the structure of the predefined ACE's is as follows: ' Mask is the access mask associated with the ACE. This is either the ' access allowed, access denied, audit, or alarm mask. ' ' Sid is the Sid associated with the ACE. ' ' The following are the four predefined ACE types. ' Examine the AceType field in the Header to determine ' which structure is appropriate to use for casting. Type ACCESS_ALLOWED_ACE Header As ACE_HEADER Mask As Long SidStart As Long End Type Type ACCESS_DENIED_ACE Header As ACE_HEADER Mask As Long SidStart As Long End Type Type SYSTEM_AUDIT_ACE Header As ACE_HEADER Mask As Long SidStart As Long End Type Type SYSTEM_ALARM_ACE Header As ACE_HEADER Mask As Long SidStart As Long End Type ' The following declarations are used for setting and querying information ' about and ACL. First are the various information classes available to ' the user. ' Const AclRevisionInformation = 1 Const AclSizeInformation = 2 ' ' This record is returned/sent if the user is requesting/setting the ' AclRevisionInformation ' Type ACL_REVISION_INFORMATION AclRevision As Long End Type ' ' This record is returned if the user is requesting AclSizeInformation ' Type ACL_SIZE_INFORMATION AceCount As Long AclBytesInUse As Long AclBytesFree As Long End Type ' ////////////////////////////////////////////////////////////////////// ' // ' SECURITY_DESCRIPTOR // ' // ' ////////////////////////////////////////////////////////////////////// ' ' Define the Security Descriptor and related data types. ' This is an opaque data structure. ' ' begin_ntddk begin_ntifs ' ' Current security descriptor revision value ' Const SECURITY_DESCRIPTOR_REVISION = (1) Const SECURITY_DESCRIPTOR_REVISION1 = (1) ' end_ntddk ' ' Minimum length, in bytes, needed to build a security descriptor ' (NOTE: This must manually be kept consistent with the) ' (sizeof(SECURITY_DESCRIPTOR) ) ' Const SECURITY_DESCRIPTOR_MIN_LENGTH = (20) Const SE_OWNER_DEFAULTED = &H1 Const SE_GROUP_DEFAULTED = &H2 Const SE_DACL_PRESENT = &H4 Const SE_DACL_DEFAULTED = &H8 Const SE_SACL_PRESENT = &H10 Const SE_SACL_DEFAULTED = &H20 Const SE_SELF_RELATIVE = &H8000 ' ' Where: ' ' SE_OWNER_DEFAULTED - This boolean flag, when set, indicates that the ' SID pointed to by the Owner field was provided by a ' defaulting mechanism rather than explicitly provided by the ' original provider of the security descriptor. This may ' affect the treatment of the SID with respect to inheritence ' of an owner. ' ' SE_GROUP_DEFAULTED - This boolean flag, when set, indicates that the ' SID in the Group field was provided by a defaulting mechanism ' rather than explicitly provided by the original provider of ' the security descriptor. This may affect the treatment of ' the SID with respect to inheritence of a primary group. ' ' SE_DACL_PRESENT - This boolean flag, when set, indicates that the ' security descriptor contains a discretionary ACL. If this ' flag is set and the Dacl field of the SECURITY_DESCRIPTOR is ' null, then a null ACL is explicitly being specified. ' ' SE_DACL_DEFAULTED - This boolean flag, when set, indicates that the ' ACL pointed to by the Dacl field was provided by a defaulting ' mechanism rather than explicitly provided by the original ' provider of the security descriptor. This may affect the ' treatment of the ACL with respect to inheritence of an ACL. ' This flag is ignored if the DaclPresent flag is not set. ' ' SE_SACL_PRESENT - This boolean flag, when set, indicates that the ' security descriptor contains a system ACL pointed to by the ' Sacl field. If this flag is set and the Sacl field of the ' SECURITY_DESCRIPTOR is null, then an empty (but present) ' ACL is being specified. ' ' SE_SACL_DEFAULTED - This boolean flag, when set, indicates that the ' ACL pointed to by the Sacl field was provided by a defaulting ' mechanism rather than explicitly provided by the original ' provider of the security descriptor. This may affect the ' treatment of the ACL with respect to inheritence of an ACL. ' This flag is ignored if the SaclPresent flag is not set. ' ' SE_SELF_RELATIVE - This boolean flag, when set, indicates that the ' security descriptor is in self-relative form. In this form, ' all fields of the security descriptor are contiguous in memory ' and all pointer fields are expressed as offsets from the ' beginning of the security descriptor. This form is useful ' for treating security descriptors as opaque data structures ' for transmission in communication protocol or for storage on ' secondary media. ' ' ' ' In general, this data structure should be treated opaquely to ensure future ' compatibility. ' ' Type SECURITY_DESCRIPTOR Revision As Byte Sbz1 As Byte Control As Long Owner As Long Group As Long Sacl As ACL Dacl As ACL End Type ' Where: ' ' Revision - Contains the revision level of the security ' descriptor. This allows this structure to be passed between ' systems or stored on disk even though it is expected to ' change in the future. ' ' Control - A set of flags which qualify the meaning of the ' security descriptor or individual fields of the security ' descriptor. ' ' Owner - is a pointer to an SID representing an object's owner. ' If this field is null, then no owner SID is present in the ' security descriptor. If the security descriptor is in ' self-relative form, then this field contains an offset to ' the SID, rather than a pointer. ' ' Group - is a pointer to an SID representing an object's primary ' group. If this field is null, then no primary group SID is ' present in the security descriptor. If the security descriptor ' is in self-relative form, then this field contains an offset to ' the SID, rather than a pointer. ' ' Sacl - is a pointer to a system ACL. This field value is only ' valid if the DaclPresent control flag is set. If the ' SaclPresent flag is set and this field is null, then a null ' ACL is specified. If the security descriptor is in ' self-relative form, then this field contains an offset to ' the ACL, rather than a pointer. ' ' Dacl - is a pointer to a discretionary ACL. This field value is ' only valid if the DaclPresent control flag is set. If the ' DaclPresent flag is set and this field is null, then a null ' ACL (unconditionally granting access) is specified. If the ' security descriptor is in self-relative form, then this field ' contains an offset to the ACL, rather than a pointer. ' ' ////////////////////////////////////////////////////////////////////// ' // ' Privilege Related Data Structures // ' // ' ////////////////////////////////////////////////////////////////////// ' Privilege attributes ' Const SE_PRIVILEGE_ENABLED_BY_DEFAULT = &H1 Const SE_PRIVILEGE_ENABLED = &H2 Const SE_PRIVILEGE_USED_FOR_ACCESS = &H80000000 ' ' Privilege Set Control flags ' Const PRIVILEGE_SET_ALL_NECESSARY = (1) ' ' Privilege Set - This is defined for a privilege set of one. ' If more than one privilege is needed, then this structure ' will need to be allocated with more space. ' ' Note: don't change this structure without fixing the INITIAL_PRIVILEGE_SET ' structure (defined in se.h) ' Type PRIVILEGE_SET PrivilegeCount As Long Control As Long Privilege(ANYSIZE_ARRAY) As LUID_AND_ATTRIBUTES End Type '////////////////////////////////////////////////////////////////////// ' // ' NT Defined Privileges // ' // ' ////////////////////////////////////////////////////////////////////// Const SE_CREATE_TOKEN_NAME = "SeCreateTokenPrivilege" Const SE_ASSIGNPRIMARYTOKEN_NAME = "SeAssignPrimaryTokenPrivilege" Const SE_LOCK_MEMORY_NAME = "SeLockMemoryPrivilege" Const SE_INCREASE_QUOTA_NAME = "SeIncreaseQuotaPrivilege" Const SE_UNSOLICITED_INPUT_NAME = "SeUnsolicitedInputPrivilege" Const SE_MACHINE_ACCOUNT_NAME = "SeMachineAccountPrivilege" Const SE_TCB_NAME = "SeTcbPrivilege" Const SE_SECURITY_NAME = "SeSecurityPrivilege" Const SE_TAKE_OWNERSHIP_NAME = "SeTakeOwnershipPrivilege" Const SE_LOAD_DRIVER_NAME = "SeLoadDriverPrivilege" Const SE_SYSTEM_PROFILE_NAME = "SeSystemProfilePrivilege" Const SE_SYSTEMTIME_NAME = "SeSystemtimePrivilege" Const SE_PROF_SINGLE_PROCESS_NAME = "SeProfileSingleProcessPrivilege" Const SE_INC_BASE_PRIORITY_NAME = "SeIncreaseBasePriorityPrivilege" Const SE_CREATE_PAGEFILE_NAME = "SeCreatePagefilePrivilege" Const SE_CREATE_PERMANENT_NAME = "SeCreatePermanentPrivilege" Const SE_BACKUP_NAME = "SeBackupPrivilege" Const SE_RESTORE_NAME = "SeRestorePrivilege" Const SE_SHUTDOWN_NAME = "SeShutdownPrivilege" Const SE_DEBUG_NAME = "SeDebugPrivilege" Const SE_AUDIT_NAME = "SeAuditPrivilege" Const SE_SYSTEM_ENVIRONMENT_NAME = "SeSystemEnvironmentPrivilege" Const SE_CHANGE_NOTIFY_NAME = "SeChangeNotifyPrivilege" Const SE_REMOTE_SHUTDOWN_NAME = "SeRemoteShutdownPrivilege" ' ////////////////////////////////////////////////////////////////// ' // ' Security Quality Of Service // ' // ' // ' ////////////////////////////////////////////////////////////////// ' begin_ntddk begin_nthal begin_ntifs ' ' Impersonation Level ' ' Impersonation level is represented by a pair of bits in Windows. ' If a new impersonation level is added or lowest value is changed from ' 0 to something else, fix the Windows CreateFile call. ' Const SecurityAnonymous = 1 Const SecurityIdentification = 2 '////////////////////////////////////////////////////////////////////// ' // ' Registry API Constants // ' // ' ////////////////////////////////////////////////////////////////////// ' Reg Data Types... Const REG_NONE = 0 ' No value type Const REG_SZ = 1 ' Unicode nul terminated string Const REG_EXPAND_SZ = 2 ' Unicode nul terminated string Const REG_BINARY = 3 ' Free form binary Const REG_DWORD = 4 ' 32-bit number Const REG_DWORD_LITTLE_ENDIAN = 4 ' 32-bit number (same as REG_DWORD) Const REG_DWORD_BIG_ENDIAN = 5 ' 32-bit number Const REG_LINK = 6 ' Symbolic Link (unicode) Const REG_MULTI_SZ = 7 ' Multiple Unicode strings Const REG_RESOURCE_LIST = 8 ' Resource list in the resource map Const REG_FULL_RESOURCE_DESCRIPTOR = 9 ' Resource list in the hardware description Const REG_RESOURCE_REQUIREMENTS_LIST = 10 Const REG_CREATED_NEW_KEY = &H1 ' New Registry Key created Const REG_OPENED_EXISTING_KEY = &H2 ' Existing Key opened Const REG_WHOLE_HIVE_VOLATILE = &H1 ' Restore whole hive volatile Const REG_REFRESH_HIVE = &H2 ' Unwind changes to last flush Const REG_NOTIFY_CHANGE_NAME = &H1 ' Create or delete (child) Const REG_NOTIFY_CHANGE_ATTRIBUTES = &H2 Const REG_NOTIFY_CHANGE_LAST_SET = &H4 ' Time stamp Const REG_NOTIFY_CHANGE_SECURITY = &H8 Const REG_LEGAL_CHANGE_FILTER = (REG_NOTIFY_CHANGE_NAME Or REG_NOTIFY_CHANGE_ATTRIBUTES Or REG_NOTIFY_CHANGE_LAST_SET Or REG_NOTIFY_CHANGE_SECURITY) Const REG_LEGAL_OPTION = (REG_OPTION_RESERVED Or REG_OPTION_NON_VOLATILE Or REG_OPTION_VOLATILE Or REG_OPTION_CREATE_LINK Or REG_OPTION_BACKUP_RESTORE) ' Reg Create Type Values... Const REG_OPTION_RESERVED = 0 ' Parameter is reserved Const REG_OPTION_NON_VOLATILE = 0 ' Key is preserved when system is rebooted Const REG_OPTION_VOLATILE = 1 ' Key is not preserved when system is rebooted Const REG_OPTION_CREATE_LINK = 2 ' Created key is a symbolic link Const REG_OPTION_BACKUP_RESTORE = 4 ' open for backup or restore ' Reg Key Security Options ' Const READ_CONTROL = &H20000 Const KEY_QUERY_VALUE = &H1 Const KEY_SET_VALUE = &H2 Const KEY_CREATE_SUB_KEY = &H4 Const KEY_ENUMERATE_SUB_KEYS = &H8 Const KEY_NOTIFY = &H10 Const KEY_CREATE_LINK = &H20 Const KEY_READ = ((STANDARD_RIGHTS_READ Or KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) And (Not SYNCHRONIZE)) Const KEY_WRITE = ((STANDARD_RIGHTS_WRITE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY) And (Not SYNCHRONIZE)) Const KEY_ALL_ACCESS = ((STANDARD_RIGHTS_ALL Or KEY_QUERY_VALUE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_LINK) And (Not SYNCHRONIZE)) 'Const STANDARD_RIGHTS_READ = (READ_CONTROL) 'Const STANDARD_RIGHTS_WRITE = (READ_CONTROL) Const KEY_EXECUTE = ((KEY_READ) And (Not SYNCHRONIZE)) ' end winnt.txt ' Debug APIs Const EXCEPTION_DEBUG_EVENT = 1 Const CREATE_THREAD_DEBUG_EVENT = 2 Const CREATE_PROCESS_DEBUG_EVENT = 3 Const EXIT_THREAD_DEBUG_EVENT = 4 Const EXIT_PROCESS_DEBUG_EVENT = 5 Const LOAD_DLL_DEBUG_EVENT = 6 Const UNLOAD_DLL_DEBUG_EVENT = 7 Const OUTPUT_DEBUG_STRING_EVENT = 8 Const RIP_EVENT = 9 Const EXCEPTION_MAXIMUM_PARAMETERS = 15 Type EXCEPTION_RECORD ExceptionCode As Long ExceptionFlags As Long pExceptionRecord As Long ' Pointer to an EXCEPTION_RECORD structure ExceptionAddress As Long NumberParameters As Long ExceptionInformation(EXCEPTION_MAXIMUM_PARAMETERS) As Long End Type Type EXCEPTION_DEBUG_INFO pExceptionRecord As EXCEPTION_RECORD dwFirstChance As Long End Type Type CREATE_THREAD_DEBUG_INFO hThread As Long lpThreadLocalBase As Long lpStartAddress As Long End Type Type CREATE_PROCESS_DEBUG_INFO hFile As Long hProcess As Long hThread As Long lpBaseOfImage As Long dwDebugInfoFileOffset As Long nDebugInfoSize As Long lpThreadLocalBase As Long lpStartAddress As Long lpImageName As Long fUnicode As Integer End Type Type EXIT_THREAD_DEBUG_INFO dwExitCode As Long End Type Type EXIT_PROCESS_DEBUG_INFO dwExitCode As Long End Type Type LOAD_DLL_DEBUG_INFO hFile As Long lpBaseOfDll As Long dwDebugInfoFileOffset As Long nDebugInfoSize As Long lpImageName As Long fUnicode As Integer End Type Type UNLOAD_DLL_DEBUG_INFO lpBaseOfDll As Long End Type Type OUTPUT_DEBUG_STRING_INFO lpDebugStringData As String fUnicode As Integer nDebugStringLength As Integer End Type Type RIP_INFO dwError As Long dwType As Long End Type ' GetDriveType return values Const DRIVE_REMOVABLE = 2 Const DRIVE_FIXED = 3 Const DRIVE_REMOTE = 4 Const DRIVE_CDROM = 5 Const DRIVE_RAMDISK = 6 Const FILE_TYPE_UNKNOWN = &H0 Const FILE_TYPE_DISK = &H1 Const FILE_TYPE_CHAR = &H2 Const FILE_TYPE_PIPE = &H3 Const FILE_TYPE_REMOTE = &H8000 Const STD_INPUT_HANDLE = -10& Const STD_OUTPUT_HANDLE = -11& Const STD_ERROR_HANDLE = -12& Const NOPARITY = 0 Const ODDPARITY = 1 Const EVENPARITY = 2 Const MARKPARITY = 3 Const SPACEPARITY = 4 Const ONESTOPBIT = 0 Const ONE5STOPBITS = 1 Const TWOSTOPBITS = 2 Const IGNORE = 0 ' Ignore signal Const INFINITE = &HFFFF ' Infinite timeout ' Comm Baud Rate indices Const CBR_110 = 110 Const CBR_300 = 300 Const CBR_600 = 600 Const CBR_1200 = 1200 Const CBR_2400 = 2400 Const CBR_4800 = 4800 Const CBR_9600 = 9600 Const CBR_14400 = 14400 Const CBR_19200 = 19200 Const CBR_38400 = 38400 Const CBR_56000 = 56000 Const CBR_57600 = 57600 Const CBR_115200 = 115200 Const CBR_128000 = 128000 Const CBR_256000 = 256000 ' Error Flags Const CE_RXOVER = &H1 ' Receive Queue overflow Const CE_OVERRUN = &H2 ' Receive Overrun Error Const CE_RXPARITY = &H4 ' Receive Parity Error Const CE_FRAME = &H8 ' Receive Framing error Const CE_BREAK = &H10 ' Break Detected Const CE_TXFULL = &H100 ' TX Queue is full Const CE_PTO = &H200 ' LPTx Timeout Const CE_IOE = &H400 ' LPTx I/O Error Const CE_DNS = &H800 ' LPTx Device not selected Const CE_OOP = &H1000 ' LPTx Out-Of-Paper Const CE_MODE = &H8000 ' Requested mode unsupported Const IE_BADID = (-1) ' Invalid or unsupported id Const IE_OPEN = (-2) ' Device Already Open Const IE_NOPEN = (-3) ' Device Not Open Const IE_MEMORY = (-4) ' Unable to allocate queues Const IE_DEFAULT = (-5) ' Error in default parameters Const IE_HARDWARE = (-10) ' Hardware Not Present Const IE_BYTESIZE = (-11) ' Illegal Byte Size Const IE_BAUDRATE = (-12) ' Unsupported BaudRate ' Events Const EV_RXCHAR = &H1 ' Any Character received Const EV_RXFLAG = &H2 ' Received certain character Const EV_TXEMPTY = &H4 ' Transmitt Queue Empty Const EV_CTS = &H8 ' CTS changed state Const EV_DSR = &H10 ' DSR changed state Const EV_RLSD = &H20 ' RLSD changed state Const EV_BREAK = &H40 ' BREAK received Const EV_ERR = &H80 ' Line status error occurred Const EV_RING = &H100 ' Ring signal detected Const EV_PERR = &H200 ' Printer error occured Const EV_RX80FULL = &H400 ' Receive buffer is 80 percent full Const EV_EVENT1 = &H800 ' Provider specific event 1 Const EV_EVENT2 = &H1000 ' Provider specific event 2 ' Escape Functions Const SETXOFF = 1 ' Simulate XOFF received Const SETXON = 2 ' Simulate XON received Const SETRTS = 3 ' Set RTS high Const CLRRTS = 4 ' Set RTS low Const SETDTR = 5 ' Set DTR high Const CLRDTR = 6 ' Set DTR low Const RESETDEV = 7 ' Reset device if possible Const SETBREAK = 8 'Set the device break line Const CLRBREAK = 9 ' Clear the device break line ' PURGE function flags. Const PURGE_TXABORT = &H1 ' Kill the pending/current writes to the comm port. Const PURGE_RXABORT = &H2 ' Kill the pending/current reads to the comm port. Const PURGE_TXCLEAR = &H4 ' Kill the transmit queue if there. Const PURGE_RXCLEAR = &H8 ' Kill the typeahead buffer if there. Const LPTx = &H80 ' Set if ID is for LPT device ' Modem Status Flags Const MS_CTS_ON = &H10& Const MS_DSR_ON = &H20& Const MS_RING_ON = &H40& Const MS_RLSD_ON = &H80& ' WaitSoundState() Constants Const S_QUEUEEMPTY = 0 Const S_THRESHOLD = 1 Const S_ALLTHRESHOLD = 2 ' Accent Modes Const S_NORMAL = 0 Const S_LEGATO = 1 Const S_STACCATO = 2 ' SetSoundNoise() Sources Const S_PERIOD512 = 0 ' Freq = N/512 high pitch, less coarse hiss Const S_PERIOD1024 = 1 ' Freq = N/1024 Const S_PERIOD2048 = 2 ' Freq = N/2048 low pitch, more coarse hiss Const S_PERIODVOICE = 3 ' Source is frequency from voice channel (3) Const S_WHITE512 = 4 ' Freq = N/512 high pitch, less coarse hiss Const S_WHITE1024 = 5 ' Freq = N/1024 Const S_WHITE2048 = 6 ' Freq = N/2048 low pitch, more coarse hiss Const S_WHITEVOICE = 7 ' Source is frequency from voice channel (3) Const S_SERDVNA = (-1) ' Device not available Const S_SEROFM = (-2) ' Out of memory Const S_SERMACT = (-3) ' Music active Const S_SERQFUL = (-4) ' Queue full Const S_SERBDNT = (-5) ' Invalid note Const S_SERDLN = (-6) ' Invalid note length Const S_SERDCC = (-7) ' Invalid note count Const S_SERDTP = (-8) ' Invalid tempo Const S_SERDVL = (-9) ' Invalid volume Const S_SERDMD = (-10) ' Invalid mode Const S_SERDSH = (-11) ' Invalid shape Const S_SERDPT = (-12) ' Invalid pitch Const S_SERDFQ = (-13) ' Invalid frequency Const S_SERDDR = (-14) ' Invalid duration Const S_SERDSR = (-15) ' Invalid source Const S_SERDST = (-16) ' Invalid state Const NMPWAIT_WAIT_FOREVER = &HFFFF Const NMPWAIT_NOWAIT = &H1 Const NMPWAIT_USE_DEFAULT_WAIT = &H0 Const FS_CASE_IS_PRESERVED = FILE_CASE_PRESERVED_NAMES Const FS_CASE_SENSITIVE = FILE_CASE_SENSITIVE_SEARCH Const FS_UNICODE_STORED_ON_DISK = FILE_UNICODE_ON_DISK Const FS_PERSISTENT_ACLS = FILE_PERSISTENT_ACLS Const SECTION_QUERY = &H1 Const SECTION_MAP_WRITE = &H2 Const SECTION_MAP_READ = &H4 Const SECTION_MAP_EXECUTE = &H8 Const SECTION_EXTEND_SIZE = &H10 Const SECTION_ALL_ACCESS = STANDARD_RIGHTS_REQUIRED Or SECTION_QUERY Or SECTION_MAP_WRITE Or SECTION_MAP_READ Or SECTION_MAP_EXECUTE Or SECTION_EXTEND_SIZE Const FILE_MAP_COPY = SECTION_QUERY Const FILE_MAP_WRITE = SECTION_MAP_WRITE Const FILE_MAP_READ = SECTION_MAP_READ Const FILE_MAP_ALL_ACCESS = SECTION_ALL_ACCESS ' OpenFile() Flags Const OF_READ = &H0 Const OF_WRITE = &H1 Const OF_READWRITE = &H2 Const OF_SHARE_COMPAT = &H0 Const OF_SHARE_EXCLUSIVE = &H10 Const OF_SHARE_DENY_WRITE = &H20 Const OF_SHARE_DENY_READ = &H30 Const OF_SHARE_DENY_NONE = &H40 Const OF_PARSE = &H100 Const OF_DELETE = &H200 Const OF_VERIFY = &H400 Const OF_CANCEL = &H800 Const OF_CREATE = &H1000 Const OF_PROMPT = &H2000 Const OF_EXIST = &H4000 Const OF_REOPEN = &H8000 Const OFS_MAXPATHNAME = 128 ' OpenFile() Structure Type OFSTRUCT cBytes As Byte fFixedDisk As Byte nErrCode As Integer Reserved1 As Integer Reserved2 As Integer szPathName(OFS_MAXPATHNAME) As Byte End Type Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long) Const PROCESSOR_INTEL_386 = 386 Const PROCESSOR_INTEL_486 = 486 Const PROCESSOR_INTEL_PENTIUM = 586 Const PROCESSOR_MIPS_R4000 = 4000 Const PROCESSOR_ALPHA_21064 = 21064 Const PROCESSOR_ARCHITECTURE_INTEL = 0 Const PROCESSOR_ARCHITECTURE_MIPS = 1 Const PROCESSOR_ARCHITECTURE_ALPHA = 2 Const PROCESSOR_ARCHITECTURE_PPC = 3 Const PROCESSOR_ARCHITECTURE_UNKNOWN = &hFFFF Declare Function GetCurrentTime Lib "kernel32" Alias "GetTickCount" () As Long ' Flags for DrawFrameControl Const DFC_CAPTION = 1 Const DFC_MENU = 2 Const DFC_SCROLL = 3 Const DFC_BUTTON = 4 Const DFCS_CAPTIONCLOSE = &H0 Const DFCS_CAPTIONMIN = &H1 Const DFCS_CAPTIONMAX = &H2 Const DFCS_CAPTIONRESTORE = &H3 Const DFCS_CAPTIONHELP = &H4 Const DFCS_MENUARROW = &H0 Const DFCS_MENUCHECK = &H1 Const DFCS_MENUBULLET = &H2 Const DFCS_MENUARROWRIGHT = &H4 Const DFCS_SCROLLUP = &H0 Const DFCS_SCROLLDOWN = &H1 Const DFCS_SCROLLLEFT = &H2 Const DFCS_SCROLLRIGHT = &H3 Const DFCS_SCROLLCOMBOBOX = &H5 Const DFCS_SCROLLSIZEGRIP = &H8 Const DFCS_SCROLLSIZEGRIPRIGHT = &H10 Const DFCS_BUTTONCHECK = &H0 Const DFCS_BUTTONRADIOIMAGE = &H1 Const DFCS_BUTTONRADIOMASK = &H2 Const DFCS_BUTTONRADIO = &H4 Const DFCS_BUTTON3STATE = &H8 Const DFCS_BUTTONPUSH = &H10 Const DFCS_INACTIVE = &H100 Const DFCS_PUSHED = &H200 Const DFCS_CHECKED = &H400 Const DFCS_ADJUSTRECT = &H2000 Const DFCS_FLAT = &H4000 Const DFCS_MONO = &H8000 Declare Function InterlockedIncrement Lib "kernel32" Alias "InterlockedIncrement" (lpAddend As Long) As Long Declare Function InterlockedDecrement Lib "kernel32" Alias "InterlockedDecrement" (lpAddend As Long) As Long Declare Function InterlockedExchange Lib "kernel32" Alias "InterlockedExchange" (Target As Long, ByVal Value As Long) As Long ' Loader Routines Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplicationName As String, ByVal lpCommandLine As String, lpProcessAttributes As SECURITY_ATTRIBUTES, lpThreadAttributes As SECURITY_ATTRIBUTES, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, lpEnvironment As Any, ByVal lpCurrentDriectory As String, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long Declare Function SetProcessShutdownParameters Lib "kernel32" Alias "SetProcessShutdownParameters" (ByVal dwLevel As Long, ByVal dwFlags As Long) As Long Declare Function GetProcessShutdownParameters Lib "kernel32" Alias "GetProcessShutdownParameters" (lpdwLevel As Long, lpdwFlags As Long) As Long Declare Sub FatalAppExit Lib "kernel32" Alias "FatalAppExitA" (ByVal uAction As Long, ByVal lpMessageText As String) Declare Sub GetStartupInfo Lib "kernel32" Alias "GetStartupInfoA" (lpStartupInfo As STARTUPINFO) Declare Function GetCommandLine Lib "kernel32" Alias "GetCommandLineA" () As Long Declare Function GetEnvironmentVariable Lib "kernel32" Alias "GetEnvironmentVariableA" (ByVal lpName As String, ByVal lpBuffer As String, ByVal nSize As Long) As Long Declare Function SetEnvironmentVariable Lib "kernel32" Alias "SetEnvironmentVariableA" (ByVal lpName As String, ByVal lpValue As String) As Long Declare Function ExpandEnvironmentStrings Lib "kernel32" Alias "ExpandEnvironmentStringsA" (ByVal lpSrc As String, ByVal lpDst As String, ByVal nSize As Long) As Long Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long Declare Function LoadLibraryEx Lib "kernel32" Alias "LoadLibraryExA" (ByVal lpLibFileName As String, ByVal hFile As Long, ByVal dwFlags As Long) As Long Const DONT_RESOLVE_DLL_REFERENCES = &H1 Declare Function LoadModule Lib "kernel32" Alias "LoadModule" (ByVal lpModuleName As String, lpParameterBlock As Any) As Long Declare Function FreeLibrary Lib "kernel32" Alias "FreeLibrary" (ByVal hLibModule As Long) As Long Declare Function WinExec Lib "kernel32" Alias "WinExec" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long Declare Sub DebugBreak Lib "kernel32" Alias "DebugBreak" () Declare Function ContinueDebugEvent Lib "kernel32" Alias "ContinueDebugEvent" (ByVal dwProcessId As Long, ByVal dwThreadId As Long, ByVal dwContinueStatus As Long) As Long Declare Function DebugActiveProcess Lib "kernel32" Alias "DebugActiveProcess" (ByVal dwProcessId As Long) As Long Type CRITICAL_SECTION pDebugInfo As Long LockCount As Long RecursionCount As Long pOwningThread As Long pLockSemaphore As Long Reserved As Long End Type Declare Sub InitializeCriticalSection Lib "kernel32" Alias "InitializeCriticalSection" (lpCriticalSection As CRITICAL_SECTION) Declare Sub EnterCriticalSection Lib "kernel32" Alias "EnterCriticalSection" (lpCriticalSection As CRITICAL_SECTION) Declare Sub LeaveCriticalSection Lib "kernel32" Alias "LeaveCriticalSection" (lpCriticalSection As CRITICAL_SECTION) Declare Sub DeleteCriticalSection Lib "kernel32" Alias "DeleteCriticalSection" (lpCriticalSection As CRITICAL_SECTION) Declare Function SetEvent Lib "kernel32" Alias "SetEvent" (ByVal hEvent As Long) As Long Declare Function ResetEvent Lib "kernel32" Alias "ResetEvent" (ByVal hEvent As Long) As Long Declare Function PulseEvent Lib "kernel32" Alias "PulseEvent" (ByVal hEvent As Long) As Long Declare Function ReleaseSemaphore Lib "kernel32" Alias "ReleaseSemaphore" (ByVal hSemaphore As Long, ByVal lReleaseCount As Long, lpPreviousCount As Long) As Long Declare Function ReleaseMutex Lib "kernel32" Alias "ReleaseMutex" (ByVal hMutex As Long) As Long Declare Function WaitForSingleObject Lib "kernel32" Alias "WaitForSingleObject" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long Declare Function WaitForMultipleObjects Lib "kernel32" Alias "WaitForMultipleObjects" (ByVal nCount As Long, lpHandles As Long, ByVal bWaitAll As Long, ByVal dwMilliseconds As Long) As Long Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long) Declare Sub OutputDebugString Lib "kernel32" Alias "OutputDebugStringA" (ByVal lpOutputString As String) Declare Function GetVersion Lib "kernel32" Alias "GetVersion" () As Long Declare Function OpenFile Lib "kernel32" Alias "OpenFile" (ByVal lpFileName As String, lpReOpenBuff As OFSTRUCT, ByVal wStyle As Long) As Long ' GetTempFileName() Flags ' Const TF_FORCEDRIVE = &H80 Declare Function GetTempFileName Lib "kernel32" Alias "GetTempFileNameA" (ByVal lpszPath As String, ByVal lpPrefixString As String, ByVal wUnique As Long, ByVal lpTempFileName As String) As Long Declare Function SetHandleCount Lib "kernel32" Alias "SetHandleCount" (ByVal wNumber As Long) As Long Declare Function GetLogicalDrives Lib "kernel32" Alias "GetLogicalDrives" () As Long Declare Function LockFile Lib "kernel32" Alias "LockFile" (ByVal hFile As Long, ByVal dwFileOffsetLow As Long, ByVal dwFileOffsetHigh As Long, ByVal nNumberOfBytesToLockLow As Long, ByVal nNumberOfBytesToLockHigh As Long) As Long Declare Function UnlockFile Lib "kernel32" Alias "UnlockFile" (ByVal hFile As Long, ByVal dwFileOffsetLow As Long, ByVal dwFileOffsetHigh As Long, ByVal nNumberOfBytesToUnlockLow As Long, ByVal nNumberOfBytesToUnlockHigh As Long) As Long Declare Function LockFileEx Lib "kernel32" Alias "LockFileEx" (ByVal hFile As Long, ByVal dwFlags As Long, ByVal dwReserved As Long, ByVal nNumberOfBytesToLockLow As Long, ByVal nNumberOfBytesToLockHigh As Long, lpOverlapped As OVERLAPPED) As Long Const LOCKFILE_FAIL_IMMEDIATELY = &H1 Const LOCKFILE_EXCLUSIVE_LOCK = &H2 Declare Function UnlockFileEx Lib "kernel32" Alias "UnlockFileEx" (ByVal hFile As Long, ByVal dwReserved As Long, ByVal nNumberOfBytesToUnlockLow As Long, ByVal nNumberOfBytesToUnlockHigh As Long, lpOverlapped As OVERLAPPED) As Long Type BY_HANDLE_FILE_INFORMATION dwFileAttributes As Long ftCreationTime As FILETIME ftLastAccessTime As FILETIME ftLastWriteTime As FILETIME dwVolumeSerialNumber As Long nFileSizeHigh As Long nFileSizeLow As Long nNumberOfLinks As Long nFileIndexHigh As Long nFileIndexLow As Long End Type Declare Function GetFileInformationByHandle Lib "kernel32" Alias "GetFileInformationByHandle" (ByVal hFile As Long, lpFileInformation As BY_HANDLE_FILE_INFORMATION) As Long Declare Function GetFileType Lib "kernel32" Alias "GetFileType" (ByVal hFile As Long) As Long Declare Function GetFileSize Lib "kernel32" Alias "GetFileSize" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long Declare Function GetStdHandle Lib "kernel32" Alias "GetStdHandle" (ByVal nStdHandle As Long) As Long Declare Function SetStdHandle Lib "kernel32" Alias "SetStdHandle" (ByVal nStdHandle As Long, ByVal nHandle As Long) As Long Declare Function WriteFile Lib "kernel32" Alias "WriteFile" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As Long, lpOverlapped As OVERLAPPED) As Long Declare Function ReadFile Lib "kernel32" Alias "ReadFile" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, lpOverlapped As OVERLAPPED) As Long Declare Function FlushFileBuffers Lib "kernel32" Alias "FlushFileBuffers" (ByVal hFile As Long) As Long Declare Function DeviceIoControl Lib "kernel32" Alias "DeviceIoControl" (ByVal hDevice As Long, ByVal dwIoControlCode As Long, lpInBuffer As Any, ByVal nInBufferSize As Long, lpOutBuffer As Any, ByVal nOutBufferSize As Long, lpBytesReturned As Long, lpOverlapped As OVERLAPPED) As Long Declare Function SetEndOfFile Lib "kernel32" Alias "SetEndOfFile" (ByVal hFile As Long) As Long Declare Function SetFilePointer Lib "kernel32" Alias "SetFilePointer" (ByVal hFile As Long, ByVal lDistanceToMove As Long, lpDistanceToMoveHigh As Long, ByVal dwMoveMethod As Long) As Long Declare Function FindClose Lib "kernel32" Alias "FindClose" (ByVal hFindFile As Long) As Long Declare Function GetFileTime Lib "kernel32" Alias "GetFileTime" (ByVal hFile As Long, lpCreationTime As FILETIME, lpLastAccessTime As FILETIME, lpLastWriteTime As FILETIME) As Long Declare Function SetFileTime Lib "kernel32" Alias "SetFileTime" (ByVal hFile As Long, lpCreationTime As FILETIME, lpLastAccessTime As FILETIME, lpLastWriteTime As FILETIME) As Long Declare Function CloseHandle Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long Declare Function DuplicateHandle Lib "kernel32" Alias "DuplicateHandle" (ByVal hSourceProcessHandle As Long, ByVal hSourceHandle As Long, ByVal hTargetProcessHandle As Long, lpTargetHandle As Long, ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwOptions As Long) As Long Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long Declare Function GlobalAlloc Lib "kernel32" Alias "GlobalAlloc" (ByVal wFlags As Long, ByVal dwBytes As Long) As Long Declare Function GlobalFree Lib "kernel32" Alias "GlobalFree" (ByVal hMem As Long) As Long Declare Function GlobalHandle Lib "kernel32" Alias "GlobalHandle" (wMem As Any) As Long Declare Function GlobalLock Lib "kernel32" Alias "GlobalLock" (ByVal hMem As Long) As Long Declare Function GlobalReAlloc Lib "kernel32" Alias "GlobalReAlloc" (ByVal hMem As Long, ByVal dwBytes As Long, ByVal wFlags As Long) As Long Declare Function GlobalSize Lib "kernel32" Alias "GlobalSize" (ByVal hMem As Long) As Long Declare Function GlobalUnlock Lib "kernel32" Alias "GlobalUnlock" (ByVal hMem As Long) As Long Declare Function GlobalFlags Lib "kernel32" Alias "GlobalFlags" (ByVal hMem As Long) As Long Declare Sub GlobalMemoryStatus Lib "kernel32" Alias "GlobalMemoryStatus" (lpBuffer As MEMORYSTATUS) Const LNOTIFY_OUTOFMEM = 0 Const LNOTIFY_MOVE = 1 Const LNOTIFY_DISCARD = 2 Declare Function LocalAlloc Lib "kernel32" Alias "LocalAlloc" (ByVal wFlags As Long, ByVal wBytes As Long) As Long Declare Function LocalFree Lib "kernel32" Alias "LocalFree" (ByVal hMem As Long) As Long Declare Function LocalHandle Lib "kernel32" Alias "LocalHandle" (wMem As Any) As Long Declare Function LocalLock Lib "kernel32" Alias "LocalLock" (ByVal hMem As Long) As Long Declare Function LocalReAlloc Lib "kernel32" Alias "LocalReAlloc" (ByVal hMem As Long, ByVal wBytes As Long, ByVal wFlags As Long) As Long Declare Function LocalSize Lib "kernel32" Alias "LocalSize" (ByVal hMem As Long) As Long Declare Function LocalUnlock Lib "kernel32" Alias "LocalUnlock" (ByVal hMem As Long) As Long Declare Function LocalFlags Lib "kernel32" Alias "LocalFlags" (ByVal hMem As Long) As Long Type MEMORY_BASIC_INFORMATION BaseAddress as Long AllocationBase as Long AllocationProtect As Long RegionSize As Long State As Long Protect As Long lType As Long End Type Declare Function FlushInstructionCache Lib "kernel32" Alias "FlushInstructionCache" (ByVal hProcess As Long, lpBaseAddress As Any, ByVal dwSize As Long) As Long Declare Function VirtualAlloc Lib "kernel32" Alias "VirtualAlloc" (lpAddress As Any, ByVal dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Long Declare Function VirtualFree Lib "kernel32" Alias "VirtualFree" (lpAddress As Any, ByVal dwSize As Long, ByVal dwFreeType As Long) As Long Declare Function VirtualProtect Lib "kernel32" Alias "VirtualProtect" (lpAddress As Any, ByVal dwSize As Long, ByVal flNewProtect As Long, lpflOldProtect As Long) As Long Declare Function VirtualQuery Lib "kernel32" Alias "VirtualQuery" (lpAddress As Any, lpBuffer As MEMORY_BASIC_INFORMATION, ByVal dwLength As Long) As Long Declare Function VirtualProtectEx Lib "kernel32" Alias "VirtualProtectEx" (ByVal hProcess As Long, lpAddress As Any, ByVal dwSize As Long, ByVal flNewProtect As Long, lpflOldProtect As Long) As Long Declare Function VirtualQueryEx Lib "kernel32" Alias "VirtualQueryEx" (ByVal hProcess As Long, lpAddress As Any, lpBuffer As MEMORY_BASIC_INFORMATION, ByVal dwLength As Long) As Long Declare Function HeapCreate Lib "kernel32" Alias "HeapCreate" (ByVal flOptions As Long, ByVal dwInitialSize As Long, ByVal dwMaximumSize As Long) As Long Declare Function HeapDestroy Lib "kernel32" Alias "HeapDestroy" (ByVal hHeap As Long) As Long Declare Function HeapAlloc Lib "kernel32" Alias "HeapAlloc" (ByVal hHeap As Long, ByVal dwFlags As Long, ByVal dwBytes As Long) As Long Declare Function HeapReAlloc Lib "kernel32" Alias "HeapReAlloc" (ByVal hHeap As Long, ByVal dwFlags As Long, lpMem As Any, ByVal dwBytes As Long) As Long Declare Function HeapFree Lib "kernel32" Alias "HeapFree" (ByVal hHeap As Long, ByVal dwFlags As Long, lpMem As Any) As Long Declare Function HeapSize Lib "kernel32" Alias "HeapSize" (ByVal hHeap As Long, ByVal dwFlags As Long, lpMem As Any) As Long Declare Function GetProcessHeap Lib "kernel32" Alias "GetProcessHeap" () As Long Declare Function GetProcessTimes Lib "kernel32" Alias "GetProcessTimes" (ByVal hProcess As Long, lpCreationTime As FILETIME, lpExitTime As FILETIME, lpKernelTime As FILETIME, lpUserTime As FILETIME) As Long Declare Function OpenProcess Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Declare Function GetCurrentProcess Lib "kernel32" Alias "GetCurrentProcess" () As Long Declare Function GetCurrentProcessId Lib "kernel32" Alias "GetCurrentProcessId" () As Long Declare Sub ExitProcess Lib "kernel32" Alias "ExitProcess" (ByVal uExitCode As Long) Declare Function TerminateProcess Lib "kernel32" Alias "TerminateProcess" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long Declare Function GetExitCodeProcess Lib "kernel32" Alias "GetExitCodeProcess" (ByVal hProcess As Long, lpExitCode As Long) As Long ' Warning: VB automatically calls GetLastError on declare calls. ' Use Err.LastDllError instead. See Err documentation for further details. ' Declare Function GetLastError Lib "kernel32" Alias "GetLastError" () As Long Declare Sub SetLastError Lib "kernel32" Alias "SetLastError" (ByVal dwErrCode As Long) Const SLE_ERROR = &H1 Const SLE_MINORERROR = &H2 Const SLE_WARNING = &H3 Declare Sub SetLastErrorEx Lib "user32" Alias "SetLastErrorEx" (ByVal dwErrCode As Long, ByVal dwType As Long) Declare Function GetOverlappedResult Lib "kernel32" Alias "GetOverlappedResult" (ByVal hFile As Long, lpOverlapped As OVERLAPPED, lpNumberOfBytesTransferred As Long, ByVal bWait As Long) As Long Const SEM_FAILCRITICALERRORS = &H1 Const SEM_NOGPFAULTERRORBOX = &H2 Const SEM_NOOPENFILEERRORBOX = &H8000 Declare Sub SetDebugErrorLevel Lib "user32" Alias "SetDebugErrorLevel" (ByVal dwLevel As Long) Declare Function SetErrorMode Lib "kernel32" Alias "SetErrorMode" (ByVal wMode As Long) As Long Declare Function ReadProcessMemory Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long Declare Function WriteProcessMemory Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long Declare Function GetThreadContext Lib "kernel32" Alias "GetThreadContext" (ByVal hThread As Long, lpContext As CONTEXT) As Long Declare Function SetThreadContext Lib "kernel32" Alias "SetThreadContext" (ByVal hThread As Long, lpContext As CONTEXT) As Long Declare Function SuspendThread Lib "kernel32" Alias "SuspendThread" (ByVal hThread As Long) As Long Declare Function ResumeThread Lib "kernel32" Alias "ResumeThread" (ByVal hThread As Long) As Long Declare Function FindResource Lib "kernel32" Alias "FindResourceA" (ByVal hInstance As Long, ByVal lpName As String, ByVal lpType As String) As Long Declare Function FindResourceEx Lib "kernel32" Alias "FindResourceExA" (ByVal hModule As Long, ByVal lpType As String, ByVal lpName As String, ByVal wLanguage As Long) As Long Declare Function BeginUpdateResource Lib "kernel32" Alias "BeginUpdateResourceA" (ByVal pFileName As String, ByVal bDeleteExistingResources As Long) As Long Declare Function UpdateResource Lib "kernel32" Alias "UpdateResourceA" (ByVal hUpdate As Long, ByVal lpType As String, ByVal lpName As String, ByVal wLanguage As Long, lpData As Any, ByVal cbData As Long) As Long Declare Function EndUpdateResource Lib "kernel32" Alias "EndUpdateResourceA" (ByVal hUpdate As Long, ByVal fDiscard As Long) As Long Declare Function LoadResource Lib "kernel32" Alias "LoadResource" (ByVal hInstance As Long, ByVal hResInfo As Long) As Long Declare Function LockResource Lib "kernel32" Alias "LockResource" (ByVal hResData As Long) As Long Declare Function SizeofResource Lib "kernel32" Alias "SizeofResource" (ByVal hInstance As Long, ByVal hResInfo As Long) As Long ' Predefined Resource Types Const RT_CURSOR = 1& Const RT_BITMAP = 2& Const RT_ICON = 3& Const RT_MENU = 4& Const RT_DIALOG = 5& Const RT_STRING = 6& Const RT_FONTDIR = 7& Const RT_FONT = 8& Const RT_ACCELERATOR = 9& Const RT_RCDATA = 10& Declare Function InitAtomTable Lib "kernel32" Alias "InitAtomTable" (ByVal nSize As Long) As Long Declare Function GlobalAddAtom Lib "kernel32" Alias "GlobalAddAtomA" (ByVal lpString As String) As Integer Declare Function GlobalDeleteAtom Lib "kernel32" Alias "GlobalDeleteAtom" (ByVal nAtom As Integer) As Integer Declare Function GlobalFindAtom Lib "kernel32" Alias "GlobalFindAtomA" (ByVal lpString As String) As Integer Declare Function GlobalGetAtomName Lib "kernel32" Alias "GlobalGetAtomNameA" (ByVal nAtom As Integer, ByVal lpBuffer As String, ByVal nSize As Long) As Long ' User Profile Routines ' NOTE: The lpKeyName argument for GetProfileString, WriteProfileString, ' GetPrivateProfileString, and WritePrivateProfileString can be either ' a string or NULL. This is why the argument is defined as "As Any". ' For example, to pass a string specify ByVal "wallpaper" ' To pass NULL specify ByVal 0& ' You can also pass NULL for the lpString argument for WriteProfileString ' and WritePrivateProfileString Declare Function GetProfileInt Lib "kernel32" Alias "GetProfileIntA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal nDefault As Long) As Long Declare Function GetProfileString Lib "kernel32" Alias "GetProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long Declare Function WriteProfileString Lib "kernel32" Alias "WriteProfileStringA" (ByVal lpszSection As String, ByVal lpszKeyName As String, ByVal lpszString As String) As Long Declare Function GetProfileSection Lib "kernel32" Alias "GetProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long Declare Function WriteProfileSection Lib "kernel32" Alias "WriteProfileSectionA" (ByVal lpAppName As String, ByVal lpString As String) As Long Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long Declare Function WritePrivateProfileSection Lib "kernel32" Alias "WritePrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpString As String, ByVal lpFileName As String) As Long Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long Declare Function SetCurrentDirectory Lib "kernel32" Alias "SetCurrentDirectoryA" (ByVal lpPathName As String) As Long Declare Function GetCurrentDirectory Lib "kernel32" Alias "GetCurrentDirectoryA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTotalNumberOfClusters As Long) As Long Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long Declare Function CreateDirectoryEx Lib "kernel32" Alias "CreateDirectoryExA" (ByVal lpTemplateDirectory As String, ByVal lpNewDirectory As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long Declare Function RemoveDirectory Lib "kernel32" Alias "RemoveDirectoryA" (ByVal lpPathName As String) As Long Declare Function GetFullPathName Lib "kernel32" Alias "GetFullPathNameA" (ByVal lpFileName As String, ByVal nBufferLength As Long, ByVal lpBuffer As String, ByVal lpFilePart As String) As Long Const DDD_RAW_TARGET_PATH = &H1 Const DDD_REMOVE_DEFINITION = &H2 Const DDD_EXACT_MATCH_ON_REMOVE = &H4 Const MAX_PATH = 260 Declare Function DefineDosDevice Lib "kernel32" Alias "DefineDosDeviceA" (ByVal dwFlags As Long, ByVal lpDeviceName As String, ByVal lpTargetPath As String) As Long Declare Function QueryDosDevice Lib "kernel32" Alias "QueryDosDeviceA" (ByVal lpDeviceName As String, ByVal lpTargetPath As String, ByVal ucchMax As Long) As Long Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long Declare Function SearchPath Lib "kernel32" Alias "SearchPathA" (ByVal lpPath As String, ByVal lpFileName As String, ByVal lpExtension As String, ByVal nBufferLength As Long, ByVal lpBuffer As String, ByVal lpFilePart As String) As Long Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long Declare Function MoveFile Lib "kernel32" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long Declare Function MoveFileEx Lib "kernel32" Alias "MoveFileExA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal dwFlags As Long) As Long Const MOVEFILE_REPLACE_EXISTING = &H1 Const MOVEFILE_COPY_ALLOWED = &H2 Const MOVEFILE_DELAY_UNTIL_REBOOT = &H4 Type EVENTLOGRECORD Length as Long ' Length of full record Reserved as Long ' Used by the service RecordNumber as Long ' Absolute record number TimeGenerated as Long ' Seconds since 1-1-1970 TimeWritten as Long 'Seconds since 1-1-1970 EventID as Long EventType as Integer NumStrings as Integer EventCategory as Integer ReservedFlags as Integer ' For use with paired events (auditing) ClosingRecordNumber as Long 'For use with paired events (auditing) StringOffset as Long ' Offset from beginning of record UserSidLength as Long UserSidOffset as Long DataLength as Long DataOffset as Long ' Offset from beginning of record End Type Declare Function CreateNamedPipe Lib "kernel32" Alias "CreateNamedPipeA" (ByVal lpName As String, ByVal dwOpenMode As Long, ByVal dwPipeMode As Long, ByVal nMaxInstances As Long, ByVal nOutBufferSize As Long, ByVal nInBufferSize As Long, ByVal nDefaultTimeOut As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long Declare Function GetNamedPipeHandleState Lib "kernel32" Alias "GetNamedPipeHandleStateA" (ByVal hNamedPipe As Long, lpState As Long, lpCurInstances As Long, lpMaxCollectionCount As Long, lpCollectDataTimeout As Long, ByVal lpUserName As String, ByVal nMaxUserNameSize As Long) As Long Declare Function CallNamedPipe Lib "kernel32" Alias "CallNamedPipeA" (ByVal lpNamedPipeName As String, lpInBuffer As Any, ByVal nInBufferSize As Long, lpOutBuffer As Any, ByVal nOutBufferSize As Long, lpBytesRead As Long, ByVal nTimeOut As Long) As Long Declare Function WaitNamedPipe Lib "kernel32" Alias "WaitNamedPipeA" (ByVal lpNamedPipeName As String, ByVal nTimeOut As Long) As Long Declare Function SetVolumeLabel Lib "kernel32" Alias "SetVolumeLabelA" (ByVal lpRootPathName As String, ByVal lpVolumeName As String) As Long Declare Sub SetFileApisToOEM Lib "kernel32" Alias "SetFileApisToOEM" () Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long Declare Function ClearEventLog Lib "advapi32.dll" Alias "ClearEventLogA" (ByVal hEventLog As Long, ByVal lpBackupFileName As String) As Long Declare Function BackupEventLog Lib "advapi32.dll" Alias "BackupEventLogA" (ByVal hEventLog As Long, ByVal lpBackupFileName As String) As Long Declare Function CloseEventLog Lib "advapi32.dll" Alias "CloseEventLog" (ByVal hEventLog As Long) As Long Declare Function DeregisterEventSource Lib "advapi32.dll" Alias "DeregisterEventSource" (ByVal hEventLog As Long) As Long Declare Function GetNumberOfEventLogRecords Lib "advapi32.dll" Alias "GetNumberOfEventLogRecords" (ByVal hEventLog As Long, NumberOfRecords As Long) As Long Declare Function GetOldestEventLogRecord Lib "advapi32.dll" Alias "GetOldestEventLogRecord" (ByVal hEventLog As Long, OldestRecord As Long) As Long Declare Function OpenEventLog Lib "advapi32.dll" Alias "OpenEventLogA" (ByVal lpUNCServerName As String, ByVal lpSourceName As String) As Long Declare Function RegisterEventSource Lib "advapi32.dll" Alias "RegisterEventSourceA" (ByVal lpUNCServerName As String, ByVal lpSourceName As String) As Long Declare Function OpenBackupEventLog Lib "advapi32.dll" Alias "OpenBackupEventLogA" (ByVal lpUNCServerName As String, ByVal lpFileName As String) As Long Declare Function ReadEventLog Lib "advapi32.dll" Alias "ReadEventLogA" (ByVal hEventLog As Long, ByVal dwReadFlags As Long, ByVal dwRecordOffset As Long, lpBuffer As EVENTLOGRECORD, ByVal nNumberOfBytesToRead As Long, pnBytesRead As Long, pnMinNumberOfBytesNeeded As Long) As Long Declare Function ReportEvent Lib "advapi32.dll" Alias "ReportEventA" (ByVal hEventLog As Long, ByVal wType As Long, ByVal wCategory As Long, ByVal dwEventID As Long, lpUserSid As Any, ByVal wNumStrings As Long, ByVal dwDataSize As Long, ByVal lpStrings As Long, lpRawData As Any) As Long ' Security APIs Const TokenUser = 1 Const TokenGroups = 2 Const TokenPrivileges = 3 Const TokenOwner = 4 Const TokenPrimaryGroup = 5 Const TokenDefaultDacl = 6 Const TokenSource = 7 Const TokenType = 8 Const TokenImpersonationLevel = 9 Const TokenStatistics = 10 Type TOKEN_GROUPS GroupCount As Long Groups(ANYSIZE_ARRAY) As SID_AND_ATTRIBUTES End Type Declare Function DuplicateToken Lib "advapi32.dll" Alias "DuplicateToken" (ByVal ExistingTokenHandle As Long, ImpersonationLevel As Integer, DuplicateTokenHandle As Long) As Long Declare Function GetKernelObjectSecurity Lib "advapi32.dll" Alias "GetKernelObjectSecurity" (ByVal Handle As Long, ByVal RequestedInformation As Long, pSecurityDescriptor As SECURITY_DESCRIPTOR, ByVal nLength As Long, lpnLengthNeeded As Long) As Long Declare Function ImpersonateNamedPipeClient Lib "advapi32.dll" Alias "ImpersonateNamedPipeClient" (ByVal hNamedPipe As Long) As Long Declare Function ImpersonateSelf Lib "advapi32.dll" Alias "ImpersonateSelf" (ImpersonationLevel As Integer) As Long Declare Function RevertToSelf Lib "advapi32.dll" Alias "RevertToSelf" () As Long Declare Function AccessCheck Lib "advapi32.dll" Alias "AccessCheck" (pSecurityDescriptor As SECURITY_DESCRIPTOR, ByVal ClientToken As Long, ByVal DesiredAccess As Long, GenericMapping As GENERIC_MAPPING, PrivilegeSet As PRIVILEGE_SET, PrivilegeSetLength As Long, GrantedAccess As Long, ByVal Status As Long) As Long Type TOKEN_PRIVILEGES PrivilegeCount As Long Privileges(ANYSIZE_ARRAY) As LUID_AND_ATTRIBUTES End Type ' Duplicates Declare Function OpenProcessToken Lib "advapi32.dll" Alias "OpenProcessToken" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As Long Declare Function OpenThreadToken Lib "advapi32.dll" Alias "OpenThreadToken" (ByVal ThreadHandle As Long, ByVal DesiredAccess As Long, ByVal OpenAsSelf As Long, TokenHandle As Long) As Long Declare Function GetTokenInformation Lib "advapi32.dll" Alias "GetTokenInformation" (ByVal TokenHandle As Long, TokenInformationClass As Integer, TokenInformation As Any, ByVal TokenInformationLength As Long, ReturnLength As Long) As Long Declare Function SetTokenInformation Lib "advapi32.dll" Alias "SetTokenInformation" (ByVal TokenHandle As Long, TokenInformationClass As Integer, TokenInformation As Any, ByVal TokenInformationLength As Long) As Long Declare Function AdjustTokenPrivileges Lib "advapi32.dll" Alias "AdjustTokenPrivileges" (ByVal TokenHandle As Long, ByVal DisableAllPrivileges As Long, NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Long, PreviousState As TOKEN_PRIVILEGES, ReturnLength As Long) As Long Declare Function AdjustTokenGroups Lib "advapi32.dll" Alias "AdjustTokenGroups" (ByVal TokenHandle As Long, ByVal ResetToDefault As Long, NewState As TOKEN_GROUPS, ByVal BufferLength As Long, PreviousState As TOKEN_GROUPS, ReturnLength As Long) As Long Declare Function PrivilegeCheck Lib "advapi32.dll" Alias "PrivilegeCheck" (ByVal ClientToken As Long, RequiredPrivileges As PRIVILEGE_SET, ByVal pfResult As Long) As Long Declare Function AccessCheckAndAuditAlarm Lib "advapi32.dll" Alias "AccessCheckAndAuditAlarmA" (ByVal SubsystemName As String, HandleId As Any, ByVal ObjectTypeName As String, ByVal ObjectName As String, SecurityDescriptor As SECURITY_DESCRIPTOR, ByVal DesiredAccess As Long, GenericMapping As GENERIC_MAPPING, ByVal ObjectCreation As Long, GrantedAccess As Long, ByVal AccessStatus As Long, ByVal pfGenerateOnClose As Long) As Long 'Declare Function ObjectOpenAuditAlarm Lib "advapi32.dll" Alias "ObjectOpenAuditAlarmA" (ByVal SubsystemName As String, HandleId As Any, ByVal ObjectTypeName As String, ByVal ObjectName As String, pSecurityDescriptor As SECURITY_DESCRIPTOR, ByVal ClientToken As Long, ByVal DesiredAccess As Long, ByVal GrantedAccess As Long, Privileges As PRIVILEGE_SET, ByVal ObjectCreation As Long, ByVal AccessGranted As Long, ByVal GenerateOnClose As Long) As Long Declare Function ObjectPrivilegeAuditAlarm Lib "advapi32.dll" Alias "ObjectPrivilegeAuditAlarmA" (ByVal SubsystemName As String, HandleId As Any, ByVal ClientToken As Long, ByVal DesiredAccess As Long, Privileges As PRIVILEGE_SET, ByVal AccessGranted As Long) As Long Declare Function ObjectCloseAuditAlarm Lib "advapi32.dll" Alias "ObjectCloseAuditAlarmA" (ByVal SubsystemName As String, HandleId As Any, ByVal GenerateOnClose As Long) As Long Declare Function PrivilegedServiceAuditAlarm Lib "advapi32.dll" Alias "PrivilegedServiceAuditAlarmA" (ByVal SubsystemName As String, ByVal ServiceName As String, ByVal ClientToken As Long, Privileges As PRIVILEGE_SET, ByVal AccessGranted As Long) As Long Declare Function IsValidSid Lib "advapi32.dll" Alias "IsValidSid" (pSid As Any) As Long Declare Function EqualSid Lib "advapi32.dll" Alias "EqualSid" (pSid1 As Any, pSid2 As Any) As Long Declare Function EqualPrefixSid Lib "advapi32.dll" Alias "EqualPrefixSid" (pSid1 As Any, pSid2 As Any) As Long Declare Function GetSidLengthRequired Lib "advapi32.dll" Alias "GetSidLengthRequired" (ByVal nSubAuthorityCount As Byte) As Long Declare Function AllocateAndInitializeSid Lib "advapi32.dll" Alias "AllocateAndInitializeSid" (pIdentifierAuthority As SID_IDENTIFIER_AUTHORITY, ByVal nSubAuthorityCount As Byte, ByVal nSubAuthority0 As Long, ByVal nSubAuthority1 As Long, ByVal nSubAuthority2 As Long, ByVal nSubAuthority3 As Long, ByVal nSubAuthority4 As Long, ByVal nSubAuthority5 As Long, ByVal nSubAuthority6 As Long, ByVal nSubAuthority7 As Long, lpPSid As Long) As Long Declare Sub FreeSid Lib "advapi32.dll" Alias "FreeSid" (pSid As Any) Declare Function InitializeSid Lib "advapi32.dll" Alias "InitializeSid" (Sid As Any, pIdentifierAuthority As SID_IDENTIFIER_AUTHORITY, ByVal nSubAuthorityCount As Byte) As Long Declare Function GetSidIdentifierAuthority Lib "advapi32.dll" Alias "GetSidIdentifierAuthority" (pSid As Any) As SID_IDENTIFIER_AUTHORITY Declare Function GetSidSubAuthority Lib "advapi32.dll" Alias "GetSidSubAuthority" (pSid As Any, ByVal nSubAuthority As Long) As Long Declare Function GetSidSubAuthorityCount Lib "advapi32.dll" Alias "GetSidSubAuthorityCount" (pSid As Any) As Byte Declare Function GetLengthSid Lib "advapi32.dll" Alias "GetLengthSid" (pSid As Any) As Long Declare Function CopySid Lib "advapi32.dll" Alias "CopySid" (ByVal nDestinationSidLength As Long, pDestinationSid As Any, pSourceSid As Any) As Long Declare Function AreAllAccessesGranted Lib "advapi32.dll" Alias "AreAllAccessesGranted" (ByVal GrantedAccess As Long, ByVal DesiredAccess As Long) As Long Declare Function AreAnyAccessesGranted Lib "advapi32.dll" Alias "AreAnyAccessesGranted" (ByVal GrantedAccess As Long, ByVal DesiredAccess As Long) As Long Declare Sub MapGenericMask Lib "advapi32.dll" Alias "MapGenericMask" (AccessMask As Long, GenericMapping As GENERIC_MAPPING) Declare Function IsValidAcl Lib "advapi32.dll" Alias "IsValidAcl" (pAcl As ACL) As Long Declare Function InitializeAcl Lib "advapi32.dll" Alias "InitializeAcl" (pAcl As ACL, ByVal nAclLength As Long, ByVal dwAclRevision As Long) As Long Declare Function GetAclInformation Lib "advapi32.dll" Alias "GetAclInformation" (pAcl As ACL, pAclInformation As Any, ByVal nAclInformationLength As Long, ByVal dwAclInformationClass As Integer) As Long Declare Function SetAclInformation Lib "advapi32.dll" Alias "SetAclInformation" (pAcl As ACL, pAclInformation As Any, ByVal nAclInformationLength As Long, ByVal dwAclInformationClass As Integer) As Long Declare Function AddAce Lib "advapi32.dll" Alias "AddAce" (pAcl As ACL, ByVal dwAceRevision As Long, ByVal dwStartingAceIndex As Long, pAceList As Any, ByVal nAceListLength As Long) As Long Declare Function DeleteAce Lib "advapi32.dll" Alias "DeleteAce" (pAcl As ACL, ByVal dwAceIndex As Long) As Long Declare Function GetAce Lib "advapi32.dll" Alias "GetAce" (pAcl As ACL, ByVal dwAceIndex As Long, pAce As Any) As Long Declare Function AddAccessAllowedAce Lib "advapi32.dll" Alias "AddAccessAllowedAce" (pAcl As ACL, ByVal dwAceRevision As Long, ByVal AccessMask As Long, pSid As Any) As Long Declare Function AddAccessDeniedAce Lib "advapi32.dll" Alias "AddAccessDeniedAce" (pAcl As ACL, ByVal dwAceRevision As Long, ByVal AccessMask As Long, pSid As Any) As Long Declare Function AddAuditAccessAce Lib "advapi32.dll" Alias "AddAuditAccessAce" (pAcl As ACL, ByVal dwAceRevision As Long, ByVal dwAccessMask As Long, pSid As Any, ByVal bAuditSuccess As Long, ByVal bAuditFailure As Long) As Long Declare Function FindFirstFreeAce Lib "advapi32.dll" Alias "FindFirstFreeAce" (pAcl As ACL, pAce As Long) As Long Declare Function InitializeSecurityDescriptor Lib "advapi32.dll" Alias "InitializeSecurityDescriptor" (pSecurityDescriptor As SECURITY_DESCRIPTOR, ByVal dwRevision As Long) As Long Declare Function IsValidSecurityDescriptor Lib "advapi32.dll" Alias "IsValidSecurityDescriptor" (pSecurityDescriptor As SECURITY_DESCRIPTOR) As Long Declare Function GetSecurityDescriptorLength Lib "advapi32.dll" Alias "GetSecurityDescriptorLength" (pSecurityDescriptor As SECURITY_DESCRIPTOR) As Long Declare Function GetSecurityDescriptorControl Lib "advapi32.dll" Alias "GetSecurityDescriptorControl" (pSecurityDescriptor As SECURITY_DESCRIPTOR, pControl As Integer, lpdwRevision As Long) As Long Declare Function SetSecurityDescriptorDacl Lib "advapi32.dll" Alias "SetSecurityDescriptorDacl" (pSecurityDescriptor As SECURITY_DESCRIPTOR, ByVal bDaclPresent As Long, pDacl As ACL, ByVal bDaclDefaulted As Long) As Long Declare Function GetSecurityDescriptorDacl Lib "advapi32.dll" Alias "GetSecurityDescriptorDacl" (pSecurityDescriptor As SECURITY_DESCRIPTOR, lpbDaclPresent As Long, pDacl As ACL, lpbDaclDefaulted As Long) As Long Declare Function SetSecurityDescriptorSacl Lib "advapi32.dll" Alias "SetSecurityDescriptorSacl" (pSecurityDescriptor As SECURITY_DESCRIPTOR, ByVal bSaclPresent As Long, pSacl As ACL, ByVal bSaclDefaulted As Long) As Long Declare Function GetSecurityDescriptorSacl Lib "advapi32.dll" Alias "GetSecurityDescriptorSacl" (pSecurityDescriptor As SECURITY_DESCRIPTOR, ByVal lpbSaclPresent As Long, pSacl As ACL, ByVal lpbSaclDefaulted As Long) As Long Declare Function SetSecurityDescriptorOwner Lib "advapi32.dll" Alias "SetSecurityDescriptorOwner" (pSecurityDescriptor As SECURITY_DESCRIPTOR, pOwner As Any, ByVal bOwnerDefaulted As Long) As Long Declare Function GetSecurityDescriptorOwner Lib "advapi32.dll" Alias "GetSecurityDescriptorOwner" (pSecurityDescriptor As SECURITY_DESCRIPTOR, pOwner As Any, ByVal lpbOwnerDefaulted As Long) As Long Declare Function SetSecurityDescriptorGroup Lib "advapi32.dll" Alias "SetSecurityDescriptorGroup" (pSecurityDescriptor As SECURITY_DESCRIPTOR, pGroup As Any, ByVal bGroupDefaulted As Long) As Long Declare Function GetSecurityDescriptorGroup Lib "advapi32.dll" Alias "GetSecurityDescriptorGroup" (pSecurityDescriptor As SECURITY_DESCRIPTOR, pGroup As Any, ByVal lpbGroupDefaulted As Long) As Long Declare Function CreatePrivateObjectSecurity Lib "advapi32.dll" Alias "CreatePrivateObjectSecurity" (ParentDescriptor As SECURITY_DESCRIPTOR, CreatorDescriptor As SECURITY_DESCRIPTOR, NewDescriptor As SECURITY_DESCRIPTOR, ByVal IsDirectoryObject As Long, ByVal Token As Long, GenericMapping As GENERIC_MAPPING) As Long Declare Function SetPrivateObjectSecurity Lib "advapi32.dll" Alias "SetPrivateObjectSecurity" (ByVal SecurityInformation As Long, ModificationDescriptor As SECURITY_DESCRIPTOR, ObjectsSecurityDescriptor As SECURITY_DESCRIPTOR, GenericMapping As GENERIC_MAPPING, ByVal Token As Long) As Long Declare Function GetPrivateObjectSecurity Lib "advapi32.dll" Alias "GetPrivateObjectSecurity" (ObjectDescriptor As SECURITY_DESCRIPTOR, ByVal SecurityInformation As Long, ResultantDescriptor As SECURITY_DESCRIPTOR, ByVal DescriptorLength As Long, ReturnLength As Long) As Long Declare Function DestroyPrivateObjectSecurity Lib "advapi32.dll" Alias "DestroyPrivateObjectSecurity" (ObjectDescriptor As SECURITY_DESCRIPTOR) As Long Declare Function MakeSelfRelativeSD Lib "advapi32.dll" Alias "MakeSelfRelativeSD" (pAbsoluteSecurityDescriptor As SECURITY_DESCRIPTOR, pSelfRelativeSecurityDescriptor As SECURITY_DESCRIPTOR, lpdwBufferLength As Long) As Long Declare Function MakeAbsoluteSD Lib "advapi32.dll" Alias "MakeAbsoluteSD" (pSelfRelativeSecurityDescriptor As SECURITY_DESCRIPTOR, pAbsoluteSecurityDescriptor As SECURITY_DESCRIPTOR, lpdwAbsoluteSecurityDescriptorSize As Long, pDacl As ACL, lpdwDaclSize As Long, pSacl As ACL, lpdwSaclSize As Long, pOwner As Any, lpdwOwnerSize As Long, pPrimaryGroup As Any, lpdwPrimaryGroupSize As Long) As Long Declare Function SetFileSecurity Lib "advapi32.dll" Alias "SetFileSecurityA" (ByVal lpFileName As String, ByVal SecurityInformation As Long, pSecurityDescriptor As SECURITY_DESCRIPTOR) As Long Declare Function GetFileSecurity Lib "advapi32.dll" Alias "GetFileSecurityA" (ByVal lpFileName As String, ByVal RequestedInformation As Long, pSecurityDescriptor As SECURITY_DESCRIPTOR, ByVal nLength As Long, lpnLengthNeeded As Long) As Long Declare Function SetKernelObjectSecurity Lib "advapi32.dll" Alias "SetKernelObjectSecurity" (ByVal Handle As Long, ByVal SecurityInformation As Long, SecurityDescriptor As SECURITY_DESCRIPTOR) As Long Declare Function FindFirstChangeNotification Lib "kernel32" Alias "FindFirstChangeNotificationA" (ByVal lpPathName As String, ByVal bWatchSubtree As Long, ByVal dwNotifyFilter As Long) As Long Declare Function FindNextChangeNotification Lib "kernel32" Alias "FindNextChangeNotification" (ByVal hChangeHandle As Long) As Long Declare Function FindCloseChangeNotification Lib "kernel32" Alias "FindCloseChangeNotification" (ByVal hChangeHandle As Long) As Long Declare Function VirtualLock Lib "kernel32" Alias "VirtualLock" (lpAddress As Any, ByVal dwSize As Long) As Long Declare Function VirtualUnlock Lib "kernel32" Alias "VirtualUnlock" (lpAddress As Any, ByVal dwSize As Long) As Long Declare Function MapViewOfFileEx Lib "kernel32" Alias "MapViewOfFileEx" (ByVal hFileMappingObject As Long, ByVal dwDesiredAccess As Long, ByVal dwFileOffsetHigh As Long, ByVal dwFileOffsetLow As Long, ByVal dwNumberOfBytesToMap As Long, lpBaseAddress As Any) As Long Declare Function SetPriorityClass Lib "kernel32" Alias "SetPriorityClass" (ByVal hProcess As Long, ByVal dwPriorityClass As Long) As Long Declare Function GetPriorityClass Lib "kernel32" Alias "GetPriorityClass" (ByVal hProcess As Long) As Long Type CONTEXT FltF0 As Double FltF1 As Double FltF2 As Double FltF3 As Double FltF4 As Double FltF5 As Double FltF6 As Double FltF7 As Double FltF8 As Double FltF9 As Double FltF10 As Double FltF11 As Double FltF12 As Double FltF13 As Double FltF14 As Double FltF15 As Double FltF16 As Double FltF17 As Double FltF18 As Double FltF19 As Double FltF20 As Double FltF21 As Double FltF22 As Double FltF23 As Double FltF24 As Double FltF25 As Double FltF26 As Double FltF27 As Double FltF28 As Double FltF29 As Double FltF30 As Double FltF31 As Double IntV0 As Double IntT0 As Double IntT1 As Double IntT2 As Double IntT3 As Double IntT4 As Double IntT5 As Double IntT6 As Double IntT7 As Double IntS0 As Double IntS1 As Double IntS2 As Double IntS3 As Double IntS4 As Double IntS5 As Double IntFp As Double IntA0 As Double IntA1 As Double IntA2 As Double IntA3 As Double IntA4 As Double IntA5 As Double IntT8 As Double IntT9 As Double IntT10 As Double IntT11 As Double IntRa As Double IntT12 As Double IntAt As Double IntGp As Double IntSp As Double IntZero As Double Fpcr As Double SoftFpcr As Double Fir As Double Psr As Long ContextFlags As Long Fill(4) As Long End Type Type EXCEPTION_POINTERS pExceptionRecord As EXCEPTION_RECORD ContextRecord As CONTEXT End Type Type LDT_BYTES ' Defined for use in LDT_ENTRY Type BaseMid As Byte Flags1 As Byte Flags2 As Byte BaseHi As Byte End Type Type LDT_ENTRY LimitLow As Integer BaseLow As Integer HighWord As Long ' Can use LDT_BYTES Type End Type Declare Sub FatalExit Lib "kernel32" Alias "FatalExit" (ByVal code As Long) Declare Function GetEnvironmentStrings Lib "kernel32" Alias "GetEnvironmentStringsA" () As String Declare Sub RaiseException Lib "kernel32" Alias "RaiseException" (ByVal dwExceptionCode As Long, ByVal dwExceptionFlags As Long, ByVal nNumberOfArguments As Long, lpArguments As Long) Declare Function UnhandledExceptionFilter Lib "kernel32" Alias "UnhandledExceptionFilter" (ExceptionInfo As EXCEPTION_POINTERS) As Long Declare Function CreateThread Lib "kernel32" Alias "CreateThread" (lpThreadAttributes As SECURITY_ATTRIBUTES, ByVal dwStackSize As Long, lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long Declare Function CreateRemoteThread Lib "kernel32" Alias "CreateRemoteThread" (ByVal hProcess As Long, lpThreadAttributes As SECURITY_ATTRIBUTES, ByVal dwStackSize As Long, lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long Declare Function GetCurrentThread Lib "kernel32" Alias "GetCurrentThread" () As Long Declare Function GetCurrentThreadId Lib "kernel32" Alias "GetCurrentThreadId" () As Long Declare Function SetThreadPriority Lib "kernel32" Alias "SetThreadPriority" (ByVal hThread As Long, ByVal nPriority As Long) As Long Declare Function GetThreadPriority Lib "kernel32" Alias "GetThreadPriority" (ByVal hThread As Long) As Long Declare Function GetThreadTimes Lib "kernel32" Alias "GetThreadTimes" (ByVal hThread As Long, lpCreationTime As FILETIME, lpExitTime As FILETIME, lpKernelTime As FILETIME, lpUserTime As FILETIME) As Long Declare Sub ExitThread Lib "kernel32" Alias "ExitThread" (ByVal dwExitCode As Long) Declare Function TerminateThread Lib "kernel32" Alias "TerminateThread" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long Declare Function GetExitCodeThread Lib "kernel32" Alias "GetExitCodeThread" (ByVal hThread As Long, lpExitCode As Long) As Long Declare Function GetThreadSelectorEntry Lib "kernel32" Alias "GetThreadSelectorEntry" (ByVal hThread As Long, ByVal dwSelector As Long, lpSelectorEntry As LDT_ENTRY) As Long ' COMM declarations Declare Function SetCommState Lib "kernel32" Alias "SetCommState" (ByVal hCommDev As Long, lpDCB As DCB) As Long Declare Function SetCommTimeouts Lib "kernel32" Alias "SetCommTimeouts" (ByVal hFile As Long, lpCommTimeouts As COMMTIMEOUTS) As Long Declare Function GetCommState Lib "kernel32" Alias "GetCommState" (ByVal nCid As Long, lpDCB As DCB) As Long Declare Function GetCommTimeouts Lib "kernel32" Alias "GetCommTimeouts" (ByVal hFile As Long, lpCommTimeouts As COMMTIMEOUTS) As Long Declare Function PurgeComm Lib "kernel32" Alias "PurgeComm" (ByVal hFile As Long, ByVal dwFlags As Long) As Long Declare Function BuildCommDCB Lib "kernel32" Alias "BuildCommDCBA" (ByVal lpDef As String, lpDCB As DCB) As Long Declare Function BuildCommDCBAndTimeouts Lib "kernel32" Alias "BuildCommDCBAndTimeoutsA" (ByVal lpDef As String, lpDCB As DCB, lpCommTimeouts As COMMTIMEOUTS) As Long Declare Function TransmitCommChar Lib "kernel32" Alias "TransmitCommChar" (ByVal nCid As Long, ByVal cChar As Byte) As Long Declare Function SetCommBreak Lib "kernel32" Alias "SetCommBreak" (ByVal nCid As Long) As Long Declare Function SetCommMask Lib "kernel32" Alias "SetCommMask" (ByVal hFile As Long, ByVal dwEvtMask As Long) As Long Declare Function ClearCommBreak Lib "kernel32" Alias "ClearCommBreak" (ByVal nCid As Long) As Long Declare Function ClearCommError Lib "kernel32" Alias "ClearCommError" (ByVal hFile As Long, lpErrors As Long, lpStat As COMSTAT) As Long Declare Function SetupComm Lib "kernel32" Alias "SetupComm" (ByVal hFile As Long, ByVal dwInQueue As Long, ByVal dwOutQueue As Long) As Long Declare Function EscapeCommFunction Lib "kernel32" Alias "EscapeCommFunction" (ByVal nCid As Long, ByVal nFunc As Long) As Long Declare Function GetCommMask Lib "kernel32" Alias "GetCommMask" (ByVal hFile As Long, lpEvtMask As Long) As Long Declare Function GetCommProperties Lib "kernel32" Alias "GetCommProperties" (ByVal hFile As Long, lpCommProp As COMMPROP) As Long Declare Function GetCommModemStatus Lib "kernel32" Alias "GetCommModemStatus" (ByVal hFile As Long, lpModemStat As Long) As Long Declare Function WaitCommEvent Lib "kernel32" Alias "WaitCommEvent" (ByVal hFile As Long, lpEvtMask As Long, lpOverlapped As OVERLAPPED) As Long Declare Function SetTapePosition Lib "kernel32" Alias "SetTapePosition" (ByVal hDevice As Long, ByVal dwPositionMethod As Long, ByVal dwPartition As Long, ByVal dwOffsetLow As Long, ByVal dwOffsetHigh As Long, ByVal bimmediate As Long) As Long Declare Function GetTapePosition Lib "kernel32" Alias "GetTapePosition" (ByVal hDevice As Long, ByVal dwPositionType As Long, lpdwPartition As Long, lpdwOffsetLow As Long, lpdwOffsetHigh As Long) As Long Declare Function PrepareTape Lib "kernel32" Alias "PrepareTape" (ByVal hDevice As Long, ByVal dwOperation As Long, ByVal bimmediate As Long) As Long Declare Function EraseTape Lib "kernel32" Alias "EraseTape" (ByVal hDevice As Long, ByVal dwEraseType As Long, ByVal bimmediate As Long) As Long Declare Function CreateTapePartition Lib "kernel32" Alias "CreateTapePartition" (ByVal hDevice As Long, ByVal dwPartitionMethod As Long, ByVal dwCount As Long, ByVal dwSize As Long) As Long Declare Function WriteTapemark Lib "kernel32" Alias "WriteTapemark" (ByVal hDevice As Long, ByVal dwTapemarkType As Long, ByVal dwTapemarkCount As Long, ByVal bimmediate As Long) As Long Declare Function GetTapeStatus Lib "kernel32" Alias "GetTapeStatus" (ByVal hDevice As Long) As Long Declare Function GetTapeParameters Lib "kernel32" Alias "GetTapeParameters" (ByVal hDevice As Long, ByVal dwOperation As Long, lpdwSize As Long, lpTapeInformation As Any) As Long Const GET_TAPE_MEDIA_INFORMATION = 0 Const GET_TAPE_DRIVE_INFORMATION = 1 Declare Function SetTapeParameters Lib "kernel32" Alias "SetTapeParameters" (ByVal hDevice As Long, ByVal dwOperation As Long, lpTapeInformation As Any) As Long Const SET_TAPE_MEDIA_INFORMATION = 0 Const SET_TAPE_DRIVE_INFORMATION = 1 Declare Function Beep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long Declare Function MulDiv Lib "kernel32" Alias "MulDiv" (ByVal nNumber As Long, ByVal nNumerator As Long, ByVal nDenominator As Long) As Long Declare Sub GetSystemTime Lib "kernel32" Alias "GetSystemTime" (lpSystemTime As SYSTEMTIME) Declare Function SetSystemTime Lib "kernel32" Alias "SetSystemTime" (lpSystemTime As SYSTEMTIME) As Long Declare Sub GetLocalTime Lib "kernel32" Alias "GetLocalTime" (lpSystemTime As SYSTEMTIME) Declare Function SetLocalTime Lib "kernel32" Alias "SetLocalTime" (lpSystemTime As SYSTEMTIME) As Long Declare Sub GetSystemInfo Lib "kernel32" Alias "GetSystemInfo" (lpSystemInfo As SYSTEM_INFO) Type TIME_ZONE_INFORMATION Bias As Long StandardName(1 to 32) As Integer StandardDate As SYSTEMTIME StandardBias As Long DaylightName(1 to 32) As Integer DaylightDate As SYSTEMTIME DaylightBias As Long End Type Declare Function GetTimeZoneInformation Lib "kernel32" Alias "GetTimeZoneInformation" (lpTimeZoneInformation As TIME_ZONE_INFORMATION) As Long Declare Function SetTimeZoneInformation Lib "kernel32" Alias "SetTimeZoneInformation" (lpTimeZoneInformation As TIME_ZONE_INFORMATION) As Long ' Routines to convert back and forth ' between system time and file time Declare Function SystemTimeToFileTime Lib "kernel32" Alias "SystemTimeToFileTime" (lpSystemTime As SYSTEMTIME, lpFileTime As FILETIME) As Long Declare Function FileTimeToLocalFileTime Lib "kernel32" Alias "FileTimeToLocalFileTime" (lpFileTime As FILETIME, lpLocalFileTime As FILETIME) As Long Declare Function LocalFileTimeToFileTime Lib "kernel32" Alias "LocalFileTimeToFileTime" (lpLocalFileTime As FILETIME, lpFileTime As FILETIME) As Long Declare Function FileTimeToSystemTime Lib "kernel32" Alias "FileTimeToSystemTime" (lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME) As Long Declare Function CompareFileTime Lib "kernel32" Alias "CompareFileTime" (lpFileTime1 As FILETIME, lpFileTime2 As FILETIME) As Long Declare Function FileTimeToDosDateTime Lib "kernel32" Alias "FileTimeToDosDateTime" (lpFileTime As FILETIME, ByVal lpFatDate As Long, ByVal lpFatTime As Long) As Long Declare Function DosDateTimeToFileTime Lib "kernel32" Alias "DosDateTimeToFileTime" (ByVal wFatDate As Long, ByVal wFatTime As Long, lpFileTime As FILETIME) As Long Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long Declare Function FormatMessage Lib "kernel32" Alias "FormatMessageA" (ByVal dwFlags As Long, lpSource As Any, ByVal dwMessageId As Long, ByVal dwLanguageId As Long, ByVal lpBuffer As String, ByVal nSize As Long, Arguments As Long) As Long Const FORMAT_MESSAGE_ALLOCATE_BUFFER = &H100 Const FORMAT_MESSAGE_IGNORE_INSERTS = &H200 Const FORMAT_MESSAGE_FROM_STRING = &H400 Const FORMAT_MESSAGE_FROM_HMODULE = &H800 Const FORMAT_MESSAGE_FROM_SYSTEM = &H1000 Const FORMAT_MESSAGE_ARGUMENT_ARRAY = &H2000 Const FORMAT_MESSAGE_MAX_WIDTH_MASK = &HFF Declare Function CreatePipe Lib "kernel32" Alias "CreatePipe" (phReadPipe As Long, phWritePipe As Long, lpPipeAttributes As SECURITY_ATTRIBUTES, ByVal nSize As Long) As Long Declare Function ConnectNamedPipe Lib "kernel32" Alias "ConnectNamedPipe" (ByVal hNamedPipe As Long, lpOverlapped As OVERLAPPED) As Long Declare Function DisconnectNamedPipe Lib "kernel32" Alias "DisconnectNamedPipe" (ByVal hNamedPipe As Long) As Long Declare Function SetNamedPipeHandleState Lib "kernel32" Alias "SetNamedPipeHandleState" (ByVal hNamedPipe As Long, lpMode As Long, lpMaxCollectionCount As Long, lpCollectDataTimeout As Long) As Long Declare Function GetNamedPipeInfo Lib "kernel32" Alias "GetNamedPipeInfo" (ByVal hNamedPipe As Long, lpFlags As Long, lpOutBufferSize As Long, lpInBufferSize As Long, lpMaxInstances As Long) As Long Declare Function PeekNamedPipe Lib "kernel32" Alias "PeekNamedPipe" (ByVal hNamedPipe As Long, lpBuffer As Any, ByVal nBufferSize As Long, lpBytesRead As Long, lpTotalBytesAvail As Long, lpBytesLeftThisMessage As Long) As Long Declare Function TransactNamedPipe Lib "kernel32" Alias "TransactNamedPipe" (ByVal hNamedPipe As Long, lpInBuffer As Any, ByVal nInBufferSize As Long, lpOutBuffer As Any, ByVal nOutBufferSize As Long, lpBytesRead As Long, lpOverlapped As OVERLAPPED) As Long Declare Function CreateMailslot Lib "kernel32" Alias "CreateMailslotA" (ByVal lpName As String, ByVal nMaxMessageSize As Long, ByVal lReadTimeout As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long Declare Function GetMailslotInfo Lib "kernel32" Alias "GetMailslotInfo" (ByVal hMailslot As Long, lpMaxMessageSize As Long, lpNextSize As Long, lpMessageCount As Long, lpReadTimeout As Long) As Long Declare Function SetMailslotInfo Lib "kernel32" Alias "SetMailslotInfo" (ByVal hMailslot As Long, ByVal lReadTimeout As Long) As Long Declare Function MapViewOfFile Lib "kernel32" Alias "MapViewOfFile" (ByVal hFileMappingObject As Long, ByVal dwDesiredAccess As Long, ByVal dwFileOffsetHigh As Long, ByVal dwFileOffsetLow As Long, ByVal dwNumberOfBytesToMap As Long) As Long Declare Function FlushViewOfFile Lib "kernel32" Alias "FlushViewOfFile" (lpBaseAddress As Any, ByVal dwNumberOfBytesToFlush As Long) As Long Declare Function UnmapViewOfFile Lib "kernel32" Alias "UnmapViewOfFile" (lpBaseAddress As Any) As Long Declare Function lstrcmp Lib "kernel32" Alias "lstrcmpA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long Declare Function lstrcmpi Lib "kernel32" Alias "lstrcmpiA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long Declare Function lopen Lib "kernel32" Alias "_lopen" (ByVal lpPathName As String, ByVal iReadWrite As Long) As Long Declare Function lclose Lib "kernel32" Alias "_lclose" (ByVal hFile As Long) As Long Declare Function lcreat Lib "kernel32" Alias "_lcreat" (ByVal lpPathName As String, ByVal iAttribute As Long) As Long Declare Function llseek Lib "kernel32" Alias "_llseek" (ByVal hFile As Long, ByVal lOffset As Long, ByVal iOrigin As Long) As Long Declare Function lread Lib "kernel32" Alias "_lread" (ByVal hFile As Long, lpBuffer As Any, ByVal wBytes As Long) As Long Declare Function lwrite Lib "kernel32" Alias "_lwrite" (ByVal hFile As Long, ByVal lpBuffer As String, ByVal wBytes As Long) As Long Declare Function hread Lib "kernel32" Alias "_hread" (ByVal hFile As Long, lpBuffer As Any, ByVal lBytes As Long) As Long Declare Function hwrite Lib "kernel32" Alias "_hwrite" (ByVal hFile As Long, ByVal lpBuffer As String, ByVal lBytes As Long) As Long Declare Function TlsAlloc Lib "kernel32" Alias "TlsAlloc" () As Long Const TLS_OUT_OF_INDEXES = &HFFFF Declare Function TlsGetValue Lib "kernel32" Alias "TlsGetValue" (ByVal dwTlsIndex As Long) As Long Declare Function TlsSetValue Lib "kernel32" Alias "TlsSetValue" (ByVal dwTlsIndex As Long, lpTlsValue As Any) As Long Declare Function TlsFree Lib "kernel32" Alias "TlsFree" (ByVal dwTlsIndex As Long) As Long Declare Function SleepEx Lib "kernel32" Alias "SleepEx" (ByVal dwMilliseconds As Long, ByVal bAlertable As Long) As Long Declare Function WaitForSingleObjectEx Lib "kernel32" Alias "WaitForSingleObjectEx" (ByVal hHandle As Long, ByVal dwMilliseconds As Long, ByVal bAlertable As Long) As Long Declare Function WaitForMultipleObjectsEx Lib "kernel32" Alias "WaitForMultipleObjectsEx" (ByVal nCount As Long, lpHandles As Long, ByVal bWaitAll As Long, ByVal dwMilliseconds As Long, ByVal bAlertable As Long) As Long Declare Function BackupRead Lib "kernel32" Alias "BackupRead" (ByVal hFile As Long, lpBuffer As Byte, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, ByVal bAbort As Long, ByVal bProcessSecurity As Long, lpContext As Any) As Long Declare Function BackupSeek Lib "kernel32" Alias "BackupSeek" (ByVal hFile As Long, ByVal dwLowBytesToSeek As Long, ByVal dwHighBytesToSeek As Long, lpdwLowByteSeeked As Long, lpdwHighByteSeeked As Long, lpContext As Long) As Long Declare Function BackupWrite Lib "kernel32" Alias "BackupWrite" (ByVal hFile As Long, lpBuffer As Byte, ByVal nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As Long, ByVal bAbort As Long, ByVal bProcessSecurity As Long, lpContext As Long) As Long ' Stream ID type Type WIN32_STREAM_ID dwStreamID As Long dwStreamAttributes As Long dwStreamSizeLow As Long dwStreamSizeHigh As Long dwStreamNameSize As Long cStreamName As Byte End Type ' Stream IDs Const BACKUP_DATA = &H1 Const BACKUP_EA_DATA = &H2 Const BACKUP_SECURITY_DATA = &H3 Const BACKUP_ALTERNATE_DATA = &H4 Const BACKUP_LINK = &H5 ' Stream Attributes Const STREAM_MODIFIED_WHEN_READ = &H1 Const STREAM_CONTAINS_SECURITY = &H2 ' Dual Mode API below this line. Dual Mode Types also included. Const STARTF_USESHOWWINDOW = &H1 Const STARTF_USESIZE = &H2 Const STARTF_USEPOSITION = &H4 Const STARTF_USECOUNTCHARS = &H8 Const STARTF_USEFILLATTRIBUTE = &H10 Const STARTF_RUNFULLSCREEN = &H20 ' ignored for non-x86 platforms Const STARTF_FORCEONFEEDBACK = &H40 Const STARTF_FORCEOFFFEEDBACK = &H80 Const STARTF_USESTDHANDLES = &H100 Type STARTUPINFO cb As Long lpReserved As String lpDesktop As String lpTitle As String dwX As Long dwY As Long dwXSize As Long dwYSize As Long dwXCountChars As Long dwYCountChars As Long dwFillAttribute As Long dwFlags As Long wShowWindow As Integer cbReserved2 As Integer lpReserved2 As Long hStdInput As Long hStdOutput As Long hStdError As Long End Type Const SHUTDOWN_NORETRY = &H1 Declare Function CreateMutex Lib "kernel32" Alias "CreateMutexA" (lpMutexAttributes As SECURITY_ATTRIBUTES, ByVal bInitialOwner As Long, ByVal lpName As String) As Long Declare Function OpenMutex Lib "kernel32" Alias "OpenMutexA" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal lpName As String) As Long Declare Function CreateEvent Lib "kernel32" Alias "CreateEventA" (lpEventAttributes As SECURITY_ATTRIBUTES, ByVal bManualReset As Long, ByVal bInitialState As Long, ByVal lpName As String) As Long Declare Function OpenEvent Lib "kernel32" Alias "OpenEventA" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal lpName As String) As Long Declare Function CreateSemaphore Lib "kernel32" Alias "CreateSemaphoreA" (lpSemaphoreAttributes As SECURITY_ATTRIBUTES, ByVal lInitialCount As Long, ByVal lMaximumCount As Long, ByVal lpName As String) As Long Declare Function OpenSemaphore Lib "kernel32" Alias "OpenSemaphoreA" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal lpName As String) As Long Declare Function CreateFileMapping Lib "kernel32" Alias "CreateFileMappingA" (ByVal hFile As Long, lpFileMappigAttributes As SECURITY_ATTRIBUTES, ByVal flProtect As Long, ByVal dwMaximumSizeHigh As Long, ByVal dwMaximumSizeLow As Long, ByVal lpName As String) As Long Declare Function OpenFileMapping Lib "kernel32" Alias "OpenFileMappingA" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal lpName As String) As Long Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long Declare Function IsBadReadPtr Lib "kernel32" Alias "IsBadReadPtr" (lp As Any, ByVal ucb As Long) As Long Declare Function IsBadWritePtr Lib "kernel32" Alias "IsBadWritePtr" (lp As Any, ByVal ucb As Long) As Long Declare Function IsBadStringPtr Lib "kernel32" Alias "IsBadStringPtrA" (ByVal lpsz As String, ByVal ucchMax As Long) As Long Declare Function IsBadHugeReadPtr Lib "kernel32" Alias "IsBadHugeReadPtr" (lp As Any, ByVal ucb As Long) As Long Declare Function IsBadHugeWritePtr Lib "kernel32" Alias "IsBadHugeWritePtr" (lp As Any, ByVal ucb As Long) As Long Declare Function LookupAccountSid Lib "advapi32.dll" Alias "LookupAccountSidA" (ByVal lpSystemName As String, Sid As Any, ByVal name As String, cbName As Long, ByVal ReferencedDomainName As String, cbReferencedDomainName As Long, peUse As Long) As Long Declare Function LookupAccountName Lib "advapi32.dll" Alias "LookupAccountNameA" (ByVal lpSystemName As String, ByVal lpAccountName As String, Sid As Long, cbSid As Long, ByVal ReferencedDomainName As String, cbReferencedDomainName As Long, peUse As Long) As Long Declare Function LookupPrivilegeValue Lib "advapi32.dll" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As String, lpLuid As LARGE_INTEGER) As Long Declare Function LookupPrivilegeName Lib "advapi32.dll" Alias "LookupPrivilegeNameA" (ByVal lpSystemName As String, lpLuid As LARGE_INTEGER, ByVal lpName As String, cbName As Long) As Long Declare Function LookupPrivilegeDisplayName Lib "advapi32.dll" Alias "LookupPrivilegeDisplayNameA" (ByVal lpSystemName As String, ByVal lpName As String, ByVal lpDisplayName As String, cbDisplayName As Long, lpLanguageID As Long) As Long Declare Function AllocateLocallyUniqueId Lib "advapi32.dll" Alias "AllocateLocallyUniqueId" (Luid As LARGE_INTEGER) As Long Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long ' Performance counter API's Declare Function QueryPerformanceCounter Lib "kernel32" Alias "QueryPerformanceCounter" (lpPerformanceCount As LARGE_INTEGER) As Long Declare Function QueryPerformanceFrequency Lib "kernel32" Alias "QueryPerformanceFrequency" (lpFrequency As LARGE_INTEGER) As Long ' Abnormal termination codes Const TC_NORMAL = 0 Const TC_HARDERR = 1 Const TC_GP_TRAP = 2 Const TC_SIGNAL = 3 ' Procedure declarations, constant definitions, and macros ' for the NLS component ' String Length Maximums Const MAX_LEADBYTES = 12 ' 5 ranges, 2 bytes ea., 0 term. ' MBCS and Unicode Translation Flags. Const MB_PRECOMPOSED = &H1 ' use precomposed chars Const MB_COMPOSITE = &H2 ' use composite chars Const MB_USEGLYPHCHARS = &H4 ' use glyph chars, not ctrl chars Const WC_DEFAULTCHECK = &H100 ' check for default char Const WC_COMPOSITECHECK = &H200 ' convert composite to precomposed Const WC_DISCARDNS = &H10 ' discard non-spacing chars Const WC_SEPCHARS = &H20 ' generate separate chars Const WC_DEFAULTCHAR = &H40 ' replace w/ default char ' Character Type Flags. Const CT_CTYPE1 = &H1 ' ctype 1 information Const CT_CTYPE2 = &H2 ' ctype 2 information Const CT_CTYPE3 = &H4 ' ctype 3 information ' CType 1 Flag Bits. Const C1_UPPER = &H1 ' upper case Const C1_LOWER = &H2 ' lower case Const C1_DIGIT = &H4 ' decimal digits Const C1_SPACE = &H8 ' spacing characters Const C1_PUNCT = &H10 ' punctuation characters Const C1_CNTRL = &H20 ' control characters Const C1_BLANK = &H40 ' blank characters Const C1_XDIGIT = &H80 ' other digits Const C1_ALPHA = &H100 ' any letter ' CType 2 Flag Bits. Const C2_LEFTTORIGHT = &H1 ' left to right Const C2_RIGHTTOLEFT = &H2 ' right to left Const C2_EUROPENUMBER = &H3 ' European number, digit Const C2_EUROPESEPARATOR = &H4 ' European numeric separator Const C2_EUROPETERMINATOR = &H5 ' European numeric terminator Const C2_ARABICNUMBER = &H6 ' Arabic number Const C2_COMMONSEPARATOR = &H7 ' common numeric separator Const C2_BLOCKSEPARATOR = &H8 ' block separator Const C2_SEGMENTSEPARATOR = &H9 ' segment separator Const C2_WHITESPACE = &HA ' white space Const C2_OTHERNEUTRAL = &HB ' other neutrals Const C2_NOTAPPLICABLE = &H0 ' no implicit directionality ' CType 3 Flag Bits. Const C3_NONSPACING = &H1 ' nonspacing character Const C3_DIACRITIC = &H2 ' diacritic mark Const C3_VOWELMARK = &H4 ' vowel mark Const C3_SYMBOL = &H8 ' symbols Const C3_NOTAPPLICABLE = &H0 ' ctype 3 is not applicable ' String Flags. Const NORM_IGNORECASE = &H1 ' ignore case Const NORM_IGNORENONSPACE = &H2 ' ignore nonspacing chars Const NORM_IGNORESYMBOLS = &H4 ' ignore symbols ' Locale Independent Mapping Flags. Const MAP_FOLDCZONE = &H10 ' fold compatibility zone chars Const MAP_PRECOMPOSED = &H20 ' convert to precomposed chars Const MAP_COMPOSITE = &H40 ' convert to composite chars Const MAP_FOLDDIGITS = &H80 ' all digits to ASCII 0-9 ' Locale Dependent Mapping Flags. Const LCMAP_LOWERCASE = &H100 ' lower case letters Const LCMAP_UPPERCASE = &H200 ' upper case letters Const LCMAP_SORTKEY = &H400 ' WC sort key (normalize) Const LCMAP_BYTEREV = &H800 ' byte reversal ' Sorting Flags. Const SORT_STRINGSORT = &H1000 ' use string sort method ' Code Page Default Values. Const CP_ACP = 0 ' default to ANSI code page Const CP_OEMCP = 1 ' default to OEM code page ' Country Codes. Const CTRY_DEFAULT = 0 Const CTRY_AUSTRALIA = 61 ' Australia Const CTRY_AUSTRIA = 43 ' Austria Const CTRY_BELGIUM = 32 ' Belgium Const CTRY_BRAZIL = 55 ' Brazil Const CTRY_CANADA = 2 ' Canada Const CTRY_DENMARK = 45 ' Denmark Const CTRY_FINLAND = 358 ' Finland Const CTRY_FRANCE = 33 ' France Const CTRY_GERMANY = 49 ' Germany Const CTRY_ICELAND = 354 ' Iceland Const CTRY_IRELAND = 353 ' Ireland Const CTRY_ITALY = 39 ' Italy Const CTRY_JAPAN = 81 ' Japan Const CTRY_MEXICO = 52 ' Mexico Const CTRY_NETHERLANDS = 31 ' Netherlands Const CTRY_NEW_ZEALAND = 64 ' New Zealand Const CTRY_NORWAY = 47 ' Norway Const CTRY_PORTUGAL = 351 ' Portugal Const CTRY_PRCHINA = 86 ' PR China Const CTRY_SOUTH_KOREA = 82 ' South Korea Const CTRY_SPAIN = 34 ' Spain Const CTRY_SWEDEN = 46 ' Sweden Const CTRY_SWITZERLAND = 41 ' Switzerland Const CTRY_TAIWAN = 886 ' Taiwan Const CTRY_UNITED_KINGDOM = 44 ' United Kingdom Const CTRY_UNITED_STATES = 1 ' United States ' Locale Types. ' These types are used for the GetLocaleInfoW NLS API routine. ' LOCALE_NOUSEROVERRIDE is also used in GetTimeFormatW and GetDateFormatW. Const LOCALE_NOUSEROVERRIDE = &H80000000 ' do not use user overrides Const LOCALE_ILANGUAGE = &H1 ' language id Const LOCALE_SLANGUAGE = &H2 ' localized name of language Const LOCALE_SENGLANGUAGE = &H1001 ' English name of language Const LOCALE_SABBREVLANGNAME = &H3 ' abbreviated language name Const LOCALE_SNATIVELANGNAME = &H4 ' native name of language Const LOCALE_ICOUNTRY = &H5 ' country code Const LOCALE_SCOUNTRY = &H6 ' localized name of country Const LOCALE_SENGCOUNTRY = &H1002 ' English name of country Const LOCALE_SABBREVCTRYNAME = &H7 ' abbreviated country name Const LOCALE_SNATIVECTRYNAME = &H8 ' native name of country Const LOCALE_IDEFAULTLANGUAGE = &H9 ' default language id Const LOCALE_IDEFAULTCOUNTRY = &HA ' default country code Const LOCALE_IDEFAULTCODEPAGE = &HB ' default code page Const LOCALE_SLIST = &HC ' list item separator Const LOCALE_IMEASURE = &HD ' 0 = metric, 1 = US Const LOCALE_SDECIMAL = &HE ' decimal separator Const LOCALE_STHOUSAND = &HF ' thousand separator Const LOCALE_SGROUPING = &H10 ' digit grouping Const LOCALE_IDIGITS = &H11 ' number of fractional digits Const LOCALE_ILZERO = &H12 ' leading zeros for decimal Const LOCALE_SNATIVEDIGITS = &H13 ' native ascii 0-9 Const LOCALE_SCURRENCY = &H14 ' local monetary symbol Const LOCALE_SINTLSYMBOL = &H15 ' intl monetary symbol Const LOCALE_SMONDECIMALSEP = &H16 ' monetary decimal separator Const LOCALE_SMONTHOUSANDSEP = &H17 ' monetary thousand separator Const LOCALE_SMONGROUPING = &H18 ' monetary grouping Const LOCALE_ICURRDIGITS = &H19 ' # local monetary digits Const LOCALE_IINTLCURRDIGITS = &H1A ' # intl monetary digits Const LOCALE_ICURRENCY = &H1B ' positive currency mode Const LOCALE_INEGCURR = &H1C ' negative currency mode Const LOCALE_SDATE = &H1D ' date separator Const LOCALE_STIME = &H1E ' time separator Const LOCALE_SSHORTDATE = &H1F ' short date format string Const LOCALE_SLONGDATE = &H20 ' long date format string Const LOCALE_STIMEFORMAT = &H1003 ' time format string Const LOCALE_IDATE = &H21 ' short date format ordering Const LOCALE_ILDATE = &H22 ' long date format ordering Const LOCALE_ITIME = &H23 ' time format specifier Const LOCALE_ICENTURY = &H24 ' century format specifier Const LOCALE_ITLZERO = &H25 ' leading zeros in time field Const LOCALE_IDAYLZERO = &H26 ' leading zeros in day field Const LOCALE_IMONLZERO = &H27 ' leading zeros in month field Const LOCALE_S1159 = &H28 ' AM designator Const LOCALE_S2359 = &H29 ' PM designator Const LOCALE_SDAYNAME1 = &H2A ' long name for Monday Const LOCALE_SDAYNAME2 = &H2B ' long name for Tuesday Const LOCALE_SDAYNAME3 = &H2C ' long name for Wednesday Const LOCALE_SDAYNAME4 = &H2D ' long name for Thursday Const LOCALE_SDAYNAME5 = &H2E ' long name for Friday Const LOCALE_SDAYNAME6 = &H2F ' long name for Saturday Const LOCALE_SDAYNAME7 = &H30 ' long name for Sunday Const LOCALE_SABBREVDAYNAME1 = &H31 ' abbreviated name for Monday Const LOCALE_SABBREVDAYNAME2 = &H32 ' abbreviated name for Tuesday Const LOCALE_SABBREVDAYNAME3 = &H33 ' abbreviated name for Wednesday Const LOCALE_SABBREVDAYNAME4 = &H34 ' abbreviated name for Thursday Const LOCALE_SABBREVDAYNAME5 = &H35 ' abbreviated name for Friday Const LOCALE_SABBREVDAYNAME6 = &H36 ' abbreviated name for Saturday Const LOCALE_SABBREVDAYNAME7 = &H37 ' abbreviated name for Sunday Const LOCALE_SMONTHNAME1 = &H38 ' long name for January Const LOCALE_SMONTHNAME2 = &H39 ' long name for February Const LOCALE_SMONTHNAME3 = &H3A ' long name for March Const LOCALE_SMONTHNAME4 = &H3B ' long name for April Const LOCALE_SMONTHNAME5 = &H3C ' long name for May Const LOCALE_SMONTHNAME6 = &H3D ' long name for June Const LOCALE_SMONTHNAME7 = &H3E ' long name for July Const LOCALE_SMONTHNAME8 = &H3F ' long name for August Const LOCALE_SMONTHNAME9 = &H40 ' long name for September Const LOCALE_SMONTHNAME10 = &H41 ' long name for October Const LOCALE_SMONTHNAME11 = &H42 ' long name for November Const LOCALE_SMONTHNAME12 = &H43 ' long name for December Const LOCALE_SABBREVMONTHNAME1 = &H44 ' abbreviated name for January Const LOCALE_SABBREVMONTHNAME2 = &H45 ' abbreviated name for February Const LOCALE_SABBREVMONTHNAME3 = &H46 ' abbreviated name for March Const LOCALE_SABBREVMONTHNAME4 = &H47 ' abbreviated name for April Const LOCALE_SABBREVMONTHNAME5 = &H48 ' abbreviated name for May Const LOCALE_SABBREVMONTHNAME6 = &H49 ' abbreviated name for June Const LOCALE_SABBREVMONTHNAME7 = &H4A ' abbreviated name for July Const LOCALE_SABBREVMONTHNAME8 = &H4B ' abbreviated name for August Const LOCALE_SABBREVMONTHNAME9 = &H4C ' abbreviated name for September Const LOCALE_SABBREVMONTHNAME10 = &H4D ' abbreviated name for October Const LOCALE_SABBREVMONTHNAME11 = &H4E ' abbreviated name for November Const LOCALE_SABBREVMONTHNAME12 = &H4F ' abbreviated name for December Const LOCALE_SABBREVMONTHNAME13 = &H100F Const LOCALE_SPOSITIVESIGN = &H50 ' positive sign Const LOCALE_SNEGATIVESIGN = &H51 ' negative sign Const LOCALE_IPOSSIGNPOSN = &H52 ' positive sign position Const LOCALE_INEGSIGNPOSN = &H53 ' negative sign position Const LOCALE_IPOSSYMPRECEDES = &H54 ' mon sym precedes pos amt Const LOCALE_IPOSSEPBYSPACE = &H55 ' mon sym sep by space from pos amt Const LOCALE_INEGSYMPRECEDES = &H56 ' mon sym precedes neg amt Const LOCALE_INEGSEPBYSPACE = &H57 ' mon sym sep by space from neg amt ' Time Flags for GetTimeFormatW. Const TIME_NOMINUTESORSECONDS = &H1 ' do not use minutes or seconds Const TIME_NOSECONDS = &H2 ' do not use seconds Const TIME_NOTIMEMARKER = &H4 ' do not use time marker Const TIME_FORCE24HOURFORMAT = &H8 ' always use 24 hour format ' Date Flags for GetDateFormatW. Const DATE_SHORTDATE = &H1 ' use short date picture Const DATE_LONGDATE = &H2 ' use long date picture ' Code Page Dependent APIs Declare Function IsValidCodePage Lib "kernel32" Alias "IsValidCodePage" (ByVal CodePage As Long) As Long Declare Function GetACP Lib "kernel32" Alias "GetACP" () As Long Declare Function GetOEMCP Lib "kernel32" Alias "GetOEMCP" () As Long Declare Function GetCPInfo Lib "kernel32" Alias "GetCPInfo" (ByVal CodePage As Long, lpCPInfo As CPINFO) As Long Declare Function IsDBCSLeadByte Lib "kernel32" Alias "IsDBCSLeadByte" (ByVal bTestChar As Byte) As Long Declare Function MultiByteToWideChar Lib "kernel32" Alias "MultiByteToWideChar" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As String, ByVal cchMultiByte As Long, ByVal lpWideCharStr As String, ByVal cchWideChar As Long) As Long Declare Function WideCharToMultiByte Lib "kernel32" Alias "WideCharToMultiByte" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As String, ByVal cchWideChar As Long, ByVal lpMultiByteStr As String, ByVal cchMultiByte As Long, ByVal lpDefaultChar As String, ByVal lpUsedDefaultChar As Long) As Long ' Locale Dependent APIs Declare Function CompareString Lib "kernel32" Alias "CompareStringA" (ByVal Locale As Long, ByVal dwCmpFlags As Long, ByVal lpString1 As String, ByVal cchCount1 As Long, ByVal lpString2 As String, ByVal cchCount2 As Long) As Long Declare Function LCMapString Lib "kernel32" Alias "LCMapStringA" (ByVal Locale As Long, ByVal dwMapFlags As Long, ByVal lpSrcStr As String, ByVal cchSrc As Long, ByVal lpDestStr As String, ByVal cchDest As Long) As Long Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long Declare Function GetTimeFormat Lib "kernel32" Alias "GetTimeFormatA" (ByVal Locale As Long, ByVal dwFlags As Long, lpTime As SYSTEMTIME, ByVal lpFormat As String, ByVal lpTimeStr As String, ByVal cchTime As Long) As Long Declare Function GetDateFormat Lib "kernel32" Alias "GetDateFormatA" (ByVal Locale As Long, ByVal dwFlags As Long, lpDate As SYSTEMTIME, ByVal lpFormat As String, ByVal lpDateStr As String, ByVal cchDate As Long) As Long Declare Function SetThreadLocale Lib "kernel32" Alias "SetThreadLocale" (ByVal Locale As Long) As Long Declare Function GetSystemDefaultLangID Lib "kernel32" Alias "GetSystemDefaultLangID" () As Integer Declare Function GetUserDefaultLangID Lib "kernel32" Alias "GetUserDefaultLangID" () As Integer Declare Function GetSystemDefaultLCID Lib "kernel32" Alias "GetSystemDefaultLCID" () As Long Declare Function GetUserDefaultLCID Lib "kernel32" Alias "GetUserDefaultLCID" () As Long ' Locale Independent APIs Declare Function GetStringTypeA Lib "kernel32" Alias "GetStringTypeA" (ByVal lcid As Long, ByVal dwInfoType As Long, ByVal lpSrcStr As String, ByVal cchSrc As Long, lpCharType As Long) As Long Declare Function FoldString Lib "kernel32" Alias "FoldStringA" (ByVal dwMapFlags As Long, ByVal lpSrcStr As String, ByVal cchSrc As Long, ByVal lpDestStr As String, ByVal cchDest As Long) As Long ' ************************************************************************* ' * * ' * winnls.h -- NLS procedure declarations, constant definitions and macros * ' * * ' * Copyright (c) 1991-1995, Microsoft Corp. All rights reserved. * ' * * ' **************************************************************************/ ' * Calendar Types. ' * ' * These types are used for the GetALTCalendarInfoW NLS API routine. ' */ Const MAX_DEFAULTCHAR = 2 Const CAL_ICALINTVALUE = &H1 ' calendar type Const CAL_SCALNAME = &H2 ' native name of calendar Const CAL_IYEAROFFSETRANGE = &H3 ' starting years of eras Const CAL_SERASTRING = &H4 ' era name for IYearOffsetRanges Const CAL_SSHORTDATE = &H5 ' Integer date format string Const CAL_SLONGDATE = &H6 ' long date format string Const CAL_SDAYNAME1 = &H7 ' native name for Monday Const CAL_SDAYNAME2 = &H8 ' native name for Tuesday Const CAL_SDAYNAME3 = &H9 ' native name for Wednesday Const CAL_SDAYNAME4 = &HA ' native name for Thursday Const CAL_SDAYNAME5 = &HB ' native name for Friday Const CAL_SDAYNAME6 = &HC ' native name for Saturday Const CAL_SDAYNAME7 = &HD ' native name for Sunday Const CAL_SABBREVDAYNAME1 = &HE ' abbreviated name for Monday Const CAL_SABBREVDAYNAME2 = &HF ' abbreviated name for Tuesday Const CAL_SABBREVDAYNAME3 = &H10 ' abbreviated name for Wednesday Const CAL_SABBREVDAYNAME4 = &H11 ' abbreviated name for Thursday Const CAL_SABBREVDAYNAME5 = &H12 ' abbreviated name for Friday Const CAL_SABBREVDAYNAME6 = &H13 ' abbreviated name for Saturday Const CAL_SABBREVDAYNAME7 = &H14 ' abbreviated name for Sunday Const CAL_SMONTHNAME1 = &H15 ' native name for January Const CAL_SMONTHNAME2 = &H16 ' native name for February Const CAL_SMONTHNAME3 = &H17 ' native name for March Const CAL_SMONTHNAME4 = &H18 ' native name for April Const CAL_SMONTHNAME5 = &H19 ' native name for May Const CAL_SMONTHNAME6 = &H1A ' native name for June Const CAL_SMONTHNAME7 = &H1B ' native name for July Const CAL_SMONTHNAME8 = &H1C ' native name for August Const CAL_SMONTHNAME9 = &H1D ' native name for September Const CAL_SMONTHNAME10 = &H1E ' native name for October Const CAL_SMONTHNAME11 = &H1F ' native name for November Const CAL_SMONTHNAME12 = &H20 ' native name for December Const CAL_SMONTHNAME13 = &H21 ' native name for 13th month (if any) Const CAL_SABBREVMONTHNAME1 = &H22 ' abbreviated name for January Const CAL_SABBREVMONTHNAME2 = &H23 ' abbreviated name for February Const CAL_SABBREVMONTHNAME3 = &H24 ' abbreviated name for March Const CAL_SABBREVMONTHNAME4 = &H25 ' abbreviated name for April Const CAL_SABBREVMONTHNAME5 = &H26 ' abbreviated name for May Const CAL_SABBREVMONTHNAME6 = &H27 ' abbreviated name for June Const CAL_SABBREVMONTHNAME7 = &H28 ' abbreviated name for July Const CAL_SABBREVMONTHNAME8 = &H29 ' abbreviated name for August Const CAL_SABBREVMONTHNAME9 = &H2A ' abbreviated name for September Const CAL_SABBREVMONTHNAME10 = &H2B ' abbreviated name for October Const CAL_SABBREVMONTHNAME11 = &H2C ' abbreviated name for November Const CAL_SABBREVMONTHNAME12 = &H2D ' abbreviated name for December Const CAL_SABBREVMONTHNAME13 = &H2E ' abbreviated name for 13th month (if any) ' ' * Calendar Enumeration Value. ' */ Const ENUM_ALL_CALENDARS = &HFFFF ' enumerate all calendars ' ' * Calendar ID Values. ' */ Const CAL_GREGORIAN = 1 ' Gregorian (localized) calendar Const CAL_GREGORIAN_US = 2 ' Gregorian (U.S.) calendar Const CAL_JAPAN = 3 ' Japanese Emperor Era calendar Const CAL_TAIWAN = 4 ' Taiwan calendar Const CAL_KOREA = 5 ' Korean Tangun Era calendar ' *************************************************************************** Typedefs ' * ' * Define all types for the NLS component here. ' \***************************************************************************/ ' ' * CP Info. ' */ Type CPINFO MaxCharSize As Long ' max length (Byte) of a char DefaultChar(MAX_DEFAULTCHAR) As Byte ' default character LeadByte(MAX_LEADBYTES) As Byte ' lead byte ranges End Type Type NUMBERFMT NumDigits As Long ' number of decimal digits LeadingZero As Long ' if leading zero in decimal fields Grouping As Long ' group size left of decimal lpDecimalSep As String ' ptr to decimal separator string lpThousandSep As String ' ptr to thousand separator string NegativeOrder As Long ' negative number ordering End Type ' ' * Currency format. ' */ Type CURRENCYFMT NumDigits As Long ' number of decimal digits LeadingZero As Long ' if leading zero in decimal fields Grouping As Long ' group size left of decimal lpDecimalSep As String ' ptr to decimal separator string lpThousandSep As String ' ptr to thousand separator string NegativeOrder As Long ' negative currency ordering PositiveOrder As Long ' positive currency ordering lpCurrencySymbol As String ' ptr to currency symbol string End Type Declare Function EnumTimeFormats Lib "KERNEL32" Alias "EnumTimeFormatsA" (ByVal lpTimeFmtEnumProc As Long, ByVal Locale As Long, ByVal dwFlags As Long) As Long Declare Function EnumDateFormats Lib "KERNEL32" Alias "EnumDateFormatsA" (ByVal lpDateFmtEnumProc As Long, ByVal Locale As Long, ByVal dwFlags As Long) As Long Declare Function IsValidLocale Lib "KERNEL32" Alias "IsValidLocale" (ByVal Locale As Long, ByVal dwFlags As Long) As Long Declare Function ConvertDefaultLocale Lib "KERNEL32" Alias "ConvertDefaultLocale" (ByVal Locale As Long) As Long Declare Function GetThreadLocale Lib "KERNEL32" Alias "GetThreadLocale" () As Long Declare Function EnumSystemLocales Lib "KERNEL32" Alias "EnumSystemLocalesA" (ByVal lpLocaleEnumProc As Long, ByVal dwFlags As Long) As Long Declare Function EnumSystemCodePages Lib "KERNEL32" Alias "EnumSystemCodePagesA" (ByVal lpCodePageEnumProc As Long, ByVal dwFlags As Long) As Long ' The following section contains the Public data structures, data types, ' and procedures exported by the NT console subsystem. Type COORD x As Integer y As Integer End Type Type SMALL_RECT Left As Integer Top As Integer Right As Integer Bottom As Integer End Type Type KEY_EVENT_RECORD bKeyDown As Long wRepeatCount As Integer wVirtualKeyCode As Integer wVirtualScanCode As Integer uChar As Byte dwControlKeyState As Long End Type ' ControlKeyState flags Const RIGHT_ALT_PRESSED = &H1 ' the right alt key is pressed. Const LEFT_ALT_PRESSED = &H2 ' the left alt key is pressed. Const RIGHT_CTRL_PRESSED = &H4 ' the right ctrl key is pressed. Const LEFT_CTRL_PRESSED = &H8 ' the left ctrl key is pressed. Const SHIFT_PRESSED = &H10 ' the shift key is pressed. Const NUMLOCK_ON = &H20 ' the numlock light is on. Const SCROLLLOCK_ON = &H40 ' the scrolllock light is on. Const CAPSLOCK_ON = &H80 ' the capslock light is on. Const ENHANCED_KEY = &H100 ' the key is enhanced. Type MOUSE_EVENT_RECORD dwMousePosition As COORD dwButtonState As Long dwControlKeyState As Long dwEventFlags As Long End Type ' ButtonState flags Const FROM_LEFT_1ST_BUTTON_PRESSED = &H1 Const RIGHTMOST_BUTTON_PRESSED = &H2 Const FROM_LEFT_2ND_BUTTON_PRESSED = &H4 Const FROM_LEFT_3RD_BUTTON_PRESSED = &H8 Const FROM_LEFT_4TH_BUTTON_PRESSED = &H10 ' EventFlags Const MOUSE_MOVED = &H1 Const DOUBLE_CLICK = &H2 Type WINDOW_BUFFER_SIZE_RECORD dwSize As COORD End Type Type MENU_EVENT_RECORD dwCommandId As Long End Type Type FOCUS_EVENT_RECORD bSetFocus As Long End Type ' EventType flags: Const KEY_EVENT = &H1 ' Event contains key event record Const mouse_eventC = &H2 ' Event contains mouse event record Const WINDOW_BUFFER_SIZE_EVENT = &H4 ' Event contains window change event record Const MENU_EVENT = &H8 ' Event contains menu event record Const FOCUS_EVENT = &H10 ' event contains focus change Type CHAR_INFO Char As Integer Attributes As Integer End Type ' Attributes flags: Const FOREGROUND_BLUE = &H1 ' text color contains blue. Const FOREGROUND_GREEN = &H2 ' text color contains green. Const FOREGROUND_RED = &H4 ' text color contains red. Const FOREGROUND_INTENSITY = &H8 ' text color is intensified. Const BACKGROUND_BLUE = &H10 ' background color contains blue. Const BACKGROUND_GREEN = &H20 ' background color contains green. Const BACKGROUND_RED = &H40 ' background color contains red. Const BACKGROUND_INTENSITY = &H80 ' background color is intensified. Type CONSOLE_SCREEN_BUFFER_INFO dwSize As COORD dwCursorPosition As COORD wAttributes As Integer srWindow As SMALL_RECT dwMaximumWindowSize As COORD End Type Type CONSOLE_CURSOR_INFO dwSize As Long bVisible As Long End Type Const CTRL_C_EVENT = 0 Const CTRL_BREAK_EVENT = 1 Const CTRL_CLOSE_EVENT = 2 ' 3 is reserved! ' 4 is reserved! Const CTRL_LOGOFF_EVENT = 5 Const CTRL_SHUTDOWN_EVENT = 6 ' Input Mode flags: Const ENABLE_PROCESSED_INPUT = &H1 Const ENABLE_LINE_INPUT = &H2 Const ENABLE_ECHO_INPUT = &H4 Const ENABLE_WINDOW_INPUT = &H8 Const ENABLE_MOUSE_INPUT = &H10 ' Output Mode flags: Const ENABLE_PROCESSED_OUTPUT = &H1 Const ENABLE_WRAP_AT_EOL_OUTPUT = &H2 Declare Function ReadConsoleOutput Lib "kernel32" Alias "ReadConsoleOutputA" (ByVal hConsoleOutput As Long, lpBuffer As CHAR_INFO, dwBufferSize As COORD, dwBufferCoord As COORD, lpReadRegion As SMALL_RECT) As Long Declare Function WriteConsoleOutput Lib "kernel32" Alias "WriteConsoleOutputA" (ByVal hConsoleOutput As Long, lpBuffer As CHAR_INFO, dwBufferSize As COORD, dwBufferCoord As COORD, lpWriteRegion As SMALL_RECT) As Long Declare Function ReadConsoleOutputCharacter Lib "kernel32" Alias "ReadConsoleOutputCharacterA" (ByVal hConsoleOutput As Long, ByVal lpCharacter As String, ByVal nLength As Long, dwReadCoord As COORD, lpNumberOfCharsRead As Long) As Long Declare Function ReadConsoleOutputAttribute Lib "kernel32" Alias "ReadConsoleOutputAttribute" (ByVal hConsoleOutput As Long, lpAttribute As Long, ByVal nLength As Long, dwReadCoord As COORD, lpNumberOfAttrsRead As Long) As Long Declare Function WriteConsoleOutputCharacter Lib "kernel32" Alias "WriteConsoleOutputCharacterA" (ByVal hConsoleOutput As Long, ByVal lpCharacter As String, ByVal nLength As Long, dwWriteCoord As COORD, lpNumberOfCharsWritten As Long) As Long Declare Function WriteConsoleOutputAttribute Lib "kernel32" Alias "WriteConsoleOutputAttribute" (ByVal hConsoleOutput As Long, lpAttribute As Integer, ByVal nLength As Long, dwWriteCoord As COORD, lpNumberOfAttrsWritten As Long) As Long Declare Function FillConsoleOutputCharacter Lib "kernel32" Alias "FillConsoleOutputCharacterA" (ByVal hConsoleOutput As Long, ByVal cCharacter As Byte, ByVal nLength As Long, dwWriteCoord As COORD, lpNumberOfCharsWritten As Long) As Long Declare Function FillConsoleOutputAttribute Lib "kernel32" Alias "FillConsoleOutputAttribute" (ByVal hConsoleOutput As Long, ByVal wAttribute As Long, ByVal nLength As Long, dwWriteCoord As COORD, lpNumberOfAttrsWritten As Long) As Long Declare Function GetConsoleMode Lib "kernel32" Alias "GetConsoleMode" (ByVal hConsoleHandle As Long, lpMode As Long) As Long Declare Function GetNumberOfConsoleInputEvents Lib "kernel32" Alias "GetNumberOfConsoleInputEvents" (ByVal hConsoleInput As Long, lpNumberOfEvents As Long) As Long Declare Function GetConsoleScreenBufferInfo Lib "kernel32" Alias "GetConsoleScreenBufferInfo" (ByVal hConsoleOutput As Long, lpConsoleScreenBufferInfo As CONSOLE_SCREEN_BUFFER_INFO) As Long Declare Function GetLargestConsoleWindowSize Lib "kernel32" Alias "GetLargestConsoleWindowSize" (ByVal hConsoleOutput As Long) As COORD Declare Function GetConsoleCursorInfo Lib "kernel32" Alias "GetConsoleCursorInfo" (ByVal hConsoleOutput As Long, lpConsoleCursorInfo As CONSOLE_CURSOR_INFO) As Long Declare Function GetNumberOfConsoleMouseButtons Lib "kernel32" Alias "GetNumberOfConsoleMouseButtons" (lpNumberOfMouseButtons As Long) As Long Declare Function SetConsoleMode Lib "kernel32" Alias "SetConsoleMode" (ByVal hConsoleHandle As Long, ByVal dwMode As Long) As Long Declare Function SetConsoleActiveScreenBuffer Lib "kernel32" Alias "SetConsoleActiveScreenBuffer" (ByVal hConsoleOutput As Long) As Long Declare Function FlushConsoleInputBuffer Lib "kernel32" Alias "FlushConsoleInputBuffer" (ByVal hConsoleInput As Long) As Long Declare Function SetConsoleScreenBufferSize Lib "kernel32" Alias "SetConsoleScreenBufferSize" (ByVal hConsoleOutput As Long, dwSize As COORD) As Long Declare Function SetConsoleCursorPosition Lib "kernel32" Alias "SetConsoleCursorPosition" (ByVal hConsoleOutput As Long, dwCursorPosition As COORD) As Long Declare Function SetConsoleCursorInfo Lib "kernel32" Alias "SetConsoleCursorInfo" (ByVal hConsoleOutput As Long, lpConsoleCursorInfo As CONSOLE_CURSOR_INFO) As Long Declare Function ScrollConsoleScreenBuffer Lib "kernel32" Alias "ScrollConsoleScreenBufferA" (ByVal hConsoleOutput As Long, lpScrollRectangle As SMALL_RECT, lpClipRectangle As SMALL_RECT, dwDestinationOrigin As COORD, lpFill As CHAR_INFO) As Long Declare Function SetConsoleWindowInfo Lib "kernel32" Alias "SetConsoleWindowInfo" (ByVal hConsoleOutput As Long, ByVal bAbsolute As Long, lpConsoleWindow As SMALL_RECT) As Long Declare Function SetConsoleTextAttribute Lib "kernel32" Alias "SetConsoleTextAttribute" (ByVal hConsoleOutput As Long, ByVal wAttributes As Long) As Long Declare Function SetConsoleCtrlHandler Lib "kernel32" Alias "SetConsoleCtrlHandler" (ByVal HandlerRoutine As Long, ByVal Add As Long) As Long Declare Function GenerateConsoleCtrlEvent Lib "kernel32" Alias "GenerateConsoleCtrlEvent" (ByVal dwCtrlEvent As Long, ByVal dwProcessGroupId As Long) As Long Declare Function AllocConsole Lib "kernel32" Alias "AllocConsole" () As Long Declare Function FreeConsole Lib "kernel32" Alias "FreeConsole" () As Long Declare Function GetConsoleTitle Lib "kernel32" Alias "GetConsoleTitleA" (ByVal lpConsoleTitle As String, ByVal nSize As Long) As Long Declare Function SetConsoleTitle Lib "kernel32" Alias "SetConsoleTitleA" (ByVal lpConsoleTitle As String) As Long Declare Function ReadConsole Lib "kernel32" Alias "ReadConsoleA" (ByVal hConsoleInput As Long, lpBuffer As Any, ByVal nNumberOfCharsToRead As Long, lpNumberOfCharsRead As Long, lpReserved As Any) As Long Declare Function WriteConsole Lib "kernel32" Alias "WriteConsoleA" (ByVal hConsoleOutput As Long, lpBuffer As Any, ByVal nNumberOfCharsToWrite As Long, lpNumberOfCharsWritten As Long, lpReserved As Any) As Long Const CONSOLE_TEXTMODE_BUFFER = 1 Declare Function CreateConsoleScreenBuffer Lib "kernel32" Alias "CreateConsoleScreenBuffer" (ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal dwFlags As Long, lpScreenBufferData As Any) As Long Declare Function GetConsoleCP Lib "kernel32" Alias "GetConsoleCP" () As Long Declare Function SetConsoleCP Lib "kernel32" Alias "SetConsoleCP" (ByVal wCodePageID As Long) As Long Declare Function GetConsoleOutputCP Lib "kernel32" Alias "GetConsoleOutputCP" () As Long Declare Function SetConsoleOutputCP Lib "kernel32" Alias "SetConsoleOutputCP" (ByVal wCodePageID As Long) As Long ' ------------- ' GDI Section ' ------------- ' Binary raster ops Const R2_BLACK = 1 ' 0 Const R2_NOTMERGEPEN = 2 ' DPon Const R2_MASKNOTPEN = 3 ' DPna Const R2_NOTCOPYPEN = 4 ' PN Const R2_MASKPENNOT = 5 ' PDna Const R2_NOT = 6 ' Dn Const R2_XORPEN = 7 ' DPx Const R2_NOTMASKPEN = 8 ' DPan Const R2_MASKPEN = 9 ' DPa Const R2_NOTXORPEN = 10 ' DPxn Const R2_NOP = 11 ' D Const R2_MERGENOTPEN = 12 ' DPno Const R2_COPYPEN = 13 ' P Const R2_MERGEPENNOT = 14 ' PDno Const R2_MERGEPEN = 15 ' DPo Const R2_WHITE = 16 ' 1 Const R2_LAST = 16 ' Ternary raster operations Const SRCCOPY = &HCC0020 ' (DWORD) dest = source Const SRCPAINT = &HEE0086 ' (DWORD) dest = source OR dest Const SRCAND = &H8800C6 ' (DWORD) dest = source AND dest Const SRCINVERT = &H660046 ' (DWORD) dest = source XOR dest Const SRCERASE = &H440328 ' (DWORD) dest = source AND (NOT dest ) Const NOTSRCCOPY = &H330008 ' (DWORD) dest = (NOT source) Const NOTSRCERASE = &H1100A6 ' (DWORD) dest = (NOT src) AND (NOT dest) Const MERGECOPY = &HC000CA ' (DWORD) dest = (source AND pattern) Const MERGEPAINT = &HBB0226 ' (DWORD) dest = (NOT source) OR dest Const PATCOPY = &HF00021 ' (DWORD) dest = pattern Const PATPAINT = &HFB0A09 ' (DWORD) dest = DPSnoo Const PATINVERT = &H5A0049 ' (DWORD) dest = pattern XOR dest Const DSTINVERT = &H550009 ' (DWORD) dest = (NOT dest) Const BLACKNESS = &H42 ' (DWORD) dest = BLACK Const WHITENESS = &HFF0062 ' (DWORD) dest = WHITE Const GDI_ERROR = &HFFFF Const HGDI_ERROR = &HFFFF ' Region Flags Const ERRORAPI = 0 Const NULLREGION = 1 Const SIMPLEREGION = 2 Const COMPLEXREGION = 3 ' CombineRgn() Styles Const RGN_AND = 1 Const RGN_OR = 2 Const RGN_XOR = 3 Const RGN_DIFF = 4 Const RGN_COPY = 5 Const RGN_MIN = RGN_AND Const RGN_MAX = RGN_COPY ' StretchBlt() Modes Const BLACKONWHITE = 1 Const WHITEONBLACK = 2 Const COLORONCOLOR = 3 Const HALFTONE = 4 Const MAXSTRETCHBLTMODE = 4 ' PolyFill() Modes Const ALTERNATE = 1 Const WINDING = 2 Const POLYFILL_LAST = 2 ' Text Alignment Options Const TA_NOUPDATECP = 0 Const TA_UPDATECP = 1 Const TA_LEFT = 0 Const TA_RIGHT = 2 Const TA_CENTER = 6 Const TA_TOP = 0 Const TA_BOTTOM = 8 Const TA_BASELINE = 24 Const TA_MASK = (TA_BASELINE + TA_CENTER + TA_UPDATECP) Const VTA_BASELINE = TA_BASELINE Const VTA_LEFT = TA_BOTTOM Const VTA_RIGHT = TA_TOP Const VTA_CENTER = TA_CENTER Const VTA_BOTTOM = TA_RIGHT Const VTA_TOP = TA_LEFT Const ETO_GRAYED = 1 Const ETO_OPAQUE = 2 Const ETO_CLIPPED = 4 Const ASPECT_FILTERING = &H1 Const DCB_RESET = &H1 Const DCB_ACCUMULATE = &H2 Const DCB_DIRTY = DCB_ACCUMULATE Const DCB_SET = (DCB_RESET Or DCB_ACCUMULATE) Const DCB_ENABLE = &H4 Const DCB_DISABLE = &H8 ' Metafile Functions Const META_SETBKCOLOR = &H201 Const META_SETBKMODE = &H102 Const META_SETMAPMODE = &H103 Const META_SETROP2 = &H104 Const META_SETRELABS = &H105 Const META_SETPOLYFILLMODE = &H106 Const META_SETSTRETCHBLTMODE = &H107 Const META_SETTEXTCHAREXTRA = &H108 Const META_SETTEXTCOLOR = &H209 Const META_SETTEXTJUSTIFICATION = &H20A Const META_SETWINDOWORG = &H20B Const META_SETWINDOWEXT = &H20C Const META_SETVIEWPORTORG = &H20D Const META_SETVIEWPORTEXT = &H20E Const META_OFFSETWINDOWORG = &H20F Const META_SCALEWINDOWEXT = &H410 Const META_OFFSETVIEWPORTORG = &H211 Const META_SCALEVIEWPORTEXT = &H412 Const META_LINETO = &H213 Const META_MOVETO = &H214 Const META_EXCLUDECLIPRECT = &H415 Const META_INTERSECTCLIPRECT = &H416 Const META_ARC = &H817 Const META_ELLIPSE = &H418 Const META_FLOODFILL = &H419 Const META_PIE = &H81A Const META_RECTANGLE = &H41B Const META_ROUNDRECT = &H61C Const META_PATBLT = &H61D Const META_SAVEDC = &H1E Const META_SETPIXEL = &H41F Const META_OFFSETCLIPRGN = &H220 Const META_TEXTOUT = &H521 Const META_BITBLT = &H922 Const META_STRETCHBLT = &HB23 Const META_POLYGON = &H324 Const META_POLYLINE = &H325 Const META_ESCAPE = &H626 Const META_RESTOREDC = &H127 Const META_FILLREGION = &H228 Const META_FRAMEREGION = &H429 Const META_INVERTREGION = &H12A Const META_PAINTREGION = &H12B Const META_SELECTCLIPREGION = &H12C Const META_SELECTOBJECT = &H12D Const META_SETTEXTALIGN = &H12E Const META_CHORD = &H830 Const META_SETMAPPERFLAGS = &H231 Const META_EXTTEXTOUT = &HA32 Const META_SETDIBTODEV = &HD33 Const META_SELECTPALETTE = &H234 Const META_REALIZEPALETTE = &H35 Const META_ANIMATEPALETTE = &H436 Const META_SETPALENTRIES = &H37 Const META_POLYPOLYGON = &H538 Const META_RESIZEPALETTE = &H139 Const META_DIBBITBLT = &H940 Const META_DIBSTRETCHBLT = &HB41 Const META_DIBCREATEPATTERNBRUSH = &H142 Const META_STRETCHDIB = &HF43 Const META_EXTFLOODFILL = &H548 Const META_DELETEOBJECT = &H1F0 Const META_CREATEPALETTE = &HF7 Const META_CREATEPATTERNBRUSH = &H1F9 Const META_CREATEPENINDIRECT = &H2FA Const META_CREATEFONTINDIRECT = &H2FB Const META_CREATEBRUSHINDIRECT = &H2FC Const META_CREATEREGION = &H6FF ' GDI Escapes Const NEWFRAME = 1 Const AbortDocC = 2 Const NEXTBAND = 3 Const SETCOLORTABLE = 4 Const GETCOLORTABLE = 5 Const FLUSHOUTPUT = 6 Const DRAFTMODE = 7 Const QUERYESCSUPPORT = 8 Const SETABORTPROC = 9 Const StartDocC = 10 Const EndDocC = 11 Const GETPHYSPAGESIZE = 12 Const GETPRINTINGOFFSET = 13 Const GETSCALINGFACTOR = 14 Const MFCOMMENT = 15 Const GETPENWIDTH = 16 Const SETCOPYCOUNT = 17 Const SELECTPAPERSOURCE = 18 Const DEVICEDATA = 19 Const PASSTHROUGH = 19 Const GETTECHNOLGY = 20 Const GETTECHNOLOGY = 20 Const SETLINECAP = 21 Const SETLINEJOIN = 22 Const SetMiterLimitC = 23 Const BANDINFO = 24 Const DRAWPATTERNRECT = 25 Const GETVECTORPENSIZE = 26 Const GETVECTORBRUSHSIZE = 27 Const ENABLEDUPLEX = 28 Const GETSETPAPERBINS = 29 Const GETSETPRINTORIENT = 30 Const ENUMPAPERBINS = 31 Const SETDIBSCALING = 32 Const EPSPRINTING = 33 Const ENUMPAPERMETRICS = 34 Const GETSETPAPERMETRICS = 35 Const POSTSCRIPT_DATA = 37 Const POSTSCRIPT_IGNORE = 38 Const MOUSETRAILS = 39 Const GETDEVICEUNITS = 42 Const GETEXTENDEDTEXTMETRICS = 256 Const GETEXTENTTABLE = 257 Const GETPAIRKERNTABLE = 258 Const GETTRACKKERNTABLE = 259 Const ExtTextOutC = 512 Const GETFACENAME = 513 Const DOWNLOADFACE = 514 Const ENABLERELATIVEWIDTHS = 768 Const ENABLEPAIRKERNING = 769 Const SETKERNTRACK = 770 Const SETALLJUSTVALUES = 771 Const SETCHARSET = 772 Const StretchBltC = 2048 Const GETSETSCREENPARAMS = 3072 Const BEGIN_PATH = 4096 Const CLIP_TO_PATH = 4097 Const END_PATH = 4098 Const EXT_DEVICE_CAPS = 4099 Const RESTORE_CTM = 4100 Const SAVE_CTM = 4101 Const SET_ARC_DIRECTION = 4102 Const SET_BACKGROUND_COLOR = 4103 Const SET_POLY_MODE = 4104 Const SET_SCREEN_ANGLE = 4105 Const SET_SPREAD = 4106 Const TRANSFORM_CTM = 4107 Const SET_CLIP_BOX = 4108 Const SET_BOUNDS = 4109 Const SET_MIRROR_MODE = 4110 Const OPENCHANNEL = 4110 Const DOWNLOADHEADER = 4111 Const CLOSECHANNEL = 4112 Const POSTSCRIPT_PASSTHROUGH = 4115 Const ENCAPSULATED_POSTSCRIPT = 4116 ' Spooler Error Codes Const SP_NOTREPORTED = &H4000 Const SP_ERROR = (-1) Const SP_APPABORT = (-2) Const SP_USERABORT = (-3) Const SP_OUTOFDISK = (-4) Const SP_OUTOFMEMORY = (-5) Const PR_JOBSTATUS = &H0 ' Object Definitions for EnumObjects() Const OBJ_PEN = 1 Const OBJ_BRUSH = 2 Const OBJ_DC = 3 Const OBJ_METADC = 4 Const OBJ_PAL = 5 Const OBJ_FONT = 6 Const OBJ_BITMAP = 7 Const OBJ_REGION = 8 Const OBJ_METAFILE = 9 Const OBJ_MEMDC = 10 Const OBJ_EXTPEN = 11 Const OBJ_ENHMETADC = 12 Const OBJ_ENHMETAFILE = 13 ' xform stuff Const MWT_IDENTITY = 1 Const MWT_LEFTMULTIPLY = 2 Const MWT_RIGHTMULTIPLY = 3 Const MWT_MIN = MWT_IDENTITY Const MWT_MAX = MWT_RIGHTMULTIPLY Type XFORM eM11 As Double eM12 As Double eM21 As Double eM22 As Double eDx As Double eDy As Double End Type ' Bitmap Header Definition Type BITMAP '14 bytes bmType As Long bmWidth As Long bmHeight As Long bmWidthBytes As Long bmPlanes As Integer bmBitsPixel As Integer bmBits As Long End Type Type RGBTRIPLE rgbtBlue As Byte rgbtGreen As Byte rgbtRed As Byte End Type Type RGBQUAD rgbBlue As Byte rgbGreen As Byte rgbRed As Byte rgbReserved As Byte End Type ' structures for defining DIBs Type BITMAPCOREHEADER '12 bytes bcSize As Long bcWidth As Integer bcHeight As Integer bcPlanes As Integer bcBitCount As Integer End Type Type BITMAPINFOHEADER '40 bytes biSize As Long biWidth As Long biHeight As Long biPlanes As Integer biBitCount As Integer biCompression As Long biSizeImage As Long biXPelsPerMeter As Long biYPelsPerMeter As Long biClrUsed As Long biClrImportant As Long End Type ' constants for the biCompression field Const BI_RGB = 0& Const BI_RLE8 = 1& Const BI_RLE4 = 2& Const BI_bitfields = 3& Type BITMAPINFO bmiHeader As BITMAPINFOHEADER bmiColors As RGBQUAD End Type Type BITMAPCOREINFO bmciHeader As BITMAPCOREHEADER bmciColors As RGBTRIPLE End Type Type BITMAPFILEHEADER bfType As Integer bfSize As Long bfReserved1 As Integer bfReserved2 As Integer bfOffBits As Long End Type ' Clipboard Metafile Picture Structure Type HANDLETABLE objectHandle(1) As Long End Type Type METARECORD rdSize As Long rdFunction As Integer rdParm(1) As Integer End Type Type METAFILEPICT mm As Long xExt As Long yExt As Long hMF As Long End Type Type METAHEADER mtType As Integer mtHeaderSize As Integer mtVersion As Integer mtSize As Long mtNoObjects As Integer mtMaxRecord As Long mtNoParameters As Integer End Type Type ENHMETARECORD iType As Long nSize As Long dParm(1) As Long End Type Type SIZEL cx As Long cy As Long End Type Type ENHMETAHEADER iType As Long nSize As Long rclBounds As RECTL rclFrame As RECTL dSignature As Long nVersion As Long nBytes As Long nRecords As Long nHandles As Integer sReserved As Integer nDescription As Long offDescription As Long nPalEntries As Long szlDevice As SIZEL szlMillimeters As SIZEL End Type Type TEXTMETRIC tmHeight As Long tmAscent As Long tmDescent As Long tmInternalLeading As Long tmExternalLeading As Long tmAveCharWidth As Long tmMaxCharWidth As Long tmWeight As Long tmOverhang As Long tmDigitizedAspectX As Long tmDigitizedAspectY As Long tmFirstChar As Byte tmLastChar As Byte tmDefaultChar As Byte tmBreakChar As Byte tmItalic As Byte tmUnderlined As Byte tmStruckOut As Byte tmPitchAndFamily As Byte tmCharSet As Byte End Type ' ntmFlags field flags Const NTM_REGULAR = &H40& Const NTM_BOLD = &H20& Const NTM_ITALIC = &H1& ' Structure passed to FONTENUMPROC ' NOTE: NEWTEXTMETRIC is the same as TEXTMETRIC plus 4 new fields Type NEWTEXTMETRIC tmHeight As Long tmAscent As Long tmDescent As Long tmInternalLeading As Long tmExternalLeading As Long tmAveCharWidth As Long tmMaxCharWidth As Long tmWeight As Long tmOverhang As Long tmDigitizedAspectX As Long tmDigitizedAspectY As Long tmFirstChar As Byte tmLastChar As Byte tmDefaultChar As Byte tmBreakChar As Byte tmItalic As Byte tmUnderlined As Byte tmStruckOut As Byte tmPitchAndFamily As Byte tmCharSet As Byte ntmFlags As Long ntmSizeEM As Long ntmCellHeight As Long ntmAveWidth As Long End Type ' tmPitchAndFamily flags Const TMPF_FIXED_PITCH = &H1 Const TMPF_VECTOR = &H2 Const TMPF_DEVICE = &H8 Const TMPF_TRUETYPE = &H4 ' GDI Logical Objects: Type PELARRAY paXCount As Long paYCount As Long paXExt As Long paYExt As Long paRGBs As Integer End Type ' Logical Brush (or Pattern) Type LOGBRUSH lbStyle As Long lbColor As Long lbHatch As Long End Type ' Logical Pen Type LOGPEN lopnStyle As Long lopnWidth As POINTAPI lopnColor As Long End Type Type EXTLOGPEN elpPenStyle As Long elpWidth As Long elpBrushStyle As Long elpColor As Long elpHatch As Long elpNumEntries As Long elpStyleEntry(1) As Long End Type Type PALETTEENTRY peRed As Byte peGreen As Byte peBlue As Byte peFlags As Byte End Type ' Logical Palette Type LOGPALETTE palVersion As Integer palNumEntries As Integer palPalEntry(1) As PALETTEENTRY End Type ' Logical Font Const LF_FACESIZE = 32 Const LF_FULLFACESIZE = 64 Type LOGFONT lfHeight As Long lfWidth As Long lfEscapement As Long lfOrientation As Long lfWeight As Long lfItalic As Byte lfUnderline As Byte lfStrikeOut As Byte lfCharSet As Byte lfOutPrecision As Byte lfClipPrecision As Byte lfQuality As Byte lfPitchAndFamily As Byte lfFaceName(1 To LF_FACESIZE) As Byte End Type Type NONCLIENTMETRICS cbSize As Long iBorderWidth As Long iScrollWidth As Long iScrollHeight As Long iCaptionWidth As Long iCaptionHeight As Long lfCaptionFont As LOGFONT iSMCaptionWidth As Long iSMCaptionHeight As Long lfSMCaptionFont As LOGFONT iMenuWidth As Long iMenuHeight As Long lfMenuFont As LOGFONT lfStatusFont As LOGFONT lfMessageFont As LOGFONT End Type Type ENUMLOGFONT elfLogFont As LOGFONT elfFullName(LF_FULLFACESIZE) As Byte elfStyle(LF_FACESIZE) As Byte End Type Const OUT_DEFAULT_PRECIS = 0 Const OUT_STRING_PRECIS = 1 Const OUT_CHARACTER_PRECIS = 2 Const OUT_STROKE_PRECIS = 3 Const OUT_TT_PRECIS = 4 Const OUT_DEVICE_PRECIS = 5 Const OUT_RASTER_PRECIS = 6 Const OUT_TT_ONLY_PRECIS = 7 Const OUT_OUTLINE_PRECIS = 8 Const CLIP_DEFAULT_PRECIS = 0 Const CLIP_CHARACTER_PRECIS = 1 Const CLIP_STROKE_PRECIS = 2 Const CLIP_MASK = &HF Const CLIP_LH_ANGLES = 16 Const CLIP_TT_ALWAYS = 32 Const CLIP_EMBEDDED = 128 Const DEFAULT_QUALITY = 0 Const DRAFT_QUALITY = 1 Const PROOF_QUALITY = 2 Const DEFAULT_PITCH = 0 Const FIXED_PITCH = 1 Const VARIABLE_PITCH = 2 Const ANSI_CHARSET = 0 Const DEFAULT_CHARSET = 1 Const SYMBOL_CHARSET = 2 Const SHIFTJIS_CHARSET = 128 Const HANGEUL_CHARSET = 129 Const CHINESEBIG5_CHARSET = 136 Const OEM_CHARSET = 255 ' Font Families ' Const FF_DONTCARE = 0 ' Don't care or don't know. Const FF_ROMAN = 16 ' Variable stroke width, serifed. ' Times Roman, Century Schoolbook, etc. Const FF_SWISS = 32 ' Variable stroke width, sans-serifed. ' Helvetica, Swiss, etc. Const FF_MODERN = 48 ' Constant stroke width, serifed or sans-serifed. ' Pica, Elite, Courier, etc. Const FF_SCRIPT = 64 ' Cursive, etc. Const FF_DECORATIVE = 80 ' Old English, etc. ' Font Weights Const FW_DONTCARE = 0 Const FW_THIN = 100 Const FW_EXTRALIGHT = 200 Const FW_LIGHT = 300 Const FW_NORMAL = 400 Const FW_MEDIUM = 500 Const FW_SEMIBOLD = 600 Const FW_BOLD = 700 Const FW_EXTRABOLD = 800 Const FW_HEAVY = 900 Const FW_ULTRALIGHT = FW_EXTRALIGHT Const FW_REGULAR = FW_NORMAL Const FW_DEMIBOLD = FW_SEMIBOLD Const FW_ULTRABOLD = FW_EXTRABOLD Const FW_BLACK = FW_HEAVY Const PANOSE_COUNT = 10 Const PAN_FAMILYTYPE_INDEX = 0 Const PAN_SERIFSTYLE_INDEX = 1 Const PAN_WEIGHT_INDEX = 2 Const PAN_PROPORTION_INDEX = 3 Const PAN_CONTRAST_INDEX = 4 Const PAN_STROKEVARIATION_INDEX = 5 Const PAN_ARMSTYLE_INDEX = 6 Const PAN_LETTERFORM_INDEX = 7 Const PAN_MIDLINE_INDEX = 8 Const PAN_XHEIGHT_INDEX = 9 Const PAN_CULTURE_LATIN = 0 Type PANOSE ulculture As Long bFamilyType As Byte bSerifStyle As Byte bWeight As Byte bProportion As Byte bContrast As Byte bStrokeVariation As Byte bArmStyle As Byte bLetterform As Byte bMidline As Byte bXHeight As Byte End Type Const PAN_ANY = 0 ' Any Const PAN_NO_FIT = 1 ' No Fit Const PAN_FAMILY_TEXT_DISPLAY = 2 ' Text and Display Const PAN_FAMILY_SCRIPT = 3 ' Script Const PAN_FAMILY_DECORATIVE = 4 ' Decorative Const PAN_FAMILY_PICTORIAL = 5 ' Pictorial Const PAN_SERIF_COVE = 2 ' Cove Const PAN_SERIF_OBTUSE_COVE = 3 ' Obtuse Cove Const PAN_SERIF_SQUARE_COVE = 4 ' Square Cove Const PAN_SERIF_OBTUSE_SQUARE_COVE = 5 ' Obtuse Square Cove Const PAN_SERIF_SQUARE = 6 ' Square Const PAN_SERIF_THIN = 7 ' Thin Const PAN_SERIF_BONE = 8 ' Bone Const PAN_SERIF_EXAGGERATED = 9 ' Exaggerated Const PAN_SERIF_TRIANGLE = 10 ' Triangle Const PAN_SERIF_NORMAL_SANS = 11 ' Normal Sans Const PAN_SERIF_OBTUSE_SANS = 12 ' Obtuse Sans Const PAN_SERIF_PERP_SANS = 13 ' Prep Sans Const PAN_SERIF_FLARED = 14 ' Flared Const PAN_SERIF_ROUNDED = 15 ' Rounded Const PAN_WEIGHT_VERY_LIGHT = 2 ' Very Light Const PAN_WEIGHT_LIGHT = 3 ' Light Const PAN_WEIGHT_THIN = 4 ' Thin Const PAN_WEIGHT_BOOK = 5 ' Book Const PAN_WEIGHT_MEDIUM = 6 ' Medium Const PAN_WEIGHT_DEMI = 7 ' Demi Const PAN_WEIGHT_BOLD = 8 ' Bold Const PAN_WEIGHT_HEAVY = 9 ' Heavy Const PAN_WEIGHT_BLACK = 10 ' Black Const PAN_WEIGHT_NORD = 11 ' Nord Const PAN_PROP_OLD_STYLE = 2 ' Old Style Const PAN_PROP_MODERN = 3 ' Modern Const PAN_PROP_EVEN_WIDTH = 4 ' Even Width Const PAN_PROP_EXPANDED = 5 ' Expanded Const PAN_PROP_CONDENSED = 6 ' Condensed Const PAN_PROP_VERY_EXPANDED = 7 ' Very Expanded Const PAN_PROP_VERY_CONDENSED = 8 ' Very Condensed Const PAN_PROP_MONOSPACED = 9 ' Monospaced Const PAN_CONTRAST_NONE = 2 ' None Const PAN_CONTRAST_VERY_LOW = 3 ' Very Low Const PAN_CONTRAST_LOW = 4 ' Low Const PAN_CONTRAST_MEDIUM_LOW = 5 ' Medium Low Const PAN_CONTRAST_MEDIUM = 6 ' Medium Const PAN_CONTRAST_MEDIUM_HIGH = 7 ' Mediim High Const PAN_CONTRAST_HIGH = 8 ' High Const PAN_CONTRAST_VERY_HIGH = 9 ' Very High Const PAN_STROKE_GRADUAL_DIAG = 2 ' Gradual/Diagonal Const PAN_STROKE_GRADUAL_TRAN = 3 ' Gradual/Transitional Const PAN_STROKE_GRADUAL_VERT = 4 ' Gradual/Vertical Const PAN_STROKE_GRADUAL_HORZ = 5 ' Gradual/Horizontal Const PAN_STROKE_RAPID_VERT = 6 ' Rapid/Vertical Const PAN_STROKE_RAPID_HORZ = 7 ' Rapid/Horizontal Const PAN_STROKE_INSTANT_VERT = 8 ' Instant/Vertical Const PAN_STRAIGHT_ARMS_HORZ = 2 ' Straight Arms/Horizontal Const PAN_STRAIGHT_ARMS_WEDGE = 3 ' Straight Arms/Wedge Const PAN_STRAIGHT_ARMS_VERT = 4 ' Straight Arms/Vertical Const PAN_STRAIGHT_ARMS_SINGLE_SERIF = 5 ' Straight Arms/Single-Serif Const PAN_STRAIGHT_ARMS_DOUBLE_SERIF = 6 ' Straight Arms/Double-Serif Const PAN_BENT_ARMS_HORZ = 7 ' Non-Straight Arms/Horizontal Const PAN_BENT_ARMS_WEDGE = 8 ' Non-Straight Arms/Wedge Const PAN_BENT_ARMS_VERT = 9 ' Non-Straight Arms/Vertical Const PAN_BENT_ARMS_SINGLE_SERIF = 10 ' Non-Straight Arms/Single-Serif Const PAN_BENT_ARMS_DOUBLE_SERIF = 11 ' Non-Straight Arms/Double-Serif Const PAN_LETT_NORMAL_CONTACT = 2 ' Normal/Contact Const PAN_LETT_NORMAL_WEIGHTED = 3 ' Normal/Weighted Const PAN_LETT_NORMAL_BOXED = 4 ' Normal/Boxed Const PAN_LETT_NORMAL_FLATTENED = 5 ' Normal/Flattened Const PAN_LETT_NORMAL_ROUNDED = 6 ' Normal/Rounded Const PAN_LETT_NORMAL_OFF_CENTER = 7 ' Normal/Off Center Const PAN_LETT_NORMAL_SQUARE = 8 ' Normal/Square Const PAN_LETT_OBLIQUE_CONTACT = 9 ' Oblique/Contact Const PAN_LETT_OBLIQUE_WEIGHTED = 10 ' Oblique/Weighted Const PAN_LETT_OBLIQUE_BOXED = 11 ' Oblique/Boxed Const PAN_LETT_OBLIQUE_FLATTENED = 12 ' Oblique/Flattened Const PAN_LETT_OBLIQUE_ROUNDED = 13 ' Oblique/Rounded Const PAN_LETT_OBLIQUE_OFF_CENTER = 14 ' Oblique/Off Center Const PAN_LETT_OBLIQUE_SQUARE = 15 ' Oblique/Square Const PAN_MIDLINE_STANDARD_TRIMMED = 2 ' Standard/Trimmed Const PAN_MIDLINE_STANDARD_POINTED = 3 ' Standard/Pointed Const PAN_MIDLINE_STANDARD_SERIFED = 4 ' Standard/Serifed Const PAN_MIDLINE_HIGH_TRIMMED = 5 ' High/Trimmed Const PAN_MIDLINE_HIGH_POINTED = 6 ' High/Pointed Const PAN_MIDLINE_HIGH_SERIFED = 7 ' High/Serifed Const PAN_MIDLINE_CONSTANT_TRIMMED = 8 ' Constant/Trimmed Const PAN_MIDLINE_CONSTANT_POINTED = 9 ' Constant/Pointed Const PAN_MIDLINE_CONSTANT_SERIFED = 10 ' Constant/Serifed Const PAN_MIDLINE_LOW_TRIMMED = 11 ' Low/Trimmed Const PAN_MIDLINE_LOW_POINTED = 12 ' Low/Pointed Const PAN_MIDLINE_LOW_SERIFED = 13 ' Low/Serifed Const PAN_XHEIGHT_CONSTANT_SMALL = 2 ' Constant/Small Const PAN_XHEIGHT_CONSTANT_STD = 3 ' Constant/Standard Const PAN_XHEIGHT_CONSTANT_LARGE = 4 ' Constant/Large Const PAN_XHEIGHT_DUCKING_SMALL = 5 ' Ducking/Small Const PAN_XHEIGHT_DUCKING_STD = 6 ' Ducking/Standard Const PAN_XHEIGHT_DUCKING_LARGE = 7 ' Ducking/Large Const ELF_VENDOR_SIZE = 4 Type EXTLOGFONT elfLogFont As LOGFONT elfFullName(LF_FULLFACESIZE) As Byte elfStyle(LF_FACESIZE) As Byte elfVersion As Long elfStyleSize As Long elfMatch As Long elfReserved As Long elfVendorId(ELF_VENDOR_SIZE) As Byte elfCulture As Long elfPanose As PANOSE End Type Const ELF_VERSION = 0 Const ELF_CULTURE_LATIN = 0 ' EnumFonts Masks Const RASTER_FONTTYPE = &H1 Const DEVICE_FONTTYPE = &H2 Const TRUETYPE_FONTTYPE = &H4 ' palette entry flags Const PC_RESERVED = &H1 ' palette index used for animation Const PC_EXPLICIT = &H2 ' palette index is explicit to device Const PC_NOCOLLAPSE = &H4 ' do not match color to system palette ' Background Modes Const TRANSPARENT = 1 Const OPAQUE = 2 Const BKMODE_LAST = 2 ' Graphics Modes Const GM_COMPATIBLE = 1 Const GM_ADVANCED = 2 Const GM_LAST = 2 ' PolyDraw and GetPath point types Const PT_CLOSEFIGURE = &H1 Const PT_LINETO = &H2 Const PT_BEZIERTO = &H4 Const PT_MOVETO = &H6 ' Mapping Modes Const MM_TEXT = 1 Const MM_LOMETRIC = 2 Const MM_HIMETRIC = 3 Const MM_LOENGLISH = 4 Const MM_HIENGLISH = 5 Const MM_TWIPS = 6 Const MM_ISOTROPIC = 7 Const MM_ANISOTROPIC = 8 ' Min and Max Mapping Mode values Const MM_MIN = MM_TEXT Const MM_MAX = MM_ANISOTROPIC Const MM_MAX_FIXEDSCALE = MM_TWIPS ' Coordinate Modes Const ABSOLUTE = 1 Const RELATIVE = 2 ' Stock Logical Objects Const WHITE_BRUSH = 0 Const LTGRAY_BRUSH = 1 Const GRAY_BRUSH = 2 Const DKGRAY_BRUSH = 3 Const BLACK_BRUSH = 4 Const NULL_BRUSH = 5 Const HOLLOW_BRUSH = NULL_BRUSH Const WHITE_PEN = 6 Const BLACK_PEN = 7 Const NULL_PEN = 8 Const OEM_FIXED_FONT = 10 Const ANSI_FIXED_FONT = 11 Const ANSI_VAR_FONT = 12 Const SYSTEM_FONT = 13 Const DEVICE_DEFAULT_FONT = 14 Const DEFAULT_PALETTE = 15 Const SYSTEM_FIXED_FONT = 16 Const STOCK_LAST = 16 Const CLR_INVALID = &HFFFF ' Brush Styles Const BS_SOLID = 0 Const BS_NULL = 1 Const BS_HOLLOW = BS_NULL Const BS_HATCHED = 2 Const BS_PATTERN = 3 Const BS_INDEXED = 4 Const BS_DIBPATTERN = 5 Const BS_DIBPATTERNPT = 6 Const BS_PATTERN8X8 = 7 Const BS_DIBPATTERN8X8 = 8 ' Hatch Styles Const HS_HORIZONTAL = 0 ' ----- Const HS_VERTICAL = 1 ' ||||| Const HS_FDIAGONAL = 2 ' \\\\\ Const HS_BDIAGONAL = 3 ' ///// Const HS_CROSS = 4 ' +++++ Const HS_DIAGCROSS = 5 ' xxxxx Const HS_FDIAGONAL1 = 6 Const HS_BDIAGONAL1 = 7 Const HS_SOLID = 8 Const HS_DENSE1 = 9 Const HS_DENSE2 = 10 Const HS_DENSE3 = 11 Const HS_DENSE4 = 12 Const HS_DENSE5 = 13 Const HS_DENSE6 = 14 Const HS_DENSE7 = 15 Const HS_DENSE8 = 16 Const HS_NOSHADE = 17 Const HS_HALFTONE = 18 Const HS_SOLIDCLR = 19 Const HS_DITHEREDCLR = 20 Const HS_SOLIDTEXTCLR = 21 Const HS_DITHEREDTEXTCLR = 22 Const HS_SOLIDBKCLR = 23 Const HS_DITHEREDBKCLR = 24 Const HS_API_MAX = 25 ' Pen Styles Const PS_SOLID = 0 Const PS_DASH = 1 ' ------- Const PS_DOT = 2 ' ....... Const PS_DASHDOT = 3 ' _._._._ Const PS_DASHDOTDOT = 4 ' _.._.._ Const PS_NULL = 5 Const PS_INSIDEFRAME = 6 Const PS_USERSTYLE = 7 Const PS_ALTERNATE = 8 Const PS_STYLE_MASK = &HF Const PS_ENDCAP_ROUND = &H0 Const PS_ENDCAP_SQUARE = &H100 Const PS_ENDCAP_FLAT = &H200 Const PS_ENDCAP_MASK = &HF00 Const PS_JOIN_ROUND = &H0 Const PS_JOIN_BEVEL = &H1000 Const PS_JOIN_MITER = &H2000 Const PS_JOIN_MASK = &HF000 Const PS_COSMETIC = &H0 Const PS_GEOMETRIC = &H10000 Const PS_TYPE_MASK = &HF0000 Const AD_COUNTERCLOCKWISE = 1 Const AD_CLOCKWISE = 2 ' Device Parameters for GetDeviceCaps() Const DRIVERVERSION = 0 ' Device driver version Const TECHNOLOGY = 2 ' Device classification Const HORZSIZE = 4 ' Horizontal size in millimeters Const VERTSIZE = 6 ' Vertical size in millimeters Const HORZRES = 8 ' Horizontal width in pixels Const VERTRES = 10 ' Vertical width in pixels Const BITSPIXEL = 12 ' Number of bits per pixel Const PLANES = 14 ' Number of planes Const NUMBRUSHES = 16 ' Number of brushes the device has Const NUMPENS = 18 ' Number of pens the device has Const NUMMARKERS = 20 ' Number of markers the device has Const NUMFONTS = 22 ' Number of fonts the device has Const NUMCOLORS = 24 ' Number of colors the device supports Const PDEVICESIZE = 26 ' Size required for device descriptor Const CURVECAPS = 28 ' Curve capabilities Const LINECAPS = 30 ' Line capabilities Const POLYGONALCAPS = 32 ' Polygonal capabilities Const TEXTCAPS = 34 ' Text capabilities Const CLIPCAPS = 36 ' Clipping capabilities Const RASTERCAPS = 38 ' Bitblt capabilities Const ASPECTX = 40 ' Length of the X leg Const ASPECTY = 42 ' Length of the Y leg Const ASPECTXY = 44 ' Length of the hypotenuse Const LOGPIXELSX = 88 ' Logical pixels/inch in X Const LOGPIXELSY = 90 ' Logical pixels/inch in Y Const SIZEPALETTE = 104 ' Number of entries in physical palette Const NUMRESERVED = 106 ' Number of reserved entries in palette Const COLORRES = 108 ' Actual color resolution ' Printing related DeviceCaps. These replace the appropriate Escapes Const PHYSICALWIDTH = 110 ' Physical Width in device units Const PHYSICALHEIGHT = 111 ' Physical Height in device units Const PHYSICALOFFSETX = 112 ' Physical Printable Area x margin Const PHYSICALOFFSETY = 113 ' Physical Printable Area y margin Const SCALINGFACTORX = 114 ' Scaling factor x Const SCALINGFACTORY = 115 ' Scaling factor y ' Device Capability Masks: ' Device Technologies Const DT_PLOTTER = 0 ' Vector plotter Const DT_RASDISPLAY = 1 ' Raster display Const DT_RASPRINTER = 2 ' Raster printer Const DT_RASCAMERA = 3 ' Raster camera Const DT_CHARSTREAM = 4 ' Character-stream, PLP Const DT_METAFILE = 5 ' Metafile, VDM Const DT_DISPFILE = 6 ' Display-file ' Curve Capabilities Const CC_NONE = 0 ' Curves not supported Const CC_CIRCLES = 1 ' Can do circles Const CC_PIE = 2 ' Can do pie wedges Const CC_CHORD = 4 ' Can do chord arcs Const CC_ELLIPSES = 8 ' Can do ellipese Const CC_WIDE = 16 ' Can do wide lines Const CC_STYLED = 32 ' Can do styled lines Const CC_WIDESTYLED = 64 ' Can do wide styled lines Const CC_INTERIORS = 128 ' Can do interiors Const CC_ROUNDRECT = 256 ' ' Line Capabilities Const LC_NONE = 0 ' Lines not supported Const LC_POLYLINE = 2 ' Can do polylines Const LC_MARKER = 4 ' Can do markers Const LC_POLYMARKER = 8 ' Can do polymarkers Const LC_WIDE = 16 ' Can do wide lines Const LC_STYLED = 32 ' Can do styled lines Const LC_WIDESTYLED = 64 ' Can do wide styled lines Const LC_INTERIORS = 128 ' Can do interiors ' Polygonal Capabilities Const PC_NONE = 0 ' Polygonals not supported Const PC_POLYGON = 1 ' Can do polygons Const PC_RECTANGLE = 2 ' Can do rectangles Const PC_WINDPOLYGON = 4 ' Can do winding polygons Const PC_TRAPEZOID = 4 ' Can do trapezoids Const PC_SCANLINE = 8 ' Can do scanlines Const PC_WIDE = 16 ' Can do wide borders Const PC_STYLED = 32 ' Can do styled borders Const PC_WIDESTYLED = 64 ' Can do wide styled borders Const PC_INTERIORS = 128 ' Can do interiors ' Polygonal Capabilities Const CP_NONE = 0 ' No clipping of output Const CP_RECTANGLE = 1 ' Output clipped to rects Const CP_REGION = 2 ' ' Text Capabilities Const TC_OP_CHARACTER = &H1 ' Can do OutputPrecision CHARACTER Const TC_OP_STROKE = &H2 ' Can do OutputPrecision STROKE Const TC_CP_STROKE = &H4 ' Can do ClipPrecision STROKE Const TC_CR_90 = &H8 ' Can do CharRotAbility 90 Const TC_CR_ANY = &H10 ' Can do CharRotAbility ANY Const TC_SF_X_YINDEP = &H20 ' Can do ScaleFreedom X_YINDEPENDENT Const TC_SA_DOUBLE = &H40 ' Can do ScaleAbility DOUBLE Const TC_SA_INTEGER = &H80 ' Can do ScaleAbility INTEGER Const TC_SA_CONTIN = &H100 ' Can do ScaleAbility CONTINUOUS Const TC_EA_DOUBLE = &H200 ' Can do EmboldenAbility DOUBLE Const TC_IA_ABLE = &H400 ' Can do ItalisizeAbility ABLE Const TC_UA_ABLE = &H800 ' Can do UnderlineAbility ABLE Const TC_SO_ABLE = &H1000 ' Can do StrikeOutAbility ABLE Const TC_RA_ABLE = &H2000 ' Can do RasterFontAble ABLE Const TC_VA_ABLE = &H4000 ' Can do VectorFontAble ABLE Const TC_RESERVED = &H8000 Const TC_SCROLLBLT = &H10000 ' do text scroll with blt ' Raster Capabilities Const RC_NONE = 0 Const RC_BITBLT = 1 ' Can do standard BLT. Const RC_BANDING = 2 ' Device requires banding support Const RC_SCALING = 4 ' Device requires scaling support Const RC_BITMAP64 = 8 ' Device can support >64K bitmap Const RC_GDI20_OUTPUT = &H10 ' has 2.0 output calls Const RC_GDI20_STATE = &H20 Const RC_SAVEBITMAP = &H40 Const RC_DI_BITMAP = &H80 ' supports DIB to memory Const RC_PALETTE = &H100 ' supports a palette Const RC_DIBTODEV = &H200 ' supports DIBitsToDevice Const RC_BIGFONT = &H400 ' supports >64K fonts Const RC_STRETCHBLT = &H800 ' supports StretchBlt Const RC_FLOODFILL = &H1000 ' supports FloodFill Const RC_STRETCHDIB = &H2000 ' supports StretchDIBits Const RC_OP_DX_OUTPUT = &H4000 Const RC_DEVBITS = &H8000 ' DIB color table identifiers Const DIB_RGB_COLORS = 0 ' color table in RGBs Const DIB_PAL_COLORS = 1 ' color table in palette indices Const DIB_PAL_INDICES = 2 ' No color table indices into surf palette Const DIB_PAL_PHYSINDICES = 2 ' No color table indices into surf palette Const DIB_PAL_LOGINDICES = 4 ' No color table indices into DC palette ' constants for Get/SetSystemPaletteUse() Const SYSPAL_ERROR = 0 Const SYSPAL_STATIC = 1 Const SYSPAL_NOSTATIC = 2 ' constants for CreateDIBitmap Const CBM_CREATEDIB = &H2 ' create DIB bitmap Const CBM_INIT = &H4 ' initialize bitmap ' ExtFloodFill style flags Const FLOODFILLBORDER = 0 Const FLOODFILLSURFACE = 1 ' size of a device name string Const CCHDEVICENAME = 32 ' size of a form name string Const CCHFORMNAME = 32 Type DEVMODE dmDeviceName As String * CCHDEVICENAME dmSpecVersion As Integer dmDriverVersion As Integer dmSize As Integer dmDriverExtra As Integer dmFields As Long dmOrientation As Integer dmPaperSize As Integer dmPaperLength As Integer dmPaperWidth As Integer dmScale As Integer dmCopies As Integer dmDefaultSource As Integer dmPrintQuality As Integer dmColor As Integer dmDuplex As Integer dmYResolution As Integer dmTTOption As Integer dmCollate As Integer dmFormName As String * CCHFORMNAME dmUnusedPadding As Integer dmBitsPerPel As Long dmPelsWidth As Long dmPelsHeight As Long dmDisplayFlags As Long dmDisplayFrequency As Long End Type ' current version of specification Const DM_SPECVERSION = &H320 ' field selection bits Const DM_ORIENTATION = &H1& Const DM_PAPERSIZE = &H2& Const DM_PAPERLENGTH = &H4& Const DM_PAPERWIDTH = &H8& Const DM_SCALE = &H10& Const DM_COPIES = &H100& Const DM_DEFAULTSOURCE = &H200& Const DM_PRINTQUALITY = &H400& Const DM_COLOR = &H800& Const DM_DUPLEX = &H1000& Const DM_YRESOLUTION = &H2000& Const DM_TTOPTION = &H4000& Const DM_COLLATE As Long = &H8000 Const DM_FORMNAME As Long = &H10000 ' orientation selections Const DMORIENT_PORTRAIT = 1 Const DMORIENT_LANDSCAPE = 2 ' paper selections Const DMPAPER_LETTER = 1 Const DMPAPER_FIRST = DMPAPER_LETTER ' Letter 8 1/2 x 11 in Const DMPAPER_LETTERSMALL = 2 ' Letter Small 8 1/2 x 11 in Const DMPAPER_TABLOID = 3 ' Tabloid 11 x 17 in Const DMPAPER_LEDGER = 4 ' Ledger 17 x 11 in Const DMPAPER_LEGAL = 5 ' Legal 8 1/2 x 14 in Const DMPAPER_STATEMENT = 6 ' Statement 5 1/2 x 8 1/2 in Const DMPAPER_EXECUTIVE = 7 ' Executive 7 1/4 x 10 1/2 in Const DMPAPER_A3 = 8 ' A3 297 x 420 mm Const DMPAPER_A4 = 9 ' A4 210 x 297 mm Const DMPAPER_A4SMALL = 10 ' A4 Small 210 x 297 mm Const DMPAPER_A5 = 11 ' A5 148 x 210 mm Const DMPAPER_B4 = 12 ' B4 250 x 354 Const DMPAPER_B5 = 13 ' B5 182 x 257 mm Const DMPAPER_FOLIO = 14 ' Folio 8 1/2 x 13 in Const DMPAPER_QUARTO = 15 ' Quarto 215 x 275 mm Const DMPAPER_10X14 = 16 ' 10x14 in Const DMPAPER_11X17 = 17 ' 11x17 in Const DMPAPER_NOTE = 18 ' Note 8 1/2 x 11 in Const DMPAPER_ENV_9 = 19 ' Envelope #9 3 7/8 x 8 7/8 Const DMPAPER_ENV_10 = 20 ' Envelope #10 4 1/8 x 9 1/2 Const DMPAPER_ENV_11 = 21 ' Envelope #11 4 1/2 x 10 3/8 Const DMPAPER_ENV_12 = 22 ' Envelope #12 4 \276 x 11 Const DMPAPER_ENV_14 = 23 ' Envelope #14 5 x 11 1/2 Const DMPAPER_CSHEET = 24 ' C size sheet Const DMPAPER_DSHEET = 25 ' D size sheet Const DMPAPER_ESHEET = 26 ' E size sheet Const DMPAPER_ENV_DL = 27 ' Envelope DL 110 x 220mm Const DMPAPER_ENV_C5 = 28 ' Envelope C5 162 x 229 mm Const DMPAPER_ENV_C3 = 29 ' Envelope C3 324 x 458 mm Const DMPAPER_ENV_C4 = 30 ' Envelope C4 229 x 324 mm Const DMPAPER_ENV_C6 = 31 ' Envelope C6 114 x 162 mm Const DMPAPER_ENV_C65 = 32 ' Envelope C65 114 x 229 mm Const DMPAPER_ENV_B4 = 33 ' Envelope B4 250 x 353 mm Const DMPAPER_ENV_B5 = 34 ' Envelope B5 176 x 250 mm Const DMPAPER_ENV_B6 = 35 ' Envelope B6 176 x 125 mm Const DMPAPER_ENV_ITALY = 36 ' Envelope 110 x 230 mm Const DMPAPER_ENV_MONARCH = 37 ' Envelope Monarch 3.875 x 7.5 in Const DMPAPER_ENV_PERSONAL = 38 ' 6 3/4 Envelope 3 5/8 x 6 1/2 in Const DMPAPER_FANFOLD_US = 39 ' US Std Fanfold 14 7/8 x 11 in Const DMPAPER_FANFOLD_STD_GERMAN = 40 ' German Std Fanfold 8 1/2 x 12 in Const DMPAPER_FANFOLD_LGL_GERMAN = 41 ' German Legal Fanfold 8 1/2 x 13 in Const DMPAPER_LAST = DMPAPER_FANFOLD_LGL_GERMAN Const DMPAPER_USER = 256 ' bin selections Const DMBIN_UPPER = 1 Const DMBIN_FIRST = DMBIN_UPPER Const DMBIN_ONLYONE = 1 Const DMBIN_LOWER = 2 Const DMBIN_MIDDLE = 3 Const DMBIN_MANUAL = 4 Const DMBIN_ENVELOPE = 5 Const DMBIN_ENVMANUAL = 6 Const DMBIN_AUTO = 7 Const DMBIN_TRACTOR = 8 Const DMBIN_SMALLFMT = 9 Const DMBIN_LARGEFMT = 10 Const DMBIN_LARGECAPACITY = 11 Const DMBIN_CASSETTE = 14 Const DMBIN_LAST = DMBIN_CASSETTE Const DMBIN_USER = 256 ' device specific bins start here ' print qualities Const DMRES_DRAFT = (-1) Const DMRES_LOW = (-2) Const DMRES_MEDIUM = (-3) Const DMRES_HIGH = (-4) ' color enable/disable for color printers Const DMCOLOR_MONOCHROME = 1 Const DMCOLOR_COLOR = 2 ' duplex enable Const DMDUP_SIMPLEX = 1 Const DMDUP_VERTICAL = 2 Const DMDUP_HORIZONTAL = 3 ' TrueType options Const DMTT_BITMAP = 1 ' print TT fonts as graphics Const DMTT_DOWNLOAD = 2 ' download TT fonts as soft fonts Const DMTT_SUBDEV = 3 ' substitute device fonts for TT fonts ' Collation selections Const DMCOLLATE_FALSE = 0 Const DMCOLLATE_TRUE = 1 ' DEVMODE dmDisplayFlags flags Const DM_GRAYSCALE = &H1 Const DM_INTERLACED = &H2 ' GetRegionData/ExtCreateRegion Const RDH_RECTANGLES = 1 Type RGNDATAHEADER dwSize As Long iType As Long nCount As Long nRgnSize As Long rcBound As Rect End Type Type RGNDATA rdh As RGNDATAHEADER Buffer As Byte End Type Type ABC abcA As Long abcB As Long abcC As Long End Type Type ABCFLOAT abcfA As Double abcfB As Double abcfC As Double End Type Type OUTLINETEXTMETRIC otmSize As Long otmTextMetrics As TEXTMETRIC otmFiller As Byte otmPanoseNumber As PANOSE otmfsSelection As Long otmfsType As Long otmsCharSlopeRise As Long otmsCharSlopeRun As Long otmItalicAngle As Long otmEMSquare As Long otmAscent As Long otmDescent As Long otmLineGap As Long otmsCapEmHeight As Long otmsXHeight As Long otmrcFontBox As Rect otmMacAscent As Long otmMacDescent As Long otmMacLineGap As Long otmusMinimumPPEM As Long otmptSubscriptSize As POINTAPI otmptSubscriptOffset As POINTAPI otmptSuperscriptSize As POINTAPI otmptSuperscriptOffset As POINTAPI otmsStrikeoutSize As Long otmsStrikeoutPosition As Long otmsUnderscorePosition As Long otmsUnderscoreSize As Long otmpFamilyName As String otmpFaceName As String otmpStyleName As String otmpFullName As String End Type Type POLYTEXT x As Long y As Long n As Long lpStr As String uiFlags As Long rcl As Rect pdx As Long End Type Type FIXED fract As Integer Value As Integer End Type Type MAT2 eM11 As FIXED eM12 As FIXED eM21 As FIXED eM22 As FIXED End Type Type GLYPHMETRICS gmBlackBoxX As Long gmBlackBoxY As Long gmptGlyphOrigin As POINTAPI gmCellIncX As Integer gmCellIncY As Integer End Type ' GetGlyphOutline constants Const GGO_METRICS = 0 Const GGO_BITMAP = 1 Const GGO_NATIVE = 2 Const TT_POLYGON_TYPE = 24 Const TT_PRIM_LINE = 1 Const TT_PRIM_QSPLINE = 2 Type POINTFX x As FIXED y As FIXED End Type Type TTPOLYCURVE wType As Integer cpfx As Integer apfx As POINTFX End Type Type TTPOLYGONHEADER cb As Long dwType As Long pfxStart As POINTFX End Type Type RASTERIZER_STATUS nSize As Integer wFlags As Integer nLanguageID As Integer End Type ' bits defined in wFlags of RASTERIZER_STATUS Const TT_AVAILABLE = &H1 Const TT_ENABLED = &H2 Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long Declare Function AnimatePalette Lib "gdi32" Alias "AnimatePalette" (ByVal hPalette As Long, ByVal wStartIndex As Long, ByVal wNumEntries As Long, lpPaletteColors As PALETTEENTRY) As Long Declare Function Arc Lib "gdi32" Alias "Arc" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long, ByVal X4 As Long, ByVal Y4 As Long) As Long Declare Function BitBlt Lib "gdi32" Alias "BitBlt" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long Declare Function CancelDC Lib "gdi32" Alias "CancelDC" (ByVal hdc As Long) As Long Declare Function Chord Lib "gdi32" Alias "Chord" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long, ByVal X4 As Long, ByVal Y4 As Long) As Long Declare Function CloseMetaFile Lib "gdi32" Alias "CloseMetaFile" (ByVal hMF As Long) As Long Declare Function CombineRgn Lib "gdi32" Alias "CombineRgn" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long Declare Function CopyMetaFile Lib "gdi32" Alias "CopyMetaFileA" (ByVal hMF As Long, ByVal lpFileName As String) As Long Declare Function CreateBitmap Lib "gdi32" Alias "CreateBitmap" (ByVal nWidth As Long, ByVal nHeight As Long, ByVal nPlanes As Long, ByVal nBitCount As Long, lpBits As Any) As Long Declare Function CreateBitmapIndirect Lib "gdi32" Alias "CreateBitmapIndirect" (lpBitmap As BITMAP) As Long Declare Function CreateBrushIndirect Lib "gdi32" Alias "CreateBrushIndirect" (lpLogBrush As LOGBRUSH) As Long Declare Function CreateCompatibleBitmap Lib "gdi32" Alias "CreateCompatibleBitmap" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long Declare Function CreateDiscardableBitmap Lib "gdi32" Alias "CreateDiscardableBitmap" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long Declare Function CreateCompatibleDC Lib "gdi32" Alias "CreateCompatibleDC" (ByVal hdc As Long) As Long Declare Function CreateDC Lib "gdi32" Alias "CreateDCA" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, lpInitData As DEVMODE) As Long Declare Function CreateDIBitmap Lib "gdi32" Alias "CreateDIBitmap" (ByVal hdc As Long, lpInfoHeader As BITMAPINFOHEADER, ByVal dwUsage As Long, lpInitBits As Any, lpInitInfo As BITMAPINFO, ByVal wUsage As Long) As Long Declare Function CreateDIBPatternBrush Lib "gdi32" Alias "CreateDIBPatternBrush" (ByVal hPackedDIB As Long, ByVal wUsage As Long) As Long Declare Function CreateDIBPatternBrushPt Lib "gdi32" Alias "CreateDIBPatternBrushPt" (lpPackedDIB As Any, ByVal iUsage As Long) As Long Declare Function CreateEllipticRgnIndirect Lib "gdi32" Alias "CreateEllipticRgnIndirect" (lpRect As Rect) As Long Declare Function CreateEllipticRgn Lib "gdi32" Alias "CreateEllipticRgn" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Declare Function CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectA" (lpLogFont As LOGFONT) As Long Declare Function CreateFont Lib "gdi32" Alias "CreateFontA" (ByVal H As Long, ByVal W As Long, ByVal E As Long, ByVal O As Long, ByVal W As Long, ByVal I As Long, ByVal u As Long, ByVal S As Long, ByVal C As Long, ByVal OP As Long, ByVal CP As Long, ByVal Q As Long, ByVal PAF As Long, ByVal F As String) As Long Declare Function CreateHatchBrush Lib "gdi32" Alias "CreateHatchBrush" (ByVal nIndex As Long, ByVal crColor As Long) As Long Declare Function CreateIC Lib "gdi32" Alias "CreateICA" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, lpInitData As DEVMODE) As Long Declare Function CreateMetaFile Lib "gdi32" Alias "CreateMetaFileA" (ByVal lpString As String) As Long Declare Function CreatePalette Lib "gdi32" Alias "CreatePalette" (lpLogPalette As LOGPALETTE) As Long Declare Function CreatePen Lib "gdi32" Alias "CreatePen" (ByVal nPenStyle As Long, ByVal nWidth As Long, ByVal crColor As Long) As Long Declare Function CreatePenIndirect Lib "gdi32" Alias "CreatePenIndirect" (lpLogPen As LOGPEN) As Long Declare Function CreateRectRgn Lib "gdi32" Alias "CreateRectRgn" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Declare Function CreateRectRgnIndirect Lib "gdi32" Alias "CreateRectRgnIndirect" (lpRect As RECT) As Long Declare Function CreatePolyPolygonRgn Lib "gdi32" Alias "CreatePolyPolygonRgn" (lpPoint As POINTAPI, lpPolyCounts As Long, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long Declare Function CreatePatternBrush Lib "gdi32" Alias "CreatePatternBrush" (ByVal hBitmap As Long) As Long Declare Function CreateRoundRectRgn Lib "gdi32" Alias "CreateRoundRectRgn" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long Declare Function CreateScalableFontResource Lib "gdi32" Alias "CreateScalableFontResourceA" (ByVal fHidden As Long, ByVal lpszResourceFile As String, ByVal lpszFontFile As String, ByVal lpszCurrentPath As String) As Long Declare Function CreateSolidBrush Lib "gdi32" Alias "CreateSolidBrush" (ByVal crColor As Long) As Long Declare Function DeleteDC Lib "gdi32" Alias "DeleteDC" (ByVal hdc As Long) As Long Declare Function DeleteObject Lib "gdi32" Alias "DeleteObject" (ByVal hObject As Long) As Long Declare Function DeleteMetaFile Lib "gdi32" Alias "DeleteMetaFile" (ByVal hMF As Long) As Long ' mode selections for the device mode function Const DM_UPDATE = 1 Const DM_COPY = 2 Const DM_PROMPT = 4 Const DM_MODIFY = 8 Const DM_IN_BUFFER = DM_MODIFY Const DM_IN_PROMPT = DM_PROMPT Const DM_OUT_BUFFER = DM_COPY Const DM_OUT_DEFAULT = DM_UPDATE ' device capabilities indices Const DC_FIELDS = 1 Const DC_PAPERS = 2 Const DC_PAPERSIZE = 3 Const DC_MINEXTENT = 4 Const DC_MAXEXTENT = 5 Const DC_BINS = 6 Const DC_DUPLEX = 7 Const DC_SIZE = 8 Const DC_EXTRA = 9 Const DC_VERSION = 10 Const DC_DRIVER = 11 Const DC_BINNAMES = 12 Const DC_ENUMRESOLUTIONS = 13 Const DC_FILEDEPENDENCIES = 14 Const DC_TRUETYPE = 15 Const DC_PAPERNAMES = 16 Const DC_ORIENTATION = 17 Const DC_COPIES = 18 ' bit fields of the return value (DWORD) for DC_TRUETYPE Const DCTT_BITMAP = &H1& Const DCTT_DOWNLOAD = &H2& Const DCTT_SUBDEV = &H4& Declare Function DeviceCapabilities Lib "winspool.drv" Alias "DeviceCapabilitiesA" (ByVal lpDeviceName As String, ByVal lpPort As String, ByVal iIndex As Long, ByVal lpOutput As String, lpDevMode As DEVMODE) As Long Declare Function Ellipse Lib "gdi32" Alias "Ellipse" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Declare Function EqualRgn Lib "gdi32" Alias "EqualRgn" (ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long) As Long Declare Function Escape Lib "gdi32" Alias "Escape" (ByVal hdc As Long, ByVal nEscape As Long, ByVal nCount As Long, ByVal lpInData As String, lpOutData As Any) As Long Declare Function ExtEscape Lib "gdi32" Alias "ExtEscape" (ByVal hdc As Long, ByVal nEscape As Long, ByVal cbInput As Long, ByVal lpszInData As String, ByVal cbOutput As Long, ByVal lpszOutData As String) As Long Declare Function DrawEscape Lib "gdi32" Alias "DrawEscape" (ByVal hdc As Long, ByVal nEscape As Long, ByVal cbInput As Long, ByVal lpszInData As String) As Long Declare Function ExcludeClipRect Lib "gdi32" Alias "ExcludeClipRect" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Declare Function ExtCreateRegion Lib "gdi32" Alias "ExtCreateRegion" (lpXform As xform, ByVal nCount As Long, lpRgnData As RGNDATA) As Long Declare Function ExtFloodFill Lib "gdi32" Alias "ExtFloodFill" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long, ByVal wFillType As Long) As Long Declare Function FillRgn Lib "gdi32" Alias "FillRgn" (ByVal hdc As Long, ByVal hRgn As Long, ByVal hBrush As Long) As Long Declare Function FrameRgn Lib "gdi32" Alias "FrameRgn" (ByVal hdc As Long, ByVal hRgn As Long, ByVal hBrush As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long Declare Function FloodFill Lib "gdi32" Alias "FloodFill" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long Declare Function GetROP2 Lib "gdi32" Alias "GetROP2" (ByVal hdc As Long) As Long Declare Function GetAspectRatioFilterEx Lib "gdi32" Alias "GetAspectRatioFilterEx" (ByVal hdc As Long, lpAspectRatio As SIZE) As Long Declare Function GetBkColor Lib "gdi32" Alias "GetBkColor" (ByVal hdc As Long) As Long Declare Function GetBkMode Lib "gdi32" Alias "GetBkMode" (ByVal hdc As Long) As Long Declare Function GetBitmapBits Lib "gdi32" Alias "GetBitmapBits" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long Declare Function GetBitmapDimensionEx Lib "gdi32" Alias "GetBitmapDimensionEx" (ByVal hBitmap As Long, lpDimension As SIZE) As Long Declare Function GetBoundsRect Lib "gdi32" Alias "GetBoundsRect" (ByVal hdc As Long, lprcBounds As RECT, ByVal flags As Long) As Long Declare Function GetCharWidth Lib "gdi32" Alias "GetCharWidthA" (ByVal hdc As Long, ByVal wFirstChar As Long, ByVal wLastChar As Long, lpBuffer As Long) As Long Declare Function GetCharWidth32 Lib "gdi32" Alias "GetCharWidth32A" (ByVal hdc As Long, ByVal iFirstChar As Long, ByVal iLastChar As Long, lpBuffer As Long) As Long Declare Function GetCharWidthFloat Lib "gdi32" Alias "GetCharWidthFloatA" (ByVal hdc As Long, ByVal iFirstChar As Long, ByVal iLastChar As Long, pxBuffer As Double) As Long Declare Function GetCharABCWidths Lib "gdi32" Alias "GetCharABCWidthsA" (ByVal hdc As Long, ByVal uFirstChar As Long, ByVal uLastChar As Long, lpabc As ABC) As Long Declare Function GetCharABCWidthsFloat Lib "gdi32" Alias "GetCharABCWidthsFloatA" (ByVal hdc As Long, ByVal iFirstChar As Long, ByVal iLastChar As Long, lpABCF As ABCFLOAT) As Long Declare Function GetClipBox Lib "gdi32" Alias "GetClipBox" (ByVal hdc As Long, lpRect As RECT) As Long Declare Function GetClipRgn Lib "gdi32" Alias "GetClipRgn" (ByVal hdc As Long, ByVal hRgn As Long) As Long Declare Function GetMetaRgn Lib "gdi32" Alias "GetMetaRgn" (ByVal hdc As Long, ByVal hRgn As Long) As Long Declare Function GetCurrentObject Lib "gdi32" Alias "GetCurrentObject" (ByVal hdc As Long, ByVal uObjectType As Long) As Long Declare Function GetCurrentPositionEx Lib "gdi32" Alias "GetCurrentPositionEx" (ByVal hdc As Long, lpPoint As POINTAPI) As Long Declare Function GetDeviceCaps Lib "gdi32" Alias "GetDeviceCaps" (ByVal hdc As Long, ByVal nIndex As Long) As Long Declare Function GetDIBits Lib "gdi32" Alias "GetDIBits" (ByVal aHDC As Long, ByVal hBitmap As Long, ByVal nStartScan As Long, ByVal nNumScans As Long, lpBits As Any, lpBI As BITMAPINFO, ByVal wUsage As Long) As Long Declare Function GetFontData Lib "gdi32" Alias "GetFontData" (ByVal hdc As Long, ByVal dwTable As Long, ByVal dwOffset As Long, lpvBuffer As Any, ByVal cbData As Long) As Long Declare Function GetGlyphOutline Lib "gdi32" Alias "GetGlyphOutlineA" (ByVal hdc As Long, ByVal uChar As Long, ByVal fuFormat As Long, lpgm As GLYPHMETRICS, ByVal cbBuffer As Long, lpBuffer As Any, lpmat2 As MAT2) As Long Declare Function GetGraphicsMode Lib "gdi32" Alias "GetGraphicsMode" (ByVal hdc As Long) As Long Declare Function GetMapMode Lib "gdi32" Alias "GetMapMode" (ByVal hdc As Long) As Long Declare Function GetMetaFileBitsEx Lib "gdi32" Alias "GetMetaFileBitsEx" (ByVal hMF As Long, ByVal nSize As Long, lpvData As Any) As Long Declare Function GetMetaFile Lib "gdi32" Alias "GetMetaFileA" (ByVal lpFileName As String) As Long Declare Function GetNearestColor Lib "gdi32" Alias "GetNearestColor" (ByVal hdc As Long, ByVal crColor As Long) As Long Declare Function GetNearestPaletteIndex Lib "gdi32" Alias "GetNearestPaletteIndex" (ByVal hPalette As Long, ByVal crColor As Long) As Long Declare Function GetObjectType Lib "gdi32" Alias "GetObjectType" (ByVal hgdiobj As Long) As Long Declare Function GetOutlineTextMetrics Lib "gdi32" Alias "GetOutlineTextMetricsA" (ByVal hdc As Long, ByVal cbData As Long, lpotm As OUTLINETEXTMETRIC) As Long Declare Function GetPaletteEntries Lib "gdi32" Alias "GetPaletteEntries" (ByVal hPalette As Long, ByVal wStartIndex As Long, ByVal wNumEntries As Long, lpPaletteEntries As PALETTEENTRY) As Long Declare Function GetPixel Lib "gdi32" Alias "GetPixel" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long Declare Function GetPolyFillMode Lib "gdi32" Alias "GetPolyFillMode" (ByVal hdc As Long) As Long Declare Function GetRasterizerCaps Lib "gdi32" Alias "GetRasterizerCaps" (lpraststat As RASTERIZER_STATUS, ByVal cb As Long) As Long Declare Function GetRegionData Lib "gdi32" Alias "GetRegionData" (ByVal hRgn As Long, ByVal dwCount As Long, lpRgnData As RgnData) As Long Declare Function GetRgnBox Lib "gdi32" Alias "GetRgnBox" (ByVal hRgn As Long, lpRect As RECT) As Long Declare Function GetStockObject Lib "gdi32" Alias "GetStockObject" (ByVal nIndex As Long) As Long Declare Function GetStretchBltMode Lib "gdi32" Alias "GetStretchBltMode" (ByVal hdc As Long) As Long Declare Function GetSystemPaletteEntries Lib "gdi32" Alias "GetSystemPaletteEntries" (ByVal hdc As Long, ByVal wStartIndex As Long, ByVal wNumEntries As Long, lpPaletteEntries As PALETTEENTRY) As Long Declare Function GetSystemPaletteUse Lib "gdi32" Alias "GetSystemPaletteUse" (ByVal hdc As Long) As Long Declare Function GetTextCharacterExtra Lib "gdi32" (ByVal hdc As Long) As Long Declare Function GetTextAlign Lib "gdi32" Alias "GetTextAlign" (ByVal hdc As Long) As Long Declare Function GetTextColor Lib "gdi32" Alias "GetTextColor" (ByVal hdc As Long) As Long Declare Function GetTextExtentPoint Lib "gdi32" Alias "GetTextExtentPointA" (ByVal hdc As Long, ByVal lpszString As String, ByVal cbString As Long, lpSize As SIZE) As Long Declare Function GetTextExtentPoint32 Lib "gdi32" Alias "GetTextExtentPoint32A" (ByVal hdc As Long, ByVal lpsz As String, ByVal cbString As Long, lpSize As SIZE) As Long Declare Function GetTextExtentExPoint Lib "gdi32" Alias "GetTextExtentExPointA" (ByVal hdc As Long, ByVal lpszStr As String, ByVal cchString As Long, ByVal nMaxExtent As Long, lpnFit As Long, alpDx As Long, lpSize As SIZE) As Long Declare Function GetViewportExtEx Lib "gdi32" Alias "GetViewportExtEx" (ByVal hdc As Long, lpSize As SIZE) As Long Declare Function GetViewportOrgEx Lib "gdi32" Alias "GetViewportOrgEx" (ByVal hdc As Long, lpPoint As POINTAPI) As Long Declare Function GetWindowExtEx Lib "gdi32" Alias "GetWindowExtEx" (ByVal hdc As Long, lpSize As SIZE) As Long Declare Function GetWindowOrgEx Lib "gdi32" Alias "GetWindowOrgEx" (ByVal hdc As Long, lpPoint As POINTAPI) As Long Declare Function IntersectClipRect Lib "gdi32" Alias "IntersectClipRect" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Declare Function InvertRgn Lib "gdi32" Alias "InvertRgn" (ByVal hdc As Long, ByVal hRgn As Long) As Long Declare Function LineTo Lib "gdi32" Alias "LineTo" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long Declare Function MaskBlt Lib "gdi32" Alias "MaskBlt" (ByVal hdcDest As Long, ByVal nXDest As Long, ByVal nYDest As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hdcSrc As Long, ByVal nXSrc As Long, ByVal nYSrc As Long, ByVal hbmMask As Long, ByVal xMask As Long, ByVal yMask As Long, ByVal dwRop As Long) As Long Declare Function PlgBlt Lib "gdi32" Alias "PlgBlt" (ByVal hdcDest As Long, lpPoint As POINTAPI, ByVal hdcSrc As Long, ByVal nXSrc As Long, ByVal nYSrc As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hbmMask As Long, ByVal xMask As Long, ByVal yMask As Long) As Long Declare Function OffsetClipRgn Lib "gdi32" Alias "OffsetClipRgn" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long Declare Function OffsetRgn Lib "gdi32" Alias "OffsetRgn" (ByVal hRgn As Long, ByVal x As Long, ByVal y As Long) As Long Declare Function PatBlt Lib "gdi32" Alias "PatBlt" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal dwRop As Long) As Long Declare Function Pie Lib "gdi32" Alias "Pie" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long, ByVal X4 As Long, ByVal Y4 As Long) As Long Declare Function PlayMetaFile Lib "gdi32" Alias "PlayMetaFile" (ByVal hdc As Long, ByVal hMF As Long) As Long Declare Function PaintRgn Lib "gdi32" Alias "PaintRgn" (ByVal hdc As Long, ByVal hRgn As Long) As Long Declare Function PolyPolygon Lib "gdi32" Alias "PolyPolygon" (ByVal hdc As Long, lpPoint As POINTAPI, lpPolyCounts As Long, ByVal nCount As Long) As Long Declare Function PtInRegion Lib "gdi32" Alias "PtInRegion" (ByVal hRgn As Long, ByVal x As Long, ByVal y As Long) As Long Declare Function PtVisible Lib "gdi32" Alias "PtVisible" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long Declare Function RectVisible Lib "gdi32" Alias "RectVisible" (ByVal hdc As Long, lpRect As RECT) As Long Declare Function RectInRegion Lib "gdi32" Alias "RectInRegion" (ByVal hRgn As Long, lpRect As RECT) As Long Declare Function Rectangle Lib "gdi32" Alias "Rectangle" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Declare Function RestoreDC Lib "gdi32" Alias "RestoreDC" (ByVal hdc As Long, ByVal nSavedDC As Long) As Long Declare Function ResetDC Lib "gdi32" Alias "ResetDCA" (ByVal hdc As Long, lpInitData As DEVMODE) As Long Declare Function RealizePalette Lib "gdi32" Alias "RealizePalette" (ByVal hdc As Long) As Long Declare Function RemoveFontResource Lib "gdi32" Alias "RemoveFontResourceA" (ByVal lpFileName As String) As Long Declare Function RoundRect Lib "gdi32" Alias "RoundRect" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long Declare Function ResizePalette Lib "gdi32" Alias "ResizePalette" (ByVal hPalette As Long, ByVal nNumEntries As Long) As Long Declare Function SaveDC Lib "gdi32" Alias "SaveDC" (ByVal hdc As Long) As Long Declare Function SelectClipRgn Lib "gdi32" Alias "SelectClipRgn" (ByVal hdc As Long, ByVal hRgn As Long) As Long Declare Function ExtSelectClipRgn Lib "gdi32" Alias "ExtSelectClipRgn" (ByVal hdc As Long, ByVal hRgn As Long, ByVal fnMode As Long) As Long Declare Function SetMetaRgn Lib "gdi32" Alias "SetMetaRgn" (ByVal hdc As Long) As Long Declare Function SelectObject Lib "gdi32" Alias "SelectObject" (ByVal hdc As Long, ByVal hObject As Long) As Long Declare Function SelectPalette Lib "gdi32" Alias "SelectPalette" (ByVal hdc As Long, ByVal hPalette As Long, ByVal bForceBackground As Long) As Long Declare Function SetBkColor Lib "gdi32" Alias "SetBkColor" (ByVal hdc As Long, ByVal crColor As Long) As Long Declare Function SetBkMode Lib "gdi32" Alias "SetBkMode" (ByVal hdc As Long, ByVal nBkMode As Long) As Long Declare Function SetBitmapBits Lib "gdi32" Alias "SetBitmapBits" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long Declare Function SetBoundsRect Lib "gdi32" Alias "SetBoundsRect" (ByVal hdc As Long, lprcBounds As RECT, ByVal flags As Long) As Long Declare Function SetDIBits Lib "gdi32" Alias "SetDIBits" (ByVal hdc As Long, ByVal hBitmap As Long, ByVal nStartScan As Long, ByVal nNumScans As Long, lpBits As Any, lpBI As BITMAPINFO, ByVal wUsage As Long) As Long Declare Function SetDIBitsToDevice Lib "gdi32" Alias "SetDIBitsToDevice" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal dx As Long, ByVal dy As Long, ByVal SrcX As Long, ByVal SrcY As Long, ByVal Scan As Long, ByVal NumScans As Long, Bits As Any, BitsInfo As BITMAPINFO, ByVal wUsage As Long) As Long Declare Function SetMapperFlags Lib "gdi32" Alias "SetMapperFlags" (ByVal hdc As Long, ByVal dwFlag As Long) As Long Declare Function SetGraphicsMode Lib "gdi32" Alias "SetGraphicsMode" (ByVal hdc As Long, ByVal iMode As Long) As Long Declare Function SetMapMode Lib "gdi32" Alias "SetMapMode" (ByVal hdc As Long, ByVal nMapMode As Long) As Long Declare Function SetMetaFileBitsEx Lib "gdi32" Alias "SetMetaFileBitsEx" (ByVal nSize As Long, lpData As Byte) As Long Declare Function SetPaletteEntries Lib "gdi32" Alias "SetPaletteEntries" (ByVal hPalette As Long, ByVal wStartIndex As Long, ByVal wNumEntries As Long, lpPaletteEntries As PALETTEENTRY) As Long Declare Function SetPixel Lib "gdi32" Alias "SetPixel" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long Declare Function SetPixelV Lib "gdi32" Alias "SetPixelV" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long Declare Function SetPolyFillMode Lib "gdi32" Alias "SetPolyFillMode" (ByVal hdc As Long, ByVal nPolyFillMode As Long) As Long Declare Function StretchBlt Lib "gdi32" Alias "StretchBlt" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long Declare Function SetRectRgn Lib "gdi32" Alias "SetRectRgn" (ByVal hRgn As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Declare Function StretchDIBits Lib "gdi32" Alias "StretchDIBits" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal dx As Long, ByVal dy As Long, ByVal SrcX As Long, ByVal SrcY As Long, ByVal wSrcWidth As Long, ByVal wSrcHeight As Long, lpBits As Any, lpBitsInfo As BITMAPINFO, ByVal wUsage As Long, ByVal dwRop As Long) As Long Declare Function SetROP2 Lib "gdi32" Alias "SetROP2" (ByVal hdc As Long, ByVal nDrawMode As Long) As Long Declare Function SetStretchBltMode Lib "gdi32" Alias "SetStretchBltMode" (ByVal hdc As Long, ByVal nStretchMode As Long) As Long Declare Function SetSystemPaletteUse Lib "gdi32" Alias "SetSystemPaletteUse" (ByVal hdc As Long, ByVal wUsage As Long) As Long Declare Function SetTextCharacterExtra Lib "gdi32" Alias "SetTextCharacterExtra" (ByVal hdc As Long, ByVal nCharExtra As Long) As Long Declare Function SetTextColor Lib "gdi32" Alias "SetTextColor" (ByVal hdc As Long, ByVal crColor As Long) As Long Declare Function SetTextAlign Lib "gdi32" Alias "SetTextAlign" (ByVal hdc As Long, ByVal wFlags As Long) As Long Declare Function SetTextJustification Lib "gdi32" Alias "SetTextJustification" (ByVal hdc As Long, ByVal nBreakExtra As Long, ByVal nBreakCount As Long) As Long Declare Function UpdateColors Lib "gdi32" Alias "UpdateColors" (ByVal hdc As Long) As Long Declare Function GetProcAddress Lib "kernel32" Alias "GetProcAddress" (ByVal hModule As Long, ByVal lpProcName As String) As Long Declare Function PlayMetaFileRecord Lib "gdi32" Alias "PlayMetaFileRecord" (ByVal hdc As Long, lpHandletable As HANDLETABLE, lpMetaRecord As METARECORD, ByVal nHandles As Long) As Long Declare Function CloseEnhMetaFile Lib "gdi32" Alias "CloseEnhMetaFile" (ByVal hdc As Long) As Long Declare Function CopyEnhMetaFile Lib "gdi32" Alias "CopyEnhMetaFileA" (ByVal hemfSrc As Long, ByVal lpszFile As String) As Long Declare Function CreateEnhMetaFile Lib "gdi32" Alias "CreateEnhMetaFileA" (ByVal hdcRef As Long, ByVal lpFileName As String, lpRect As RECT, ByVal lpDescription As String) As Long Declare Function DeleteEnhMetaFile Lib "gdi32" Alias "DeleteEnhMetaFile" (ByVal hemf As Long) As Long Declare Function EnumEnhMetaFile Lib "gdi32" Alias "EnumEnhMetaFile" (ByVal hdc As Long, ByVal hemf As Long, ByVal lpEnhMetaFunc As Long, lpData As Any, lpRect As RECT) As Long Declare Function GetEnhMetaFile Lib "gdi32" Alias "GetEnhMetaFileA" (ByVal lpszMetaFile As String) As Long Declare Function GetEnhMetaFileBits Lib "gdi32" Alias "GetEnhMetaFileBits" (ByVal hemf As Long, ByVal cbBuffer As Long, lpbBuffer As Byte) As Long Declare Function GetEnhMetaFileDescription Lib "gdi32" Alias "GetEnhMetaFileDescriptionA" (ByVal hemf As Long, ByVal cchBuffer As Long, ByVal lpszDescription As String) As Long Declare Function GetEnhMetaFileHeader Lib "gdi32" Alias "GetEnhMetaFileHeader" (ByVal hemf As Long, ByVal cbBuffer As Long, lpemh As ENHMETAHEADER) As Long Declare Function GetEnhMetaFilePaletteEntries Lib "gdi32" Alias "GetEnhMetaFilePaletteEntries" (ByVal hemf As Long, ByVal cEntries As Long, lppe As PALETTEENTRY) As Long Declare Function GetWinMetaFileBits Lib "gdi32" Alias "GetWinMetaFileBits" (ByVal hemf As Long, ByVal cbBuffer As Long, lpbBuffer As Byte, ByVal fnMapMode As Long, ByVal hdcRef As Long) As Long Declare Function PlayEnhMetaFile Lib "gdi32" Alias "PlayEnhMetaFile" (ByVal hdc As Long, ByVal hemf As Long, lpRect As RECT) As Long Declare Function PlayEnhMetaFileRecord Lib "gdi32" Alias "PlayEnhMetaFileRecord" (ByVal hdc As Long, lpHandletable As HANDLETABLE, lpEnhMetaRecord As ENHMETARECORD, ByVal nHandles As Long) As Long Declare Function SetEnhMetaFileBits Lib "gdi32" Alias "SetEnhMetaFileBits" (ByVal cbBuffer As Long, lpData As Byte) As Long Declare Function SetWinMetaFileBits Lib "gdi32" Alias "SetWinMetaFileBits" (ByVal cbBuffer As Long, lpbBuffer As Byte, ByVal hdcRef As Long, lpmfp As METAFILEPICT) As Long Declare Function GdiComment Lib "gdi32" Alias "GdiComment" (ByVal hdc As Long, ByVal cbSize As Long, lpData As Byte) As Long Declare Function GetTextMetrics Lib "gdi32" Alias "GetTextMetricsA" (ByVal hdc As Long, lpMetrics As TEXTMETRIC) As Long Declare Function AngleArc Lib "gdi32" Alias "AngleArc" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal dwRadius As Long, ByVal eStartAngle As Double, ByVal eSweepAngle As Double) As Long Declare Function PolyPolyline Lib "gdi32" Alias "PolyPolyline" (ByVal hdc As Long, lppt As POINTAPI, lpdwPolyPoints As Long, ByVal cCount As Long) As Long Declare Function GetWorldTransform Lib "gdi32" Alias "GetWorldTransform" (ByVal hdc As Long, lpXform As xform) As Long Declare Function SetWorldTransform Lib "gdi32" Alias "SetWorldTransform" (ByVal hdc As Long, lpXform As xform) As Long Declare Function ModifyWorldTransform Lib "gdi32" Alias "ModifyWorldTransform" (ByVal hdc As Long, lpXform As xform, ByVal iMode As Long) As Long Declare Function CombineTransform Lib "gdi32" Alias "CombineTransform" (lpxformResult As xform, lpxform1 As xform, lpxform2 As xform) As Long ' Flags value for COLORADJUSTMENT Const CA_NEGATIVE = &H1 Const CA_LOG_FILTER = &H2 ' IlluminantIndex values Const ILLUMINANT_DEVICE_DEFAULT = 0 Const ILLUMINANT_A = 1 Const ILLUMINANT_B = 2 Const ILLUMINANT_C = 3 Const ILLUMINANT_D50 = 4 Const ILLUMINANT_D55 = 5 Const ILLUMINANT_D65 = 6 Const ILLUMINANT_D75 = 7 Const ILLUMINANT_F2 = 8 Const ILLUMINANT_MAX_INDEX = ILLUMINANT_F2 Const ILLUMINANT_TUNGSTEN = ILLUMINANT_A Const ILLUMINANT_DAYLIGHT = ILLUMINANT_C Const ILLUMINANT_FLUORESCENT = ILLUMINANT_F2 Const ILLUMINANT_NTSC = ILLUMINANT_C ' Min and max for RedGamma, GreenGamma, BlueGamma Const RGB_GAMMA_MIN = 2500 'words Const RGB_GAMMA_MAX = 65000 ' Min and max for ReferenceBlack and ReferenceWhite Const REFERENCE_WHITE_MIN = 6000 'words Const REFERENCE_WHITE_MAX = 10000 Const REFERENCE_BLACK_MIN = 0 Const REFERENCE_BLACK_MAX = 4000 ' Min and max for Contrast, Brightness, Colorfulness, RedGreenTint Const COLOR_ADJ_MIN = -100 'shorts Const COLOR_ADJ_MAX = 100 Type COLORADJUSTMENT caSize As Integer caFlags As Integer caIlluminantIndex As Integer caRedGamma As Integer caGreenGamma As Integer caBlueGamma As Integer caReferenceBlack As Integer caReferenceWhite As Integer caContrast As Integer caBrightness As Integer caColorfulness As Integer caRedGreenTint As Integer End Type Declare Function SetColorAdjustment Lib "gdi32" Alias "SetColorAdjustment" (ByVal hdc As Long, lpca As COLORADJUSTMENT) As Long Declare Function GetColorAdjustment Lib "gdi32" Alias "GetColorAdjustment" (ByVal hdc As Long, lpca As COLORADJUSTMENT) As Long Declare Function CreateHalftonePalette Lib "gdi32" Alias "CreateHalftonePalette" (ByVal hdc As Long) As Long Type DOCINFO cbSize As Long lpszDocName As String lpszOutput As String End Type Declare Function StartDoc Lib "gdi32" Alias "StartDocA" (ByVal hdc As Long, lpdi As DOCINFO) As Long Declare Function StartPage Lib "gdi32" Alias "StartPage" (ByVal hdc As Long) As Long Declare Function EndPage Lib "gdi32" Alias "EndPage" (ByVal hdc As Long) As Long Declare Function EndDoc Lib "gdi32" Alias "EndDoc" (ByVal hdc As Long) As Long Declare Function AbortDoc Lib "gdi32" Alias "AbortDoc" (ByVal hdc As Long) As Long Declare Function AbortPath Lib "gdi32" Alias "AbortPath" (ByVal hdc As Long) As Long Declare Function ArcTo Lib "gdi32" Alias "ArcTo" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long, ByVal X4 As Long, ByVal Y4 As Long) As Long Declare Function BeginPath Lib "gdi32" Alias "BeginPath" (ByVal hdc As Long) As Long Declare Function CloseFigure Lib "gdi32" Alias "CloseFigure" (ByVal hdc As Long) As Long Declare Function EndPath Lib "gdi32" Alias "EndPath" (ByVal hdc As Long) As Long Declare Function FillPath Lib "gdi32" Alias "FillPath" (ByVal hdc As Long) As Long Declare Function FlattenPath Lib "gdi32" Alias "FlattenPath" (ByVal hdc As Long) As Long Declare Function GetPath Lib "gdi32" Alias "GetPath" (ByVal hdc As Long, lpPoint As POINTAPI, lpTypes As Byte, ByVal nSize As Long) As Long Declare Function PathToRegion Lib "gdi32" Alias "PathToRegion" (ByVal hdc As Long) As Long Declare Function PolyDraw Lib "gdi32" Alias "PolyDraw" (ByVal hdc As Long, lppt As POINTAPI, lpbTypes As Byte, ByVal cCount As Long) As Long Declare Function SelectClipPath Lib "gdi32" Alias "SelectClipPath" (ByVal hdc As Long, ByVal iMode As Long) As Long Declare Function SetArcDirection Lib "gdi32" Alias "SetArcDirection" (ByVal hdc As Long, ByVal ArcDirection As Long) As Long Declare Function SetMiterLimit Lib "gdi32" Alias "SetMiterLimit" (ByVal hdc As Long, ByVal eNewLimit As Double, peOldLimit As Double) As Long Declare Function StrokeAndFillPath Lib "gdi32" Alias "StrokeAndFillPath" (ByVal hdc As Long) As Long Declare Function StrokePath Lib "gdi32" Alias "StrokePath" (ByVal hdc As Long) As Long Declare Function WidenPath Lib "gdi32" Alias "WidenPath" (ByVal hdc As Long) As Long Declare Function ExtCreatePen Lib "gdi32" Alias "ExtCreatePen" (ByVal dwPenStyle As Long, ByVal dwWidth As Long, lplb As LOGBRUSH, ByVal dwStyleCount As Long, lpStyle As Long) As Long Declare Function GetMiterLimit Lib "gdi32" Alias "GetMiterLimit" (ByVal hdc As Long, peLimit As Double) As Long Declare Function GetArcDirection Lib "gdi32" Alias "GetArcDirection" (ByVal hdc As Long) As Long Declare Function GetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long Declare Function MoveToEx Lib "gdi32" Alias "MoveToEx" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, lpPoint As POINTAPI) As Long Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long Declare Function ExtTextOut Lib "gdi32" Alias "ExtTextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal wOptions As Long, lpRect As Rect, ByVal lpString As String, ByVal nCount As Long, lpDx As Long) As Long Declare Function PolyTextOut Lib "gdi32" Alias "PolyTextOutA" (ByVal hdc As Long, pptxt As POLYTEXT, cStrings As Long) As Long Declare Function CreatePolygonRgn Lib "gdi32" Alias "CreatePolygonRgn" (lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long Declare Function DPtoLP Lib "gdi32" Alias "DPtoLP" (ByVal hdc As Long, lpPoint As POINTAPI, ByVal nCount As Long) As Long Declare Function LPtoDP Lib "gdi32" Alias "LPtoDP" (ByVal hdc As Long, lpPoint As POINTAPI, ByVal nCount As Long) As Long Declare Function Polyline Lib "gdi32" Alias "Polyline" (ByVal hdc As Long, lpPoint As POINTAPI, ByVal nCount As Long) As Long Declare Function Polygon Lib "gdi32" Alias "Polygon" (ByVal hdc As Long, lpPoint As POINTAPI, ByVal nCount As Long) As Long Declare Function PolyBezier Lib "gdi32" Alias "PolyBezier" (ByVal hdc As Long, lppt As POINTAPI, ByVal cPoints As Long) As Long Declare Function PolyBezierTo Lib "gdi32" Alias "PolyBezierTo" (ByVal hdc As Long, lppt As POINTAPI, ByVal cCount As Long) As Long Declare Function PolylineTo Lib "gdi32" Alias "PolylineTo" (ByVal hdc As Long, lppt As POINTAPI, ByVal cCount As Long) As Long Declare Function SetViewportExtEx Lib "gdi32" Alias "SetViewportExtEx" (ByVal hdc As Long, ByVal nX As Long, ByVal nY As Long, lpSize As SIZE) As Long Declare Function SetViewportOrgEx Lib "gdi32" Alias "SetViewportOrgEx" (ByVal hdc As Long, ByVal nX As Long, ByVal nY As Long, lpPoint As POINTAPI) As Long Declare Function SetWindowOrgEx Lib "gdi32" Alias "SetWindowOrgEx" (ByVal hdc As Long, ByVal nX As Long, ByVal nY As Long, lpPoint As POINTAPI) As Long Declare Function SetWindowExtEx Lib "gdi32" Alias "SetWindowExtEx" (ByVal hdc As Long, ByVal nX As Long, ByVal nY As Long, lpSize As SIZE) As Long Declare Function OffsetViewportOrgEx Lib "gdi32" Alias "OffsetViewportOrgEx" (ByVal hdc As Long, ByVal nX As Long, ByVal nY As Long, lpPoint As POINTAPI) As Long Declare Function OffsetWindowOrgEx Lib "gdi32" Alias "OffsetWindowOrgEx" (ByVal hdc As Long, ByVal nX As Long, ByVal nY As Long, lpPoint As POINTAPI) As Long Declare Function ScaleWindowExtEx Lib "gdi32" Alias "ScaleWindowExtEx" (ByVal hdc As Long, ByVal nXnum As Long, ByVal nXdenom As Long, ByVal nYnum As Long, ByVal nYdenom As Long, lpSize As SIZE) As Long Declare Function ScaleViewportExtEx Lib "gdi32" Alias "ScaleViewportExtEx" (ByVal hdc As Long, ByVal nXnum As Long, ByVal nXdenom As Long, ByVal nYnum As Long, ByVal nYdenom As Long, lpSize As SIZE) As Long Declare Function SetBitmapDimensionEx Lib "gdi32" Alias "SetBitmapDimensionEx" (ByVal hbm As Long, ByVal nX As Long, ByVal nY As Long, lpSize As SIZE) As Long Declare Function SetBrushOrgEx Lib "gdi32" Alias "SetBrushOrgEx" (ByVal hdc As Long, ByVal nXOrg As Long, ByVal nYOrg As Long, lppt As POINTAPI) As Long Declare Function GetTextFace Lib "gdi32" Alias "GetTextFaceA" (ByVal hdc As Long, ByVal nCount As Long, ByVal lpFacename As String) As Long Const FONTMAPPER_MAX = 10 Type KERNINGPAIR wFirst As Integer wSecond As Integer iKernAmount As Long End Type Declare Function GetKerningPairs Lib "gdi32" Alias "GetKerningPairsA" (ByVal hdc As Long, ByVal cPairs As Long, lpkrnpair As KERNINGPAIR) As Long Declare Function GetDCOrgEx Lib "gdi32" Alias "GetDCOrgEx" (ByVal hdc As Long, lpPoint As POINTAPI) As Long Declare Function UnrealizeObject Lib "gdi32" Alias "UnrealizeObject" (ByVal hObject As Long) As Long Declare Function GdiFlush Lib "gdi32" Alias "GdiFlush" () As Long Declare Function GdiSetBatchLimit Lib "gdi32" Alias "GdiSetBatchLimit" (ByVal dwLimit As Long) As Long Declare Function GdiGetBatchLimit Lib "gdi32" Alias "GdiGetBatchLimit" () As Long ' Enhanced metafile constants Const ENHMETA_SIGNATURE = &H464D4520 ' Stock object flag used in the object handle ' index in the enhanced metafile records. ' E.g. The object handle index (META_STOCK_OBJECT Or BLACK_BRUSH) ' represents the stock object BLACK_BRUSH. Const ENHMETA_STOCK_OBJECT = &H80000000 ' Enhanced metafile record types. Const EMR_HEADER = 1 Const EMR_POLYBEZIER = 2 Const EMR_POLYGON = 3 Const EMR_POLYLINE = 4 Const EMR_POLYBEZIERTO = 5 Const EMR_POLYLINETO = 6 Const EMR_POLYPOLYLINE = 7 Const EMR_POLYPOLYGON = 8 Const EMR_SETWINDOWEXTEX = 9 Const EMR_SETWINDOWORGEX = 10 Const EMR_SETVIEWPORTEXTEX = 11 Const EMR_SETVIEWPORTORGEX = 12 Const EMR_SETBRUSHORGEX = 13 Const EMR_EOF = 14 Const EMR_SETPIXELV = 15 Const EMR_SETMAPPERFLAGS = 16 Const EMR_SETMAPMODE = 17 Const EMR_SETBKMODE = 18 Const EMR_SETPOLYFILLMODE = 19 Const EMR_SETROP2 = 20 Const EMR_SETSTRETCHBLTMODE = 21 Const EMR_SETTEXTALIGN = 22 Const EMR_SETCOLORADJUSTMENT = 23 Const EMR_SETTEXTCOLOR = 24 Const EMR_SETBKCOLOR = 25 Const EMR_OFFSETCLIPRGN = 26 Const EMR_MOVETOEX = 27 Const EMR_SETMETARGN = 28 Const EMR_EXCLUDECLIPRECT = 29 Const EMR_INTERSECTCLIPRECT = 30 Const EMR_SCALEVIEWPORTEXTEX = 31 Const EMR_SCALEWINDOWEXTEX = 32 Const EMR_SAVEDC = 33 Const EMR_RESTOREDC = 34 Const EMR_SETWORLDTRANSFORM = 35 Const EMR_MODIFYWORLDTRANSFORM = 36 Const EMR_SELECTOBJECT = 37 Const EMR_CREATEPEN = 38 Const EMR_CREATEBRUSHINDIRECT = 39 Const EMR_DELETEOBJECT = 40 Const EMR_ANGLEARC = 41 Const EMR_ELLIPSE = 42 Const EMR_RECTANGLE = 43 Const EMR_ROUNDRECT = 44 Const EMR_ARC = 45 Const EMR_CHORD = 46 Const EMR_PIE = 47 Const EMR_SELECTPALETTE = 48 Const EMR_CREATEPALETTE = 49 Const EMR_SETPALETTEENTRIES = 50 Const EMR_RESIZEPALETTE = 51 Const EMR_REALIZEPALETTE = 52 Const EMR_EXTFLOODFILL = 53 Const EMR_LINETO = 54 Const EMR_ARCTO = 55 Const EMR_POLYDRAW = 56 Const EMR_SETARCDIRECTION = 57 Const EMR_SETMITERLIMIT = 58 Const EMR_BEGINPATH = 59 Const EMR_ENDPATH = 60 Const EMR_CLOSEFIGURE = 61 Const EMR_FILLPATH = 62 Const EMR_STROKEANDFILLPATH = 63 Const EMR_STROKEPATH = 64 Const EMR_FLATTENPATH = 65 Const EMR_WIDENPATH = 66 Const EMR_SELECTCLIPPATH = 67 Const EMR_ABORTPATH = 68 Const EMR_GDICOMMENT = 70 Const EMR_FILLRGN = 71 Const EMR_FRAMERGN = 72 Const EMR_INVERTRGN = 73 Const EMR_PAINTRGN = 74 Const EMR_EXTSELECTCLIPRGN = 75 Const EMR_BITBLT = 76 Const EMR_STRETCHBLT = 77 Const EMR_MASKBLT = 78 Const EMR_PLGBLT = 79 Const EMR_SETDIBITSTODEVICE = 80 Const EMR_STRETCHDIBITS = 81 Const EMR_EXTCREATEFONTINDIRECTW = 82 Const EMR_EXTTEXTOUTA = 83 Const EMR_EXTTEXTOUTW = 84 Const EMR_POLYBEZIER16 = 85 Const EMR_POLYGON16 = 86 Const EMR_POLYLINE16 = 87 Const EMR_POLYBEZIERTO16 = 88 Const EMR_POLYLINETO16 = 89 Const EMR_POLYPOLYLINE16 = 90 Const EMR_POLYPOLYGON16 = 91 Const EMR_POLYDRAW16 = 92 Const EMR_CREATEMONOBRUSH = 93 Const EMR_CREATEDIBPATTERNBRUSHPT = 94 Const EMR_EXTCREATEPEN = 95 Const EMR_POLYTEXTOUTA = 96 Const EMR_POLYTEXTOUTW = 97 Const EMR_MIN = 1 Const EMR_MAX = 97 Type emr iType As Long nSize As Long End Type Type emrtext ptlReference As POINTL nchars As Long offString As Long fOptions As Long rcl As RECTL offDx As Long End Type Type EMRABORTPATH pEmr As emr End Type Type EMRBEGINPATH pEmr As emr End Type Type EMRENDPATH pEmr As emr End Type Type EMRCLOSEFIGURE pEmr As emr End Type Type EMRFLATTENPATH pEmr As emr End Type Type EMRWIDENPATH pEmr As emr End Type Type EMRSETMETARGN pEmr As emr End Type Type EMREMRSAVEDC pEmr As emr End Type Type EMRREALIZEPALETTE pEmr As emr End Type Type EMRSELECTCLIPPATH pEmr As emr iMode As Long End Type Type EMRSETBKMODE pEmr As emr iMode As Long End Type Type EMRSETMAPMODE pEmr As emr iMode As Long End Type Type EMRSETPOLYFILLMODE pEmr As emr iMode As Long End Type Type EMRSETROP2 pEmr As emr iMode As Long End Type Type EMRSETSTRETCHBLTMODE pEmr As emr iMode As Long End Type Type EMRSETTEXTALIGN pEmr As emr iMode As Long End Type Type EMRSETMITERLIMIT pEmr As emr eMiterLimit As Double End Type Type EMRRESTOREDC pEmr As emr iRelative As Long End Type Type EMRSETARCDIRECTION pEmr As emr iArcDirection As Long End Type Type EMRSETMAPPERFLAGS pEmr As emr dwFlags As Long End Type Type EMRSETTEXTCOLOR pEmr As emr crColor As Long End Type Type EMRSETBKCOLOR pEmr As emr crColor As Long End Type Type EMRSELECTOBJECT pEmr As emr ihObject As Long End Type Type EMRDELETEOBJECT pEmr As emr ihObject As Long End Type Type EMRSELECTPALETTE pEmr As emr ihPal As Long End Type Type EMRRESIZEPALETTE pEmr As emr ihPal As Long cEntries As Long End Type Type EMRSETPALETTEENTRIES pEmr As emr ihPal As Long iStart As Long cEntries As Long aPalEntries(1) As PALETTEENTRY End Type Type EMRSETCOLORADJUSTMENT pEmr As emr ColorAdjustment As ColorAdjustment End Type Type EMRGDICOMMENT pEmr As emr cbData As Long Data(1) As Integer End Type Type EMREOF pEmr As emr nPalEntries As Long offPalEntries As Long nSizeLast As Long End Type Type EMRLINETO pEmr As emr ptl As POINTL End Type Type EMRMOVETOEX pEmr As emr ptl As POINTL End Type Type EMROFFSETCLIPRGN pEmr As emr ptlOffset As POINTL End Type Type EMRFILLPATH pEmr As emr rclBounds As RECTL End Type Type EMRSTROKEANDFILLPATH pEmr As emr rclBounds As RECTL End Type Type EMRSTROKEPATH pEmr As emr rclBounds As RECTL End Type Type EMREXCLUDECLIPRECT pEmr As emr rclClip As RECTL End Type Type EMRINTERSECTCLIPRECT pEmr As emr rclClip As RECTL End Type Type EMRSETVIEWPORTORGEX pEmr As emr ptlOrigin As POINTL End Type Type EMRSETWINDOWORGEX pEmr As emr ptlOrigin As POINTL End Type Type EMRSETBRUSHORGEX pEmr As emr ptlOrigin As POINTL End Type Type EMRSETVIEWPORTEXTEX pEmr As emr szlExtent As SIZEL End Type Type EMRSETWINDOWEXTEX pEmr As emr szlExtent As SIZEL End Type Type EMRSCALEVIEWPORTEXTEX pEmr As emr xNum As Long xDenom As Long yNum As Long yDemon As Long End Type Type EMRSCALEWINDOWEXTEX pEmr As emr xNum As Long xDenom As Long yNum As Long yDemon As Long End Type Type EMRSETWORLDTRANSFORM pEmr As emr xform As XFORM End Type Type EMRMODIFYWORLDTRANSFORM pEmr As emr xform As XFORM iMode As Long End Type Type EMRSETPIXELV pEmr As emr ptlPixel As POINTL crColor As Long End Type Type EMREXTFLOODFILL pEmr As emr ptlStart As POINTL crColor As Long iMode As Long End Type Type EMRELLIPSE pEmr As emr rclBox As RECTL End Type Type EMRRECTANGLE pEmr As emr rclBox As RECTL End Type Type EMRROUNDRECT pEmr As emr rclBox As RECTL szlCorner As SIZEL End Type Type EMRARC pEmr As emr rclBox As RECTL ptlStart As POINTL ptlEnd As POINTL End Type Type EMRARCTO pEmr As emr rclBox As RECTL ptlStart As POINTL ptlEnd As POINTL End Type Type EMRCHORD pEmr As emr rclBox As RECTL ptlStart As POINTL ptlEnd As POINTL End Type Type EMRPIE pEmr As emr rclBox As RECTL ptlStart As POINTL ptlEnd As POINTL End Type Type EMRANGLEARC pEmr As emr ptlCenter As POINTL nRadius As Long eStartAngle As Double eSweepAngle As Double End Type Type EMRPOLYLINE pEmr As emr rclBounds As RECTL cptl As Long aptl(1) As POINTL End Type Type EMRPOLYBEZIER pEmr As emr rclBounds As RECTL cptl As Long aptl(1) As POINTL End Type Type EMRPOLYGON pEmr As emr rclBounds As RECTL cptl As Long aptl(1) As POINTL End Type Type EMRPOLYBEZIERTO pEmr As emr rclBounds As RECTL cptl As Long aptl(1) As POINTL End Type Type EMRPOLYLINE16 pEmr As emr rclBounds As RECTL cpts As Long apts(1) As POINTS End Type Type EMRPOLYBEZIER16 pEmr As emr rclBounds As RECTL cpts As Long apts(1) As POINTS End Type Type EMRPOLYGON16 pEmr As emr rclBounds As RECTL cpts As Long apts(1) As POINTS End Type Type EMRPLOYBEZIERTO16 pEmr As emr rclBounds As RECTL cpts As Long apts(1) As POINTS End Type Type EMRPOLYLINETO16 pEmr As emr rclBounds As RECTL cpts As Long apts(1) As POINTS End Type Type EMRPOLYDRAW pEmr As emr rclBounds As RECTL cptl As Long aptl(1) As POINTL abTypes(1) As Integer End Type Type EMRPOLYDRAW16 pEmr As emr rclBounds As RECTL cpts As Long apts(1) As POINTS abTypes(1) As Integer End Type Type EMRPOLYPOLYLINE pEmr As emr rclBounds As RECTL nPolys As Long cptl As Long aPolyCounts(1) As Long aptl(1) As POINTL End Type Type EMRPOLYPOLYGON pEmr As emr rclBounds As RECTL nPolys As Long cptl As Long aPolyCounts(1) As Long aptl(1) As POINTL End Type Type EMRPOLYPOLYLINE16 pEmr As emr rclBounds As RECTL nPolys As Long cpts As Long aPolyCounts(1) As Long apts(1) As POINTS End Type Type EMRPOLYPOLYGON16 pEmr As emr rclBounds As RECTL nPolys As Long cpts As Long aPolyCounts(1) As Long apts(1) As POINTS End Type Type EMRINVERTRGN pEmr As emr rclBounds As RECTL cbRgnData As Long RgnData(1) As Integer End Type Type EMRPAINTRGN pEmr As emr rclBounds As RECTL cbRgnData As Long RgnData(1) As Integer End Type Type EMRFILLRGN pEmr As emr rclBounds As RECTL cbRgnData As Long ihBrush As Long RgnData(1) As Integer End Type Type EMRFRAMERGN pEmr As emr rclBounds As RECTL cbRgnData As Long ihBrush As Long szlStroke As SIZEL RgnData(1) As Integer End Type Type EMREXTSELECTCLIPRGN pEmr As emr cbRgnData As Long iMode As Long RgnData(1) As Integer End Type Type EMREXTTEXTOUT pEmr As emr rclBounds As RECTL iGraphicsMode As Long exScale As Double eyScale As Double emrtext As emrtext End Type Type EMRBITBLT pEmr As emr rclBounds As RECTL xDest As Long yDest As Long cxDest As Long cyDest As Long dwRop As Long xSrc As Long ySrc As Long xformSrc As xform crBkColorSrc As Long iUsageSrc As Long offBmiSrc As Long cbBmiSrc As Long offBitsSrc As Long cbBitsSrc As Long End Type Type EMRSTRETCHBLT pEmr As emr rclBounds As RECTL xDest As Long yDest As Long cxDest As Long cyDest As Long dwRop As Long xSrc As Long ySrc As Long xformSrc As xform crBkColorSrc As Long iUsageSrc As Long offBmiSrc As Long cbBmiSrc As Long offBitsSrc As Long cbBitsSrc As Long cxSrc As Long cySrc As Long End Type Type EMRMASKBLT pEmr As emr rclBounds As RECTL xDest As Long yDest As Long cxDest As Long cyDest As Long dwRop As Long xSrc2 As Long cyDest2 As Long dwRop2 As Long xSrc As Long ySrc As Long xformSrc As XFORM crBkColorSrc As Long iUsageSrc As Long offBmiSrc As Long cbBmiSrc As Long offBitsSrc As Long cbBitsSrc As Long xMask As Long yMask As Long iUsageMask As Long offBmiMask As Long cbBmiMask As Long offBitsMask As Long cbBitsMask As Long End Type Type EMRPLGBLT pEmr As emr rclBounds As RECTL aptlDest(3) As POINTL xSrc As Long ySrc As Long cxSrc As Long cySrc As Long xformSrc As XFORM crBkColorSrc As Long iUsageSrc As Long offBmiSrc As Long cbBmiSrc As Long offBitsSrc As Long cbBitsSrc As Long xMask As Long yMask As Long iUsageMask As Long offBmiMask As Long cbBmiMask As Long offBitsMask As Long cbBitsMask As Long End Type Type EMRSETDIBITSTODEVICE pEmr As emr rclBounds As RECTL xDest As Long yDest As Long xSrc As Long ySrc As Long cxSrc As Long cySrc As Long offBmiSrc As Long cbBmiSrc As Long offBitsSrc As Long cbBitsSrc As Long iUsageSrc As Long iStartScan As Long cScans As Long End Type Type EMRSTRETCHDIBITS pEmr As emr rclBounds As RECTL xDest As Long yDest As Long xSrc As Long ySrc As Long cxSrc As Long cySrc As Long offBmiSrc As Long cbBmiSrc As Long offBitsSrc As Long cbBitsSrc As Long iUsageSrc As Long dwRop As Long cxDest As Long cyDest As Long End Type Type EMREXTCREATEFONTINDIRECT pEmr As emr ihFont As Long elfw As EXTLOGFONT End Type Type EMRCREATEPALETTE pEmr As emr ihPal As Long lgpl As LOGPALETTE End Type Type EMRCREATEPEN pEmr As emr ihPen As Long lopn As LOGPEN End Type Type EMREXTCREATEPEN pEmr As emr ihPen As Long offBmi As Long cbBmi As Long offBits As Long cbBits As Long elp As EXTLOGPEN End Type Type EMRCREATEBRUSHINDIRECT pEmr As emr ihBrush As Long lb As LOGBRUSH End Type Type EMRCREATEMONOBRUSH pEmr As emr ihBrush As Long iUsage As Long offBmi As Long cbBmi As Long offBits As Long cbBits As Long End Type Type EMRCREATEDIBPATTERNBRUSHPT pEmr As emr ihBursh As Long iUsage As Long offBmi As Long cbBmi As Long offBits As Long cbBits As Long End Type ' new wingdi ' ************************************************************************* ' * * ' * wingdi.h -- GDI procedure declarations, constant definitions and macros * ' * * ' * Copyright (c) 1985-1995, Microsoft Corp. All rights reserved. * ' * * ' **************************************************************************/ ' StretchBlt() Modes Const STRETCH_ANDSCANS = 1 Const STRETCH_ORSCANS = 2 Const STRETCH_DELETESCANS = 3 Const STRETCH_HALFTONE = 4 Type BITMAPV4HEADER bV4Size As Long bV4Width As Long bV4Height As Long bV4Planes As Integer bV4BitCount As Integer bV4V4Compression As Long bV4SizeImage As Long bV4XPelsPerMeter As Long bV4YPelsPerMeter As Long bV4ClrUsed As Long bV4ClrImportant As Long bV4RedMask As Long bV4GreenMask As Long bV4BlueMask As Long bV4AlphaMask As Long bV4CSType As Long bV4Endpoints As Long bV4GammaRed As Long bV4GammaGreen As Long bV4GammaBlue As Long End Type Type FONTSIGNATURE fsUsb(4) As Long fsCsb(2) As Long End Type Type CHARSETINFO ciCharset As Long ciACP As Long fs As FONTSIGNATURE End Type Const TCI_SRCCHARSET = 1 Const TCI_SRCCODEPAGE = 2 Const TCI_SRCFONTSIG = 3 Type LOCALESIGNATURE lsUsb(4) As Long lsCsbDefault(2) As Long lsCsbSupported(2) As Long End Type Type NEWTEXTMETRICEX ntmTm As NEWTEXTMETRIC ntmFontSig As FONTSIGNATURE End Type Type ENUMLOGFONTEX elfLogFont As LOGFONT elfFullName(LF_FULLFACESIZE) As Byte elfStyle(LF_FACESIZE) As Byte elfScript(LF_FACESIZE) As Byte End Type Const MONO_FONT = 8 Const JOHAB_CHARSET = 130 Const HEBREW_CHARSET = 177 Const ARABIC_CHARSET = 178 Const GREEK_CHARSET = 161 Const TURKISH_CHARSET = 162 Const THAI_CHARSET = 222 Const EASTEUROPE_CHARSET = 238 Const RUSSIAN_CHARSET = 204 Const MAC_CHARSET = 77 Const BALTIC_CHARSET = 186 Const FS_LATIN1 = &H1& Const FS_LATIN2 = &H2& Const FS_CYRILLIC = &H4& Const FS_GREEK = &H8& Const FS_TURKISH = &H10& Const FS_HEBREW = &H20& Const FS_ARABIC = &H40& Const FS_BALTIC = &H80& Const FS_THAI = &H10000 Const FS_JISJAPAN = &H20000 Const FS_CHINESESIMP = &H40000 Const FS_WANSUNG = &H80000 Const FS_CHINESETRAD = &H100000 Const FS_JOHAB = &H200000 Const FS_SYMBOL = &H80000000 Const DEFAULT_GUI_FONT = 17 ' current version of specification Const DM_RESERVED1 = &H800000 Const DM_RESERVED2 = &H1000000 Const DM_ICMMETHOD = &H2000000 Const DM_ICMINTENT = &H4000000 Const DM_MEDIATYPE = &H8000000 Const DM_DITHERTYPE = &H10000000 Const DMPAPER_ISO_B4 = 42 ' B4 (ISO) 250 x 353 mm Const DMPAPER_JAPANESE_POSTCARD = 43 ' Japanese Postcard 100 x 148 mm Const DMPAPER_9X11 = 44 ' 9 x 11 in Const DMPAPER_10X11 = 45 ' 10 x 11 in Const DMPAPER_15X11 = 46 ' 15 x 11 in Const DMPAPER_ENV_INVITE = 47 ' Envelope Invite 220 x 220 mm Const DMPAPER_RESERVED_48 = 48 ' RESERVED--DO NOT USE Const DMPAPER_RESERVED_49 = 49 ' RESERVED--DO NOT USE Const DMPAPER_LETTER_EXTRA = 50 ' Letter Extra 9 \275 x 12 in Const DMPAPER_LEGAL_EXTRA = 51 ' Legal Extra 9 \275 x 15 in Const DMPAPER_TABLOID_EXTRA = 52 ' Tabloid Extra 11.69 x 18 in Const DMPAPER_A4_EXTRA = 53 ' A4 Extra 9.27 x 12.69 in Const DMPAPER_LETTER_TRANSVERSE = 54 ' Letter Transverse 8 \275 x 11 in Const DMPAPER_A4_TRANSVERSE = 55 ' A4 Transverse 210 x 297 mm Const DMPAPER_LETTER_EXTRA_TRANSVERSE = 56 ' Letter Extra Transverse 9\275 x 12 in Const DMPAPER_A_PLUS = 57 ' SuperA/SuperA/A4 227 x 356 mm Const DMPAPER_B_PLUS = 58 ' SuperB/SuperB/A3 305 x 487 mm Const DMPAPER_LETTER_PLUS = 59 ' Letter Plus 8.5 x 12.69 in Const DMPAPER_A4_PLUS = 60 ' A4 Plus 210 x 330 mm Const DMPAPER_A5_TRANSVERSE = 61 ' A5 Transverse 148 x 210 mm Const DMPAPER_B5_TRANSVERSE = 62 ' B5 (JIS) Transverse 182 x 257 mm Const DMPAPER_A3_EXTRA = 63 ' A3 Extra 322 x 445 mm Const DMPAPER_A5_EXTRA = 64 ' A5 Extra 174 x 235 mm Const DMPAPER_B5_EXTRA = 65 ' B5 (ISO) Extra 201 x 276 mm Const DMPAPER_A2 = 66 ' A2 420 x 594 mm Const DMPAPER_A3_TRANSVERSE = 67 ' A3 Transverse 297 x 420 mm Const DMPAPER_A3_EXTRA_TRANSVERSE = 68 ' A3 Extra Transverse 322 x 445 mm Const DMTT_DOWNLOAD_OUTLINE = 4 ' download TT fonts as outline soft fonts ' ICM methods Const DMICMMETHOD_NONE = 1 ' ICM disabled Const DMICMMETHOD_SYSTEM = 2 ' ICM handled by system Const DMICMMETHOD_DRIVER = 3 ' ICM handled by driver Const DMICMMETHOD_DEVICE = 4 ' ICM handled by device Const DMICMMETHOD_USER = 256 ' Device-specific methods start here ' ICM Intents Const DMICM_SATURATE = 1 ' Maximize color saturation Const DMICM_CONTRAST = 2 ' Maximize color contrast Const DMICM_COLORMETRIC = 3 ' Use specific color metric Const DMICM_USER = 256 ' Device-specific intents start here ' Media types Const DMMEDIA_STANDARD = 1 ' Standard paper Const DMMEDIA_GLOSSY = 2 ' Glossy paper Const DMMEDIA_TRANSPARENCY = 3 ' Transparency Const DMMEDIA_USER = 256 ' Device-specific media start here ' Dither types Const DMDITHER_NONE = 1 ' No dithering Const DMDITHER_COARSE = 2 ' Dither with a coarse brush Const DMDITHER_FINE = 3 ' Dither with a fine brush Const DMDITHER_LINEART = 4 ' LineArt dithering Const DMDITHER_GRAYSCALE = 5 ' Device does grayscaling Const DMDITHER_USER = 256 ' Device-specific dithers start here Const GGO_GRAY2_BITMAP = 4 Const GGO_GRAY4_BITMAP = 5 Const GGO_GRAY8_BITMAP = 6 Const GGO_GLYPH_INDEX = &H80 Const GCP_DBCS = &H1 Const GCP_REORDER = &H2 Const GCP_USEKERNING = &H8 Const GCP_GLYPHSHAPE = &H10 Const GCP_LIGATE = &H20 Const GCP_DIACRITIC = &H100 Const GCP_KASHIDA = &H400 Const GCP_ERROR = &H8000 Const FLI_MASK = &H103B Const GCP_JUSTIFY = &H10000 Const GCP_NODIACRITICS = &H20000 Const FLI_GLYPHS = &H40000 Const GCP_CLASSIN = &H80000 Const GCP_MAXEXTENT = &H100000 Const GCP_JUSTIFYIN = &H200000 Const GCP_DISPLAYZWG = &H400000 Const GCP_SYMSWAPOFF = &H800000 Const GCP_NUMERICOVERRIDE = &H1000000 Const GCP_NEUTRALOVERRIDE = &H2000000 Const GCP_NUMERICSLATIN = &H4000000 Const GCP_NUMERICSLOCAL = &H8000000 Const GCPCLASS_LATIN = 1 Const GCPCLASS_HEBREW = 2 Const GCPCLASS_ARABIC = 2 Const GCPCLASS_NEUTRAL = 3 Const GCPCLASS_LOCALNUMBER = 4 Const GCPCLASS_LATINNUMBER = 5 Const GCPCLASS_LATINNUMERICTERMINATOR = 6 Const GCPCLASS_LATINNUMERICSEPARATOR = 7 Const GCPCLASS_NUMERICSEPARATOR = 8 Const GCPCLASS_PREBOUNDRTL = &H80 Const GCPCLASS_PREBOUNDLTR = &H40 Type GCP_RESULTS lStructSize As Long lpOutString As String lpOrder As Long lpDX As Long lpCaretPos As Long lpClass As String lpGlyphs As String nGlyphs As Long nMaxFit As Long End Type Const DC_BINADJUST = 19 Const DC_EMF_COMPLIANT = 20 Const DC_DATATYPE_PRODUCED = 21 Const DC_COLLATE = 22 Const DCTT_DOWNLOAD_OUTLINE = &H8& ' return values for DC_BINADJUST Const DCBA_FACEUPNONE = &H0 Const DCBA_FACEUPCENTER = &H1 Const DCBA_FACEUPLEFT = &H2 Const DCBA_FACEUPRIGHT = &H3 Const DCBA_FACEDOWNNONE = &H100 Const DCBA_FACEDOWNCENTER = &H101 Const DCBA_FACEDOWNLEFT = &H102 Const DCBA_FACEDOWNRIGHT = &H103 Declare Function EnumFontFamilies Lib "gdi32" Alias "EnumFontFamiliesA" (ByVal hdc As Long, ByVal lpszFamily As String, ByVal lpEnumFontFamProc As Long, ByVal lParam As Long) As Long Declare Function EnumFontFamiliesEx Lib "gdi32" Alias "EnumFontFamiliesExA" (ByVal hdc As Long, lpLogFont As LOGFONT, ByVal lpEnumFontProc As Long, ByVal lParam As Long, ByVal dw As Long) As Long Declare Function GetTextCharset Lib "gdi32" Alias "GetTextCharset" (ByVal hdc As Long) As Long Declare Function GetTextCharsetInfo Lib "gdi32" Alias "GetTextCharsetInfo" (ByVal hdc As Long, lpSig As FONTSIGNATURE, ByVal dwFlags As Long) As Long Declare Function TranslateCharsetInfo Lib "gdi32" Alias "TranslateCharsetInfo" (lpSrc As Long, lpcs As CHARSETINFO, ByVal dwFlags As Long) As Long Declare Function GetFontLanguageInfo Lib "gdi32" Alias "GetFontLanguageInfo" (ByVal hdc As Long) As Long Declare Function GetCharacterPlacement Lib "gdi32" Alias "GetCharacterPlacementA" (ByVal hdc As Long, ByVal lpsz As String, ByVal n1 As Long, ByVal n2 As Long, lpGcpResults As GCP_RESULTS, ByVal dw As Long) As Long Const ICM_OFF = 1 Const ICM_ON = 2 Const ICM_QUERY = 3 Type CIEXYZ ciexyzX As Long ciexyzY As Long ciexyzZ As Long End Type Type CIEXYZTRIPLE ciexyzRed As CIEXYZ ciexyzGreen As CIEXYZ ciexyBlue As CIEXYZ End Type Type LOGCOLORSPACE lcsSignature As Long lcsVersion As Long lcsSize As Long lcsCSType As Long lcsIntent As Long lcsEndPoints As CIEXYZTRIPLE lcsGammaRed As Long lcsGammaGreen As Long lcsGammaBlue As Long lcsFileName As String * MAX_PATH End Type Declare Function SetICMMode Lib "gdi32" Alias "SetICMMode" (ByVal hdc As Long, ByVal n As Long) As Long Declare Function CheckColorsInGamut Lib "gdi32" Alias "CheckColorsInGamut" (ByVal hdc As Long, lpv As Any, lpv2 As Any, ByVal dw As Long) As Long Declare Function GetLogColorSpace Lib "gdi32" Alias "GetLogColorSpaceA" (ByVal hcolorspace As Long, ByVal lplogcolorspace As LOGCOLORSPACE, ByVal dw As Long) As Long Declare Function GetColorSpace Lib "gdi32" Alias "GetColorSpace" (ByVal hdc As Long) As Long Declare Function CreateColorSpace Lib "gdi32" Alias "CreateColorSpaceA" (lplogcolorspace As LOGCOLORSPACE) As Long Declare Function SetColorSpace Lib "gdi32" Alias "SetColorSpace" (ByVal hdc As Long, ByVal hcolorspace As Long) As Long Declare Function DeleteColorSpace Lib "gdi32" Alias "DeleteColorSpace" (ByVal hcolorspace As Long) As Long Declare Function GetICMProfile Lib "gdi32" Alias "GetICMProfileA" (ByVal hdc As Long, ByVal dw As Long, ByVal lpStr As String) As Long Declare Function SetICMProfile Lib "gdi32" Alias "SetICMProfileA" (ByVal hdc As Long, ByVal lpStr As String) As Long Declare Function GetDeviceGammaRamp Lib "gdi32" Alias "GetDeviceGammaRamp" (ByVal hdc As Long, lpv As Any) As Long Declare Function SetDeviceGammaRamp Lib "gdi32" Alias "SetDeviceGammaRamp" (ByVal hdc As Long, lpv As Any) As Long Declare Function ColorMatchToTarget Lib "gdi32" Alias "ColorMatchToTarget" (ByVal hdc As Long, ByVal hdc2 As Long, ByVal dw As Long) As Long Declare Function EnumICMProfiles Lib "gdi32" Alias "EnumICMProfilesA" (ByVal hdc As Long, ByVal icmEnumProc As Long, ByVal lParam As Long) As Long Const EMR_SETICMMODE = 98 Const EMR_CREATECOLORSPACE = 99 Const EMR_SETCOLORSPACE = 100 Const EMR_DELETECOLORSPACE = 101 Type EMRSELECTCOLORSPACE pEmr As emr ihCS As Long ' ColorSpace handle index End Type Type EMRCREATECOLORSPACE pEmr As emr ihCS As Long ' ColorSpace handle index lcs As LOGCOLORSPACE End Type ' -------------- ' USER Section ' -------------- ' Scroll Bar Constants Const SB_HORZ = 0 Const SB_VERT = 1 Const SB_CTL = 2 Const SB_BOTH = 3 ' Scroll Bar Commands Const SB_LINEUP = 0 Const SB_LINELEFT = 0 Const SB_LINEDOWN = 1 Const SB_LINERIGHT = 1 Const SB_PAGEUP = 2 Const SB_PAGELEFT = 2 Const SB_PAGEDOWN = 3 Const SB_PAGERIGHT = 3 Const SB_THUMBPOSITION = 4 Const SB_THUMBTRACK = 5 Const SB_TOP = 6 Const SB_LEFT = 6 Const SB_BOTTOM = 7 Const SB_RIGHT = 7 Const SB_ENDSCROLL = 8 ' ShowWindow() Commands Const SW_HIDE = 0 Const SW_SHOWNORMAL = 1 Const SW_NORMAL = 1 Const SW_SHOWMINIMIZED = 2 Const SW_SHOWMAXIMIZED = 3 Const SW_MAXIMIZE = 3 Const SW_SHOWNOACTIVATE = 4 Const SW_SHOW = 5 Const SW_MINIMIZE = 6 Const SW_SHOWMINNOACTIVE = 7 Const SW_SHOWNA = 8 Const SW_RESTORE = 9 Const SW_SHOWDEFAULT = 10 Const SW_MAX = 10 ' Old ShowWindow() Commands Const HIDE_WINDOW = 0 Const SHOW_OPENWINDOW = 1 Const SHOW_ICONWINDOW = 2 Const SHOW_FULLSCREEN = 3 Const SHOW_OPENNOACTIVATE = 4 ' Identifiers for the WM_SHOWWINDOW message Const SW_PARENTCLOSING = 1 Const SW_OTHERZOOM = 2 Const SW_PARENTOPENING = 3 Const SW_OTHERUNZOOM = 4 ' WM_KEYUP/DOWN/CHAR HIWORD(lParam) flags Const KF_EXTENDED = &H100 Const KF_DLGMODE = &H800 Const KF_MENUMODE = &H1000 Const KF_ALTDOWN = &H2000 Const KF_REPEAT = &H4000 Const KF_UP = &H8000 ' Virtual Keys, Standard Set Const VK_LBUTTON = &H1 Const VK_RBUTTON = &H2 Const VK_CANCEL = &H3 Const VK_MBUTTON = &H4 ' NOT contiguous with L RBUTTON Const VK_BACK = &H8 Const VK_TAB = &H9 Const VK_CLEAR = &HC Const VK_RETURN = &HD Const VK_SHIFT = &H10 Const VK_CONTROL = &H11 Const VK_MENU = &H12 Const VK_PAUSE = &H13 Const VK_CAPITAL = &H14 Const VK_ESCAPE = &H1B Const VK_SPACE = &H20 Const VK_PRIOR = &H21 Const VK_NEXT = &H22 Const VK_END = &H23 Const VK_HOME = &H24 Const VK_LEFT = &H25 Const VK_UP = &H26 Const VK_RIGHT = &H27 Const VK_DOWN = &H28 Const VK_SELECT = &H29 Const VK_PRINT = &H2A Const VK_EXECUTE = &H2B Const VK_SNAPSHOT = &H2C Const VK_INSERT = &H2D Const VK_DELETE = &H2E Const VK_HELP = &H2F ' VK_A thru VK_Z are the same as their ASCII equivalents: 'A' thru 'Z' ' VK_0 thru VK_9 are the same as their ASCII equivalents: '0' thru '9' Const VK_NUMPAD0 = &H60 Const VK_NUMPAD1 = &H61 Const VK_NUMPAD2 = &H62 Const VK_NUMPAD3 = &H63 Const VK_NUMPAD4 = &H64 Const VK_NUMPAD5 = &H65 Const VK_NUMPAD6 = &H66 Const VK_NUMPAD7 = &H67 Const VK_NUMPAD8 = &H68 Const VK_NUMPAD9 = &H69 Const VK_MULTIPLY = &H6A Const VK_ADD = &H6B Const VK_SEPARATOR = &H6C Const VK_SUBTRACT = &H6D Const VK_DECIMAL = &H6E Const VK_DIVIDE = &H6F Const VK_F1 = &H70 Const VK_F2 = &H71 Const VK_F3 = &H72 Const VK_F4 = &H73 Const VK_F5 = &H74 Const VK_F6 = &H75 Const VK_F7 = &H76 Const VK_F8 = &H77 Const VK_F9 = &H78 Const VK_F10 = &H79 Const VK_F11 = &H7A Const VK_F12 = &H7B Const VK_F13 = &H7C Const VK_F14 = &H7D Const VK_F15 = &H7E Const VK_F16 = &H7F Const VK_F17 = &H80 Const VK_F18 = &H81 Const VK_F19 = &H82 Const VK_F20 = &H83 Const VK_F21 = &H84 Const VK_F22 = &H85 Const VK_F23 = &H86 Const VK_F24 = &H87 Const VK_NUMLOCK = &H90 Const VK_SCROLL = &H91 ' ' VK_L VK_R - left and right Alt, Ctrl and Shift virtual keys. ' Used only as parameters to GetAsyncKeyState() and GetKeyState(). ' No other API or message will distinguish left and right keys in this way. ' / Const VK_LSHIFT = &HA0 Const VK_RSHIFT = &HA1 Const VK_LCONTROL = &HA2 Const VK_RCONTROL = &HA3 Const VK_LMENU = &HA4 Const VK_RMENU = &HA5 Const VK_ATTN = &HF6 Const VK_CRSEL = &HF7 Const VK_EXSEL = &HF8 Const VK_EREOF = &HF9 Const VK_PLAY = &HFA Const VK_ZOOM = &HFB Const VK_NONAME = &HFC Const VK_PA1 = &HFD Const VK_OEM_CLEAR = &HFE ' SetWindowsHook() codes Const WH_MIN = (-1) Const WH_MSGFILTER = (-1) Const WH_JOURNALRECORD = 0 Const WH_JOURNALPLAYBACK = 1 Const WH_KEYBOARD = 2 Const WH_GETMESSAGE = 3 Const WH_CALLWNDPROC = 4 Const WH_CBT = 5 Const WH_SYSMSGFILTER = 6 Const WH_MOUSE = 7 Const WH_HARDWARE = 8 Const WH_DEBUG = 9 Const WH_SHELL = 10 Const WH_FOREGROUNDIDLE = 11 Const WH_MAX = 11 ' Hook Codes Const HC_ACTION = 0 Const HC_GETNEXT = 1 Const HC_SKIP = 2 Const HC_NOREMOVE = 3 Const HC_NOREM = HC_NOREMOVE Const HC_SYSMODALON = 4 Const HC_SYSMODALOFF = 5 ' CBT Hook Codes Const HCBT_MOVESIZE = 0 Const HCBT_MINMAX = 1 Const HCBT_QS = 2 Const HCBT_CREATEWND = 3 Const HCBT_DESTROYWND = 4 Const HCBT_ACTIVATE = 5 Const HCBT_CLICKSKIPPED = 6 Const HCBT_KEYSKIPPED = 7 Const HCBT_SYSCOMMAND = 8 Const HCBT_SETFOCUS = 9 ' HCBT_ACTIVATE structure pointed to by lParam Type CBTACTIVATESTRUCT fMouse As Long hWndActive As Long End Type ' WH_MSGFILTER Filter Proc Codes Const MSGF_DIALOGBOX = 0 Const MSGF_MESSAGEBOX = 1 Const MSGF_MENU = 2 Const MSGF_MOVE = 3 Const MSGF_SIZE = 4 Const MSGF_SCROLLBAR = 5 Const MSGF_NEXTWINDOW = 6 Const MSGF_MAINLOOP = 8 Const MSGF_MAX = 8 Const MSGF_USER = 4096 Const HSHELL_WINDOWCREATED = 1 Const HSHELL_WINDOWDESTROYED = 2 Const HSHELL_ACTIVATESHELLWINDOW = 3 ' Message Structure used in Journaling Type EVENTMSG message As Long paramL As Long paramH As Long time As Long hwnd As Long End Type Type CWPSTRUCT lParam As Long wParam As Long message As Long hwnd As Long End Type Type DEBUGHOOKINFO hModuleHook As Long Reserved As Long lParam As Long wParam As Long code As Long End Type Type MOUSEHOOKSTRUCT pt As POINTAPI hwnd As Long wHitTestCode As Long dwExtraInfo As Long End Type ' Keyboard Layout API Const HKL_PREV = 0 Const HKL_NEXT = 1 Const KLF_ACTIVATE = &H1 Const KLF_SUBSTITUTE_OK = &H2 Const KLF_UNLOADPREVIOUS = &H4 Const KLF_REORDER = &H8 ' Size of KeyboardLayoutName (number of characters), including nul terminator Const KL_NAMELENGTH = 9 Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long Declare Function ActivateKeyboardLayout Lib "user32" Alias "ActivateKeyboardLayout" (ByVal HKL As Long, ByVal flags As Long) As Long Declare Function UnloadKeyboardLayout Lib "user32" Alias "UnloadKeyboardLayout" (ByVal HKL As Long) As Long Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long ' Desktop-specific access flags Const DESKTOP_READOBJECTS = &H1& Const DESKTOP_CREATEWINDOW = &H2& Const DESKTOP_CREATEMENU = &H4& Const DESKTOP_HOOKCONTROL = &H8& Const DESKTOP_JOURNALRECORD = &H10& Const DESKTOP_JOURNALPLAYBACK = &H20& Const DESKTOP_ENUMERATE = &H40& Const DESKTOP_WRITEOBJECTS = &H80& Declare Function GetThreadDesktop Lib "user32" Alias "GetThreadDesktop" (ByVal dwThread As Long) As Long ' Windowstation-specific access flags Const WINSTA_ENUMDESKTOPS = &H1& Const WINSTA_READATTRIBUTES = &H2& Const WINSTA_ACCESSCLIPBOARD = &H4& Const WINSTA_CREATEDESKTOP = &H8& Const WINSTA_WRITEATTRIBUTES = &H10& Const WINSTA_ACCESSPUBLICATOMS = &H20& Const WINSTA_EXITWINDOWS = &H40& Const WINSTA_ENUMERATE = &H100& Const WINSTA_READSCREEN = &H200& Declare Function GetProcessWindowStation Lib "user32" Alias "GetProcessWindowStation" () As Long Declare Function SetUserObjectSecurity Lib "user32" Alias "SetUserObjectSecurity" (ByVal hObj As Long, pSIRequested As Long, pSd As SECURITY_DESCRIPTOR) As Long Declare Function GetUserObjectSecurity Lib "user32" Alias "GetUserObjectSecurity" (ByVal hObj As Long, pSIRequested As Long, pSd As SECURITY_DESCRIPTOR, ByVal nLength As Long, lpnLengthNeeded As Long) As Long ' Message structure ' Window field offsets for GetWindowLong() and GetWindowWord() Const GWL_WNDPROC = (-4) Const GWL_HINSTANCE = (-6) Const GWL_HWNDPARENT = (-8) Const GWL_STYLE = (-16) Const GWL_EXSTYLE = (-20) Const GWL_USERDATA = (-21) Const GWL_ID = (-12) ' Class field offsets for GetClassLong() and GetClassWord() Const GCL_MENUNAME = (-8) Const GCL_HBRBACKGROUND = (-10) Const GCL_HCURSOR = (-12) Const GCL_HICON = (-14) Const GCL_HMODULE = (-16) Const GCL_CBWNDEXTRA = (-18) Const GCL_CBCLSEXTRA = (-20) Const GCL_WNDPROC = (-24) Const GCL_STYLE = (-26) Const GCW_ATOM = (-32) ' Window Messages Const WM_NULL = &H0 Const WM_CREATE = &H1 Const WM_DESTROY = &H2 Const WM_MOVE = &H3 Const WM_SIZE = &H5 Const WM_ACTIVATE = &H6 ' ' WM_ACTIVATE state values Const WA_INACTIVE = 0 Const WA_ACTIVE = 1 Const WA_CLICKACTIVE = 2 Const WM_SETFOCUS = &H7 Const WM_KILLFOCUS = &H8 Const WM_ENABLE = &HA Const WM_SETREDRAW = &HB Const WM_SETTEXT = &HC Const WM_GETTEXT = &HD Const WM_GETTEXTLENGTH = &HE Const WM_PAINT = &HF Const WM_CLOSE = &H10 Const WM_QUERYENDSESSION = &H11 Const WM_QUIT = &H12 Const WM_QUERYOPEN = &H13 Const WM_ERASEBKGND = &H14 Const WM_SYSCOLORCHANGE = &H15 Const WM_ENDSESSION = &H16 Const WM_SHOWWINDOW = &H18 Const WM_WININICHANGE = &H1A Const WM_DEVMODECHANGE = &H1B Const WM_ACTIVATEAPP = &H1C Const WM_FONTCHANGE = &H1D Const WM_TIMECHANGE = &H1E Const WM_CANCELMODE = &H1F Const WM_SETCURSOR = &H20 Const WM_MOUSEACTIVATE = &H21 Const WM_CHILDACTIVATE = &H22 Const WM_QUEUESYNC = &H23 Const WM_GETMINMAXINFO = &H24 Type MINMAXINFO ptReserved As POINTAPI ptMaxSize As POINTAPI ptMaxPosition As POINTAPI ptMinTrackSize As POINTAPI ptMaxTrackSize As POINTAPI End Type Const WM_PAINTICON = &H26 Const WM_ICONERASEBKGND = &H27 Const WM_NEXTDLGCTL = &H28 Const WM_SPOOLERSTATUS = &H2A Const WM_DRAWITEM = &H2B Const WM_MEASUREITEM = &H2C Const WM_DELETEITEM = &H2D Const WM_VKEYTOITEM = &H2E Const WM_CHARTOITEM = &H2F Const WM_SETFONT = &H30 Const WM_GETFONT = &H31 Const WM_SETHOTKEY = &H32 Const WM_GETHOTKEY = &H33 Const WM_QUERYDRAGICON = &H37 Const WM_COMPAREITEM = &H39 Const WM_COMPACTING = &H41 Const WM_OTHERWINDOWCREATED = &H42 ' no longer suported Const WM_OTHERWINDOWDESTROYED = &H43 ' no longer suported Const WM_COMMNOTIFY = &H44 ' no longer suported ' notifications passed in low word of lParam on WM_COMMNOTIFY messages Const CN_RECEIVE = &H1 Const CN_TRANSMIT = &H2 Const CN_EVENT = &H4 Const WM_WINDOWPOSCHANGING = &H46 Const WM_WINDOWPOSCHANGED = &H47 Const WM_POWER = &H48 ' ' wParam for WM_POWER window message and DRV_POWER driver notification Const PWR_OK = 1 Const PWR_FAIL = (-1) Const PWR_SUSPENDREQUEST = 1 Const PWR_SUSPENDRESUME = 2 Const PWR_CRITICALRESUME = 3 Const WM_COPYDATA = &H4A Const WM_CANCELJOURNAL = &H4B Type COPYDATASTRUCT dwData As Long cbData As Long lpData As Long End Type Const WM_NCCREATE = &H81 Const WM_NCDESTROY = &H82 Const WM_NCCALCSIZE = &H83 Const WM_NCHITTEST = &H84 Const WM_NCPAINT = &H85 Const WM_NCACTIVATE = &H86 Const WM_GETDLGCODE = &H87 Const WM_NCMOUSEMOVE = &HA0 Const WM_NCLBUTTONDOWN = &HA1 Const WM_NCLBUTTONUP = &HA2 Const WM_NCLBUTTONDBLCLK = &HA3 Const WM_NCRBUTTONDOWN = &HA4 Const WM_NCRBUTTONUP = &HA5 Const WM_NCRBUTTONDBLCLK = &HA6 Const WM_NCMBUTTONDOWN = &HA7 Const WM_NCMBUTTONUP = &HA8 Const WM_NCMBUTTONDBLCLK = &HA9 Const WM_KEYFIRST = &H100 Const WM_KEYDOWN = &H100 Const WM_KEYUP = &H101 Const WM_CHAR = &H102 Const WM_DEADCHAR = &H103 Const WM_SYSKEYDOWN = &H104 Const WM_SYSKEYUP = &H105 Const WM_SYSCHAR = &H106 Const WM_SYSDEADCHAR = &H107 Const WM_KEYLAST = &H108 Const WM_INITDIALOG = &H110 Const WM_COMMAND = &H111 Const WM_SYSCOMMAND = &H112 Const WM_TIMER = &H113 Const WM_HSCROLL = &H114 Const WM_VSCROLL = &H115 Const WM_INITMENU = &H116 Const WM_INITMENUPOPUP = &H117 Const WM_MENUSELECT = &H11F Const WM_MENUCHAR = &H120 Const WM_ENTERIDLE = &H121 Const WM_CTLCOLORMSGBOX = &H132 Const WM_CTLCOLOREDIT = &H133 Const WM_CTLCOLORLISTBOX = &H134 Const WM_CTLCOLORBTN = &H135 Const WM_CTLCOLORDLG = &H136 Const WM_CTLCOLORSCROLLBAR = &H137 Const WM_CTLCOLORSTATIC = &H138 Const WM_MOUSEFIRST = &H200 Const WM_MOUSEMOVE = &H200 Const WM_LBUTTONDOWN = &H201 Const WM_LBUTTONUP = &H202 Const WM_LBUTTONDBLCLK = &H203 Const WM_RBUTTONDOWN = &H204 Const WM_RBUTTONUP = &H205 Const WM_RBUTTONDBLCLK = &H206 Const WM_MBUTTONDOWN = &H207 Const WM_MBUTTONUP = &H208 Const WM_MBUTTONDBLCLK = &H209 Const WM_MOUSELAST = &H209 Const WM_PARENTNOTIFY = &H210 Const WM_ENTERMENULOOP = &H211 Const WM_EXITMENULOOP = &H212 Const WM_MDICREATE = &H220 Const WM_MDIDESTROY = &H221 Const WM_MDIACTIVATE = &H222 Const WM_MDIRESTORE = &H223 Const WM_MDINEXT = &H224 Const WM_MDIMAXIMIZE = &H225 Const WM_MDITILE = &H226 Const WM_MDICASCADE = &H227 Const WM_MDIICONARRANGE = &H228 Const WM_MDIGETACTIVE = &H229 Const WM_MDISETMENU = &H230 Const WM_DROPFILES = &H233 Const WM_MDIREFRESHMENU = &H234 Const WM_CUT = &H300 Const WM_COPY = &H301 Const WM_PASTE = &H302 Const WM_CLEAR = &H303 Const WM_UNDO = &H304 Const WM_RENDERFORMAT = &H305 Const WM_RENDERALLFORMATS = &H306 Const WM_DESTROYCLIPBOARD = &H307 Const WM_DRAWCLIPBOARD = &H308 Const WM_PAINTCLIPBOARD = &H309 Const WM_VSCROLLCLIPBOARD = &H30A Const WM_SIZECLIPBOARD = &H30B Const WM_ASKCBFORMATNAME = &H30C Const WM_CHANGECBCHAIN = &H30D Const WM_HSCROLLCLIPBOARD = &H30E Const WM_QUERYNEWPALETTE = &H30F Const WM_PALETTEISCHANGING = &H310 Const WM_PALETTECHANGED = &H311 Const WM_HOTKEY = &H312 Const WM_PENWINFIRST = &H380 Const WM_PENWINLAST = &H38F ' NOTE: All Message Numbers below 0x0400 are RESERVED. ' Private Window Messages Start Here: Const WM_USER = &H400 ' WM_SYNCTASK Commands Const ST_BEGINSWP = 0 Const ST_ENDSWP = 1 ' WM_NCHITTEST and MOUSEHOOKSTRUCT Mouse Position Codes Const HTERROR = (-2) Const HTTRANSPARENT = (-1) Const HTNOWHERE = 0 Const HTCLIENT = 1 Const HTCAPTION = 2 Const HTSYSMENU = 3 Const HTGROWBOX = 4 Const HTSIZE = HTGROWBOX Const HTMENU = 5 Const HTHSCROLL = 6 Const HTVSCROLL = 7 Const HTMINBUTTON = 8 Const HTMAXBUTTON = 9 Const HTLEFT = 10 Const HTRIGHT = 11 Const HTTOP = 12 Const HTTOPLEFT = 13 Const HTTOPRIGHT = 14 Const HTBOTTOM = 15 Const HTBOTTOMLEFT = 16 Const HTBOTTOMRIGHT = 17 Const HTBORDER = 18 Const HTREDUCE = HTMINBUTTON Const HTZOOM = HTMAXBUTTON Const HTSIZEFIRST = HTLEFT Const HTSIZELAST = HTBOTTOMRIGHT ' SendMessageTimeout values Const SMTO_NORMAL = &H0 Const SMTO_BLOCK = &H1 Const SMTO_ABORTIFHUNG = &H2 ' WM_MOUSEACTIVATE Return Codes Const MA_ACTIVATE = 1 Const MA_ACTIVATEANDEAT = 2 Const MA_NOACTIVATE = 3 Const MA_NOACTIVATEANDEAT = 4 Declare Function RegisterWindowMessage Lib "user32" Alias "RegisterWindowMessageA" (ByVal lpString As String) As Long ' WM_SIZE message wParam values Const SIZE_RESTORED = 0 Const SIZE_MINIMIZED = 1 Const SIZE_MAXIMIZED = 2 Const SIZE_MAXSHOW = 3 Const SIZE_MAXHIDE = 4 ' Obsolete constant names Const SIZENORMAL = SIZE_RESTORED Const SIZEICONIC = SIZE_MINIMIZED Const SIZEFULLSCREEN = SIZE_MAXIMIZED Const SIZEZOOMSHOW = SIZE_MAXSHOW Const SIZEZOOMHIDE = SIZE_MAXHIDE ' WM_WINDOWPOSCHANGING/CHANGED struct pointed to by lParam Type WINDOWPOS hwnd As Long hWndInsertAfter As Long x As Long y As Long cx As Long cy As Long flags As Long End Type ' WM_NCCALCSIZE return flags Const WVR_ALIGNTOP = &H10 Const WVR_ALIGNLEFT = &H20 Const WVR_ALIGNBOTTOM = &H40 Const WVR_ALIGNRIGHT = &H80 Const WVR_HREDRAW = &H100 Const WVR_VREDRAW = &H200 Const WVR_REDRAW = (WVR_HREDRAW Or WVR_VREDRAW) Const WVR_VALIDRECTS = &H400 ' Key State Masks for Mouse Messages Const MK_LBUTTON = &H1 Const MK_RBUTTON = &H2 Const MK_SHIFT = &H4 Const MK_CONTROL = &H8 Const MK_MBUTTON = &H10 ' Window Styles Const WS_OVERLAPPED = &H0& Const WS_POPUP = &H80000000 Const WS_CHILD = &H40000000 Const WS_MINIMIZE = &H20000000 Const WS_VISIBLE = &H10000000 Const WS_DISABLED = &H8000000 Const WS_CLIPSIBLINGS = &H4000000 Const WS_CLIPCHILDREN = &H2000000 Const WS_MAXIMIZE = &H1000000 Const WS_CAPTION = &HC00000 ' WS_BORDER Or WS_DLGFRAME Const WS_BORDER = &H800000 Const WS_DLGFRAME = &H400000 Const WS_VSCROLL = &H200000 Const WS_HSCROLL = &H100000 Const WS_SYSMENU = &H80000 Const WS_THICKFRAME = &H40000 Const WS_GROUP = &H20000 Const WS_TABSTOP = &H10000 Const WS_MINIMIZEBOX = &H20000 Const WS_MAXIMIZEBOX = &H10000 Const WS_TILED = WS_OVERLAPPED Const WS_ICONIC = WS_MINIMIZE Const WS_SIZEBOX = WS_THICKFRAME Const WS_OVERLAPPEDWINDOW = (WS_OVERLAPPED Or WS_CAPTION Or WS_SYSMENU Or WS_THICKFRAME Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX) Const WS_TILEDWINDOW = WS_OVERLAPPEDWINDOW ' ' Common Window Styles ' / Const WS_POPUPWINDOW = (WS_POPUP Or WS_BORDER Or WS_SYSMENU) Const WS_CHILDWINDOW = (WS_CHILD) ' Extended Window Styles Const WS_EX_DLGMODALFRAME = &H1& Const WS_EX_NOPARENTNOTIFY = &H4& Const WS_EX_TOPMOST = &H8& Const WS_EX_ACCEPTFILES = &H10& Const WS_EX_TRANSPARENT = &H20& ' Class styles Const CS_VREDRAW = &H1 Const CS_HREDRAW = &H2 Const CS_KEYCVTWINDOW = &H4 Const CS_DBLCLKS = &H8 Const CS_OWNDC = &H20 Const CS_CLASSDC = &H40 Const CS_PARENTDC = &H80 Const CS_NOKEYCVT = &H100 Const CS_NOCLOSE = &H200 Const CS_SAVEBITS = &H800 Const CS_BYTEALIGNCLIENT = &H1000 Const CS_BYTEALIGNWINDOW = &H2000 Const CS_PUBLICCLASS = &H4000 ' Predefined Clipboard Formats Const CF_TEXT = 1 Const CF_BITMAP = 2 Const CF_METAFILEPICT = 3 Const CF_SYLK = 4 Const CF_DIF = 5 Const CF_TIFF = 6 Const CF_OEMTEXT = 7 Const CF_DIB = 8 Const CF_PALETTE = 9 Const CF_PENDATA = 10 Const CF_RIFF = 11 Const CF_WAVE = 12 Const CF_UNICODETEXT = 13 Const CF_ENHMETAFILE = 14 Const CF_OWNERDISPLAY = &H80 Const CF_DSPTEXT = &H81 Const CF_DSPBITMAP = &H82 Const CF_DSPMETAFILEPICT = &H83 Const CF_DSPENHMETAFILE = &H8E ' "Private" formats don't get GlobalFree()'d Const CF_PRIVATEFIRST = &H200 Const CF_PRIVATELAST = &H2FF ' "GDIOBJ" formats do get DeleteObject()'d Const CF_GDIOBJFIRST = &H300 Const CF_GDIOBJLAST = &H3FF ' Defines for the fVirt field of the Accelerator table structure. Const FVIRTKEY = &H1 Const FNOINVERT = &H2 Const FSHIFT = &H4 Const FCONTROL = &H8 Const FALT = &H10 Type ACCEL fVirt As Byte key As Integer cmd As Integer End Type Type PAINTSTRUCT hdc As Long fErase As Long rcPaint As Rect fRestore As Long fIncUpdate As Long rgbReserved(32) As Byte End Type Type CREATESTRUCT lpCreateParams As Long hInstance As Long hMenu As Long hWndParent As Long cy As Long cx As Long y As Long x As Long style As Long lpszName As String lpszClass As String ExStyle As Long End Type ' HCBT_CREATEWND parameters pointed to by lParam Type CBT_CREATEWND lpcs As CREATESTRUCT hWndInsertAfter As Long End Type Type WINDOWPLACEMENT Length As Long flags As Long showCmd As Long ptMinPosition As POINTAPI ptMaxPosition As POINTAPI rcNormalPosition As Rect End Type Const WPF_SETMINPOSITION = &H1 Const WPF_RESTORETOMAXIMIZED = &H2 ' Owner draw control types Const ODT_MENU = 1 Const ODT_LISTBOX = 2 Const ODT_COMBOBOX = 3 Const ODT_BUTTON = 4 ' Owner draw actions Const ODA_DRAWENTIRE = &H1 Const ODA_SELECT = &H2 Const ODA_FOCUS = &H4 ' Owner draw state Const ODS_SELECTED = &H1 Const ODS_GRAYED = &H2 Const ODS_DISABLED = &H4 Const ODS_CHECKED = &H8 Const ODS_FOCUS = &H10 ' MEASUREITEMSTRUCT for ownerdraw Type MEASUREITEMSTRUCT CtlType As Long CtlID As Long itemID As Long itemWidth As Long itemHeight As Long itemData As Long End Type ' DRAWITEMSTRUCT for ownerdraw Type DRAWITEMSTRUCT CtlType As Long CtlID As Long itemID As Long itemAction As Long itemState As Long hwndItem As Long hdc As Long rcItem As Rect itemData As Long End Type ' DELETEITEMSTRUCT for ownerdraw Type DELETEITEMSTRUCT CtlType As Long CtlID As Long itemID As Long hwndItem As Long itemData As Long End Type ' COMPAREITEMSTRUCT for ownerdraw sorting Type COMPAREITEMSTRUCT CtlType As Long CtlID As Long hwndItem As Long itemID1 As Long itemData1 As Long itemID2 As Long itemData2 As Long End Type ' Message Function Templates Declare Function GetMessage Lib "user32" Alias "GetMessageA" (lpMsg As MSG, ByVal hwnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long) As Long Declare Function TranslateMessage Lib "user32" Alias "TranslateMessage" (lpMsg As MSG) As Long Declare Function DispatchMessage Lib "user32" Alias "DispatchMessageA" (lpMsg As MSG) As Long Declare Function PeekMessage Lib "user32" Alias "PeekMessageA" (lpMsg As MSG, ByVal hwnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long ' PeekMessage() Options Const PM_NOREMOVE = &H0 Const PM_REMOVE = &H1 Const PM_NOYIELD = &H2 Declare Function RegisterHotKey Lib "user32" Alias "RegisterHotKey" (ByVal hwnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long Declare Function UnregisterHotKey Lib "user32" Alias "UnregisterHotKey" (ByVal hwnd As Long, ByVal id As Long) As Long Const MOD_ALT = &H1 Const MOD_CONTROL = &H2 Const MOD_SHIFT = &H4 Const IDHOT_SNAPWINDOW = (-1) ' SHIFT-PRINTSCRN Const IDHOT_SNAPDESKTOP = (-2) ' PRINTSCRN Const EWX_LOGOFF = 0 Const EWX_SHUTDOWN = 1 Const EWX_REBOOT = 2 Const EWX_FORCE = 4 Const READAPI = 0 ' Flags for _lopen Const WRITEAPI = 1 Const READ_WRITE = 2 'per KB Article Q174883: ExitWindows -- Alias "ExitWindows" -> Alias "ExitWindowsEx" Declare Function ExitWindows Lib "user32" Alias "ExitWindowsEx" (ByVal dwReserved As Long, ByVal uReturnCode As Long) As Long Declare Function ExitWindowsEx Lib "user32" Alias "ExitWindowsEx" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long Declare Function SwapMouseButton Lib "user32" Alias "SwapMouseButton" (ByVal bSwap As Long) As Long Declare Function GetMessagePos Lib "user32" Alias "GetMessagePos" () As Long Declare Function GetMessageTime Lib "user32" Alias "GetMessageTime" () As Long Declare Function GetMessageExtraInfo Lib "user32" Alias "GetMessageExtraInfo" () As Long Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Declare Function SendMessageTimeout Lib "user32" Alias "SendMessageTimeoutA" (ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long, ByVal fuFlags As Long, ByVal uTimeout As Long, lpdwResult As Long) As Long Declare Function SendNotifyMessage Lib "user32" Alias "SendNotifyMessageA" (ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Declare Function SendMessageCallback Lib "user32" Alias "SendMessageCallbackA" (ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long, ByVal lpResultCallBack As Long, ByVal dwData As Long) As Long Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Declare Function PostThreadMessage Lib "user32" Alias "PostThreadMessageA" (ByVal idThread As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long ' Special HWND value for use with PostMessage and SendMessage Const HWND_BROADCAST = &HFFFF& Type WNDCLASS style As Long lpfnwndproc As Long cbClsextra As Long cbWndExtra2 As Long hInstance As Long hIcon As Long hCursor As Long hbrBackground As Long lpszMenuName As String lpszClassName As String End Type Declare Function AttachThreadInput Lib "user32" Alias "AttachThreadInput" (ByVal idAttach As Long, ByVal idAttachTo As Long, ByVal fAttach As Long) As Long Declare Function ReplyMessage Lib "user32" Alias "ReplyMessage" (ByVal lReply As Long) As Long Declare Function WaitMessage Lib "user32" Alias "WaitMessage" () As Long Declare Function WaitForInputIdle Lib "user32" Alias "WaitForInputIdle" (ByVal hProcess As Long, ByVal dwMilliseconds As Long) As Long Declare Function DefWindowProc Lib "user32" Alias "DefWindowProcA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Declare Sub PostQuitMessage Lib "user32" Alias "PostQuitMessage" (ByVal nExitCode As Long) Declare Function InSendMessage Lib "user32" Alias "InSendMessage" () As Long Declare Function InitCommonControls Lib "COMCTL32" () As Long Declare Function ImageList_Create Lib "COMCTL32" (ByVal MinCx As Long, ByVal MinCy As Long, ByVal flags As Long, ByVal cInitial As Long, ByVal cGrow As Long) As Long Declare Function ImageList_AddIcon Lib "COMCTL32" (ByVal himl As Long, ByVal hIcon As Long) As Long Declare Function ImageList_GetIcon Lib "COMCTL32" (ByVal HIMAGELIST As Long, ByVal ImgIndex As Long, hbmMask As Long) As Long Declare Function ImageList_Draw Lib "COMCTL32" (ByVal HIMAGELIST As Long, ByVal ImgIndex As Long, ByVal hDCDest As Long, ByVal xDest As Long, ByVal yDest As Long, ByVal lStyle As Long) As Long Declare Function GetDoubleClickTime Lib "user32" Alias "GetDoubleClickTime" () As Long Declare Function SetDoubleClickTime Lib "user32" Alias "SetDoubleClickTime" (ByVal wCount As Long) As Long Declare Function RegisterClass Lib "user32" Alias "RegisterClassA" (Class As WNDCLASS) As Long Declare Function UnregisterClass Lib "user32" Alias "UnregisterClassA" (ByVal lpClassName As String, ByVal hInstance As Long) As Long Declare Function GetClassInfo Lib "user32" Alias "GetClassInfoA" (ByVal hInstance As Long, ByVal lpClassName As String, lpWndClass As WNDCLASS) As Long Const CW_USEDEFAULT = &H80000000 Const HWND_DESKTOP = 0 Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long Declare Function IsWindow Lib "user32" Alias "IsWindow" (ByVal hwnd As Long) As Long Declare Function IsMenu Lib "user32" Alias "IsMenu" (ByVal hMenu As Long) As Long Declare Function IsChild Lib "user32" Alias "IsChild" (ByVal hWndParent As Long, ByVal hwnd As Long) As Long Declare Function DestroyWindow Lib "user32" Alias "DestroyWindow" (ByVal hwnd As Long) As Long Declare Function ShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Declare Function FlashWindow Lib "user32" Alias "FlashWindow" (ByVal hwnd As Long, ByVal bInvert As Long) As Long Declare Function ShowOwnedPopups Lib "user32" Alias "ShowOwnedPopups" (ByVal hwnd As Long, ByVal fShow As Long) As Long Declare Function OpenIcon Lib "user32" Alias "OpenIcon" (ByVal hwnd As Long) As Long Declare Function CloseWindow Lib "user32" Alias "CloseWindow" (ByVal hwnd As Long) As Long Declare Function MoveWindow Lib "user32" Alias "MoveWindow" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Declare Function GetWindowPlacement Lib "user32" Alias "GetWindowPlacement" (ByVal hwnd As Long, lpwndpl As WINDOWPLACEMENT) As Long Declare Function SetWindowPlacement Lib "user32" Alias "SetWindowPlacement" (ByVal hwnd As Long, lpwndpl As WINDOWPLACEMENT) As Long Declare Function BeginDeferWindowPos Lib "user32" Alias "BeginDeferWindowPos" (ByVal nNumWindows As Long) As Long Declare Function DeferWindowPos Lib "user32" Alias "DeferWindowPos" (ByVal hWinPosInfo As Long, ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Declare Function EndDeferWindowPos Lib "user32" Alias "EndDeferWindowPos" (ByVal hWinPosInfo As Long) As Long Declare Function IsWindowVisible Lib "user32" Alias "IsWindowVisible" (ByVal hwnd As Long) As Long Declare Function IsIconic Lib "user32" Alias "IsIconic" (ByVal hwnd As Long) As Long Declare Function AnyPopup Lib "user32" Alias "AnyPopup" () As Long Declare Function BringWindowToTop Lib "user32" Alias "BringWindowToTop" (ByVal hwnd As Long) As Long Declare Function IsZoomed Lib "user32" Alias "IsZoomed" (ByVal hwnd As Long) As Long ' SetWindowPos Flags Const SWP_NOSIZE = &H1 Const SWP_NOMOVE = &H2 Const SWP_NOZORDER = &H4 Const SWP_NOREDRAW = &H8 Const SWP_NOACTIVATE = &H10 Const SWP_FRAMECHANGED = &H20 ' The frame changed: send WM_NCCALCSIZE Const SWP_SHOWWINDOW = &H40 Const SWP_HIDEWINDOW = &H80 Const SWP_NOCOPYBITS = &H100 Const SWP_NOOWNERZORDER = &H200 ' Don't do owner Z ordering Const SWP_DRAWFRAME = SWP_FRAMECHANGED Const SWP_NOREPOSITION = SWP_NOOWNERZORDER ' SetWindowPos() hwndInsertAfter values Const HWND_TOP = 0 Const HWND_BOTTOM = 1 Const HWND_TOPMOST = -1 Const HWND_NOTOPMOST = -2 Type DLGTEMPLATE style As Long dwExtendedStyle As Long cdit As Integer x As Integer y As Integer cx As Integer cy As Integer End Type Type DLGITEMTEMPLATE style As Long dwExtendedStyle As Long x As Integer y As Integer cx As Integer cy As Integer id As Integer End Type Declare Function EndDialog Lib "user32" Alias "EndDialog" (ByVal hDlg As Long, ByVal nResult As Long) As Long Declare Function GetDlgItem Lib "user32" Alias "GetDlgItem" (ByVal hDlg As Long, ByVal nIDDlgItem As Long) As Long Declare Function SetDlgItemInt Lib "user32" Alias "SetDlgItemInt" (ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal wValue As Long, ByVal bSigned As Long) As Long Declare Function GetDlgItemInt Lib "user32" Alias "GetDlgItemInt" (ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal lpTranslated As Long, ByVal bSigned As Long) As Long Declare Function SetDlgItemText Lib "user32" Alias "SetDlgItemTextA" (ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal lpString As String) As Long Declare Function GetDlgItemText Lib "user32" Alias "GetDlgItemTextA" (ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal lpString As String, ByVal nMaxCount As Long) As Long Declare Function CheckDlgButton Lib "user32" Alias "CheckDlgButton" (ByVal hDlg As Long, ByVal nIDButton As Long, ByVal wCheck As Long) As Long Declare Function CheckRadioButton Lib "user32" Alias "CheckRadioButton" (ByVal hDlg As Long, ByVal nIDFirstButton As Long, ByVal nIDLastButton As Long, ByVal nIDCheckButton As Long) As Long Declare Function IsDlgButtonChecked Lib "user32" Alias "IsDlgButtonChecked" (ByVal hDlg As Long, ByVal nIDButton As Long) As Long Declare Function SendDlgItemMessage Lib "user32" Alias "SendDlgItemMessageA" (ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Declare Function GetNextDlgGroupItem Lib "user32" Alias "GetNextDlgGroupItem" (ByVal hDlg As Long, ByVal hCtl As Long, ByVal bPrevious As Long) As Long Declare Function GetNextDlgTabItem Lib "user32" Alias "GetNextDlgTabItem" (ByVal hDlg As Long, ByVal hCtl As Long, ByVal bPrevious As Long) As Long Declare Function GetDlgCtrlID Lib "user32" Alias "GetDlgCtrlID" (ByVal hwnd As Long) As Long Declare Function GetDialogBaseUnits Lib "user32" Alias "GetDialogBaseUnits" () As Long Declare Function DefDlgProc Lib "user32" Alias "DefDlgProcA" (ByVal hDlg As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Const DLGWINDOWEXTRA = 30 ' Window extra bytes needed for private dialog classes Declare Function CallMsgFilter Lib "user32" Alias "CallMsgFilterA" (lpMsg As MSG, ByVal ncode As Long) As Long ' Clipboard Manager Functions Declare Function OpenClipboard Lib "user32" Alias "OpenClipboard" (ByVal hwnd As Long) As Long Declare Function CloseClipboard Lib "user32" Alias "CloseClipboard" () As Long Declare Function GetClipboardOwner Lib "user32" Alias "GetClipboardOwner" () As Long Declare Function SetClipboardViewer Lib "user32" Alias "SetClipboardViewer" (ByVal hwnd As Long) As Long Declare Function GetClipboardViewer Lib "user32" Alias "GetClipboardViewer" () As Long Declare Function ChangeClipboardChain Lib "user32" Alias "ChangeClipboardChain" (ByVal hwnd As Long, ByVal hWndNext As Long) As Long Declare Function SetClipboardData Lib "user32" Alias "SetClipboardData" (ByVal wFormat As Long, ByVal hMem As Long) As Long Declare Function GetClipboardData Lib "user32" Alias "GetClipboardData" (ByVal wFormat As Long) As Long Declare Function RegisterClipboardFormat Lib "user32" Alias "RegisterClipboardFormatA" (ByVal lpString As String) As Long Declare Function CountClipboardFormats Lib "user32" Alias "CountClipboardFormats" () As Long Declare Function EnumClipboardFormats Lib "user32" Alias "EnumClipboardFormats" (ByVal wFormat As Long) As Long Declare Function GetClipboardFormatName Lib "user32" Alias "GetClipboardFormatNameA" (ByVal wFormat As Long, ByVal lpString As String, ByVal nMaxCount As Long) As Long Declare Function EmptyClipboard Lib "user32" Alias "EmptyClipboard" () As Long Declare Function IsClipboardFormatAvailable Lib "user32" Alias "IsClipboardFormatAvailable" (ByVal wFormat As Long) As Long Declare Function GetPriorityClipboardFormat Lib "user32" Alias "GetPriorityClipboardFormat" (lpPriorityList As Long, ByVal nCount As Long) As Long Declare Function GetOpenClipboardWindow Lib "user32" Alias "GetOpenClipboardWindow" () As Long Declare Function CharToOem Lib "user32" Alias "CharToOemA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long Declare Function CharToOemBuff Lib "user32" Alias "CharToOemBuffA" (ByVal lpszSrc As String, ByVal lpszDst As String, ByVal cchDstLength As Long) As Long Declare Function OemToCharBuff Lib "user32" Alias "OemToCharBuffA" (ByVal lpszSrc As String, ByVal lpszDst As String, ByVal cchDstLength As Long) As Long Declare Function CharUpper Lib "user32" Alias "CharUpperA" (ByVal lpsz As String) As String Declare Function CharUpperBuff Lib "user32" Alias "CharUpperBuffA" (ByVal lpsz As String, ByVal cchLength As Long) As Long Declare Function CharLower Lib "user32" Alias "CharLowerA" (ByVal lpsz As String) As String Declare Function CharLowerBuff Lib "user32" Alias "CharLowerBuffA" (ByVal lpsz As String, ByVal cchLength As Long) As Long Declare Function CharNext Lib "user32" Alias "CharNextA" (ByVal lpsz As String) As String Declare Function CharPrev Lib "user32" Alias "CharPrevA" (ByVal lpszStart As String, ByVal lpszCurrent As String) As String ' Language dependent Routines Declare Function IsCharAlpha Lib "user32" Alias "IsCharAlphaA" (ByVal cChar As Byte) As Long Declare Function IsCharAlphaNumeric Lib "user32" Alias "IsCharAlphaNumericA" (ByVal cChar As Byte) As Long Declare Function IsCharUpper Lib "user32" Alias "IsCharUpperA" (ByVal cChar As Byte) As Long Declare Function IsCharLower Lib "user32" Alias "IsCharLowerA" (ByVal cChar As Byte) As Long Declare Function SetFocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long Declare Function GetFocus Lib "user32" Alias "GetFocus" () As Long Declare Function GetActiveWindow Lib "user32" Alias "GetActiveWindow" () As Long ' Keyboard Information Routines Declare Function GetKBCodePage Lib "user32" Alias "GetKBCodePage" () As Long Declare Function GetKeyState Lib "user32" Alias "GetKeyState" (ByVal nVirtKey As Long) As Integer Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer Declare Function GetKeyboardState Lib "user32" Alias "GetKeyboardState" (pbKeyState As Byte) As Long Declare Function SetKeyboardState Lib "user32" Alias "SetKeyboardState" (lppbKeyState As Byte) As Long Declare Function GetKeyboardType Lib "user32" Alias "GetKeyboardType" (ByVal nTypeFlag As Long) As Long Declare Function GetKeyNameText Lib "user32" Alias "GetKeyNameTextA" (ByVal lParam As Long, ByVal lpBuffer As String, ByVal nSize As Long) As Long Declare Function ToAscii Lib "user32" Alias "ToAscii" (ByVal uVirtKey As Long, ByVal uScanCode As Long, lpbKeyState As Byte, lpwTransKey As Long, ByVal fuState As Long) As Long Declare Function ToUnicode Lib "user32" Alias "ToUnicode" (ByVal wVirtKey As Long, ByVal wScanCode As Long, lpKeyState As Byte, ByVal pwszBuff As String, ByVal cchBuff As Long, ByVal wFlags As Long) As Long Declare Function OemKeyScan Lib "user32" Alias "OemKeyScan" (ByVal wOemChar As Long) As Long Declare Function VkKeyScan Lib "user32" Alias "VkKeyScanA" (ByVal cChar As Byte) As Integer Const KEYEVENTF_EXTENDEDKEY = &H1 Const KEYEVENTF_KEYUP = &H2 Declare Sub keybd_event Lib "user32" Alias "keybd_event" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Const MOUSEEVENTF_MOVE = &H1 ' mouse move Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down Const MOUSEEVENTF_LEFTUP = &H4 ' left button up Const MOUSEEVENTF_RIGHTDOWN = &H8 ' right button down Const MOUSEEVENTF_RIGHTUP = &H10 ' right button up Const MOUSEEVENTF_MIDDLEDOWN = &H20 ' middle button down Const MOUSEEVENTF_MIDDLEUP = &H40 ' middle button up Const MOUSEEVENTF_ABSOLUTE = &H8000 ' absolute move Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long Declare Function GetInputState Lib "user32" Alias "GetInputState" () As Long Declare Function GetQueueStatus Lib "user32" Alias "GetQueueStatus" (ByVal fuFlags As Long) As Long Declare Function GetCapture Lib "user32" Alias "GetCapture" () As Long Declare Function SetCapture Lib "user32" Alias "SetCapture" (ByVal hwnd As Long) As Long Declare Function ReleaseCapture Lib "user32" Alias "ReleaseCapture" () As Long Declare Function MsgWaitForMultipleObjects Lib "user32" Alias "MsgWaitForMultipleObjects" (ByVal nCount As Long, pHandles As Long, ByVal fWaitAll As Long, ByVal dwMilliseconds As Long, ByVal dwWakeMask As Long) As Long ' GetQueueStatus flags Const QS_KEY = &H1 Const QS_MOUSEMOVE = &H2 Const QS_MOUSEBUTTON = &H4 Const QS_POSTMESSAGE = &H8 Const QS_TIMER = &H10 Const QS_PAINT = &H20 Const QS_SENDMESSAGE = &H40 Const QS_HOTKEY = &H80 Const QS_MOUSE = (QS_MOUSEMOVE Or QS_MOUSEBUTTON) Const QS_INPUT = (QS_MOUSE Or QS_KEY) Const QS_ALLEVENTS = (QS_INPUT Or QS_POSTMESSAGE Or QS_TIMER Or QS_PAINT Or QS_HOTKEY) Const QS_ALLINPUT = (QS_SENDMESSAGE Or QS_PAINT Or QS_TIMER Or QS_POSTMESSAGE Or QS_MOUSEBUTTON Or QS_MOUSEMOVE Or QS_HOTKEY Or QS_KEY) ' Windows Functions Declare Function KillTimer Lib "user32" Alias "KillTimer" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long Declare Function IsWindowUnicode Lib "user32" Alias "IsWindowUnicode" (ByVal hwnd As Long) As Long Declare Function EnableWindow Lib "user32" Alias "EnableWindow" (ByVal hwnd As Long, ByVal fEnable As Long) As Long Declare Function IsWindowEnabled Lib "user32" Alias "IsWindowEnabled" (ByVal hwnd As Long) As Long Declare Function LoadAccelerators Lib "user32" Alias "LoadAcceleratorsA" (ByVal hInstance As Long, ByVal lpTableName As String) As Long Declare Function CreateAcceleratorTable Lib "user32" Alias "CreateAcceleratorTableA" (lpaccl As ACCEL, ByVal cEntries As Long) As Long Declare Function DestroyAcceleratorTable Lib "user32" Alias "DestroyAcceleratorTable" (ByVal haccel As Long) As Long Declare Function CopyAcceleratorTable Lib "user32" Alias "CopyAcceleratorTableA" (ByVal hAccelSrc As Long, lpAccelDst As ACCEL, ByVal cAccelEntries As Long) As Long Declare Function TranslateAccelerator Lib "user32" Alias "TranslateAcceleratorA" (ByVal hwnd As Long, ByVal hAccTable As Long, lpMsg As MSG) As Long ' GetSystemMetrics() codes Const SM_CXSCREEN = 0 Const SM_CYSCREEN = 1 Const SM_CXVSCROLL = 2 Const SM_CYHSCROLL = 3 Const SM_CYCAPTION = 4 Const SM_CXBORDER = 5 Const SM_CYBORDER = 6 Const SM_CXDLGFRAME = 7 Const SM_CYDLGFRAME = 8 Const SM_CYVTHUMB = 9 Const SM_CXHTHUMB = 10 Const SM_CXICON = 11 Const SM_CYICON = 12 Const SM_CXCURSOR = 13 Const SM_CYCURSOR = 14 Const SM_CYMENU = 15 Const SM_CXFULLSCREEN = 16 Const SM_CYFULLSCREEN = 17 Const SM_CYKANJIWINDOW = 18 Const SM_MOUSEPRESENT = 19 Const SM_CYVSCROLL = 20 Const SM_CXHSCROLL = 21 Const SM_DEBUG = 22 Const SM_SWAPBUTTON = 23 Const SM_RESERVED1 = 24 Const SM_RESERVED2 = 25 Const SM_RESERVED3 = 26 Const SM_RESERVED4 = 27 Const SM_CXMIN = 28 Const SM_CYMIN = 29 Const SM_CXSIZE = 30 Const SM_CYSIZE = 31 Const SM_CXFRAME = 32 Const SM_CYFRAME = 33 Const SM_CXMINTRACK = 34 Const SM_CYMINTRACK = 35 Const SM_CXDOUBLECLK = 36 Const SM_CYDOUBLECLK = 37 Const SM_CXICONSPACING = 38 Const SM_CYICONSPACING = 39 Const SM_MENUDROPALIGNMENT = 40 Const SM_PENWINDOWS = 41 Const SM_DBCSENABLED = 42 Const SM_CMOUSEBUTTONS = 43 Const SM_CMETRICS = 44 Const SM_CXSIZEFRAME = SM_CXFRAME Const SM_CYSIZEFRAME = SM_CYFRAME Const SM_CXFIXEDFRAME = SM_CXDLGFRAME Const SM_CYFIXEDFRAME = SM_CYDLGFRAME Declare Function GetSystemMetrics Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long Declare Function LoadMenu Lib "user32" Alias "LoadMenuA" (ByVal hInstance As Long, ByVal lpString As String) As Long Declare Function LoadMenuIndirect Lib "user32" Alias "LoadMenuIndirectA" (ByVal lpMenuTemplate As Long) As Long Declare Function GetMenu Lib "user32" Alias "GetMenu" (ByVal hwnd As Long) As Long Declare Function SetMenu Lib "user32" Alias "SetMenu" (ByVal hwnd As Long, ByVal hMenu As Long) As Long Declare Function HiliteMenuItem Lib "user32" Alias "HiliteMenuItem" (ByVal hwnd As Long, ByVal hMenu As Long, ByVal wIDHiliteItem As Long, ByVal wHilite As Long) As Long Declare Function GetMenuString Lib "user32" Alias "GetMenuStringA" (ByVal hMenu As Long, ByVal wIDItem As Long, ByVal lpString As String, ByVal nMaxCount As Long, ByVal wFlag As Long) As Long Declare Function GetMenuState Lib "user32" Alias "GetMenuState" (ByVal hMenu As Long, ByVal wID As Long, ByVal wFlags As Long) As Long Declare Function DrawMenuBar Lib "user32" Alias "DrawMenuBar" (ByVal hwnd As Long) As Long Declare Function GetSystemMenu Lib "user32" Alias "GetSystemMenu" (ByVal hwnd As Long, ByVal bRevert As Long) As Long Declare Function CreateMenu Lib "user32" Alias "CreateMenu" () As Long Declare Function CreatePopupMenu Lib "user32" Alias "CreatePopupMenu" () As Long Declare Function DestroyMenu Lib "user32" Alias "DestroyMenu" (ByVal hMenu As Long) As Long Declare Function CheckMenuItem Lib "user32" Alias "CheckMenuItem" (ByVal hMenu As Long, ByVal wIDCheckItem As Long, ByVal wCheck As Long) As Long Declare Function EnableMenuItem Lib "user32" Alias "EnableMenuItem" (ByVal hMenu As Long, ByVal wIDEnableItem As Long, ByVal wEnable As Long) As Long Declare Function GetSubMenu Lib "user32" Alias "GetSubMenu" (ByVal hMenu As Long, ByVal nPos As Long) As Long Declare Function GetMenuItemID Lib "user32" Alias "GetMenuItemID" (ByVal hMenu As Long, ByVal nPos As Long) As Long Declare Function GetMenuItemCount Lib "user32" Alias "GetMenuItemCount" (ByVal hMenu As Long) As Long Declare Function InsertMenu Lib "user32" Alias "InsertMenuA" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long Declare Function ModifyMenu Lib "user32" Alias "ModifyMenuA" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpString As Any) As Long Declare Function RemoveMenu Lib "user32" Alias "RemoveMenu" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long Declare Function DeleteMenu Lib "user32" Alias "DeleteMenu" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long Declare Function SetMenuItemBitmaps Lib "user32" Alias "SetMenuItemBitmaps" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long) As Long Declare Function GetMenuCheckMarkDimensions Lib "user32" Alias "GetMenuCheckMarkDimensions" () As Long Declare Function TrackPopupMenu Lib "user32" Alias "TrackPopupMenu" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal x As Long, ByVal y As Long, ByVal nReserved As Long, ByVal hwnd As Long, lprc As Rect) As Long ' Flags for TrackPopupMenu Const TPM_LEFTBUTTON = &H0& Const TPM_RIGHTBUTTON = &H2& Const TPM_LEFTALIGN = &H0& Const TPM_CENTERALIGN = &H4& Const TPM_RIGHTALIGN = &H8& Declare Function DrawIcon Lib "user32" Alias "DrawIcon" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long ' DrawText() Format Flags Const DT_TOP = &H0 Const DT_LEFT = &H0 Const DT_CENTER = &H1 Const DT_RIGHT = &H2 Const DT_VCENTER = &H4 Const DT_BOTTOM = &H8 Const DT_WORDBREAK = &H10 Const DT_SINGLELINE = &H20 Const DT_EXPANDTABS = &H40 Const DT_TABSTOP = &H80 Const DT_NOCLIP = &H100 Const DT_EXTERNALLEADING = &H200 Const DT_CALCRECT = &H400 Const DT_NOPREFIX = &H800 Const DT_INTERNAL = &H1000 Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long Declare Function TabbedTextOut Lib "user32" Alias "TabbedTextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long, ByVal nTabPositions As Long, lpnTabStopPositions As Long, ByVal nTabOrigin As Long) As Long Declare Function GetTabbedTextExtent Lib "user32" Alias "GetTabbedTextExtentA" (ByVal hdc As Long, ByVal lpString As String, ByVal nCount As Long, ByVal nTabPositions As Long, lpnTabStopPositions As Long) As Long Declare Function UpdateWindow Lib "user32" Alias "UpdateWindow" (ByVal hwnd As Long) As Long Declare Function SetActiveWindow Lib "user32" Alias "SetActiveWindow" (ByVal hwnd As Long) As Long Declare Function GetForegroundWindow Lib "user32" Alias "GetForegroundWindow" () As Long Declare Function SetForegroundWindow Lib "user32" Alias "SetForegroundWindow" (ByVal hwnd As Long) As Long Declare Function WindowFromDC Lib "user32" Alias "WindowFromDC" (ByVal hdc As Long) As Long Declare Function GetDC Lib "user32" Alias "GetDC" (ByVal hwnd As Long) As Long Declare Function GetDCEx Lib "user32" Alias "GetDCEx" (ByVal hwnd As Long, ByVal hrgnclip As Long, ByVal fdwOptions As Long) As Long Const DCX_WINDOW = &H1& Const DCX_CACHE = &H2& Const DCX_NORESETATTRS = &H4& Const DCX_CLIPCHILDREN = &H8& Const DCX_CLIPSIBLINGS = &H10& Const DCX_PARENTCLIP = &H20& Const DCX_EXCLUDERGN = &H40& Const DCX_INTERSECTRGN = &H80& Const DCX_EXCLUDEUPDATE = &H100& Const DCX_INTERSECTUPDATE = &H200& Const DCX_LOCKWINDOWUPDATE = &H400& Const DCX_NORECOMPUTE = &H100000 Const DCX_VALIDATE = &H200000 Declare Function GetWindowDC Lib "user32" Alias "GetWindowDC" (ByVal hwnd As Long) As Long Declare Function ReleaseDC Lib "user32" Alias "ReleaseDC" (ByVal hwnd As Long, ByVal hdc As Long) As Long Declare Function BeginPaint Lib "user32" Alias "BeginPaint" (ByVal hwnd As Long, lpPaint As PAINTSTRUCT) As Long Declare Function EndPaint Lib "user32" Alias "EndPaint" (ByVal hwnd As Long, lpPaint As PAINTSTRUCT) As Long Declare Function GetUpdateRect Lib "user32" Alias "GetUpdateRect" (ByVal hwnd As Long, lpRect As RECT, ByVal bErase As Long) As Long Declare Function GetUpdateRgn Lib "user32" Alias "GetUpdateRgn" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal fErase As Long) As Long Declare Function ExcludeUpdateRgn Lib "user32" Alias "ExcludeUpdateRgn" (ByVal hdc As Long, ByVal hwnd As Long) As Long Declare Function InvalidateRect Lib "user32" Alias "InvalidateRect" (ByVal hwnd As Long, lpRect As RECT, ByVal bErase As Long) As Long Declare Function ValidateRect Lib "user32" Alias "ValidateRect" (ByVal hwnd As Long, lpRect As RECT) As Long Declare Function InvalidateRgn Lib "user32" Alias "InvalidateRgn" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bErase As Long) As Long Declare Function ValidateRgn Lib "user32" Alias "ValidateRgn" (ByVal hwnd As Long, ByVal hRgn As Long) As Long Declare Function RedrawWindow Lib "user32" Alias "RedrawWindow" (ByVal hwnd As Long, lprcUpdate As RECT, ByVal hrgnUpdate As Long, ByVal fuRedraw As Long) As Long Const RDW_INVALIDATE = &H1 Const RDW_INTERNALPAINT = &H2 Const RDW_ERASE = &H4 Const RDW_VALIDATE = &H8 Const RDW_NOINTERNALPAINT = &H10 Const RDW_NOERASE = &H20 Const RDW_NOCHILDREN = &H40 Const RDW_ALLCHILDREN = &H80 Const RDW_UPDATENOW = &H100 Const RDW_ERASENOW = &H200 Const RDW_FRAME = &H400 Const RDW_NOFRAME = &H800 Declare Function LockWindowUpdate Lib "user32" Alias "LockWindowUpdate" (ByVal hwndLock As Long) As Long Declare Function ScrollWindow Lib "user32" Alias "ScrollWindow" (ByVal hWnd As Long, ByVal XAmount As Long, ByVal YAmount As Long, lpRect As RECT, lpClipRect As RECT) As Long Declare Function ScrollDC Lib "user32" Alias "ScrollDC" (ByVal hdc As Long, ByVal dx As Long, ByVal dy As Long, lprcScroll As RECT, lprcClip As RECT, ByVal hrgnUpdate As Long, lprcUpdate As RECT) As Long Declare Function ScrollWindowEx Lib "user32" Alias "ScrollWindowEx" (ByVal hwnd As Long, ByVal dx As Long, ByVal dy As Long, lprcScroll As RECT, lprcClip As RECT, ByVal hrgnUpdate As Long, lprcUpdate As RECT, ByVal fuScroll As Long) As Long Const SW_SCROLLCHILDREN = &H1 Const SW_INVALIDATE = &H2 Const SW_ERASE = &H4 Declare Function SetScrollPos Lib "user32" Alias "SetScrollPos" (ByVal hwnd As Long, ByVal nBar As Long, ByVal nPos As Long, ByVal bRedraw As Long) As Long Declare Function GetScrollPos Lib "user32" Alias "GetScrollPos" (ByVal hwnd As Long, ByVal nBar As Long) As Long Declare Function SetScrollRange Lib "user32" Alias "SetScrollRange" (ByVal hwnd As Long, ByVal nBar As Long, ByVal nMinPos As Long, ByVal nMaxPos As Long, ByVal bRedraw As Long) As Long Declare Function GetScrollRange Lib "user32" Alias "GetScrollRange" (ByVal hwnd As Long, ByVal nBar As Long, lpMinPos As Long, lpMaxPos As Long) As Long Declare Function ShowScrollBar Lib "user32" Alias "ShowScrollBar" (ByVal hwnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long Declare Function EnableScrollBar Lib "user32" Alias "EnableScrollBar" (ByVal hwnd As Long, ByVal wSBflags As Long, ByVal wArrows As Long) As Long ' EnableScrollBar() flags Const ESB_ENABLE_BOTH = &H0 Const ESB_DISABLE_BOTH = &H3 Const ESB_DISABLE_LEFT = &H1 Const ESB_DISABLE_RIGHT = &H2 Const ESB_DISABLE_UP = &H1 Const ESB_DISABLE_DOWN = &H2 Const ESB_DISABLE_LTUP = ESB_DISABLE_LEFT Const ESB_DISABLE_RTDN = ESB_DISABLE_RIGHT Declare Function SetProp Lib "user32" Alias "SetPropA" (ByVal hwnd As Long, ByVal lpString As String, ByVal hData As Long) As Long Declare Function GetProp Lib "user32" Alias "GetPropA" (ByVal hwnd As Long, ByVal lpString As String) As Long Declare Function RemoveProp Lib "user32" Alias "RemovePropA" (ByVal hwnd As Long, ByVal lpString As String) As Long Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long Declare Function GetClientRect Lib "user32" Alias "GetClientRect" (ByVal hwnd As Long, lpRect As RECT) As Long Declare Function GetWindowRect Lib "user32" Alias "GetWindowRect" (ByVal hwnd As Long, lpRect As RECT) As Long Declare Function AdjustWindowRect Lib "user32" Alias "AdjustWindowRect" (lpRect As RECT, ByVal dwStyle As Long, ByVal bMenu As Long) As Long Declare Function AdjustWindowRectEx Lib "user32" Alias "AdjustWindowRectEx" (lpRect As RECT, ByVal dsStyle As Long, ByVal bMenu As Long, ByVal dwEsStyle As Long) As Long ' MessageBox() Flags Const MB_OK = &H0& Const MB_OKCANCEL = &H1& Const MB_ABORTRETRYIGNORE = &H2& Const MB_YESNOCANCEL = &H3& Const MB_YESNO = &H4& Const MB_RETRYCANCEL = &H5& Const MB_ICONHAND = &H10& Const MB_ICONQUESTION = &H20& Const MB_ICONEXCLAMATION = &H30& Const MB_ICONASTERISK = &H40& Const MB_ICONINFORMATION = MB_ICONASTERISK Const MB_ICONSTOP = MB_ICONHAND Const MB_DEFBUTTON1 = &H0& Const MB_DEFBUTTON2 = &H100& Const MB_DEFBUTTON3 = &H200& Const MB_APPLMODAL = &H0& Const MB_SYSTEMMODAL = &H1000& Const MB_TASKMODAL = &H2000& Const MB_NOFOCUS = &H8000& Const MB_SETFOREGROUND = &H10000 Const MB_DEFAULT_DESKTOP_ONLY = &H20000 Const MB_TYPEMASK = &HF& Const MB_ICONMASK = &HF0& Const MB_DEFMASK = &HF00& Const MB_MODEMASK = &H3000& Const MB_MISCMASK = &HC000& Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long Declare Function MessageBoxEx Lib "user32" Alias "MessageBoxExA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal uType As Long, ByVal wLanguageId As Long) As Long Declare Function MessageBeep Lib "user32" Alias "MessageBeep" (ByVal wType As Long) As Long Declare Function ShowCursor Lib "user32" Alias "ShowCursor" (ByVal bShow As Long) As Long Declare Function SetCursorPos Lib "user32" Alias "SetCursorPos" (ByVal x As Long, ByVal y As Long) As Long Declare Function SetCursor Lib "user32" Alias "SetCursor" (ByVal hCursor As Long) As Long Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long Declare Function ClipCursor Lib "user32" Alias "ClipCursor" (lpRect As Any) As Long Declare Function GetCursor Lib "user32" Alias "GetCursor" () As Long Declare Function GetClipCursor Lib "user32" Alias "GetClipCursor" (lprc As RECT) As Long Declare Function CreateCaret Lib "user32" Alias "CreateCaret" (ByVal hwnd As Long, ByVal hBitmap As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long Declare Function GetCaretBlinkTime Lib "user32" Alias "GetCaretBlinkTime" () As Long Declare Function SetCaretBlinkTime Lib "user32" Alias "SetCaretBlinkTime" (ByVal wMSeconds As Long) As Long Declare Function DestroyCaret Lib "user32" Alias "DestroyCaret" () As Long Declare Function HideCaret Lib "user32" Alias "HideCaret" (ByVal hwnd As Long) As Long Declare Function ShowCaret Lib "user32" Alias "ShowCaret" (ByVal hwnd As Long) As Long Declare Function SetCaretPos Lib "user32" Alias "SetCaretPos" (ByVal x As Long, ByVal y As Long) As Long Declare Function GetCaretPos Lib "user32" Alias "GetCaretPos" (lpPoint As POINTAPI) As Long Declare Function ClientToScreen Lib "user32" Alias "ClientToScreen" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long Declare Function ScreenToClient Lib "user32" Alias "ScreenToClient" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long Declare Function MapWindowPoints Lib "user32" Alias "MapWindowPoints" (ByVal hwndFrom As Long, ByVal hwndTo As Long, lppt As Any, ByVal cPoints As Long) As Long Declare Function WindowFromPoint Lib "user32" Alias "WindowFromPoint" (ByVal xPoint As Long, ByVal yPoint As Long) As Long Declare Function ChildWindowFromPoint Lib "user32" Alias "ChildWindowFromPoint" (ByVal hWnd As Long, ByVal xPoint As Long, ByVal yPoint As Long) As Long Declare Function ChildWindowFromPointEx Lib "user32" Alias "ChildWindowFromPointEx" (ByVal hWnd As Long, ByVal xPoint As Long, ByVal yPoint As Long, ByVal un As Long) As Long ' Color Types Const CTLCOLOR_MSGBOX = 0 Const CTLCOLOR_EDIT = 1 Const CTLCOLOR_LISTBOX = 2 Const CTLCOLOR_BTN = 3 Const CTLCOLOR_DLG = 4 Const CTLCOLOR_SCROLLBAR = 5 Const CTLCOLOR_STATIC = 6 Const CTLCOLOR_MAX = 8 ' three bits max Const COLOR_SCROLLBAR = 0 Const COLOR_BACKGROUND = 1 Const COLOR_ACTIVECAPTION = 2 Const COLOR_INACTIVECAPTION = 3 Const COLOR_MENU = 4 Const COLOR_WINDOW = 5 Const COLOR_WINDOWFRAME = 6 Const COLOR_MENUTEXT = 7 Const COLOR_WINDOWTEXT = 8 Const COLOR_CAPTIONTEXT = 9 Const COLOR_ACTIVEBORDER = 10 Const COLOR_INACTIVEBORDER = 11 Const COLOR_APPWORKSPACE = 12 Const COLOR_HIGHLIGHT = 13 Const COLOR_HIGHLIGHTTEXT = 14 Const COLOR_BTNFACE = 15 Const COLOR_BTNSHADOW = 16 Const COLOR_GRAYTEXT = 17 Const COLOR_BTNTEXT = 18 Const COLOR_INACTIVECAPTIONTEXT = 19 Const COLOR_BTNHIGHLIGHT = 20 Declare Function GetSysColor Lib "user32" Alias "GetSysColor" (ByVal nIndex As Long) As Long Declare Function SetSysColors Lib "user32" Alias "SetSysColors" (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long Declare Function DrawFocusRect Lib "user32" Alias "DrawFocusRect" (ByVal hdc As Long, lpRect As RECT) As Long Declare Function FillRect Lib "user32" Alias "FillRect" (ByVal hdc As Long, lpRect As RECT, ByVal hBrush As Long) As Long Declare Function FrameRect Lib "user32" Alias "FrameRect" (ByVal hdc As Long, lpRect As RECT, ByVal hBrush As Long) As Long Declare Function InvertRect Lib "user32" Alias "InvertRect" (ByVal hdc As Long, lpRect As RECT) As Long Declare Function SetRect Lib "user32" Alias "SetRect" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Declare Function SetRectEmpty Lib "user32" Alias "SetRectEmpty" (lpRect As RECT) As Long Declare Function CopyRect Lib "user32" Alias "CopyRect" (lpDestRect As RECT, lpSourceRect As RECT) As Long Declare Function InflateRect Lib "user32" Alias "InflateRect" (lpRect As RECT, ByVal x As Long, ByVal y As Long) As Long Declare Function IntersectRect Lib "user32" Alias "IntersectRect" (lpDestRect As RECT, lpSrc1Rect As RECT, lpSrc2Rect As RECT) As Long Declare Function UnionRect Lib "user32" Alias "UnionRect" (lpDestRect As RECT, lpSrc1Rect As RECT, lpSrc2Rect As RECT) As Long Declare Function SubtractRect Lib "user32" Alias "SubtractRect" (lprcDst As RECT, lprcSrc1 As RECT, lprcSrc2 As RECT) As Long Declare Function OffsetRect Lib "user32" Alias "OffsetRect" (lpRect As RECT, ByVal x As Long, ByVal y As Long) As Long Declare Function IsRectEmpty Lib "user32" Alias "IsRectEmpty" (lpRect As RECT) As Long Declare Function EqualRect Lib "user32" Alias "EqualRect" (lpRect1 As RECT, lpRect2 As RECT) As Long Declare Function PtInRect Lib "user32" Alias "PtInRect" (lpRect As RECT, ByVal ptX as Long, ByVal ptY as Long) As Long Declare Function GetWindowWord Lib "user32" Alias "GetWindowWord" (ByVal hwnd As Long, ByVal nIndex As Long) As Integer Declare Function SetWindowWord Lib "user32" Alias "SetWindowWord" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal wNewWord As Long) As Long Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Declare Function GetClassWord Lib "user32" Alias "GetClassWord" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Declare Function SetClassWord Lib "user32" Alias "SetClassWord" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal wNewWord As Long) As Long Declare Function GetClassLong Lib "user32" Alias "GetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Declare Function GetDesktopWindow Lib "user32" Alias "GetDesktopWindow" () As Long Declare Function GetParent Lib "user32" Alias "GetParent" (ByVal hwnd As Long) As Long Declare Function SetParent Lib "user32" Alias "SetParent" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long Declare Function GetTopWindow Lib "user32" Alias "GetTopWindow" (ByVal hwnd As Long) As Long Declare Function GetNextWindow Lib "user32" Alias "GetWindow" (ByVal hwnd As Long, ByVal wFlag As Long) As Long Declare Function GetWindowThreadProcessId Lib "user32" Alias "GetWindowThreadProcessId" (ByVal hwnd As Long, lpdwProcessId As Long) As Long Declare Function GetLastActivePopup Lib "user32" Alias "GetLastActivePopup" (ByVal hwndOwnder As Long) As Long ' GetWindow() Constants Const GW_HWNDFIRST = 0 Const GW_HWNDLAST = 1 Const GW_HWNDNEXT = 2 Const GW_HWNDPREV = 3 Const GW_OWNER = 4 Const GW_CHILD = 5 Const GW_MAX = 5 Declare Function GetWindow Lib "user32" Alias "GetWindow" (ByVal hwnd As Long, ByVal wCmd As Long) As Long Declare Function UnhookWindowsHookEx Lib "user32" Alias "UnhookWindowsHookEx" (ByVal hHook As Long) As Long Declare Function CallNextHookEx Lib "user32" Alias "CallNextHookEx" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long ' Menu flags for Add/Check/EnableMenuItem() Const MF_INSERT = &H0& Const MF_CHANGE = &H80& Const MF_APPEND = &H100& Const MF_DELETE = &H200& Const MF_REMOVE = &H1000& Const MF_BYCOMMAND = &H0& Const MF_BYPOSITION = &H400& Const MF_SEPARATOR = &H800& Const MF_ENABLED = &H0& Const MF_GRAYED = &H1& Const MF_DISABLED = &H2& Const MF_UNCHECKED = &H0& Const MF_CHECKED = &H8& Const MF_USECHECKBITMAPS = &H200& Const MF_STRING = &H0& Const MF_BITMAP = &H4& Const MF_OWNERDRAW = &H100& Const MF_POPUP = &H10& Const MF_MENUBARBREAK = &H20& Const MF_MENUBREAK = &H40& Const MF_UNHILITE = &H0& Const MF_HILITE = &H80& Const MF_SYSMENU = &H2000& Const MF_HELP = &H4000& Const MF_MOUSESELECT = &H8000& ' Menu item resource format Type MENUITEMTEMPLATEHEADER versionNumber As Integer offset As Integer End Type Type MENUITEMTEMPLATE mtOption As Integer mtID As Integer mtString As Byte End Type Const MF_END = &H80 ' System Menu Command Values Const SC_SIZE = &HF000& Const SC_MOVE = &HF010& Const SC_MINIMIZE = &HF020& Const SC_MAXIMIZE = &HF030& Const SC_NEXTWINDOW = &HF040& Const SC_PREVWINDOW = &HF050& Const SC_CLOSE = &HF060& Const SC_VSCROLL = &HF070& Const SC_HSCROLL = &HF080& Const SC_MOUSEMENU = &HF090& Const SC_KEYMENU = &HF100& Const SC_ARRANGE = &HF110& Const SC_RESTORE = &HF120& Const SC_TASKLIST = &HF130& Const SC_SCREENSAVE = &HF140& Const SC_HOTKEY = &HF150& ' Obsolete names Const SC_ICON = SC_MINIMIZE Const SC_ZOOM = SC_MAXIMIZE ' Resource Loading Routines Declare Function LoadBitmap Lib "user32" Alias "LoadBitmapA" (ByVal hInstance As Long, ByVal lpBitmapName As String) As Long Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As String) As Long Declare Function CreateCursor Lib "user32" Alias "CreateCursor" (ByVal hInstance As Long, ByVal nXhotspot As Long, ByVal nYhotspot As Long, ByVal nWidth As Long, ByVal nHeight As Long, lpANDbitPlane As Any, lpXORbitPlane As Any) As Long Declare Function DestroyCursor Lib "user32" Alias "DestroyCursor" (ByVal hCursor As Long) As Long Declare Function CopyCursor Lib "user32" Alias "CopyCursor" (ByVal hcur As Long) As Long ' Standard Cursor IDs Const IDC_ARROW = 32512& Const IDC_IBEAM = 32513& Const IDC_WAIT = 32514& Const IDC_CROSS = 32515& Const IDC_UPARROW = 32516& Const IDC_SIZE = 32640& Const IDC_ICON = 32641& Const IDC_SIZENWSE = 32642& Const IDC_SIZENESW = 32643& Const IDC_SIZEWE = 32644& Const IDC_SIZENS = 32645& Const IDC_SIZEALL = 32646& Const IDC_NO = 32648& Const IDC_APPSTARTING = 32650& Type ICONINFO fIcon As Long xHotspot As Long yHotspot As Long hbmMask As Long hbmColor As Long End Type Declare Function LoadIcon Lib "user32" Alias "LoadIconA" (ByVal hInstance As Long, ByVal lpIconName As String) As Long Declare Function CreateIcon Lib "user32" Alias "CreateIcon" (ByVal hInstance As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal nPlanes As Byte, ByVal nBitsPixel As Byte, lpANDbits As Byte, lpXORbits As Byte) As Long Declare Function DestroyIcon Lib "user32" Alias "DestroyIcon" (ByVal hIcon As Long) As Long Declare Function LookupIconIdFromDirectory Lib "user32" Alias "LookupIconIdFromDirectory" (presbits As Byte, ByVal fIcon As Long) As Long Declare Function CreateIconIndirect Lib "user32" Alias "CreateIconIndirect" (piconinfo As ICONINFO) As Long Declare Function CopyIcon Lib "user32" Alias "CopyIcon" (ByVal hIcon As Long) As Long Declare Function GetIconInfo Lib "user32" Alias "GetIconInfo" (ByVal hIcon As Long, piconinfo As ICONINFO) As Long ' OEM Resource Ordinal Numbers Const OBM_CLOSE = 32754 Const OBM_UPARROW = 32753 Const OBM_DNARROW = 32752 Const OBM_RGARROW = 32751 Const OBM_LFARROW = 32750 Const OBM_REDUCE = 32749 Const OBM_ZOOM = 32748 Const OBM_RESTORE = 32747 Const OBM_REDUCED = 32746 Const OBM_ZOOMD = 32745 Const OBM_RESTORED = 32744 Const OBM_UPARROWD = 32743 Const OBM_DNARROWD = 32742 Const OBM_RGARROWD = 32741 Const OBM_LFARROWD = 32740 Const OBM_MNARROW = 32739 Const OBM_COMBO = 32738 Const OBM_UPARROWI = 32737 Const OBM_DNARROWI = 32736 Const OBM_RGARROWI = 32735 Const OBM_LFARROWI = 32734 Const OBM_OLD_CLOSE = 32767 Const OBM_SIZE = 32766 Const OBM_OLD_UPARROW = 32765 Const OBM_OLD_DNARROW = 32764 Const OBM_OLD_RGARROW = 32763 Const OBM_OLD_LFARROW = 32762 Const OBM_BTSIZE = 32761 Const OBM_CHECK = 32760 Const OBM_CHECKBOXES = 32759 Const OBM_BTNCORNERS = 32758 Const OBM_OLD_REDUCE = 32757 Const OBM_OLD_ZOOM = 32756 Const OBM_OLD_RESTORE = 32755 Const OCR_NORMAL = 32512 Const OCR_IBEAM = 32513 Const OCR_WAIT = 32514 Const OCR_CROSS = 32515 Const OCR_UP = 32516 Const OCR_SIZE = 32640 Const OCR_ICON = 32641 Const OCR_SIZENWSE = 32642 Const OCR_SIZENESW = 32643 Const OCR_SIZEWE = 32644 Const OCR_SIZENS = 32645 Const OCR_SIZEALL = 32646 Const OCR_ICOCUR = 32647 Const OCR_NO = 32648 ' not in win3.1 Const OIC_SAMPLE = 32512 Const OIC_HAND = 32513 Const OIC_QUES = 32514 Const OIC_BANG = 32515 Const OIC_NOTE = 32516 Const ORD_LANGDRIVER = 1 ' The ordinal number for the entry point of ' language drivers. ' Standard Icon IDs Const IDI_APPLICATION = 32512& Const IDI_HAND = 32513& Const IDI_QUESTION = 32514& Const IDI_EXCLAMATION = 32515& Const IDI_ASTERISK = 32516& Declare Function LoadString Lib "user32" Alias "LoadStringA" (ByVal hInstance As Long, ByVal wID As Long, ByVal lpBuffer As String, ByVal nBufferMax As Long) As Long ' Dialog Box Command IDs Const IDOK = 1 Const IDCANCEL = 2 Const IDABORT = 3 Const IDRETRY = 4 Const IDIGNORE = 5 Const IDYES = 6 Const IDNO = 7 ' Control Manager Structures and Definitions ' Edit Control Styles Const ES_LEFT = &H0& Const ES_CENTER = &H1& Const ES_RIGHT = &H2& Const ES_MULTILINE = &H4& Const ES_UPPERCASE = &H8& Const ES_LOWERCASE = &H10& Const ES_PASSWORD = &H20& Const ES_AUTOVSCROLL = &H40& Const ES_AUTOHSCROLL = &H80& Const ES_NOHIDESEL = &H100& Const ES_OEMCONVERT = &H400& Const ES_READONLY = &H800& Const ES_WANTRETURN = &H1000& ' Edit Control Notification Codes Const EN_SETFOCUS = &H100 Const EN_KILLFOCUS = &H200 Const EN_CHANGE = &H300 Const EN_UPDATE = &H400 Const EN_ERRSPACE = &H500 Const EN_MAXTEXT = &H501 Const EN_HSCROLL = &H601 Const EN_VSCROLL = &H602 ' Edit Control Messages Const EM_GETSEL = &HB0 Const EM_SETSEL = &HB1 Const EM_GETRECT = &HB2 Const EM_SETRECT = &HB3 Const EM_SETRECTNP = &HB4 Const EM_SCROLL = &HB5 Const EM_LINESCROLL = &HB6 Const EM_SCROLLCARET = &HB7 Const EM_GETMODIFY = &HB8 Const EM_SETMODIFY = &HB9 Const EM_GETLINECOUNT = &HBA Const EM_LINEINDEX = &HBB Const EM_GETTHUMB = &HBE Const EM_LINELENGTH = &HC1 Const EM_REPLACESEL = &HC2 Const EM_GETLINE = &HC4 Const EM_LIMITTEXT = &HC5 Const EM_CANUNDO = &HC6 Const EM_UNDO = &HC7 Const EM_FMTLINES = &HC8 Const EM_LINEFROMCHAR = &HC9 Const EM_SETTABSTOPS = &HCB Const EM_SETPASSWORDCHAR = &HCC Const EM_EMPTYUNDOBUFFER = &HCD Const EM_GETFIRSTVISIBLELINE = &HCE Const EM_SETREADONLY = &HCF Const EM_SETWORDBREAKPROC = &HD0 Const EM_GETWORDBREAKPROC = &HD1 Const EM_GETPASSWORDCHAR = &HD2 ' EDITWORDBREAKPROC code values Const WB_LEFT = 0 Const WB_RIGHT = 1 Const WB_ISDELIMITER = 2 ' Button Control Styles Const BS_PUSHBUTTON = &H0& Const BS_DEFPUSHBUTTON = &H1& Const BS_CHECKBOX = &H2& Const BS_AUTOCHECKBOX = &H3& Const BS_RADIOBUTTON = &H4& Const BS_3STATE = &H5& Const BS_AUTO3STATE = &H6& Const BS_GROUPBOX = &H7& Const BS_USERBUTTON = &H8& Const BS_AUTORADIOBUTTON = &H9& Const BS_OWNERDRAW = &HB& Const BS_LEFTTEXT = &H20& ' User Button Notification Codes Const BN_CLICKED = 0 Const BN_PAINT = 1 Const BN_HILITE = 2 Const BN_UNHILITE = 3 Const BN_DISABLE = 4 Const BN_DOUBLECLICKED = 5 ' Button Control Messages Const BM_GETCHECK = &HF0 Const BM_SETCHECK = &HF1 Const BM_GETSTATE = &HF2 Const BM_SETSTATE = &HF3 Const BM_SETSTYLE = &HF4 ' Static Control Constants Const SS_LEFT = &H0& Const SS_CENTER = &H1& Const SS_RIGHT = &H2& Const SS_ICON = &H3& Const SS_BLACKRECT = &H4& Const SS_GRAYRECT = &H5& Const SS_WHITERECT = &H6& Const SS_BLACKFRAME = &H7& Const SS_GRAYFRAME = &H8& Const SS_WHITEFRAME = &H9& Const SS_USERITEM = &HA& Const SS_SIMPLE = &HB& Const SS_LEFTNOWORDWRAP = &HC& Const SS_NOPREFIX = &H80 ' Don't do "&" character translation ' Static Control Mesages Const STM_SETICON = &H170 Const STM_GETICON = &H171 Const STM_MSGMAX = &H172 Const WC_DIALOG = 8002& ' Get/SetWindowWord/Long offsets for use with WC_DIALOG windows Const DWL_MSGRESULT = 0 Const DWL_DLGPROC = 4 Const DWL_USER = 8 ' Dialog Manager Routines Declare Function IsDialogMessage Lib "user32" Alias "IsDialogMessageA" (ByVal hDlg As Long, lpMsg As MSG) As Long Declare Function MapDialogRect Lib "user32" Alias "MapDialogRect" (ByVal hDlg As Long, lpRect As RECT) As Long Declare Function DlgDirList Lib "user32" Alias "DlgDirListA" (ByVal hDlg As Long, ByVal lpPathSpec As String, ByVal nIDListBox As Long, ByVal nIDStaticPath As Long, ByVal wFileType As Long) As Long ' DlgDirList, DlgDirListComboBox flags values Const DDL_READWRITE = &H0 Const DDL_READONLY = &H1 Const DDL_HIDDEN = &H2 Const DDL_SYSTEM = &H4 Const DDL_DIRECTORY = &H10 Const DDL_ARCHIVE = &H20 Const DDL_POSTMSGS = &H2000 Const DDL_DRIVES = &H4000 Const DDL_EXCLUSIVE = &H8000 Declare Function DlgDirSelectEx Lib "user32" Alias "DlgDirSelectExA" (ByVal hWndDlg As Long, ByVal lpszPath As String, ByVal cbPath As Long, ByVal idListBox As Long) As Long Declare Function DlgDirListComboBox Lib "user32" Alias "DlgDirListComboBoxA" (ByVal hDlg As Long, ByVal lpPathSpec As String, ByVal nIDComboBox As Long, ByVal nIDStaticPath As Long, ByVal wFileType As Long) As Long Declare Function DlgDirSelectComboBoxEx Lib "user32" Alias "DlgDirSelectComboBoxExA" (ByVal hWndDlg As Long, ByVal lpszPath As String, ByVal cbPath As Long, ByVal idComboBox As Long) As Long ' Dialog Styles Const DS_ABSALIGN = &H1& Const DS_SYSMODAL = &H2& Const DS_LOCALEDIT = &H20 ' Edit items get Local storage. Const DS_SETFONT = &H40 ' User specified font for Dlg controls Const DS_MODALFRAME = &H80 ' Can be combined with WS_CAPTION Const DS_NOIDLEMSG = &H100 ' WM_ENTERIDLE message will not be sent Const DS_SETFOREGROUND = &H200 ' not in win3.1 Const DM_GETDEFID = WM_USER + 0 Const DM_SETDEFID = WM_USER + 1 Const DC_HASDEFID = &H534 '0x534B ' Dialog Codes Const DLGC_WANTARROWS = &H1 ' Control wants arrow keys Const DLGC_WANTTAB = &H2 ' Control wants tab keys Const DLGC_WANTALLKEYS = &H4 ' Control wants all keys Const DLGC_WANTMESSAGE = &H4 ' Pass message to control Const DLGC_HASSETSEL = &H8 ' Understands EM_SETSEL message Const DLGC_DEFPUSHBUTTON = &H10 ' Default pushbutton Const DLGC_UNDEFPUSHBUTTON = &H20 ' Non-default pushbutton Const DLGC_RADIOBUTTON = &H40 ' Radio button Const DLGC_WANTCHARS = &H80 ' Want WM_CHAR messages Const DLGC_STATIC = &H100 ' Static item: don't include Const DLGC_BUTTON = &H2000 ' Button item: can be checked Const LB_CTLCODE = 0& ' Listbox Return Values Const LB_OKAY = 0 Const LB_ERR = (-1) Const LB_ERRSPACE = (-2) ' The idStaticPath parameter to DlgDirList can have the following values ' ORed if the list box should show other details of the files along with ' the name of the files; ' all other details also will be returned ' Listbox Notification Codes Const LBN_ERRSPACE = (-2) Const LBN_SELCHANGE = 1 Const LBN_DBLCLK = 2 Const LBN_SELCANCEL = 3 Const LBN_SETFOCUS = 4 Const LBN_KILLFOCUS = 5 ' Listbox messages Const LB_ADDSTRING = &H180 Const LB_INSERTSTRING = &H181 Const LB_DELETESTRING = &H182 Const LB_SELITEMRANGEEX = &H183 Const LB_RESETCONTENT = &H184 Const LB_SETSEL = &H185 Const LB_SETCURSEL = &H186 Const LB_GETSEL = &H187 Const LB_GETCURSEL = &H188 Const LB_GETTEXT = &H189 Const LB_GETTEXTLEN = &H18A Const LB_GETCOUNT = &H18B Const LB_SELECTSTRING = &H18C Const LB_DIR = &H18D Const LB_GETTOPINDEX = &H18E Const LB_FINDSTRING = &H18F Const LB_GETSELCOUNT = &H190 Const LB_GETSELITEMS = &H191 Const LB_SETTABSTOPS = &H192 Const LB_GETHORIZONTALEXTENT = &H193 Const LB_SETHORIZONTALEXTENT = &H194 Const LB_SETCOLUMNWIDTH = &H195 Const LB_ADDFILE = &H196 Const LB_SETTOPINDEX = &H197 Const LB_GETITEMRECT = &H198 Const LB_GETITEMDATA = &H199 Const LB_SETITEMDATA = &H19A Const LB_SELITEMRANGE = &H19B Const LB_SETANCHORINDEX = &H19C Const LB_GETANCHORINDEX = &H19D Const LB_SETCARETINDEX = &H19E Const LB_GETCARETINDEX = &H19F Const LB_SETITEMHEIGHT = &H1A0 Const LB_GETITEMHEIGHT = &H1A1 Const LB_FINDSTRINGEXACT = &H1A2 Const LB_SETLOCALE = &H1A5 Const LB_GETLOCALE = &H1A6 Const LB_SETCOUNT = &H1A7 Const LB_MSGMAX = &H1A8 ' Listbox Styles Const LBS_NOTIFY = &H1& Const LBS_SORT = &H2& Const LBS_NOREDRAW = &H4& Const LBS_MULTIPLESEL = &H8& Const LBS_OWNERDRAWFIXED = &H10& Const LBS_OWNERDRAWVARIABLE = &H20& Const LBS_HASSTRINGS = &H40& Const LBS_USETABSTOPS = &H80& Const LBS_NOINTEGRALHEIGHT = &H100& Const LBS_MULTICOLUMN = &H200& Const LBS_WANTKEYBOARDINPUT = &H400& Const LBS_EXTENDEDSEL = &H800& Const LBS_DISABLENOSCROLL = &H1000& Const LBS_NODATA = &H2000& Const LBS_STANDARD = (LBS_NOTIFY Or LBS_SORT Or WS_VSCROLL Or WS_BORDER) ' Combo Box return Values Const CB_OKAY = 0 Const CB_ERR = (-1) Const CB_ERRSPACE = (-2) ' Combo Box Notification Codes Const CBN_ERRSPACE = (-1) Const CBN_SELCHANGE = 1 Const CBN_DBLCLK = 2 Const CBN_SETFOCUS = 3 Const CBN_KILLFOCUS = 4 Const CBN_EDITCHANGE = 5 Const CBN_EDITUPDATE = 6 Const CBN_DROPDOWN = 7 Const CBN_CLOSEUP = 8 Const CBN_SELENDOK = 9 Const CBN_SELENDCANCEL = 10 ' Combo Box styles Const CBS_SIMPLE = &H1& Const CBS_DROPDOWN = &H2& Const CBS_DROPDOWNLIST = &H3& Const CBS_OWNERDRAWFIXED = &H10& Const CBS_OWNERDRAWVARIABLE = &H20& Const CBS_AUTOHSCROLL = &H40& Const CBS_OEMCONVERT = &H80& Const CBS_SORT = &H100& Const CBS_HASSTRINGS = &H200& Const CBS_NOINTEGRALHEIGHT = &H400& Const CBS_DISABLENOSCROLL = &H800& ' Combo Box messages Const CB_GETEDITSEL = &H140 Const CB_LIMITTEXT = &H141 Const CB_SETEDITSEL = &H142 Const CB_ADDSTRING = &H143 Const CB_DELETESTRING = &H144 Const CB_DIR = &H145 Const CB_GETCOUNT = &H146 Const CB_GETCURSEL = &H147 Const CB_GETLBTEXT = &H148 Const CB_GETLBTEXTLEN = &H149 Const CB_INSERTSTRING = &H14A Const CB_RESETCONTENT = &H14B Const CB_FINDSTRING = &H14C Const CB_SELECTSTRING = &H14D Const CB_SETCURSEL = &H14E Const CB_SHOWDROPDOWN = &H14F Const CB_GETITEMDATA = &H150 Const CB_SETITEMDATA = &H151 Const CB_GETDROPPEDCONTROLRECT = &H152 Const CB_SETITEMHEIGHT = &H153 Const CB_GETITEMHEIGHT = &H154 Const CB_SETEXTENDEDUI = &H155 Const CB_GETEXTENDEDUI = &H156 Const CB_GETDROPPEDSTATE = &H157 Const CB_FINDSTRINGEXACT = &H158 Const CB_SETLOCALE = &H159 Const CB_GETLOCALE = &H15A Const CB_MSGMAX = &H15B ' Scroll Bar Styles Const SBS_HORZ = &H0& Const SBS_VERT = &H1& Const SBS_TOPALIGN = &H2& Const SBS_LEFTALIGN = &H2& Const SBS_BOTTOMALIGN = &H4& Const SBS_RIGHTALIGN = &H4& Const SBS_SIZEBOXTOPLEFTALIGN = &H2& Const SBS_SIZEBOXBOTTOMRIGHTALIGN = &H4& Const SBS_SIZEBOX = &H8& ' Scroll bar messages Const SBM_SETPOS = &HE0 ' not in win3.1 Const SBM_GETPOS = &HE1 ' not in win3.1 Const SBM_SETRANGE = &HE2 ' not in win3.1 Const SBM_SETRANGEREDRAW = &HE6 ' not in win3.1 Const SBM_GETRANGE = &HE3 ' not in win3.1 Const SBM_ENABLE_ARROWS = &HE4 ' not in win3.1 Const MDIS_ALLCHILDSTYLES = &H1 ' wParam values for WM_MDITILE and WM_MDICASCADE messages. Const MDITILE_VERTICAL = &H0 Const MDITILE_HORIZONTAL = &H1 Const MDITILE_SKIPDISABLED = &H2 Type MDICREATESTRUCT szClass As String szTitle As String hOwner As Long x As Long y As Long cx As Long cy As Long style As Long lParam As Long End Type Type CLIENTCREATESTRUCT hWindowMenu As Long idFirstChild As Long End Type Declare Function DefFrameProc Lib "user32" Alias "DefFrameProcA" (ByVal hwnd As Long, ByVal hWndMDIClient As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Declare Function DefMDIChildProc Lib "user32" Alias "DefMDIChildProcA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Declare Function TranslateMDISysAccel Lib "user32" Alias "TranslateMDISysAccel" (ByVal hWndClient As Long, lpMsg As MSG) As Long Declare Function ArrangeIconicWindows Lib "user32" Alias "ArrangeIconicWindows" (ByVal hwnd As Long) As Long Declare Function CreateMDIWindow Lib "user32" Alias "CreateMDIWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hInstance As Long, ByVal lParam As Long) As Long ' Help engine section. Type MULTIKEYHELP mkSize As Long mkKeylist As Byte szKeyphrase As String * 253 ' Array length is arbitrary; may be changed End Type Type HELPWININFO wStructSize As Long x As Long y As Long dx As Long dy As Long wMax As Long rgchMember As String * 2 End Type ' Commands to pass WinHelp() Const HELP_CONTEXT = &H1 ' Display topic in ulTopic Const HELP_QUIT = &H2 ' Terminate help Const HELP_INDEX = &H3 ' Display index Const HELP_CONTENTS = &H3& Const HELP_HELPONHELP = &H4 ' Display help on using help Const HELP_SETINDEX = &H5 ' Set current Index for multi index help Const HELP_SETCONTENTS = &H5& Const HELP_CONTEXTPOPUP = &H8& Const HELP_FORCEFILE = &H9& Const HELP_KEY = &H101 ' Display topic for keyword in offabData Const HELP_COMMAND = &H102& Const HELP_PARTIALKEY = &H105& Const HELP_MULTIKEY = &H201& Const HELP_SETWINPOS = &H203& Declare Function WinHelp Lib "user32" Alias "WinHelpA" (ByVal hwnd As Long, ByVal lpHelpFile As String, ByVal wCommand As Long, ByVal dwData As Long) As Long ' Parameter for SystemParametersInfo() Const SPI_GETBEEP = 1 Const SPI_SETBEEP = 2 Const SPI_GETMOUSE = 3 Const SPI_SETMOUSE = 4 Const SPI_GETBORDER = 5 Const SPI_SETBORDER = 6 Const SPI_GETKEYBOARDSPEED = 10 Const SPI_SETKEYBOARDSPEED = 11 Const SPI_LANGDRIVER = 12 Const SPI_ICONHORIZONTALSPACING = 13 Const SPI_GETSCREENSAVETIMEOUT = 14 Const SPI_SETSCREENSAVETIMEOUT = 15 Const SPI_GETSCREENSAVEACTIVE = 16 Const SPI_SETSCREENSAVEACTIVE = 17 Const SPI_GETGRIDGRANULARITY = 18 Const SPI_SETGRIDGRANULARITY = 19 Const SPI_SETDESKWALLPAPER = 20 Const SPI_SETDESKPATTERN = 21 Const SPI_GETKEYBOARDDELAY = 22 Const SPI_SETKEYBOARDDELAY = 23 Const SPI_ICONVERTICALSPACING = 24 Const SPI_GETICONTITLEWRAP = 25 Const SPI_SETICONTITLEWRAP = 26 Const SPI_GETMENUDROPALIGNMENT = 27 Const SPI_SETMENUDROPALIGNMENT = 28 Const SPI_SETDOUBLECLKWIDTH = 29 Const SPI_SETDOUBLECLKHEIGHT = 30 Const SPI_GETICONTITLELOGFONT = 31 Const SPI_SETDOUBLECLICKTIME = 32 Const SPI_SETMOUSEBUTTONSWAP = 33 Const SPI_SETICONTITLELOGFONT = 34 Const SPI_GETFASTTASKSWITCH = 35 Const SPI_SETFASTTASKSWITCH = 36 Const SPI_SETDRAGFULLWINDOWS = 37 Const SPI_GETDRAGFULLWINDOWS = 38 Const SPI_GETNONCLIENTMETRICS = 41 Const SPI_SETNONCLIENTMETRICS = 42 Const SPI_GETMINIMIZEDMETRICS = 43 Const SPI_SETMINIMIZEDMETRICS = 44 Const SPI_GETICONMETRICS = 45 Const SPI_SETICONMETRICS = 46 Const SPI_SETWORKAREA = 47 Const SPI_GETWORKAREA = 48 Const SPI_SETPENWINDOWS = 49 Const SPI_GETFILTERKEYS = 50 Const SPI_SETFILTERKEYS = 51 Const SPI_GETTOGGLEKEYS = 52 Const SPI_SETTOGGLEKEYS = 53 Const SPI_GETMOUSEKEYS = 54 Const SPI_SETMOUSEKEYS = 55 Const SPI_GETSHOWSOUNDS = 56 Const SPI_SETSHOWSOUNDS = 57 Const SPI_GETSTICKYKEYS = 58 Const SPI_SETSTICKYKEYS = 59 Const SPI_GETACCESSTIMEOUT = 60 Const SPI_SETACCESSTIMEOUT = 61 Const SPI_GETSERIALKEYS = 62 Const SPI_SETSERIALKEYS = 63 Const SPI_GETSOUNDSENTRY = 64 Const SPI_SETSOUNDSENTRY = 65 Const SPI_GETHIGHCONTRAST = 66 Const SPI_SETHIGHCONTRAST = 67 Const SPI_GETKEYBOARDPREF = 68 Const SPI_SETKEYBOARDPREF = 69 Const SPI_GETSCREENREADER = 70 Const SPI_SETSCREENREADER = 71 Const SPI_GETANIMATION = 72 Const SPI_SETANIMATION = 73 Const SPI_GETFONTSMOOTHING = 74 Const SPI_SETFONTSMOOTHING = 75 Const SPI_SETDRAGWIDTH = 76 Const SPI_SETDRAGHEIGHT = 77 Const SPI_SETHANDHELD = 78 Const SPI_GETLOWPOWERTIMEOUT = 79 Const SPI_GETPOWEROFFTIMEOUT = 80 Const SPI_SETLOWPOWERTIMEOUT = 81 Const SPI_SETPOWEROFFTIMEOUT = 82 Const SPI_GETLOWPOWERACTIVE = 83 Const SPI_GETPOWEROFFACTIVE = 84 Const SPI_SETLOWPOWERACTIVE = 85 Const SPI_SETPOWEROFFACTIVE = 86 Const SPI_SETCURSORS = 87 Const SPI_SETICONS = 88 Const SPI_GETDEFAULTINPUTLANG = 89 Const SPI_SETDEFAULTINPUTLANG = 90 Const SPI_SETLANGTOGGLE = 91 Const SPI_GETWINDOWSEXTENSION = 92 Const SPI_SETMOUSETRAILS = 93 Const SPI_GETMOUSETRAILS = 94 Const SPI_SCREENSAVERRUNNING = 97 ' SystemParametersInfo flags Const SPIF_UPDATEINIFILE = &H1 Const SPIF_SENDWININICHANGE = &H2 Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long ' DDE window messages Const WM_DDE_FIRST = &H3E0 Const WM_DDE_INITIATE = (WM_DDE_FIRST) Const WM_DDE_TERMINATE = (WM_DDE_FIRST + 1) Const WM_DDE_ADVISE = (WM_DDE_FIRST + 2) Const WM_DDE_UNADVISE = (WM_DDE_FIRST + 3) Const WM_DDE_ACK = (WM_DDE_FIRST + 4) Const WM_DDE_DATA = (WM_DDE_FIRST + 5) Const WM_DDE_REQUEST = (WM_DDE_FIRST + 6) Const WM_DDE_POKE = (WM_DDE_FIRST + 7) Const WM_DDE_EXECUTE = (WM_DDE_FIRST + 8) Const WM_DDE_LAST = (WM_DDE_FIRST + 8) ' ***************************************************************************** * ' * dde.h - Dynamic Data Exchange structures and definitions * ' * * ' * Copyright (c) 1993-1995, Microsoft Corp. All rights reserved * ' * * ' \*****************************************************************************/ ' ---------------------------------------------------------------------------- ' DDEACK structure ' ' Structure of wStatus (LOWORD(lParam)) in WM_DDE_ACK message ' sent in response to a WM_DDE_DATA, WM_DDE_REQUEST, WM_DDE_POKE, ' WM_DDE_ADVISE, or WM_DDE_UNADVISE message. ' ' ----------------------------------------------------------------------------*/ Type DDEACK bAppReturnCode As Integer Reserved As Integer fbusy As Integer fack As Integer End Type ' ---------------------------------------------------------------------------- ' DDEADVISE structure ' ' WM_DDE_ADVISE parameter structure for hOptions (LOWORD(lParam)) ' ' ----------------------------------------------------------------------------*/ Type DDEADVISE Reserved As Integer fDeferUpd As Integer fAckReq As Integer cfFormat As Integer End Type ' ---------------------------------------------------------------------------- ' DDEDATA structure ' ' WM_DDE_DATA parameter structure for hData (LOWORD(lParam)). ' The actual size of this structure depends on the size of ' the Value array. ' ' ----------------------------------------------------------------------------*/ Type DDEDATA unused As Integer fresponse As Integer fRelease As Integer Reserved As Integer fAckReq As Integer cfFormat As Integer Value(1) As Byte End Type ' ---------------------------------------------------------------------------- ' DDEPOKE structure ' ' WM_DDE_POKE parameter structure for hData (LOWORD(lParam)). ' The actual size of this structure depends on the size of ' the Value array. ' ' ----------------------------------------------------------------------------*/ Type DDEPOKE unused As Integer fRelease As Integer fReserved As Integer cfFormat As Integer Value(1) As Byte End Type ' ---------------------------------------------------------------------------- ' The following typedef's were used in previous versions of the Windows SDK. ' They are still valid. The above typedef's define exactly the same structures ' as those below. The above typedef names are recommended, however, as they ' are more meaningful. ' Note that the DDEPOKE structure typedef'ed in earlier versions of DDE.H did ' not correctly define the bit positions. ' ----------------------------------------------------------------------------*/ Type DDELN unused As Integer fRelease As Integer fDeferUpd As Integer fAckReq As Integer cfFormat As Integer End Type Type DDEUP unused As Integer fAck As Integer fRelease As Integer fReserved As Integer fAckReq As Integer cfFormat As Integer rgb(1) As Byte End Type Declare Function DdeSetQualityOfService Lib "user32" Alias "DdeSetQualityOfService" (ByVal hWndClient As Long, pqosNew As SECURITY_QUALITY_OF_SERVICE, pqosPrev As SECURITY_QUALITY_OF_SERVICE) As Long Declare Function ImpersonateDdeClientWindow Lib "user32" Alias "ImpersonateDdeClientWindow" (ByVal hWndClient As Long, ByVal hWndServer As Long) As Long Declare Function PackDDElParam Lib "user32" Alias "PackDDElParam" (ByVal msg As Long, ByVal uiLo As Long, ByVal uiHi As Long) As Long Declare Function UnpackDDElParam Lib "user32" Alias "UnpackDDElParam" (ByVal msg As Long, ByVal lParam As Long, puiLo As Long, puiHi As Long) As Long Declare Function FreeDDElParam Lib "user32" Alias "FreeDDElParam" (ByVal msg As Long, ByVal lParam As Long) As Long Declare Function ReuseDDElParam Lib "user32" Alias "ReuseDDElParam" (ByVal lParam As Long, ByVal msgIn As Long, ByVal msgOut As Long, ByVal uiLo As Long, ByVal uiHi As Long) As Long Type HSZPAIR hszSvc As Long hszTopic As Long End Type '// '// Quality Of Service '// Type SECURITY_QUALITY_OF_SERVICE Length As Long Impersonationlevel As Integer ContextTrackingMode As Integer EffectiveOnly As Long End Type Type CONVCONTEXT cb As Long wFlags As Long wCountryID As Long iCodePage As Long dwLangID As Long dwSecurity As Long qos As SECURITY_QUALITY_OF_SERVICE End Type Type CONVINFO cb As Long hUser As Long hConvPartner As Long hszSvcPartner As Long hszServiceReq As Long hszTopic As Long hszItem As Long wFmt As Long wType As Long wStatus As Long wConvst As Long wLastError As Long hConvList As Long ConvCtxt As CONVCONTEXT hwnd As Long hwndPartner As Long End Type ' conversation states (usState) Const XST_NULL = 0 ' quiescent states Const XST_INCOMPLETE = 1 Const XST_CONNECTED = 2 Const XST_INIT1 = 3 ' mid-initiation states Const XST_INIT2 = 4 Const XST_REQSENT = 5 ' active conversation states Const XST_DATARCVD = 6 Const XST_POKESENT = 7 Const XST_POKEACKRCVD = 8 Const XST_EXECSENT = 9 Const XST_EXECACKRCVD = 10 Const XST_ADVSENT = 11 Const XST_UNADVSENT = 12 Const XST_ADVACKRCVD = 13 Const XST_UNADVACKRCVD = 14 Const XST_ADVDATASENT = 15 Const XST_ADVDATAACKRCVD = 16 ' used in LOWORD(dwData1) of XTYP_ADVREQ callbacks... Const CADV_LATEACK = &HFFFF ' conversation status bits (fsStatus) Const ST_CONNECTED = &H1 Const ST_ADVISE = &H2 Const ST_ISLOCAL = &H4 Const ST_BLOCKED = &H8 Const ST_CLIENT = &H10 Const ST_TERMINATED = &H20 Const ST_INLIST = &H40 Const ST_BLOCKNEXT = &H80 Const ST_ISSELF = &H100 ' DDE constants for wStatus field Const DDE_FACK = &H8000 Const DDE_FBUSY = &H4000 Const DDE_FDEFERUPD = &H4000 Const DDE_FACKREQ = &H8000 Const DDE_FRELEASE = &H2000 Const DDE_FREQUESTED = &H1000 Const DDE_FAPPSTATUS = &HFF Const DDE_FNOTPROCESSED = &H0 Const DDE_FACKRESERVED = (Not (DDE_FACK Or DDE_FBUSY Or DDE_FAPPSTATUS)) Const DDE_FADVRESERVED = (Not (DDE_FACKREQ Or DDE_FDEFERUPD)) Const DDE_FDATRESERVED = (Not (DDE_FACKREQ Or DDE_FRELEASE Or DDE_FREQUESTED)) Const DDE_FPOKRESERVED = (Not (DDE_FRELEASE)) ' message filter hook types Const MSGF_DDEMGR = &H8001 ' codepage constants Const CP_WINANSI = 1004 ' default codepage for windows old DDE convs. Const CP_WINUNICODE = 1200 ' transaction types Const XTYPF_NOBLOCK = &H2 ' CBR_BLOCK will not work Const XTYPF_NODATA = &H4 ' DDE_FDEFERUPD Const XTYPF_ACKREQ = &H8 ' DDE_FACKREQ Const XCLASS_MASK = &HFC00 Const XCLASS_BOOL = &H1000 Const XCLASS_DATA = &H2000 Const XCLASS_FLAGS = &H4000 Const XCLASS_NOTIFICATION = &H8000 Const XTYP_ERROR = (&H0 Or XCLASS_NOTIFICATION Or XTYPF_NOBLOCK) Const XTYP_ADVDATA = (&H10 Or XCLASS_FLAGS) Const XTYP_ADVREQ = (&H20 Or XCLASS_DATA Or XTYPF_NOBLOCK) Const XTYP_ADVSTART = (&H30 Or XCLASS_BOOL) Const XTYP_ADVSTOP = (&H40 Or XCLASS_NOTIFICATION) Const XTYP_EXECUTE = (&H50 Or XCLASS_FLAGS) Const XTYP_CONNECT = (&H60 Or XCLASS_BOOL Or XTYPF_NOBLOCK) Const XTYP_CONNECT_CONFIRM = (&H70 Or XCLASS_NOTIFICATION Or XTYPF_NOBLOCK) Const XTYP_XACT_COMPLETE = (&H80 Or XCLASS_NOTIFICATION) Const XTYP_POKE = (&H90 Or XCLASS_FLAGS) Const XTYP_REGISTER = (&HA0 Or XCLASS_NOTIFICATION Or XTYPF_NOBLOCK) Const XTYP_REQUEST = (&HB0 Or XCLASS_DATA) Const XTYP_DISCONNECT = (&HC0 Or XCLASS_NOTIFICATION Or XTYPF_NOBLOCK) Const XTYP_UNREGISTER = (&HD0 Or XCLASS_NOTIFICATION Or XTYPF_NOBLOCK) Const XTYP_WILDCONNECT = (&HE0 Or XCLASS_DATA Or XTYPF_NOBLOCK) Const XTYP_MASK = &HF0 Const XTYP_SHIFT = 4 ' shift to turn XTYP_ into an index ' Timeout constants Const TIMEOUT_ASYNC = &HFFFF ' Transaction ID constants Const QID_SYNC = &HFFFF ' Public strings used in DDE Const SZDDESYS_TOPIC = "System" Const SZDDESYS_ITEM_TOPICS = "Topics" Const SZDDESYS_ITEM_SYSITEMS = "SysItems" Const SZDDESYS_ITEM_RTNMSG = "ReturnMessage" Const SZDDESYS_ITEM_STATUS = "Status" Const SZDDESYS_ITEM_FORMATS = "Formats" Const SZDDESYS_ITEM_HELP = "Help" Const SZDDE_ITEM_ITEMLIST = "TopicItemList" Const CBR_BLOCK = &HFFFF ' Callback filter flags for use with standard apps. Const CBF_FAIL_SELFCONNECTIONS = &H1000 Const CBF_FAIL_CONNECTIONS = &H2000 Const CBF_FAIL_ADVISES = &H4000 Const CBF_FAIL_EXECUTES = &H8000 Const CBF_FAIL_POKES = &H10000 Const CBF_FAIL_REQUESTS = &H20000 Const CBF_FAIL_ALLSVRXACTIONS = &H3F000 Const CBF_SKIP_CONNECT_CONFIRMS = &H40000 Const CBF_SKIP_REGISTRATIONS = &H80000 Const CBF_SKIP_UNREGISTRATIONS = &H100000 Const CBF_SKIP_DISCONNECTS = &H200000 Const CBF_SKIP_ALLNOTIFICATIONS = &H3C0000 ' Application command flags Const APPCMD_CLIENTONLY = &H10& Const APPCMD_FILTERINITS = &H20& Const APPCMD_MASK = &HFF0& ' Application classification flags Const APPCLASS_STANDARD = &H0& Const APPCLASS_MASK = &HF& Declare Function DdeUninitialize Lib "user32" Alias "DdeUninitialize" (ByVal idInst As Long) As Long ' conversation enumeration functions Declare Function DdeConnectList Lib "user32" Alias "DdeConnectList" (ByVal idInst As Long, ByVal hszService As Long, ByVal hszTopic As Long, ByVal hConvList As Long, pCC As CONVCONTEXT) As Long Declare Function DdeQueryNextServer Lib "user32" Alias "DdeQueryNextServer" (ByVal hConvList As Long, ByVal hConvPrev As Long) As Long Declare Function DdeDisconnectList Lib "user32" Alias "DdeDisconnectList" (ByVal hConvList As Long) As Long ' conversation control functions Declare Function DdeConnect Lib "user32" Alias "DdeConnect" (ByVal idInst As Long, ByVal hszService As Long, ByVal hszTopic As Long, pCC As CONVCONTEXT) As Long Declare Function DdeDisconnect Lib "user32" Alias "DdeDisconnect" (ByVal hConv As Long) As Long Declare Function DdeReconnect Lib "user32" Alias "DdeReconnect" (ByVal hConv As Long) As Long Declare Function DdeQueryConvInfo Lib "user32" Alias "DdeQueryConvInfo" (ByVal hConv As Long, ByVal idTransaction As Long, pConvInfo As CONVINFO) As Long Declare Function DdeSetUserHandle Lib "user32" Alias "DdeSetUserHandle" (ByVal hConv As Long, ByVal id As Long, ByVal hUser As Long) As Long Declare Function DdeAbandonTransaction Lib "user32" Alias "DdeAbandonTransaction" (ByVal idInst As Long, ByVal hConv As Long, ByVal idTransaction As Long) As Long ' app server interface functions Declare Function DdePostAdvise Lib "user32" Alias "DdePostAdvise" (ByVal idInst As Long, ByVal hszTopic As Long, ByVal hszItem As Long) As Long Declare Function DdeEnableCallback Lib "user32" Alias "DdeEnableCallback" (ByVal idInst As Long, ByVal hConv As Long, ByVal wCmd As Long) As Long Declare Function DdeImpersonateClient Lib "user32" Alias "DdeImpersonateClient" (ByVal hConv As Long) As Long Const EC_ENABLEALL = 0 Const EC_ENABLEONE = ST_BLOCKNEXT Const EC_DISABLE = ST_BLOCKED Const EC_QUERYWAITING = 2 Declare Function DdeNameService Lib "user32" Alias "DdeNameService" (ByVal idInst As Long, ByVal hsz1 As Long, ByVal hsz2 As Long, ByVal afCmd As Long) As Long Const DNS_REGISTER = &H1 Const DNS_UNREGISTER = &H2 Const DNS_FILTERON = &H4 Const DNS_FILTEROFF = &H8 ' app client interface functions Declare Function DdeClientTransaction Lib "user32" Alias "DdeClientTransaction" (pData As Byte, ByVal cbData As Long, ByVal hConv As Long, ByVal hszItem As Long, ByVal wFmt As Long, ByVal wType As Long, ByVal dwTimeout As Long, pdwResult As Long) As Long ' data transfer functions Declare Function DdeCreateDataHandle Lib "user32" Alias "DdeCreateDataHandle" (ByVal idInst As Long, pSrc As Byte, ByVal cb As Long, ByVal cbOff As Long, ByVal hszItem As Long, ByVal wFmt As Long, ByVal afCmd As Long) As Long Declare Function DdeAddData Lib "user32" Alias "DdeAddData" (ByVal hData As Long, pSrc As Byte, ByVal cb As Long, ByVal cbOff As Long) As Long Declare Function DdeGetData Lib "user32" Alias "DdeGetData" (ByVal hData As Long, pDst As Byte, ByVal cbMax As Long, ByVal cbOff As Long) As Long Declare Function DdeAccessData Lib "user32" Alias "DdeAccessData" (ByVal hData As Long, pcbDataSize As Long) As Long Declare Function DdeUnaccessData Lib "user32" Alias "DdeUnaccessData" (ByVal hData As Long) As Long Declare Function DdeFreeDataHandle Lib "user32" Alias "DdeFreeDataHandle" (ByVal hData As Long) As Long Const HDATA_APPOWNED = &H1 Declare Function DdeGetLastError Lib "user32" Alias "DdeGetLastError" (ByVal idInst As Long) As Long Const DMLERR_NO_ERROR = 0 ' must be 0 Const DMLERR_FIRST = &H4000 Const DMLERR_ADVACKTIMEOUT = &H4000 Const DMLERR_BUSY = &H4001 Const DMLERR_DATAACKTIMEOUT = &H4002 Const DMLERR_DLL_NOT_INITIALIZED = &H4003 Const DMLERR_DLL_USAGE = &H4004 Const DMLERR_EXECACKTIMEOUT = &H4005 Const DMLERR_INVALIDPARAMETER = &H4006 Const DMLERR_LOW_MEMORY = &H4007 Const DMLERR_MEMORY_ERROR = &H4008 Const DMLERR_NOTPROCESSED = &H4009 Const DMLERR_NO_CONV_ESTABLISHED = &H400A Const DMLERR_POKEACKTIMEOUT = &H400B Const DMLERR_POSTMSG_FAILED = &H400C Const DMLERR_REENTRANCY = &H400D Const DMLERR_SERVER_DIED = &H400E Const DMLERR_SYS_ERROR = &H400F Const DMLERR_UNADVACKTIMEOUT = &H4010 Const DMLERR_UNFOUND_QUEUE_ID = &H4011 Const DMLERR_LAST = &H4011 Declare Function DdeCreateStringHandle Lib "user32" Alias "DdeCreateStringHandleA" (ByVal idInst As Long, ByVal psz As String, ByVal iCodePage As Long) As Long Declare Function DdeQueryString Lib "user32" Alias "DdeQueryStringA" (ByVal idInst As Long, ByVal hsz As Long, ByVal psz As String, ByVal cchMax As Long, ByVal iCodePage As Long) As Long Declare Function DdeFreeStringHandle Lib "user32" Alias "DdeFreeStringHandle" (ByVal idInst As Long, ByVal hsz As Long) As Long Declare Function DdeKeepStringHandle Lib "user32" Alias "DdeKeepStringHandle" (ByVal idInst As Long, ByVal hsz As Long) As Long Declare Function DdeCmpStringHandles Lib "user32" Alias "DdeCmpStringHandles" (ByVal hsz1 As Long, ByVal hsz2 As Long) As Long Type DDEML_MSG_HOOK_DATA ' new for NT uiLo As Long ' unpacked lo and hi parts of lParam uiHi As Long cbData As Long ' amount of data in message, if any. May be > than 32 bytes. Data(8) As Long ' data peeking by DDESPY is limited to 32 bytes. End Type Type MONMSGSTRUCT cb As Long hwndTo As Long dwTime As Long htask As Long wMsg As Long wParam As Long lParam As Long dmhd As DDEML_MSG_HOOK_DATA ' new for NT End Type Type MONCBSTRUCT cb As Long dwTime As Long htask As Long dwRet As Long wType As Long wFmt As Long hConv As Long hsz1 As Long hsz2 As Long hData As Long dwData1 As Long dwData2 As Long cc As CONVCONTEXT ' new for NT for XTYP_CONNECT callbacks cbData As Long ' new for NT for data peeking Data(8) As Long ' new for NT for data peeking End Type Type MONHSZSTRUCT cb As Long fsAction As Long ' MH_ value dwTime As Long hsz As Long htask As Long str As Byte End Type Const MH_CREATE = 1 Const MH_KEEP = 2 Const MH_DELETE = 3 Const MH_CLEANUP = 4 Type MONERRSTRUCT cb As Long wLastError As Long dwTime As Long htask As Long End Type Type MONLINKSTRUCT cb As Long dwTime As Long htask As Long fEstablished As Long fNoData As Long hszSvc As Long hszTopic As Long hszItem As Long wFmt As Long fServer As Long hConvServer As Long hConvClient As Long End Type Type MONCONVSTRUCT cb As Long fConnect As Long dwTime As Long htask As Long hszSvc As Long hszTopic As Long hConvClient As Long ' Globally unique value != apps local hConv hConvServer As Long ' Globally unique value != apps local hConv End Type Const MAX_MONITORS = 4 Const APPCLASS_MONITOR = &H1& Const XTYP_MONITOR = (&HF0 Or XCLASS_NOTIFICATION Or XTYPF_NOBLOCK) ' Callback filter flags for use with MONITOR apps - 0 implies no monitor callbacks Const MF_HSZ_INFO = &H1000000 Const MF_SENDMSGS = &H2000000 Const MF_POSTMSGS = &H4000000 Const MF_CALLBACKS = &H8000000 Const MF_ERRORS = &H10000000 Const MF_LINKS = &H20000000 Const MF_CONV = &H40000000 Const MF_MASK = &HFF000000 ' ----------------------------------------- ' Win32 API error code definitions ' ----------------------------------------- ' This section contains the error code definitions for the Win32 API functions. ' NO_ERROR Const NO_ERROR = 0 ' dderror ' The configuration registry database operation completed successfully. Const ERROR_SUCCESS = 0& ' Incorrect function. Const ERROR_INVALID_FUNCTION = 1 ' dderror ' The system cannot find the file specified. Const ERROR_FILE_NOT_FOUND = 2& ' The system cannot find the path specified. Const ERROR_PATH_NOT_FOUND = 3& ' The system cannot open the file. Const ERROR_TOO_MANY_OPEN_FILES = 4& ' Access is denied. Const ERROR_ACCESS_DENIED = 5& ' The handle is invalid. Const ERROR_INVALID_HANDLE = 6& ' The storage control blocks were destroyed. Const ERROR_ARENA_TRASHED = 7& ' Not enough storage is available to process this command. Const ERROR_NOT_ENOUGH_MEMORY = 8 ' dderror ' The storage control block address is invalid. Const ERROR_INVALID_BLOCK = 9& ' The environment is incorrect. Const ERROR_BAD_ENVIRONMENT = 10& ' An attempt was made to load a program with an ' incorrect format. Const ERROR_BAD_FORMAT = 11& ' The access code is invalid. Const ERROR_INVALID_ACCESS = 12& ' The data is invalid. Const ERROR_INVALID_DATA = 13& ' Not enough storage is available to complete this operation. Const ERROR_OUTOFMEMORY = 14& ' The system cannot find the drive specified. Const ERROR_INVALID_DRIVE = 15& ' The directory cannot be removed. Const ERROR_CURRENT_DIRECTORY = 16& ' The system cannot move the file ' to a different disk drive. Const ERROR_NOT_SAME_DEVICE = 17& ' There are no more files. Const ERROR_NO_MORE_FILES = 18& ' The media is write protected. Const ERROR_WRITE_PROTECT = 19& ' The system cannot find the device specified. Const ERROR_BAD_UNIT = 20& ' The device is not ready. Const ERROR_NOT_READY = 21& ' The device does not recognize the command. Const ERROR_BAD_COMMAND = 22& ' Data error (cyclic redundancy check) Const ERROR_CRC = 23& ' The program issued a command but the ' command length is incorrect. Const ERROR_BAD_LENGTH = 24& ' The drive cannot locate a specific ' area or track on the disk. Const ERROR_SEEK = 25& ' The specified disk or diskette cannot be accessed. Const ERROR_NOT_DOS_DISK = 26& ' The drive cannot find the sector requested. Const ERROR_SECTOR_NOT_FOUND = 27& ' The printer is out of paper. Const ERROR_OUT_OF_PAPER = 28& ' The system cannot write to the specified device. Const ERROR_WRITE_FAULT = 29& ' The system cannot read from the specified device. Const ERROR_READ_FAULT = 30& ' A device attached to the system is not functioning. Const ERROR_GEN_FAILURE = 31& ' The process cannot access the file because ' it is being used by another process. Const ERROR_SHARING_VIOLATION = 32& ' The process cannot access the file because ' another process has locked a portion of the file. Const ERROR_LOCK_VIOLATION = 33& ' The wrong diskette is in the drive. ' Insert %2 (Volume Serial Number: %3) ' into drive %1. Const ERROR_WRONG_DISK = 34& ' Too many files opened for sharing. Const ERROR_SHARING_BUFFER_EXCEEDED = 36& ' Reached end of file. Const ERROR_HANDLE_EOF = 38& ' The disk is full. Const ERROR_HANDLE_DISK_FULL = 39& ' The network request is not supported. Const ERROR_NOT_SUPPORTED = 50& ' The remote computer is not available. Const ERROR_REM_NOT_LIST = 51& ' A duplicate name exists on the network. Const ERROR_DUP_NAME = 52& ' The network path was not found. Const ERROR_BAD_NETPATH = 53& ' The network is busy. Const ERROR_NETWORK_BUSY = 54& ' The specified network resource or device is no longer ' available. Const ERROR_DEV_NOT_EXIST = 55 ' dderror ' The network BIOS command limit has been reached. Const ERROR_TOO_MANY_CMDS = 56& ' A network adapter hardware error occurred. Const ERROR_ADAP_HDW_ERR = 57& ' The specified server cannot perform the requested ' operation. Const ERROR_BAD_NET_RESP = 58& ' An unexpected network error occurred. Const ERROR_UNEXP_NET_ERR = 59& ' The remote adapter is not compatible. Const ERROR_BAD_REM_ADAP = 60& ' The printer queue is full. Const ERROR_PRINTQ_FULL = 61& ' Space to store the file waiting to be printed is ' not available on the server. Const ERROR_NO_SPOOL_SPACE = 62& ' Your file waiting to be printed was deleted. Const ERROR_PRINT_CANCELLED = 63& ' The specified network name is no longer available. Const ERROR_NETNAME_DELETED = 64& ' Network access is denied. Const ERROR_NETWORK_ACCESS_DENIED = 65& ' The network resource type is not correct. Const ERROR_BAD_DEV_TYPE = 66& ' The network name cannot be found. Const ERROR_BAD_NET_NAME = 67& ' The name limit for the local computer network ' adapter card was exceeded. Const ERROR_TOO_MANY_NAMES = 68& ' The network BIOS session limit was exceeded. Const ERROR_TOO_MANY_SESS = 69& ' The remote server has been paused or is in the ' process of being started. Const ERROR_SHARING_PAUSED = 70& ' The network request was not accepted. Const ERROR_REQ_NOT_ACCEP = 71& ' The specified printer or disk device has been paused. Const ERROR_REDIR_PAUSED = 72& ' The file exists. Const ERROR_FILE_EXISTS = 80& ' The directory or file cannot be created. Const ERROR_CANNOT_MAKE = 82& ' Fail on INT 24 Const ERROR_FAIL_I24 = 83& ' Storage to process this request is not available. Const ERROR_OUT_OF_STRUCTURES = 84& ' The local device name is already in use. Const ERROR_ALREADY_ASSIGNED = 85& ' The specified network password is not correct. Const ERROR_INVALID_PASSWORD = 86& ' The parameter is incorrect. Const ERROR_INVALID_PARAMETER = 87 ' dderror ' A write fault occurred on the network. Const ERROR_NET_WRITE_FAULT = 88& ' The system cannot start another process at ' this time. Const ERROR_NO_PROC_SLOTS = 89& ' Cannot create another system semaphore. Const ERROR_TOO_MANY_SEMAPHORES = 100& ' The exclusive semaphore is owned by another process. Const ERROR_EXCL_SEM_ALREADY_OWNED = 101& ' The semaphore is set and cannot be closed. Const ERROR_SEM_IS_SET = 102& ' The semaphore cannot be set again. Const ERROR_TOO_MANY_SEM_REQUESTS = 103& ' Cannot request exclusive semaphores at interrupt time. Const ERROR_INVALID_AT_INTERRUPT_TIME = 104& ' The previous ownership of this semaphore has ended. Const ERROR_SEM_OWNER_DIED = 105& ' Insert the diskette for drive %1. Const ERROR_SEM_USER_LIMIT = 106& ' Program stopped because alternate diskette was not inserted. Const ERROR_DISK_CHANGE = 107& ' The disk is in use or locked by ' another process. Const ERROR_DRIVE_LOCKED = 108& ' The pipe has been ended. Const ERROR_BROKEN_PIPE = 109& ' The system cannot open the ' device or file specified. Const ERROR_OPEN_FAILED = 110& ' The file name is too long. Const ERROR_BUFFER_OVERFLOW = 111& ' There is not enough space on the disk. Const ERROR_DISK_FULL = 112& ' No more internal file identifiers available. Const ERROR_NO_MORE_SEARCH_HANDLES = 113& ' The target internal file identifier is incorrect. Const ERROR_INVALID_TARGET_HANDLE = 114& ' The IOCTL call made by the application program is ' not correct. Const ERROR_INVALID_CATEGORY = 117& ' The verify-on-write switch parameter value is not ' correct. Const ERROR_INVALID_VERIFY_SWITCH = 118& ' The system does not support the command requested. Const ERROR_BAD_DRIVER_LEVEL = 119& ' This function is only valid in Windows NT mode. Const ERROR_CALL_NOT_IMPLEMENTED = 120& ' The semaphore timeout period has expired. Const ERROR_SEM_TIMEOUT = 121& ' The data area passed to a system call is too ' small. Const ERROR_INSUFFICIENT_BUFFER = 122 ' dderror ' The filename, directory name, or volume label syntax is incorrect. Const ERROR_INVALID_NAME = 123& ' The system call level is not correct. Const ERROR_INVALID_LEVEL = 124& ' The disk has no volume label. Const ERROR_NO_VOLUME_LABEL = 125& ' The specified module could not be found. Const ERROR_MOD_NOT_FOUND = 126& ' The specified procedure could not be found. Const ERROR_PROC_NOT_FOUND = 127& ' There are no child processes to wait for. Const ERROR_WAIT_NO_CHILDREN = 128& ' The %1 application cannot be run in Windows NT mode. Const ERROR_CHILD_NOT_COMPLETE = 129& ' Attempt to use a file handle to an open disk partition for an ' operation other than raw disk I/O. Const ERROR_DIRECT_ACCESS_HANDLE = 130& ' An attempt was made to move the file pointer before the beginning of the file. Const ERROR_NEGATIVE_SEEK = 131& ' The file pointer cannot be set on the specified device or file. Const ERROR_SEEK_ON_DEVICE = 132& ' A JOIN or SUBST command ' cannot be used for a drive that ' contains previously joined drives. Const ERROR_IS_JOIN_TARGET = 133& ' An attempt was made to use a ' JOIN or SUBST command on a drive that has ' already been joined. Const ERROR_IS_JOINED = 134& ' An attempt was made to use a ' JOIN or SUBST command on a drive that has ' already been substituted. Const ERROR_IS_SUBSTED = 135& ' The system tried to delete ' the JOIN of a drive that is not joined. Const ERROR_NOT_JOINED = 136& ' The system tried to delete the ' substitution of a drive that is not substituted. Const ERROR_NOT_SUBSTED = 137& ' The system tried to join a drive ' to a directory on a joined drive. Const ERROR_JOIN_TO_JOIN = 138& ' The system tried to substitute a ' drive to a directory on a substituted drive. Const ERROR_SUBST_TO_SUBST = 139& ' The system tried to join a drive to ' a directory on a substituted drive. Const ERROR_JOIN_TO_SUBST = 140& ' The system tried to SUBST a drive ' to a directory on a joined drive. Const ERROR_SUBST_TO_JOIN = 141& ' The system cannot perform a JOIN or SUBST at this time. Const ERROR_BUSY_DRIVE = 142& ' The system cannot join or substitute a ' drive to or for a directory on the same drive. Const ERROR_SAME_DRIVE = 143& ' The directory is not a subdirectory of the root directory. Const ERROR_DIR_NOT_ROOT = 144& ' The directory is not empty. Const ERROR_DIR_NOT_EMPTY = 145& ' The path specified is being used in ' a substitute. Const ERROR_IS_SUBST_PATH = 146& ' Not enough resources are available to ' process this command. Const ERROR_IS_JOIN_PATH = 147& ' The path specified cannot be used at this time. Const ERROR_PATH_BUSY = 148& ' An attempt was made to join ' or substitute a drive for which a directory ' on the drive is the target of a previous ' substitute. Const ERROR_IS_SUBST_TARGET = 149& ' System trace information was not specified in your ' CONFIG.SYS file, or tracing is disallowed. Const ERROR_SYSTEM_TRACE = 150& ' The number of specified semaphore events for ' DosMuxSemWait is not correct. Const ERROR_INVALID_EVENT_COUNT = 151& ' DosMuxSemWait did not execute; too many semaphores ' are already set. Const ERROR_TOO_MANY_MUXWAITERS = 152& ' The DosMuxSemWait list is not correct. Const ERROR_INVALID_LIST_FORMAT = 153& ' The volume label you entered exceeds the ' 11 character limit. The first 11 characters were written ' to disk. Any characters that exceeded the 11 character limit ' were automatically deleted. Const ERROR_LABEL_TOO_LONG = 154& ' Cannot create another thread. Const ERROR_TOO_MANY_TCBS = 155& ' The recipient process has refused the signal. Const ERROR_SIGNAL_REFUSED = 156& ' The segment is already discarded and cannot be locked. Const ERROR_DISCARDED = 157& ' The segment is already unlocked. Const ERROR_NOT_LOCKED = 158& ' The address for the thread ID is not correct. Const ERROR_BAD_THREADID_ADDR = 159& ' The argument string passed to DosExecPgm is not correct. Const ERROR_BAD_ARGUMENTS = 160& ' The specified path is invalid. Const ERROR_BAD_PATHNAME = 161& ' A signal is already pending. Const ERROR_SIGNAL_PENDING = 162& ' No more threads can be created in the system. Const ERROR_MAX_THRDS_REACHED = 164& ' Unable to lock a region of a file. Const ERROR_LOCK_FAILED = 167& ' The requested resource is in use. Const ERROR_BUSY = 170& ' A lock request was not outstanding for the supplied cancel region. Const ERROR_CANCEL_VIOLATION = 173& ' The file system does not support atomic changes to the lock type. Const ERROR_ATOMIC_LOCKS_NOT_SUPPORTED = 174& ' The system detected a segment number that was not correct. Const ERROR_INVALID_SEGMENT_NUMBER = 180& ' The operating system cannot run %1. Const ERROR_INVALID_ORDINAL = 182& ' Cannot create a file when that file already exists. Const ERROR_ALREADY_EXISTS = 183& ' The flag passed is not correct. Const ERROR_INVALID_FLAG_NUMBER = 186& ' The specified system semaphore name was not found. Const ERROR_SEM_NOT_FOUND = 187& ' The operating system cannot run %1. Const ERROR_INVALID_STARTING_CODESEG = 188& ' The operating system cannot run %1. Const ERROR_INVALID_STACKSEG = 189& ' The operating system cannot run %1. Const ERROR_INVALID_MODULETYPE = 190& ' Cannot run %1 in Windows NT mode. Const ERROR_INVALID_EXE_SIGNATURE = 191& ' The operating system cannot run %1. Const ERROR_EXE_MARKED_INVALID = 192& ' %1 is not a valid Windows NT application. Const ERROR_BAD_EXE_FORMAT = 193& ' The operating system cannot run %1. Const ERROR_ITERATED_DATA_EXCEEDS_64k = 194& ' The operating system cannot run %1. Const ERROR_INVALID_MINALLOCSIZE = 195& ' The operating system cannot run this ' application program. Const ERROR_DYNLINK_FROM_INVALID_RING = 196& ' The operating system is not presently ' configured to run this application. Const ERROR_IOPL_NOT_ENABLED = 197& ' The operating system cannot run %1. Const ERROR_INVALID_SEGDPL = 198& ' The operating system cannot run this ' application program. Const ERROR_AUTODATASEG_EXCEEDS_64k = 199& ' The code segment cannot be greater than or equal to 64KB. Const ERROR_RING2SEG_MUST_BE_MOVABLE = 200& ' The operating system cannot run %1. Const ERROR_RELOC_CHAIN_XEEDS_SEGLIM = 201& ' The operating system cannot run %1. Const ERROR_INFLOOP_IN_RELOC_CHAIN = 202& ' The system could not find the environment ' option that was entered. Const ERROR_ENVVAR_NOT_FOUND = 203& ' No process in the command subtree has a ' signal handler. Const ERROR_NO_SIGNAL_SENT = 205& ' The filename or extension is too long. Const ERROR_FILENAME_EXCED_RANGE = 206& ' The ring 2 stack is in use. Const ERROR_RING2_STACK_IN_USE = 207& ' The Global filename characters, or ?, are entered ' incorrectly or too many Global filename characters are specified. Const ERROR_META_EXPANSION_TOO_LONG = 208& ' The signal being posted is not correct. Const ERROR_INVALID_SIGNAL_NUMBER = 209& ' The signal handler cannot be set. Const ERROR_THREAD_1_INACTIVE = 210& ' The segment is locked and cannot be reallocated. Const ERROR_LOCKED = 212& ' Too many dynamic link modules are attached to this ' program or dynamic link module. Const ERROR_TOO_MANY_MODULES = 214& ' Can't nest calls to LoadModule. Const ERROR_NESTING_NOT_ALLOWED = 215& ' The pipe state is invalid. Const ERROR_BAD_PIPE = 230& ' All pipe instances are busy. Const ERROR_PIPE_BUSY = 231& ' The pipe is being closed. Const ERROR_NO_DATA = 232& ' No process is on the other end of the pipe. Const ERROR_PIPE_NOT_CONNECTED = 233& ' More data is available. Const ERROR_MORE_DATA = 234 ' dderror ' The session was cancelled. Const ERROR_VC_DISCONNECTED = 240& ' The specified extended attribute name was invalid. Const ERROR_INVALID_EA_NAME = 254& ' The extended attributes are inconsistent. Const ERROR_EA_LIST_INCONSISTENT = 255& ' No more data is available. Const ERROR_NO_MORE_ITEMS = 259& ' The Copy API cannot be used. Const ERROR_CANNOT_COPY = 266& ' The directory name is invalid. Const ERROR_DIRECTORY = 267& ' The extended attributes did not fit in the buffer. Const ERROR_EAS_DIDNT_FIT = 275& ' The extended attribute file on the mounted file system is corrupt. Const ERROR_EA_FILE_CORRUPT = 276& ' The extended attribute table file is full. Const ERROR_EA_TABLE_FULL = 277& ' The specified extended attribute handle is invalid. Const ERROR_INVALID_EA_HANDLE = 278& ' The mounted file system does not support extended attributes. Const ERROR_EAS_NOT_SUPPORTED = 282& ' Attempt to release mutex not owned by caller. Const ERROR_NOT_OWNER = 288& ' Too many posts were made to a semaphore. Const ERROR_TOO_MANY_POSTS = 298& ' The system cannot find message for message number 0x%1 ' in message file for %2. Const ERROR_MR_MID_NOT_FOUND = 317& ' Attempt to access invalid address. Const ERROR_INVALID_ADDRESS = 487& ' Arithmetic result exceeded 32 bits. Const ERROR_ARITHMETIC_OVERFLOW = 534& ' There is a process on other end of the pipe. Const ERROR_PIPE_CONNECTED = 535& ' Waiting for a process to open the other end of the pipe. Const ERROR_PIPE_LISTENING = 536& ' Access to the extended attribute was denied. Const ERROR_EA_ACCESS_DENIED = 994& ' The I/O operation has been aborted because of either a thread exit ' or an application request. Const ERROR_OPERATION_ABORTED = 995& ' Overlapped I/O event is not in a signalled state. Const ERROR_IO_INCOMPLETE = 996& ' Overlapped I/O operation is in progress. Const ERROR_IO_PENDING = 997 ' dderror ' Invalid access to memory location. Const ERROR_NOACCESS = 998& ' Error performing inpage operation. Const ERROR_SWAPERROR = 999& ' Recursion too deep, stack overflowed. Const ERROR_STACK_OVERFLOW = 1001& ' The window cannot act on the sent message. Const ERROR_INVALID_MESSAGE = 1002& ' Cannot complete this function. Const ERROR_CAN_NOT_COMPLETE = 1003& ' Invalid flags. Const ERROR_INVALID_FLAGS = 1004& ' The volume does not contain a recognized file system. ' Please make sure that all required file system drivers are loaded and that the ' volume is not corrupt. Const ERROR_UNRECOGNIZED_VOLUME = 1005& ' The volume for a file has been externally altered such that the ' opened file is no longer valid. Const ERROR_FILE_INVALID = 1006& ' The requested operation cannot be performed in full-screen mode. Const ERROR_FULLSCREEN_MODE = 1007& ' An attempt was made to reference a token that does not exist. Const ERROR_NO_TOKEN = 1008& ' The configuration registry database is corrupt. Const ERROR_BADDB = 1009& ' The configuration registry key is invalid. Const ERROR_BADKEY = 1010& ' The configuration registry key could not be opened. Const ERROR_CANTOPEN = 1011& ' The configuration registry key could not be read. Const ERROR_CANTREAD = 1012& ' The configuration registry key could not be written. Const ERROR_CANTWRITE = 1013& ' One of the files in the Registry database had to be recovered ' by use of a log or alternate copy. The recovery was successful. Const ERROR_REGISTRY_RECOVERED = 1014& ' The Registry is corrupt. The structure of one of the files that contains ' Registry data is corrupt, or the system's image of the file in memory ' is corrupt, or the file could not be recovered because the alternate ' copy or log was absent or corrupt. Const ERROR_REGISTRY_CORRUPT = 1015& ' An I/O operation initiated by the Registry failed unrecoverably. ' The Registry could not read in, or write out, or flush, one of the files ' that contain the system's image of the Registry. Const ERROR_REGISTRY_IO_FAILED = 1016& ' The system has attempted to load or restore a file into the Registry, but the ' specified file is not in a Registry file format. Const ERROR_NOT_REGISTRY_FILE = 1017& ' Illegal operation attempted on a Registry key which has been marked for deletion. Const ERROR_KEY_DELETED = 1018& ' System could not allocate the required space in a Registry log. Const ERROR_NO_LOG_SPACE = 1019& ' Cannot create a symbolic link in a Registry key that already ' has subkeys or values. Const ERROR_KEY_HAS_CHILDREN = 1020& ' Cannot create a stable subkey under a volatile parent key. Const ERROR_CHILD_MUST_BE_VOLATILE = 1021& ' A notify change request is being completed and the information ' is not being returned in the caller's buffer. The caller now ' needs to enumerate the files to find the changes. Const ERROR_NOTIFY_ENUM_DIR = 1022& ' A stop control has been sent to a service which other running services ' are dependent on. Const ERROR_DEPENDENT_SERVICES_RUNNING = 1051& ' The requested control is not valid for this service Const ERROR_INVALID_SERVICE_CONTROL = 1052& ' The service did not respond to the start or control request in a timely ' fashion. Const ERROR_SERVICE_REQUEST_TIMEOUT = 1053& ' A thread could not be created for the service. Const ERROR_SERVICE_NO_THREAD = 1054& ' The service database is locked. Const ERROR_SERVICE_DATABASE_LOCKED = 1055& ' An instance of the service is already running. Const ERROR_SERVICE_ALREADY_RUNNING = 1056& ' The account name is invalid or does not exist. Const ERROR_INVALID_SERVICE_ACCOUNT = 1057& ' The specified service is disabled and cannot be started. Const ERROR_SERVICE_DISABLED = 1058& ' Circular service dependency was specified. Const ERROR_CIRCULAR_DEPENDENCY = 1059& ' The specified service does not exist as an installed service. Const ERROR_SERVICE_DOES_NOT_EXIST = 1060& ' The service cannot accept control messages at this time. Const ERROR_SERVICE_CANNOT_ACCEPT_CTRL = 1061& ' The service has not been started. Const ERROR_SERVICE_NOT_ACTIVE = 1062& ' The service process could not connect to the service controller. Const ERROR_FAILED_SERVICE_CONTROLLER_CONNECT = 1063& ' An exception occurred in the service when handling the control request. Const ERROR_EXCEPTION_IN_SERVICE = 1064& ' The database specified does not exist. Const ERROR_DATABASE_DOES_NOT_EXIST = 1065& ' The service has returned a service-specific error code. Const ERROR_SERVICE_SPECIFIC_ERROR = 1066& ' The process terminated unexpectedly. Const ERROR_PROCESS_ABORTED = 1067& ' The dependency service or group failed to start. Const ERROR_SERVICE_DEPENDENCY_FAIL = 1068& ' The service did not start due to a logon failure. Const ERROR_SERVICE_LOGON_FAILED = 1069& ' After starting, the service hung in a start-pending state. Const ERROR_SERVICE_START_HANG = 1070& ' The specified service database lock is invalid. Const ERROR_INVALID_SERVICE_LOCK = 1071& ' The specified service has been marked for deletion. Const ERROR_SERVICE_MARKED_FOR_DELETE = 1072& ' The specified service already exists. Const ERROR_SERVICE_EXISTS = 1073& ' The system is currently running with the last-known-good configuration. Const ERROR_ALREADY_RUNNING_LKG = 1074& ' The dependency service does not exist or has been marked for ' deletion. Const ERROR_SERVICE_DEPENDENCY_DELETED = 1075& ' The current boot has already been accepted for use as the ' last-known-good control set. Const ERROR_BOOT_ALREADY_ACCEPTED = 1076& ' No attempts to start the service have been made since the last boot. Const ERROR_SERVICE_NEVER_STARTED = 1077& ' The name is already in use as either a service name or a service display ' name. Const ERROR_DUPLICATE_SERVICE_NAME = 1078& ' The physical end of the tape has been reached. Const ERROR_END_OF_MEDIA = 1100& ' A tape access reached a filemark. Const ERROR_FILEMARK_DETECTED = 1101& ' Beginning of tape or partition was encountered. Const ERROR_BEGINNING_OF_MEDIA = 1102& ' A tape access reached the end of a set of files. Const ERROR_SETMARK_DETECTED = 1103& ' No more data is on the tape. Const ERROR_NO_DATA_DETECTED = 1104& ' Tape could not be partitioned. Const ERROR_PARTITION_FAILURE = 1105& ' When accessing a new tape of a multivolume partition, the current ' blocksize is incorrect. Const ERROR_INVALID_BLOCK_LENGTH = 1106& ' Tape partition information could not be found when loading a tape. Const ERROR_DEVICE_NOT_PARTITIONED = 1107& ' Unable to lock the media eject mechanism. Const ERROR_UNABLE_TO_LOCK_MEDIA = 1108& ' Unable to unload the media. Const ERROR_UNABLE_TO_UNLOAD_MEDIA = 1109& ' Media in drive may have changed. Const ERROR_MEDIA_CHANGED = 1110& ' The I/O bus was reset. Const ERROR_BUS_RESET = 1111& ' No media in drive. Const ERROR_NO_MEDIA_IN_DRIVE = 1112& ' No mapping for the Unicode character exists in the target multi-byte code page. Const ERROR_NO_UNICODE_TRANSLATION = 1113& ' A dynamic link library (DLL) initialization routine failed. Const ERROR_DLL_INIT_FAILED = 1114& ' A system shutdown is in progress. Const ERROR_SHUTDOWN_IN_PROGRESS = 1115& ' Unable to abort the system shutdown because no shutdown was in progress. Const ERROR_NO_SHUTDOWN_IN_PROGRESS = 1116& ' The request could not be performed because of an I/O device error. Const ERROR_IO_DEVICE = 1117& ' No serial device was successfully initialized. The serial driver will unload. Const ERROR_SERIAL_NO_DEVICE = 1118& ' Unable to open a device that was sharing an interrupt request (IRQ) ' with other devices. At least one other device that uses that IRQ ' was already opened. Const ERROR_IRQ_BUSY = 1119& ' A serial I/O operation was completed by another write to the serial port. ' (The IOCTL_SERIAL_XOFF_COUNTER reached zero.) Const ERROR_MORE_WRITES = 1120& ' A serial I/O operation completed because the time-out period expired. ' (The IOCTL_SERIAL_XOFF_COUNTER did not reach zero.) Const ERROR_COUNTER_TIMEOUT = 1121& ' No ID address mark was found on the floppy disk. Const ERROR_FLOPPY_ID_MARK_NOT_FOUND = 1122& ' Mismatch between the floppy disk sector ID field and the floppy disk ' controller track address. Const ERROR_FLOPPY_WRONG_CYLINDER = 1123& ' The floppy disk controller reported an error that is not recognized ' by the floppy disk driver. Const ERROR_FLOPPY_UNKNOWN_ERROR = 1124& ' The floppy disk controller returned inconsistent results in its registers. Const ERROR_FLOPPY_BAD_REGISTERS = 1125& ' While accessing the hard disk, a recalibrate operation failed, even after retries. Const ERROR_DISK_RECALIBRATE_FAILED = 1126& ' While accessing the hard disk, a disk operation failed even after retries. Const ERROR_DISK_OPERATION_FAILED = 1127& ' While accessing the hard disk, a disk controller reset was needed, but ' even that failed. Const ERROR_DISK_RESET_FAILED = 1128& ' Physical end of tape encountered. Const ERROR_EOM_OVERFLOW = 1129& ' Not enough server storage is available to process this command. Const ERROR_NOT_ENOUGH_SERVER_MEMORY = 1130& ' A potential deadlock condition has been detected. Const ERROR_POSSIBLE_DEADLOCK = 1131& ' The base address or the file offset specified does not have the proper ' alignment. Const ERROR_MAPPED_ALIGNMENT = 1132& ' NEW for Win32 Const ERROR_INVALID_PIXEL_FORMAT = 2000 Const ERROR_BAD_DRIVER = 2001 Const ERROR_INVALID_WINDOW_STYLE = 2002 Const ERROR_METAFILE_NOT_SUPPORTED = 2003 Const ERROR_TRANSFORM_NOT_SUPPORTED = 2004 Const ERROR_CLIPPING_NOT_SUPPORTED = 2005 Const ERROR_UNKNOWN_PRINT_MONITOR = 3000 Const ERROR_PRINTER_DRIVER_IN_USE = 3001 Const ERROR_SPOOL_FILE_NOT_FOUND = 3002 Const ERROR_SPL_NO_STARTDOC = 3003 Const ERROR_SPL_NO_ADDJOB = 3004 Const ERROR_PRINT_PROCESSOR_ALREADY_INSTALLED = 3005 Const ERROR_PRINT_MONITOR_ALREADY_INSTALLED = 3006 Const ERROR_WINS_INTERNAL = 4000 Const ERROR_CAN_NOT_DEL_LOCAL_WINS = 4001 Const ERROR_STATIC_INIT = 4002 Const ERROR_INC_BACKUP = 4003 Const ERROR_FULL_BACKUP = 4004 Const ERROR_REC_NON_EXISTENT = 4005 Const ERROR_RPL_NOT_ALLOWED = 4006 Const SEVERITY_SUCCESS = 0 Const SEVERITY_ERROR = 1 Const FACILITY_NT_BIT = &H10000000 Const NOERROR = 0 Const E_UNEXPECTED = &H8000FFFF Const E_NOTIMPL = &H80004001 Const E_OUTOFMEMORY = &H8007000E Const E_INVALIDARG = &H80070057 Const E_NOINTERFACE = &H80004002 Const E_POINTER = &H80004003 Const E_HANDLE = &H80070006 Const E_ABORT = &H80004004 Const E_FAIL = &H80004005 Const E_ACCESSDENIED = &H80070005 Const CO_E_INIT_TLS = &H80004006 Const CO_E_INIT_SHARED_ALLOCATOR = &H80004007 Const CO_E_INIT_MEMORY_ALLOCATOR = &H80004008 Const CO_E_INIT_CLASS_CACHE = &H80004009 Const CO_E_INIT_RPC_CHANNEL = &H8000400A Const CO_E_INIT_TLS_SET_CHANNEL_CONTROL = &H8000400B Const CO_E_INIT_TLS_CHANNEL_CONTROL = &H8000400C Const CO_E_INIT_UNACCEPTED_USER_ALLOCATOR = &H8000400D Const CO_E_INIT_SCM_MUTEX_EXISTS = &H8000400E Const CO_E_INIT_SCM_FILE_MAPPING_EXISTS = &H8000400F Const CO_E_INIT_SCM_MAP_VIEW_OF_FILE = &H80004010 Const CO_E_INIT_SCM_EXEC_FAILURE = &H80004011 Const CO_E_INIT_ONLY_SINGLE_THREADED = &H80004012 Const S_OK = &H0 Const S_FALSE = &H1 Const OLE_E_FIRST = &H80040000 Const OLE_E_LAST = &H800400FF Const OLE_S_FIRST = &H40000 Const OLE_S_LAST = &H400FF Const OLE_E_OLEVERB = &H80040000 Const OLE_E_ADVF = &H80040001 Const OLE_E_ENUM_NOMORE = &H80040002 Const OLE_E_ADVISENOTSUPPORTED = &H80040003 Const OLE_E_NOCONNECTION = &H80040004 Const OLE_E_NOTRUNNING = &H80040005 Const OLE_E_NOCACHE = &H80040006 Const OLE_E_BLANK = &H80040007 Const OLE_E_CLASSDIFF = &H80040008 Const OLE_E_CANT_GETMONIKER = &H80040009 Const OLE_E_CANT_BINDTOSOURCE = &H8004000A Const OLE_E_STATIC = &H8004000B Const OLE_E_PROMPTSAVECANCELLED = &H8004000C Const OLE_E_INVALIDRECT = &H8004000D Const OLE_E_WRONGCOMPOBJ = &H8004000E Const OLE_E_INVALIDHWND = &H8004000F Const OLE_E_NOT_INPLACEACTIVE = &H80040010 Const OLE_E_CANTCONVERT = &H80040011 Const OLE_E_NOSTORAGE = &H80040012 Const DV_E_FORMATETC = &H80040064 Const DV_E_DVTARGETDEVICE = &H80040065 Const DV_E_STGMEDIUM = &H80040066 Const DV_E_STATDATA = &H80040067 Const DV_E_LINDEX = &H80040068 Const DV_E_TYMED = &H80040069 Const DV_E_CLIPFORMAT = &H8004006A Const DV_E_DVASPECT = &H8004006B Const DV_E_DVTARGETDEVICE_SIZE = &H8004006C Const DV_E_NOIVIEWOBJECT = &H8004006D Const DRAGDROP_E_FIRST = &H80040100 Const DRAGDROP_E_LAST = &H8004010F Const DRAGDROP_S_FIRST = &H40100 Const DRAGDROP_S_LAST = &H4010F Const DRAGDROP_E_NOTREGISTERED = &H80040100 Const DRAGDROP_E_ALREADYREGISTERED = &H80040101 Const DRAGDROP_E_INVALIDHWND = &H80040102 Const CLASSFACTORY_E_FIRST = &H80040110 Const CLASSFACTORY_E_LAST = &H8004011F Const CLASSFACTORY_S_FIRST = &H40110 Const CLASSFACTORY_S_LAST = &H4011F Const CLASS_E_NOAGGREGATION = &H80040110 Const CLASS_E_CLASSNOTAVAILABLE = &H80040111 Const MARSHAL_E_FIRST = &H80040120 Const MARSHAL_E_LAST = &H8004012F Const MARSHAL_S_FIRST = &H40120 Const MARSHAL_S_LAST = &H4012F Const DATA_E_FIRST = &H80040130 Const DATA_E_LAST = &H8004013F Const DATA_S_FIRST = &H40130 Const DATA_S_LAST = &H4013F Const VIEW_E_FIRST = &H80040140 Const VIEW_E_LAST = &H8004014F Const VIEW_S_FIRST = &H40140 Const VIEW_S_LAST = &H4014F Const VIEW_E_DRAW = &H80040140 Const REGDB_E_FIRST = &H80040150 Const REGDB_E_LAST = &H8004015F Const REGDB_S_FIRST = &H40150 Const REGDB_S_LAST = &H4015F Const REGDB_E_READREGDB = &H80040150 Const REGDB_E_WRITEREGDB = &H80040151 Const REGDB_E_KEYMISSING = &H80040152 Const REGDB_E_INVALIDVALUE = &H80040153 Const REGDB_E_CLASSNOTREG = &H80040154 Const REGDB_E_IIDNOTREG = &H80040155 Const CACHE_E_FIRST = &H80040170 Const CACHE_E_LAST = &H8004017F Const CACHE_S_FIRST = &H40170 Const CACHE_S_LAST = &H4017F Const CACHE_E_NOCACHE_UPDATED = &H80040170 Const OLEOBJ_E_FIRST = &H80040180 Const OLEOBJ_E_LAST = &H8004018F Const OLEOBJ_S_FIRST = &H40180 Const OLEOBJ_S_LAST = &H4018F Const OLEOBJ_E_NOVERBS = &H80040180 Const OLEOBJ_E_INVALIDVERB = &H80040181 Const CLIENTSITE_E_FIRST = &H80040190 Const CLIENTSITE_E_LAST = &H8004019F Const CLIENTSITE_S_FIRST = &H40190 Const CLIENTSITE_S_LAST = &H4019F Const INPLACE_E_NOTUNDOABLE = &H800401A0 Const INPLACE_E_NOTOOLSPACE = &H800401A1 Const INPLACE_E_FIRST = &H800401A0 Const INPLACE_E_LAST = &H800401AF Const INPLACE_S_FIRST = &H401A0 Const INPLACE_S_LAST = &H401AF Const ENUM_E_FIRST = &H800401B0 Const ENUM_E_LAST = &H800401BF Const ENUM_S_FIRST = &H401B0 Const ENUM_S_LAST = &H401BF Const CONVERT10_E_FIRST = &H800401C0 Const CONVERT10_E_LAST = &H800401CF Const CONVERT10_S_FIRST = &H401C0 Const CONVERT10_S_LAST = &H401CF Const CONVERT10_E_OLESTREAM_GET = &H800401C0 Const CONVERT10_E_OLESTREAM_PUT = &H800401C1 Const CONVERT10_E_OLESTREAM_FMT = &H800401C2 Const CONVERT10_E_OLESTREAM_BITMAP_TO_DIB = &H800401C3 Const CONVERT10_E_STG_FMT = &H800401C4 Const CONVERT10_E_STG_NO_STD_STREAM = &H800401C5 Const CONVERT10_E_STG_DIB_TO_BITMAP = &H800401C6 Const CLIPBRD_E_FIRST = &H800401D0 Const CLIPBRD_E_LAST = &H800401DF Const CLIPBRD_S_FIRST = &H401D0 Const CLIPBRD_S_LAST = &H401DF Const CLIPBRD_E_CANT_OPEN = &H800401D0 Const CLIPBRD_E_CANT_EMPTY = &H800401D1 Const CLIPBRD_E_CANT_SET = &H800401D2 Const CLIPBRD_E_BAD_DATA = &H800401D3 Const CLIPBRD_E_CANT_CLOSE = &H800401D4 Const MK_E_FIRST = &H800401E0 Const MK_E_LAST = &H800401EF Const MK_S_FIRST = &H401E0 Const MK_S_LAST = &H401EF Const MK_E_CONNECTMANUALLY = &H800401E0 Const MK_E_EXCEEDEDDEADLINE = &H800401E1 Const MK_E_NEEDGENERIC = &H800401E2 Const MK_E_UNAVAILABLE = &H800401E3 Const MK_E_SYNTAX = &H800401E4 Const MK_E_NOOBJECT = &H800401E5 Const MK_E_INVALIDEXTENSION = &H800401E6 Const MK_E_INTERMEDIATEINTERFACENOTSUPPORTED = &H800401E7 Const MK_E_NOTBINDABLE = &H800401E8 Const MK_E_NOTBOUND = &H800401E9 Const MK_E_CANTOPENFILE = &H800401EA Const MK_E_MUSTBOTHERUSER = &H800401EB Const MK_E_NOINVERSE = &H800401EC Const MK_E_NOSTORAGE = &H800401ED Const MK_E_NOPREFIX = &H800401EE Const MK_E_ENUMERATION_FAILED = &H800401EF Const CO_E_FIRST = &H800401F0 Const CO_E_LAST = &H800401FF Const CO_S_FIRST = &H401F0 Const CO_S_LAST = &H401FF Const CO_E_NOTINITIALIZED = &H800401F0 Const CO_E_ALREADYINITIALIZED = &H800401F1 Const CO_E_CANTDETERMINECLASS = &H800401F2 Const CO_E_CLASSSTRING = &H800401F3 Const CO_E_IIDSTRING = &H800401F4 Const CO_E_APPNOTFOUND = &H800401F5 Const CO_E_APPSINGLEUSE = &H800401F6 Const CO_E_ERRORINAPP = &H800401F7 Const CO_E_DLLNOTFOUND = &H800401F8 Const CO_E_ERRORINDLL = &H800401F9 Const CO_E_WRONGOSFORAPP = &H800401FA Const CO_E_OBJNOTREG = &H800401FB Const CO_E_OBJISREG = &H800401FC Const CO_E_OBJNOTCONNECTED = &H800401FD Const CO_E_APPDIDNTREG = &H800401FE Const CO_E_RELEASED = &H800401FF Const OLE_S_USEREG = &H40000 Const OLE_S_STATIC = &H40001 Const OLE_S_MAC_CLIPFORMAT = &H40002 Const DRAGDROP_S_DROP = &H40100 Const DRAGDROP_S_CANCEL = &H40101 Const DRAGDROP_S_USEDEFAULTCURSORS = &H40102 Const DATA_S_SAMEFORMATETC = &H40130 Const VIEW_S_ALREADY_FROZEN = &H40140 Const CACHE_S_FORMATETC_NOTSUPPORTED = &H40170 Const CACHE_S_SAMECACHE = &H40171 Const CACHE_S_SOMECACHES_NOTUPDATED = &H40172 Const OLEOBJ_S_INVALIDVERB = &H40180 Const OLEOBJ_S_CANNOT_DOVERB_NOW = &H40181 Const OLEOBJ_S_INVALIDHWND = &H40182 Const INPLACE_S_TRUNCATED = &H401A0 Const CONVERT10_S_NO_PRESENTATION = &H401C0 Const MK_S_REDUCED_TO_SELF = &H401E2 Const MK_S_ME = &H401E4 Const MK_S_HIM = &H401E5 Const MK_S_US = &H401E6 Const MK_S_MONIKERALREADYREGISTERED = &H401E7 Const CO_E_CLASS_CREATE_FAILED = &H80080001 Const CO_E_SCM_ERROR = &H80080002 Const CO_E_SCM_RPC_FAILURE = &H80080003 Const CO_E_BAD_PATH = &H80080004 Const CO_E_SERVER_EXEC_FAILURE = &H80080005 Const CO_E_OBJSRV_RPC_FAILURE = &H80080006 Const MK_E_NO_NORMALIZED = &H80080007 Const CO_E_SERVER_STOPPING = &H80080008 Const MEM_E_INVALID_ROOT = &H80080009 Const MEM_E_INVALID_LINK = &H80080010 Const MEM_E_INVALID_SIZE = &H80080011 Const DISP_E_UNKNOWNINTERFACE = &H80020001 Const DISP_E_MEMBERNOTFOUND = &H80020003 Const DISP_E_PARAMNOTFOUND = &H80020004 Const DISP_E_TYPEMISMATCH = &H80020005 Const DISP_E_UNKNOWNNAME = &H80020006 Const DISP_E_NONAMEDARGS = &H80020007 Const DISP_E_BADVARTYPE = &H80020008 Const DISP_E_EXCEPTION = &H80020009 Const DISP_E_OVERFLOW = &H8002000A Const DISP_E_BADINDEX = &H8002000B Const DISP_E_UNKNOWNLCID = &H8002000C Const DISP_E_ARRAYISLOCKED = &H8002000D Const DISP_E_BADPARAMCOUNT = &H8002000E Const DISP_E_PARAMNOTOPTIONAL = &H8002000F Const DISP_E_BADCALLEE = &H80020010 Const DISP_E_NOTACOLLECTION = &H80020011 Const TYPE_E_BUFFERTOOSMALL = &H80028016 Const TYPE_E_INVDATAREAD = &H80028018 Const TYPE_E_UNSUPFORMAT = &H80028019 Const TYPE_E_REGISTRYACCESS = &H8002801C Const TYPE_E_LIBNOTREGISTERED = &H8002801D Const TYPE_E_UNDEFINEDTYPE = &H80028027 Const TYPE_E_QUALIFIEDNAMEDISALLOWED = &H80028028 Const TYPE_E_INVALIDSTATE = &H80028029 Const TYPE_E_WRONGTYPEKIND = &H8002802A Const TYPE_E_ELEMENTNOTFOUND = &H8002802B Const TYPE_E_AMBIGUOUSNAME = &H8002802C Const TYPE_E_NAMECONFLICT = &H8002802D Const TYPE_E_UNKNOWNLCID = &H8002802E Const TYPE_E_DLLFUNCTIONNOTFOUND = &H8002802F Const TYPE_E_BADMODULEKIND = &H800288BD Const TYPE_E_SIZETOOBIG = &H800288C5 Const TYPE_E_DUPLICATEID = &H800288C6 Const TYPE_E_INVALIDID = &H800288CF Const TYPE_E_TYPEMISMATCH = &H80028CA0 Const TYPE_E_OUTOFBOUNDS = &H80028CA1 Const TYPE_E_IOERROR = &H80028CA2 Const TYPE_E_CANTCREATETMPFILE = &H80028CA3 Const TYPE_E_CANTLOADLIBRARY = &H80029C4A Const TYPE_E_INCONSISTENTPROPFUNCS = &H80029C83 Const TYPE_E_CIRCULARTYPE = &H80029C84 Const STG_E_INVALIDFUNCTION = &H80030001 Const STG_E_FILENOTFOUND = &H80030002 Const STG_E_PATHNOTFOUND = &H80030003 Const STG_E_TOOMANYOPENFILES = &H80030004 Const STG_E_ACCESSDENIED = &H80030005 Const STG_E_INVALIDHANDLE = &H80030006 Const STG_E_INSUFFICIENTMEMORY = &H80030008 Const STG_E_INVALIDPOINTER = &H80030009 Const STG_E_NOMOREFILES = &H80030012 Const STG_E_DISKISWRITEPROTECTED = &H80030013 Const STG_E_SEEKERROR = &H80030019 Const STG_E_WRITEFAULT = &H8003001D Const STG_E_READFAULT = &H8003001E Const STG_E_SHAREVIOLATION = &H80030020 Const STG_E_LOCKVIOLATION = &H80030021 Const STG_E_FILEALREADYEXISTS = &H80030050 Const STG_E_INVALIDPARAMETER = &H80030057 Const STG_E_MEDIUMFULL = &H80030070 Const STG_E_ABNORMALAPIEXIT = &H800300FA Const STG_E_INVALIDHEADER = &H800300FB Const STG_E_INVALIDNAME = &H800300FC Const STG_E_UNKNOWN = &H800300FD Const STG_E_UNIMPLEMENTEDFUNCTION = &H800300FE Const STG_E_INVALIDFLAG = &H800300FF Const STG_E_INUSE = &H80030100 Const STG_E_NOTCURRENT = &H80030101 Const STG_E_REVERTED = &H80030102 Const STG_E_CANTSAVE = &H80030103 Const STG_E_OLDFORMAT = &H80030104 Const STG_E_OLDDLL = &H80030105 Const STG_E_SHAREREQUIRED = &H80030106 Const STG_E_NOTFILEBASEDSTORAGE = &H80030107 Const STG_E_EXTANTMARSHALLINGS = &H80030108 Const STG_S_CONVERTED = &H30200 Const RPC_E_CALL_REJECTED = &H80010001 Const RPC_E_CALL_CANCELED = &H80010002 Const RPC_E_CANTPOST_INSENDCALL = &H80010003 Const RPC_E_CANTCALLOUT_INASYNCCALL = &H80010004 Const RPC_E_CANTCALLOUT_INEXTERNALCALL = &H80010005 Const RPC_E_CONNECTION_TERMINATED = &H80010006 Const RPC_E_SERVER_DIED = &H80010007 Const RPC_E_CLIENT_DIED = &H80010008 Const RPC_E_INVALID_DATAPACKET = &H80010009 Const RPC_E_CANTTRANSMIT_CALL = &H8001000A Const RPC_E_CLIENT_CANTMARSHAL_DATA = &H8001000B Const RPC_E_CLIENT_CANTUNMARSHAL_DATA = &H8001000C Const RPC_E_SERVER_CANTMARSHAL_DATA = &H8001000D Const RPC_E_SERVER_CANTUNMARSHAL_DATA = &H8001000E Const RPC_E_INVALID_DATA = &H8001000F Const RPC_E_INVALID_PARAMETER = &H80010010 Const RPC_E_CANTCALLOUT_AGAIN = &H80010011 Const RPC_E_SERVER_DIED_DNE = &H80010012 Const RPC_E_SYS_CALL_FAILED = &H80010100 Const RPC_E_OUT_OF_RESOURCES = &H80010101 Const RPC_E_ATTEMPTED_MULTITHREAD = &H80010102 Const RPC_E_NOT_REGISTERED = &H80010103 Const RPC_E_FAULT = &H80010104 Const RPC_E_SERVERFAULT = &H80010105 Const RPC_E_CHANGED_MODE = &H80010106 Const RPC_E_INVALIDMETHOD = &H80010107 Const RPC_E_DISCONNECTED = &H80010108 Const RPC_E_RETRY = &H80010109 Const RPC_E_SERVERCALL_RETRYLATER = &H8001010A Const RPC_E_SERVERCALL_REJECTED = &H8001010B Const RPC_E_INVALID_CALLDATA = &H8001010C Const RPC_E_CANTCALLOUT_ININPUTSYNCCALL = &H8001010D Const RPC_E_WRONG_THREAD = &H8001010E Const RPC_E_THREAD_NOT_INIT = &H8001010F Const RPC_E_UNEXPECTED = &H8001FFFF ' ///////////////////////// ' // ' Winnet32 Status Codes // ' // ' ///////////////////////// ' The specified username is invalid. Const ERROR_BAD_USERNAME = 2202& ' This network connection does not exist. Const ERROR_NOT_CONNECTED = 2250& ' This network connection has files open or requests pending. Const ERROR_OPEN_FILES = 2401& ' The device is in use by an active process and cannot be disconnected. Const ERROR_DEVICE_IN_USE = 2404& ' The specified device name is invalid. Const ERROR_BAD_DEVICE = 1200& ' The device is not currently connected but it is a remembered connection. Const ERROR_CONNECTION_UNAVAIL = 1201& ' An attempt was made to remember a device that had previously been remembered. Const ERROR_DEVICE_ALREADY_REMEMBERED = 1202& ' No network provider accepted the given network path. Const ERROR_NO_NET_OR_BAD_PATH = 1203& ' The specified network provider name is invalid. Const ERROR_BAD_PROVIDER = 1204& ' Unable to open the network connection profile. Const ERROR_CANNOT_OPEN_PROFILE = 1205& ' The network connection profile is corrupt. Const ERROR_BAD_PROFILE = 1206& ' Cannot enumerate a non-container. Const ERROR_NOT_CONTAINER = 1207& ' An extended error has occurred. Const ERROR_EXTENDED_ERROR = 1208& ' The format of the specified group name is invalid. Const ERROR_INVALID_GROUPNAME = 1209& ' The format of the specified computer name is invalid. Const ERROR_INVALID_COMPUTERNAME = 1210& ' The format of the specified event name is invalid. Const ERROR_INVALID_EVENTNAME = 1211& ' The format of the specified domain name is invalid. Const ERROR_INVALID_DOMAINNAME = 1212& ' The format of the specified service name is invalid. Const ERROR_INVALID_SERVICENAME = 1213& ' The format of the specified network name is invalid. Const ERROR_INVALID_NETNAME = 1214& ' The format of the specified share name is invalid. Const ERROR_INVALID_SHARENAME = 1215& ' The format of the specified password is invalid. Const ERROR_INVALID_PASSWORDNAME = 1216& ' The format of the specified message name is invalid. Const ERROR_INVALID_MESSAGENAME = 1217& ' The format of the specified message destination is invalid. Const ERROR_INVALID_MESSAGEDEST = 1218& ' The credentials supplied conflict with an existing set of credentials. Const ERROR_SESSION_CREDENTIAL_CONFLICT = 1219& ' An attempt was made to establish a session to a Lan Manager server, but there ' are already too many sessions established to that server. Const ERROR_REMOTE_SESSION_LIMIT_EXCEEDED = 1220& ' The workgroup or domain name is already in use by another computer on the ' network. Const ERROR_DUP_DOMAINNAME = 1221& ' The network is not present or not started. Const ERROR_NO_NETWORK = 1222& ' ///////////////////////// ' // ' Security Status Codes // ' // ' ///////////////////////// ' Not all privileges referenced are assigned to the caller. Const ERROR_NOT_ALL_ASSIGNED = 1300& ' Some mapping between account names and security IDs was not done. Const ERROR_SOME_NOT_MAPPED = 1301& ' No system quota limits are specifically set for this account. Const ERROR_NO_QUOTAS_FOR_ACCOUNT = 1302& ' No encryption key is available. A well-known encryption key was returned. Const ERROR_LOCAL_USER_SESSION_KEY = 1303& ' The NT password is too complex to be converted to a LAN Manager ' password. The LAN Manager password returned is a NULL string. Const ERROR_NULL_LM_PASSWORD = 1304& ' The revision level is unknown. Const ERROR_UNKNOWN_REVISION = 1305& ' Indicates two revision levels are incompatible. Const ERROR_REVISION_MISMATCH = 1306& ' This security ID may not be assigned as the owner of this object. Const ERROR_INVALID_OWNER = 1307& ' This security ID may not be assigned as the primary group of an object. Const ERROR_INVALID_PRIMARY_GROUP = 1308& ' An attempt has been made to operate on an impersonation token ' by a thread that is not currently impersonating a client. Const ERROR_NO_IMPERSONATION_TOKEN = 1309& ' The group may not be disabled. Const ERROR_CANT_DISABLE_MANDATORY = 1310& ' There are currently no logon servers available to service the logon ' request. Const ERROR_NO_LOGON_SERVERS = 1311& ' A specified logon session does not exist. It may already have ' been terminated. Const ERROR_NO_SUCH_LOGON_SESSION = 1312& ' A specified privilege does not exist. Const ERROR_NO_SUCH_PRIVILEGE = 1313& ' A required privilege is not held by the client. Const ERROR_PRIVILEGE_NOT_HELD = 1314& ' The name provided is not a properly formed account name. Const ERROR_INVALID_ACCOUNT_NAME = 1315& ' The specified user already exists. Const ERROR_USER_EXISTS = 1316& ' The specified user does not exist. Const ERROR_NO_SUCH_USER = 1317& ' The specified group already exists. Const ERROR_GROUP_EXISTS = 1318& ' The specified group does not exist. Const ERROR_NO_SUCH_GROUP = 1319& ' Either the specified user account is already a member of the specified ' group, or the specified group cannot be deleted because it contains ' a member. Const ERROR_MEMBER_IN_GROUP = 1320& ' The specified user account is not a member of the specified group account. Const ERROR_MEMBER_NOT_IN_GROUP = 1321& ' The last remaining administration account cannot be disabled ' or deleted. Const ERROR_LAST_ADMIN = 1322& ' Unable to update the password. The value provided as the current ' password is incorrect. Const ERROR_WRONG_PASSWORD = 1323& ' Unable to update the password. The value provided for the new password ' contains values that are not allowed in passwords. Const ERROR_ILL_FORMED_PASSWORD = 1324& ' Unable to update the password because a password update rule has been ' violated. Const ERROR_PASSWORD_RESTRICTION = 1325& ' Logon failure: unknown user name or bad password. Const ERROR_LOGON_FAILURE = 1326& ' Logon failure: user account restriction. Const ERROR_ACCOUNT_RESTRICTION = 1327& ' Logon failure: account logon time restriction violation. Const ERROR_INVALID_LOGON_HOURS = 1328& ' Logon failure: user not allowed to log on to this computer. Const ERROR_INVALID_WORKSTATION = 1329& ' Logon failure: the specified account password has expired. Const ERROR_PASSWORD_EXPIRED = 1330& ' Logon failure: account currently disabled. Const ERROR_ACCOUNT_DISABLED = 1331& ' No mapping between account names and security IDs was done. Const ERROR_NONE_MAPPED = 1332& ' Too many local user identifiers (LUIDs) were requested at one time. Const ERROR_TOO_MANY_LUIDS_REQUESTED = 1333& ' No more local user identifiers (LUIDs) are available. Const ERROR_LUIDS_EXHAUSTED = 1334& ' The subauthority part of a security ID is invalid for this particular use. Const ERROR_INVALID_SUB_AUTHORITY = 1335& ' The access control list (ACL) structure is invalid. Const ERROR_INVALID_ACL = 1336& ' The security ID structure is invalid. Const ERROR_INVALID_SID = 1337& ' The security descriptor structure is invalid. Const ERROR_INVALID_SECURITY_DESCR = 1338& ' The inherited access control list (ACL) or access control entry (ACE) ' could not be built. Const ERROR_BAD_INHERITANCE_ACL = 1340& ' The server is currently disabled. Const ERROR_SERVER_DISABLED = 1341& ' The server is currently enabled. Const ERROR_SERVER_NOT_DISABLED = 1342& ' The value provided was an invalid value for an identifier authority. Const ERROR_INVALID_ID_AUTHORITY = 1343& ' No more memory is available for security information updates. Const ERROR_ALLOTTED_SPACE_EXCEEDED = 1344& ' The specified attributes are invalid, or incompatible with the ' attributes for the group as a whole. Const ERROR_INVALID_GROUP_ATTRIBUTES = 1345& ' Either a required impersonation level was not provided, or the ' provided impersonation level is invalid. Const ERROR_BAD_IMPERSONATION_LEVEL = 1346& ' Cannot open an anonymous level security token. Const ERROR_CANT_OPEN_ANONYMOUS = 1347& ' The validation information class requested was invalid. Const ERROR_BAD_VALIDATION_CLASS = 1348& ' The type of the token is inappropriate for its attempted use. Const ERROR_BAD_TOKEN_TYPE = 1349& ' Unable to perform a security operation on an object ' which has no associated security. Const ERROR_NO_SECURITY_ON_OBJECT = 1350& ' Indicates a Windows NT Advanced Server could not be contacted or that ' objects within the domain are protected such that necessary ' information could not be retrieved. Const ERROR_CANT_ACCESS_DOMAIN_INFO = 1351& ' The security account manager (SAM) or local security ' authority (LSA) server was in the wrong state to perform ' the security operation. Const ERROR_INVALID_SERVER_STATE = 1352& ' The domain was in the wrong state to perform the security operation. Const ERROR_INVALID_DOMAIN_STATE = 1353& ' This operation is only allowed for the Primary Domain Controller of the domain. Const ERROR_INVALID_DOMAIN_ROLE = 1354& ' The specified domain did not exist. Const ERROR_NO_SUCH_DOMAIN = 1355& ' The specified domain already exists. Const ERROR_DOMAIN_EXISTS = 1356& ' An attempt was made to exceed the limit on the number of domains per server. Const ERROR_DOMAIN_LIMIT_EXCEEDED = 1357& ' Unable to complete the requested operation because of either a ' catastrophic media failure or a data structure corruption on the disk. Const ERROR_INTERNAL_DB_CORRUPTION = 1358& ' The security account database contains an internal inconsistency. Const ERROR_INTERNAL_ERROR = 1359& ' Generic access types were contained in an access mask which should ' already be mapped to non-generic types. Const ERROR_GENERIC_NOT_MAPPED = 1360& ' A security descriptor is not in the right format (absolute or self-relative). Const ERROR_BAD_DESCRIPTOR_FORMAT = 1361& ' The requested action is restricted for use by logon processes ' only. The calling process has not registered as a logon process. Const ERROR_NOT_LOGON_PROCESS = 1362& ' Cannot start a new logon session with an ID that is already in use. Const ERROR_LOGON_SESSION_EXISTS = 1363& ' A specified authentication package is unknown. Const ERROR_NO_SUCH_PACKAGE = 1364& ' The logon session is not in a state that is consistent with the ' requested operation. Const ERROR_BAD_LOGON_SESSION_STATE = 1365& ' The logon session ID is already in use. Const ERROR_LOGON_SESSION_COLLISION = 1366& ' A logon request contained an invalid logon type value. Const ERROR_INVALID_LOGON_TYPE = 1367& ' Unable to impersonate via a named pipe until data has been read ' from that pipe. Const ERROR_CANNOT_IMPERSONATE = 1368& ' The transaction state of a Registry subtree is incompatible with the ' requested operation. Const ERROR_RXACT_INVALID_STATE = 1369& ' An internal security database corruption has been encountered. Const ERROR_RXACT_COMMIT_FAILURE = 1370& ' Cannot perform this operation on built-in accounts. Const ERROR_SPECIAL_ACCOUNT = 1371& ' Cannot perform this operation on this built-in special group. Const ERROR_SPECIAL_GROUP = 1372& ' Cannot perform this operation on this built-in special user. Const ERROR_SPECIAL_USER = 1373& ' The user cannot be removed from a group because the group ' is currently the user's primary group. Const ERROR_MEMBERS_PRIMARY_GROUP = 1374& ' The token is already in use as a primary token. Const ERROR_TOKEN_ALREADY_IN_USE = 1375& ' The specified local group does not exist. Const ERROR_NO_SUCH_ALIAS = 1376& ' The specified account name is not a member of the local group. Const ERROR_MEMBER_NOT_IN_ALIAS = 1377& ' The specified account name is already a member of the local group. Const ERROR_MEMBER_IN_ALIAS = 1378& ' The specified local group already exists. Const ERROR_ALIAS_EXISTS = 1379& ' Logon failure: the user has not been granted the requested ' logon type at this computer. Const ERROR_LOGON_NOT_GRANTED = 1380& ' The maximum number of secrets that may be stored in a single system has been ' exceeded. Const ERROR_TOO_MANY_SECRETS = 1381& ' The length of a secret exceeds the maximum length allowed. Const ERROR_SECRET_TOO_LONG = 1382& ' The local security authority database contains an internal inconsistency. Const ERROR_INTERNAL_DB_ERROR = 1383& ' During a logon attempt, the user's security context accumulated too many ' security IDs. Const ERROR_TOO_MANY_CONTEXT_IDS = 1384& ' Logon failure: the user has not been granted the requested logon type ' at this computer. Const ERROR_LOGON_TYPE_NOT_GRANTED = 1385& ' A cross-encrypted password is necessary to change a user password. Const ERROR_NT_CROSS_ENCRYPTION_REQUIRED = 1386& ' A new member could not be added to a local group because the member does ' not exist. Const ERROR_NO_SUCH_MEMBER = 1387& ' A new member could not be added to a local group because the member has the ' wrong account type. Const ERROR_INVALID_MEMBER = 1388& ' Too many security IDs have been specified. Const ERROR_TOO_MANY_SIDS = 1389& ' A cross-encrypted password is necessary to change this user password. Const ERROR_LM_CROSS_ENCRYPTION_REQUIRED = 1390& ' Indicates an ACL contains no inheritable components Const ERROR_NO_INHERITANCE = 1391& ' The file or directory is corrupt and non-readable. Const ERROR_FILE_CORRUPT = 1392& ' The disk structure is corrupt and non-readable. Const ERROR_DISK_CORRUPT = 1393& ' There is no user session key for the specified logon session. Const ERROR_NO_USER_SESSION_KEY = 1394& ' End of security error codes ' ///////////////////////// ' // ' WinUser Error Codes // ' // ' ///////////////////////// ' Invalid window handle. Const ERROR_INVALID_WINDOW_HANDLE = 1400& ' Invalid menu handle. Const ERROR_INVALID_MENU_HANDLE = 1401& ' Invalid cursor handle. Const ERROR_INVALID_CURSOR_HANDLE = 1402& ' Invalid accelerator table handle. Const ERROR_INVALID_ACCEL_HANDLE = 1403& ' Invalid hook handle. Const ERROR_INVALID_HOOK_HANDLE = 1404& ' Invalid handle to a multiple-window position structure. Const ERROR_INVALID_DWP_HANDLE = 1405& ' Cannot create a top-level child window. Const ERROR_TLW_WITH_WSCHILD = 1406& ' Cannot find window class. Const ERROR_CANNOT_FIND_WND_CLASS = 1407& ' Invalid window, belongs to other thread. Const ERROR_WINDOW_OF_OTHER_THREAD = 1408& ' Hot key is already registered. Const ERROR_HOTKEY_ALREADY_REGISTERED = 1409& ' Class already exists. Const ERROR_CLASS_ALREADY_EXISTS = 1410& ' Class does not exist. Const ERROR_CLASS_DOES_NOT_EXIST = 1411& ' Class still has open windows. Const ERROR_CLASS_HAS_WINDOWS = 1412& ' Invalid index. Const ERROR_INVALID_INDEX = 1413& ' Invalid icon handle. Const ERROR_INVALID_ICON_HANDLE = 1414& ' Using private DIALOG window words. Const ERROR_PRIVATE_DIALOG_INDEX = 1415& ' The listbox identifier was not found. Const ERROR_LISTBOX_ID_NOT_FOUND = 1416& ' No wildcards were found. Const ERROR_NO_WILDCARD_CHARACTERS = 1417& ' Thread does not have a clipboard open. Const ERROR_CLIPBOARD_NOT_OPEN = 1418& ' Hot key is not registered. Const ERROR_HOTKEY_NOT_REGISTERED = 1419& ' The window is not a valid dialog window. Const ERROR_WINDOW_NOT_DIALOG = 1420& ' Control ID not found. Const ERROR_CONTROL_ID_NOT_FOUND = 1421& ' Invalid message for a combo box because it does not have an edit control. Const ERROR_INVALID_COMBOBOX_MESSAGE = 1422& ' The window is not a combo box. Const ERROR_WINDOW_NOT_COMBOBOX = 1423& ' Height must be less than 256. Const ERROR_INVALID_EDIT_HEIGHT = 1424& ' Invalid device context (DC) handle. Const ERROR_DC_NOT_FOUND = 1425& ' Invalid hook procedure type. Const ERROR_INVALID_HOOK_FILTER = 1426& ' Invalid hook procedure. Const ERROR_INVALID_FILTER_PROC = 1427& ' Cannot set non-local hook without a module handle. Const ERROR_HOOK_NEEDS_HMOD = 1428& ' This hook procedure can only be set Globally. ' Const ERROR_PUBLIC_ONLY_HOOK = 1429& ' The journal hook procedure is already installed. Const ERROR_JOURNAL_HOOK_SET = 1430& ' The hook procedure is not installed. Const ERROR_HOOK_NOT_INSTALLED = 1431& ' Invalid message for single-selection listbox. Const ERROR_INVALID_LB_MESSAGE = 1432& ' LB_SETCOUNT sent to non-lazy listbox. Const ERROR_SETCOUNT_ON_BAD_LB = 1433& ' This list box does not support tab stops. Const ERROR_LB_WITHOUT_TABSTOPS = 1434& ' Cannot destroy object created by another thread. Const ERROR_DESTROY_OBJECT_OF_OTHER_THREAD = 1435& ' Child windows cannot have menus. Const ERROR_CHILD_WINDOW_MENU = 1436& ' The window does not have a system menu. Const ERROR_NO_SYSTEM_MENU = 1437& ' Invalid message box style. Const ERROR_INVALID_MSGBOX_STYLE = 1438& ' Invalid system-wide (SPI_) parameter. Const ERROR_INVALID_SPI_VALUE = 1439& ' Screen already locked. Const ERROR_SCREEN_ALREADY_LOCKED = 1440& ' All handles to windows in a multiple-window position structure must ' have the same parent. Const ERROR_HWNDS_HAVE_DIFF_PARENT = 1441& ' The window is not a child window. Const ERROR_NOT_CHILD_WINDOW = 1442& ' Invalid GW_ command. Const ERROR_INVALID_GW_COMMAND = 1443& ' Invalid thread identifier. Const ERROR_INVALID_THREAD_ID = 1444& ' Cannot process a message from a window that is not a multiple document ' interface (MDI) window. Const ERROR_NON_MDICHILD_WINDOW = 1445& ' Popup menu already active. Const ERROR_POPUP_ALREADY_ACTIVE = 1446& ' The window does not have scroll bars. Const ERROR_NO_SCROLLBARS = 1447& ' Scroll bar range cannot be greater than 0x7FFF. Const ERROR_INVALID_SCROLLBAR_RANGE = 1448& ' Cannot show or remove the window in the way specified. Const ERROR_INVALID_SHOWWIN_COMMAND = 1449& ' End of WinUser error codes ' ///////////////////////// ' // ' Eventlog Status Codes // ' // ' ///////////////////////// ' The event log file is corrupt. Const ERROR_EVENTLOG_FILE_CORRUPT = 1500& ' No event log file could be opened, so the event logging service did not start. Const ERROR_EVENTLOG_CANT_START = 1501& ' The event log file is full. Const ERROR_LOG_FILE_FULL = 1502& ' The event log file has changed between reads. Const ERROR_EVENTLOG_FILE_CHANGED = 1503& ' End of eventlog error codes ' ///////////////////////// ' // ' RPC Status Codes // ' // ' ///////////////////////// ' The string binding is invalid. Const RPC_S_INVALID_STRING_BINDING = 1700& ' The binding handle is not the correct type. Const RPC_S_WRONG_KIND_OF_BINDING = 1701& ' The binding handle is invalid. Const RPC_S_INVALID_BINDING = 1702& ' The RPC protocol sequence is not supported. Const RPC_S_PROTSEQ_NOT_SUPPORTED = 1703& ' The RPC protocol sequence is invalid. Const RPC_S_INVALID_RPC_PROTSEQ = 1704& ' The string universal unique identifier (UUID) is invalid. Const RPC_S_INVALID_STRING_UUID = 1705& ' The endpoint format is invalid. Const RPC_S_INVALID_ENDPOINT_FORMAT = 1706& ' The network address is invalid. Const RPC_S_INVALID_NET_ADDR = 1707& ' No endpoint was found. Const RPC_S_NO_ENDPOINT_FOUND = 1708& ' The timeout value is invalid. Const RPC_S_INVALID_TIMEOUT = 1709& ' The object universal unique identifier (UUID) was not found. Const RPC_S_OBJECT_NOT_FOUND = 1710& ' The object universal unique identifier (UUID) has already been registered. Const RPC_S_ALREADY_REGISTERED = 1711& ' The type universal unique identifier (UUID) has already been registered. Const RPC_S_TYPE_ALREADY_REGISTERED = 1712& ' The RPC server is already listening. Const RPC_S_ALREADY_LISTENING = 1713& ' No protocol sequences have been registered. Const RPC_S_NO_PROTSEQS_REGISTERED = 1714& ' The RPC server is not listening. Const RPC_S_NOT_LISTENING = 1715& ' The manager type is unknown. Const RPC_S_UNKNOWN_MGR_TYPE = 1716& ' The interface is unknown. Const RPC_S_UNKNOWN_IF = 1717& ' There are no bindings. Const RPC_S_NO_BINDINGS = 1718& ' There are no protocol sequences. Const RPC_S_NO_PROTSEQS = 1719& ' The endpoint cannot be created. Const RPC_S_CANT_CREATE_ENDPOINT = 1720& ' Not enough resources are available to complete this operation. Const RPC_S_OUT_OF_RESOURCES = 1721& ' The RPC server is unavailable. Const RPC_S_SERVER_UNAVAILABLE = 1722& ' The RPC server is too busy to complete this operation. Const RPC_S_SERVER_TOO_BUSY = 1723& ' The network options are invalid. Const RPC_S_INVALID_NETWORK_OPTIONS = 1724& ' There is not a remote procedure call active in this thread. Const RPC_S_NO_CALL_ACTIVE = 1725& ' The remote procedure call failed. Const RPC_S_CALL_FAILED = 1726& ' The remote procedure call failed and did not execute. Const RPC_S_CALL_FAILED_DNE = 1727& ' A remote procedure call (RPC) protocol error occurred. Const RPC_S_PROTOCOL_ERROR = 1728& ' The transfer syntax is not supported by the RPC server. Const RPC_S_UNSUPPORTED_TRANS_SYN = 1730& ' The universal unique identifier (UUID) type is not supported. Const RPC_S_UNSUPPORTED_TYPE = 1732& ' The tag is invalid. Const RPC_S_INVALID_TAG = 1733& ' The array bounds are invalid. Const RPC_S_INVALID_BOUND = 1734& ' The binding does not contain an entry name. Const RPC_S_NO_ENTRY_NAME = 1735& ' The name syntax is invalid. Const RPC_S_INVALID_NAME_SYNTAX = 1736& ' The name syntax is not supported. Const RPC_S_UNSUPPORTED_NAME_SYNTAX = 1737& ' No network address is available to use to construct a universal ' unique identifier (UUID). Const RPC_S_UUID_NO_ADDRESS = 1739& ' The endpoint is a duplicate. Const RPC_S_DUPLICATE_ENDPOINT = 1740& ' The authentication type is unknown. Const RPC_S_UNKNOWN_AUTHN_TYPE = 1741& ' The maximum number of calls is too small. Const RPC_S_MAX_CALLS_TOO_SMALL = 1742& ' The string is too long. Const RPC_S_STRING_TOO_LONG = 1743& ' The RPC protocol sequence was not found. Const RPC_S_PROTSEQ_NOT_FOUND = 1744& ' The procedure number is out of range. Const RPC_S_PROCNUM_OUT_OF_RANGE = 1745& ' The binding does not contain any authentication information. Const RPC_S_BINDING_HAS_NO_AUTH = 1746& ' The authentication service is unknown. Const RPC_S_UNKNOWN_AUTHN_SERVICE = 1747& ' The authentication level is unknown. Const RPC_S_UNKNOWN_AUTHN_LEVEL = 1748& ' The security context is invalid. Const RPC_S_INVALID_AUTH_IDENTITY = 1749& ' The authorization service is unknown. Const RPC_S_UNKNOWN_AUTHZ_SERVICE = 1750& ' The entry is invalid. Const EPT_S_INVALID_ENTRY = 1751& ' The server endpoint cannot perform the operation. Const EPT_S_CANT_PERFORM_OP = 1752& ' There are no more endpoints available from the endpoint mapper. Const EPT_S_NOT_REGISTERED = 1753& ' No interfaces have been exported. Const RPC_S_NOTHING_TO_EXPORT = 1754& ' The entry name is incomplete. Const RPC_S_INCOMPLETE_NAME = 1755& ' The version option is invalid. Const RPC_S_INVALID_VERS_OPTION = 1756& ' There are no more members. Const RPC_S_NO_MORE_MEMBERS = 1757& ' There is nothing to unexport. Const RPC_S_NOT_ALL_OBJS_UNEXPORTED = 1758& ' The interface was not found. Const RPC_S_INTERFACE_NOT_FOUND = 1759& ' The entry already exists. Const RPC_S_ENTRY_ALREADY_EXISTS = 1760& ' The entry is not found. Const RPC_S_ENTRY_NOT_FOUND = 1761& ' The name service is unavailable. Const RPC_S_NAME_SERVICE_UNAVAILABLE = 1762& ' The network address family is invalid. Const RPC_S_INVALID_NAF_ID = 1763& ' The requested operation is not supported. Const RPC_S_CANNOT_SUPPORT = 1764& ' No security context is available to allow impersonation. Const RPC_S_NO_CONTEXT_AVAILABLE = 1765& ' An internal error occurred in a remote procedure call (RPC). Const RPC_S_INTERNAL_ERROR = 1766& ' The RPC server attempted an integer division by zero.' Const RPC_S_ZERO_DIVIDE = 1767& ' An addressing error occurred in the RPC server. Const RPC_S_ADDRESS_ERROR = 1768& ' A floating-point operation at the RPC server caused a division by zero. Const RPC_S_FP_DIV_ZERO = 1769& ' A floating-point underflow occurred at the RPC server. Const RPC_S_FP_UNDERFLOW = 1770& ' A floating-point overflow occurred at the RPC server. Const RPC_S_FP_OVERFLOW = 1771& ' The list of RPC servers available for the binding of auto handles ' has been exhausted. Const RPC_X_NO_MORE_ENTRIES = 1772& ' Unable to open the character translation table file. Const RPC_X_SS_CHAR_TRANS_OPEN_FAIL = 1773& ' The file containing the character translation table has fewer than ' 512 bytes. Const RPC_X_SS_CHAR_TRANS_SHORT_FILE = 1774& ' A null context handle was passed from the client to the host during ' a remote procedure call. Const RPC_X_SS_IN_NULL_CONTEXT = 1775& ' The context handle changed during a remote procedure call. Const RPC_X_SS_CONTEXT_DAMAGED = 1777& ' The binding handles passed to a remote procedure call do not match. Const RPC_X_SS_HANDLES_MISMATCH = 1778& ' The stub is unable to get the remote procedure call handle. Const RPC_X_SS_CANNOT_GET_CALL_HANDLE = 1779& ' A null reference pointer was passed to the stub. Const RPC_X_NULL_REF_POINTER = 1780& ' The enumeration value is out of range. Const RPC_X_ENUM_VALUE_OUT_OF_RANGE = 1781& ' The byte count is too small. Const RPC_X_BYTE_COUNT_TOO_SMALL = 1782& ' The stub received bad data. Const RPC_X_BAD_STUB_DATA = 1783& ' The supplied user buffer is not valid for the requested operation. Const ERROR_INVALID_USER_BUFFER = 1784& ' The disk media is not recognized. It may not be formatted. Const ERROR_UNRECOGNIZED_MEDIA = 1785& ' The workstation does not have a trust secret. Const ERROR_NO_TRUST_LSA_SECRET = 1786& ' The SAM database on the Windows NT Advanced Server does not have a computer ' account for this workstation trust relationship. Const ERROR_NO_TRUST_SAM_ACCOUNT = 1787& ' The trust relationship between the primary domain and the trusted ' domain failed. Const ERROR_TRUSTED_DOMAIN_FAILURE = 1788& ' The trust relationship between this workstation and the primary ' domain failed. Const ERROR_TRUSTED_RELATIONSHIP_FAILURE = 1789& ' The network logon failed. Const ERROR_TRUST_FAILURE = 1790& ' A remote procedure call is already in progress for this thread. Const RPC_S_CALL_IN_PROGRESS = 1791& ' An attempt was made to logon, but the network logon service was not started. Const ERROR_NETLOGON_NOT_STARTED = 1792& ' The user's account has expired. Const ERROR_ACCOUNT_EXPIRED = 1793& ' The redirector is in use and cannot be unloaded. Const ERROR_REDIRECTOR_HAS_OPEN_HANDLES = 1794& ' The specified printer driver is already installed. Const ERROR_PRINTER_DRIVER_ALREADY_INSTALLED = 1795& ' The specified port is unknown. Const ERROR_UNKNOWN_PORT = 1796& ' The printer driver is unknown. Const ERROR_UNKNOWN_PRINTER_DRIVER = 1797& ' The print processor is unknown. ' Const ERROR_UNKNOWN_PRINTPROCESSOR = 1798& ' The specified separator file is invalid. Const ERROR_INVALID_SEPARATOR_FILE = 1799& ' The specified priority is invalid. Const ERROR_INVALID_PRIORITY = 1800& ' The printer name is invalid. Const ERROR_INVALID_PRINTER_NAME = 1801& ' The printer already exists. Const ERROR_PRINTER_ALREADY_EXISTS = 1802& ' The printer command is invalid. Const ERROR_INVALID_PRINTER_COMMAND = 1803& ' The specified datatype is invalid. Const ERROR_INVALID_DATATYPE = 1804& ' The Environment specified is invalid. Const ERROR_INVALID_ENVIRONMENT = 1805& ' There are no more bindings. Const RPC_S_NO_MORE_BINDINGS = 1806& ' The account used is an interdomain trust account. Use your Global user account or local user account to access this server. Const ERROR_NOLOGON_INTERDOMAIN_TRUST_ACCOUNT = 1807& ' The account used is a Computer Account. Use your Global user account or local user account to access this server. Const ERROR_NOLOGON_WORKSTATION_TRUST_ACCOUNT = 1808& ' The account used is an server trust account. Use your Global user account or local user account to access this server. Const ERROR_NOLOGON_SERVER_TRUST_ACCOUNT = 1809& ' The name or security ID (SID) of the domain specified is inconsistent ' with the trust information for that domain. Const ERROR_DOMAIN_TRUST_INCONSISTENT = 1810& ' The server is in use and cannot be unloaded. Const ERROR_SERVER_HAS_OPEN_HANDLES = 1811& ' The specified image file did not contain a resource section. Const ERROR_RESOURCE_DATA_NOT_FOUND = 1812& ' The specified resource type can not be found in the image file. Const ERROR_RESOURCE_TYPE_NOT_FOUND = 1813& ' The specified resource name can not be found in the image file. Const ERROR_RESOURCE_NAME_NOT_FOUND = 1814& ' The specified resource language ID cannot be found in the image file. Const ERROR_RESOURCE_LANG_NOT_FOUND = 1815& ' Not enough quota is available to process this command. Const ERROR_NOT_ENOUGH_QUOTA = 1816& ' The group member was not found. Const RPC_S_GROUP_MEMBER_NOT_FOUND = 1898& ' The endpoint mapper database could not be created. Const EPT_S_CANT_CREATE = 1899& ' The object universal unique identifier (UUID) is the nil UUID. Const RPC_S_INVALID_OBJECT = 1900& ' The specified time is invalid. Const ERROR_INVALID_TIME = 1901& ' The specified Form name is invalid. Const ERROR_INVALID_FORM_NAME = 1902& ' The specified Form size is invalid Const ERROR_INVALID_FORM_SIZE = 1903& ' The specified Printer handle is already being waited on Const ERROR_ALREADY_WAITING = 1904& ' The specified Printer has been deleted Const ERROR_PRINTER_DELETED = 1905& ' The state of the Printer is invalid Const ERROR_INVALID_PRINTER_STATE = 1906& ' The list of servers for this workgroup is not currently available Const ERROR_NO_BROWSER_SERVERS_FOUND = 6118& ' ------------------------- ' MMSystem Section ' ------------------------- ' This section defines all the support for Multimedia applications ' general constants Const MAXPNAMELEN = 32 ' max product name length (including NULL) Const MAXERRORLENGTH = 128 ' max error text length (including final NULL) Type smpte hour As Byte min As Byte sec As Byte frame As Byte fps As Byte dummy As Byte pad(2) As Byte End Type Type midi songptrpos As Long End Type Type MMTIME wType As Long u As Long End Type ' values for wType field in MMTIME struct Const TIME_MS = &H1 ' time in Milliseconds Const TIME_SAMPLES = &H2 ' number of wave samples Const TIME_BYTES = &H4 ' current byte offset Const TIME_SMPTE = &H8 ' SMPTE time Const TIME_MIDI = &H10 ' MIDI time ' Multimedia Window Messages Const MM_JOY1MOVE = &H3A0 ' joystick Const MM_JOY2MOVE = &H3A1 Const MM_JOY1ZMOVE = &H3A2 Const MM_JOY2ZMOVE = &H3A3 Const MM_JOY1BUTTONDOWN = &H3B5 Const MM_JOY2BUTTONDOWN = &H3B6 Const MM_JOY1BUTTONUP = &H3B7 Const MM_JOY2BUTTONUP = &H3B8 Const MM_MCINOTIFY = &H3B9 ' MCI Const MM_MCISYSTEM_STRING = &H3CA Const MM_WOM_OPEN = &H3BB ' waveform output Const MM_WOM_CLOSE = &H3BC Const MM_WOM_DONE = &H3BD Const MM_WIM_OPEN = &H3BE ' waveform input Const MM_WIM_CLOSE = &H3BF Const MM_WIM_DATA = &H3C0 Const MM_MIM_OPEN = &H3C1 ' MIDI input Const MM_MIM_CLOSE = &H3C2 Const MM_MIM_DATA = &H3C3 Const MM_MIM_LONGDATA = &H3C4 Const MM_MIM_ERROR = &H3C5 Const MM_MIM_LONGERROR = &H3C6 Const MM_MOM_OPEN = &H3C7 ' MIDI output Const MM_MOM_CLOSE = &H3C8 Const MM_MOM_DONE = &H3C9 ' String resource number bases (internal use) Const MMSYSERR_BASE = 0 Const WAVERR_BASE = 32 Const MIDIERR_BASE = 64 Const TIMERR_BASE = 96 ' was 128, changed to match Win 31 Sonic Const JOYERR_BASE = 160 Const MCIERR_BASE = 256 Const MCI_STRING_OFFSET = 512 ' if this number is changed you MUST ' alter the MCI_DEVTYPE_... list below Const MCI_VD_OFFSET = 1024 Const MCI_CD_OFFSET = 1088 Const MCI_WAVE_OFFSET = 1152 Const MCI_SEQ_OFFSET = 1216 ' General error return values Const MMSYSERR_NOERROR = 0 ' no error Const MMSYSERR_ERROR = (MMSYSERR_BASE + 1) ' unspecified error Const MMSYSERR_BADDEVICEID = (MMSYSERR_BASE + 2) ' device ID out of range Const MMSYSERR_NOTENABLED = (MMSYSERR_BASE + 3) ' driver failed enable Const MMSYSERR_ALLOCATED = (MMSYSERR_BASE + 4) ' device already allocated Const MMSYSERR_INVALHANDLE = (MMSYSERR_BASE + 5) ' device handle is invalid Const MMSYSERR_NODRIVER = (MMSYSERR_BASE + 6) ' no device driver present Const MMSYSERR_NOMEM = (MMSYSERR_BASE + 7) ' memory allocation error Const MMSYSERR_NOTSUPPORTED = (MMSYSERR_BASE + 8) ' function isn't supported Const MMSYSERR_BADERRNUM = (MMSYSERR_BASE + 9) ' error value out of range Const MMSYSERR_INVALFLAG = (MMSYSERR_BASE + 10) ' invalid flag passed Const MMSYSERR_INVALPARAM = (MMSYSERR_BASE + 11) ' invalid parameter passed Const MMSYSERR_HANDLEBUSY = (MMSYSERR_BASE + 12) ' handle being used ' simultaneously on another ' thread (eg callback) Const MMSYSERR_INVALIDALIAS = (MMSYSERR_BASE + 13) ' "Specified alias not found in WIN.INI Const MMSYSERR_LASTERROR = (MMSYSERR_BASE + 13) ' last error in range Const MM_MOM_POSITIONCB = &H3CA ' Callback for MEVT_POSITIONCB Const MM_MCISIGNAL = &H3CB Const MM_MIM_MOREDATA = &H3CC ' MIM_DONE w/ pending events Const MIDICAPS_STREAM = &H8 ' driver supports midiStreamOut directly Type MIDIEVENT dwDeltaTime As Long ' Ticks since last event dwStreamID As Long ' Reserved; must be zero dwEvent As Long ' Event type and parameters dwParms(1) As Long ' Parameters if this is a long event End Type Type MIDISTRMBUFFVER dwVersion As Long ' Stream buffer format version dwMid As Long ' Manufacturer ID as defined in MMREG.H dwOEMVersion As Long ' Manufacturer version for custom ext End Type ' Type codes which go in the high byte of the event DWORD of a stream buffer ' Type codes 00-7F contain parameters within the low 24 bits ' Type codes 80-FF contain a length of their parameter in the low 24 ' bits, followed by their parameter data in the buffer. The event ' DWORD contains the exact byte length; the parm data itself must be ' padded to be an even multiple of 4 Byte long. ' Const MEVT_F_SHORT = &H0& Const MEVT_F_LONG = &H80000000 Const MEVT_F_CALLBACK = &H40000000 Const MIDISTRM_ERROR = -2 ' ' Structures and defines for midiStreamProperty ' Const MIDIPROP_SET = &H80000000 Const MIDIPROP_GET = &H40000000 ' These are intentionally both non-zero so the app cannot accidentally ' leave the operation off and happen to appear to work due to default ' action. Const MIDIPROP_TIMEDIV = &H1& Const MIDIPROP_TEMPO = &H2& Type MIDIPROPTIMEDIV cbStruct As Long dwTimeDiv As Long End Type Type MIDIPROPTEMPO cbStruct As Long dwTempo As Long End Type ' MIDI function prototypes * ' *************************************************************************** ' Mixer Support ' ************************************************************************** Const MIXER_SHORT_NAME_CHARS = 16 Const MIXER_LONG_NAME_CHARS = 64 ' ' MMRESULT error return values specific to the mixer API ' ' Const MIXERR_BASE = 1024 Const MIXERR_INVALLINE = (MIXERR_BASE + 0) Const MIXERR_INVALCONTROL = (MIXERR_BASE + 1) Const MIXERR_INVALVALUE = (MIXERR_BASE + 2) Const MIXERR_LASTERROR = (MIXERR_BASE + 2) Const MIXER_OBJECTF_HANDLE = &H80000000 Const MIXER_OBJECTF_MIXER = &H0& Const MIXER_OBJECTF_HMIXER = (MIXER_OBJECTF_HANDLE Or MIXER_OBJECTF_MIXER) Const MIXER_OBJECTF_WAVEOUT = &H10000000 Const MIXER_OBJECTF_HWAVEOUT = (MIXER_OBJECTF_HANDLE Or MIXER_OBJECTF_WAVEOUT) Const MIXER_OBJECTF_WAVEIN = &H20000000 Const MIXER_OBJECTF_HWAVEIN = (MIXER_OBJECTF_HANDLE Or MIXER_OBJECTF_WAVEIN) Const MIXER_OBJECTF_MIDIOUT = &H30000000 Const MIXER_OBJECTF_HMIDIOUT = (MIXER_OBJECTF_HANDLE Or MIXER_OBJECTF_MIDIOUT) Const MIXER_OBJECTF_MIDIIN = &H40000000 Const MIXER_OBJECTF_HMIDIIN = (MIXER_OBJECTF_HANDLE Or MIXER_OBJECTF_MIDIIN) Const MIXER_OBJECTF_AUX = &H50000000 Declare Function mixerGetNumDevs Lib "winmm.dll" Alias "mixerGetNumDevs" () As Long Type MIXERCAPS wMid As Integer ' manufacturer id wPid As Integer ' product id vDriverVersion As Long ' version of the driver szPname As String * MAXPNAMELEN ' product name fdwSupport As Long ' misc. support bits cDestinations As Long ' count of destinations End Type Declare Function mixerGetDevCaps Lib "winmm.dll" Alias "mixerGetDevCapsA" (ByVal uMxId As Long, ByVal pmxcaps As MIXERCAPS, ByVal cbmxcaps As Long) As Long Declare Function mixerOpen Lib "winmm.dll" Alias "mixerOpen" (phmx As Long, ByVal uMxId As Long, ByVal dwCallback As Long, ByVal dwInstance As Long, ByVal fdwOpen As Long) As Long Declare Function mixerClose Lib "winmm.dll" Alias "mixerClose" (ByVal hmx As Long) As Long Declare Function mixerMessage Lib "winmm.dll" Alias "mixerMessage" (ByVal hmx As Long, ByVal uMsg As Long, ByVal dwParam1 As Long, ByVal dwParam2 As Long) As Long Type Target ' for use in MIXERLINE and others (embedded structure) dwType As Long ' MIXERLINE_TARGETTYPE_xxxx dwDeviceID As Long ' target device ID of device type wMid As Integer ' of target device wPid As Integer ' " vDriverVersion As Long ' " szPname As String * MAXPNAMELEN End Type Type MIXERLINE cbStruct As Long ' size of MIXERLINE structure dwDestination As Long ' zero based destination index dwSource As Long ' zero based source index (if source) dwLineID As Long ' unique line id for mixer device fdwLine As Long ' state/information about line dwUser As Long ' driver specific information dwComponentType As Long ' component type line connects to cChannels As Long ' number of channels line supports cConnections As Long ' number of connections (possible) cControls As Long ' number of controls at this line szShortName As String * MIXER_SHORT_NAME_CHARS szName As String * MIXER_LONG_NAME_CHARS tTarget As Target End Type ' MIXERLINE.fdwLine Const MIXERLINE_LINEF_ACTIVE = &H1& Const MIXERLINE_LINEF_DISCONNECTED = &H8000& Const MIXERLINE_LINEF_SOURCE = &H80000000 ' MIXERLINE.dwComponentType ' component types for destinations and sources Const MIXERLINE_COMPONENTTYPE_DST_FIRST = &H0& Const MIXERLINE_COMPONENTTYPE_DST_UNDEFINED = (MIXERLINE_COMPONENTTYPE_DST_FIRST + 0) Const MIXERLINE_COMPONENTTYPE_DST_DIGITAL = (MIXERLINE_COMPONENTTYPE_DST_FIRST + 1) Const MIXERLINE_COMPONENTTYPE_DST_LINE = (MIXERLINE_COMPONENTTYPE_DST_FIRST + 2) Const MIXERLINE_COMPONENTTYPE_DST_MONITOR = (MIXERLINE_COMPONENTTYPE_DST_FIRST + 3) Const MIXERLINE_COMPONENTTYPE_DST_SPEAKERS = (MIXERLINE_COMPONENTTYPE_DST_FIRST + 4) Const MIXERLINE_COMPONENTTYPE_DST_HEADPHONES = (MIXERLINE_COMPONENTTYPE_DST_FIRST + 5) Const MIXERLINE_COMPONENTTYPE_DST_TELEPHONE = (MIXERLINE_COMPONENTTYPE_DST_FIRST + 6) Const MIXERLINE_COMPONENTTYPE_DST_WAVEIN = (MIXERLINE_COMPONENTTYPE_DST_FIRST + 7) Const MIXERLINE_COMPONENTTYPE_DST_VOICEIN = (MIXERLINE_COMPONENTTYPE_DST_FIRST + 8) Const MIXERLINE_COMPONENTTYPE_DST_LAST = (MIXERLINE_COMPONENTTYPE_DST_FIRST + 8) Const MIXERLINE_COMPONENTTYPE_SRC_FIRST = &H1000& Const MIXERLINE_COMPONENTTYPE_SRC_UNDEFINED = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 0) Const MIXERLINE_COMPONENTTYPE_SRC_DIGITAL = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 1) Const MIXERLINE_COMPONENTTYPE_SRC_LINE = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 2) Const MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 3) Const MIXERLINE_COMPONENTTYPE_SRC_SYNTHESIZER = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 4) Const MIXERLINE_COMPONENTTYPE_SRC_COMPACTDISC = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 5) Const MIXERLINE_COMPONENTTYPE_SRC_TELEPHONE = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 6) Const MIXERLINE_COMPONENTTYPE_SRC_PCSPEAKER = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 7) Const MIXERLINE_COMPONENTTYPE_SRC_WAVEOUT = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 8) Const MIXERLINE_COMPONENTTYPE_SRC_AUXILIARY = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 9) Const MIXERLINE_COMPONENTTYPE_SRC_ANALOG = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 10) Const MIXERLINE_COMPONENTTYPE_SRC_LAST = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 10) ' ' MIXERLINE.Target.dwType ' ' Const MIXERLINE_TARGETTYPE_UNDEFINED = 0 Const MIXERLINE_TARGETTYPE_WAVEOUT = 1 Const MIXERLINE_TARGETTYPE_WAVEIN = 2 Const MIXERLINE_TARGETTYPE_MIDIOUT = 3 Const MIXERLINE_TARGETTYPE_MIDIIN = 4 Const MIXERLINE_TARGETTYPE_AUX = 5 Declare Function mixerGetLineInfo Lib "winmm.dll" Alias "mixerGetLineInfoA" (ByVal hmxobj As Long, pmxl As MIXERLINE, ByVal fdwInfo As Long) As Long Const MIXER_GETLINEINFOF_DESTINATION = &H0& Const MIXER_GETLINEINFOF_SOURCE = &H1& Const MIXER_GETLINEINFOF_LINEID = &H2& Const MIXER_GETLINEINFOF_COMPONENTTYPE = &H3& Const MIXER_GETLINEINFOF_TARGETTYPE = &H4& Const MIXER_GETLINEINFOF_QUERYMASK = &HF& Declare Function mixerGetID Lib "winmm.dll" Alias "mixerGetID" (ByVal hmxobj As Long, pumxID As Long, ByVal fdwId As Long) As Long ' MIXERCONTROL Type MIXERCONTROL cbStruct As Long ' size in Byte of MIXERCONTROL dwControlID As Long ' unique control id for mixer device dwControlType As Long ' MIXERCONTROL_CONTROLTYPE_xxx fdwControl As Long ' MIXERCONTROL_CONTROLF_xxx cMultipleItems As Long ' if MIXERCONTROL_CONTROLF_MULTIPLE set szShortName As String * MIXER_SHORT_NAME_CHARS szName As String * MIXER_LONG_NAME_CHARS Bounds(1 To 6) As Long ' Longest member of the Bounds union Metrics(1 To 6) As Long ' Longest member of the Metrics union End Type ' ' MIXERCONTROL.fdwControl Const MIXERCONTROL_CONTROLF_UNIFORM = &H1& Const MIXERCONTROL_CONTROLF_MULTIPLE = &H2& Const MIXERCONTROL_CONTROLF_DISABLED = &H80000000 ' MIXERCONTROL_CONTROLTYPE_xxx building block defines Const MIXERCONTROL_CT_CLASS_MASK = &HF0000000 Const MIXERCONTROL_CT_CLASS_CUSTOM = &H0& Const MIXERCONTROL_CT_CLASS_METER = &H10000000 Const MIXERCONTROL_CT_CLASS_SWITCH = &H20000000 Const MIXERCONTROL_CT_CLASS_NUMBER = &H30000000 Const MIXERCONTROL_CT_CLASS_SLIDER = &H40000000 Const MIXERCONTROL_CT_CLASS_FADER = &H50000000 Const MIXERCONTROL_CT_CLASS_TIME = &H60000000 Const MIXERCONTROL_CT_CLASS_LIST = &H70000000 Const MIXERCONTROL_CT_SUBCLASS_MASK = &HF000000 Const MIXERCONTROL_CT_SC_SWITCH_BOOLEAN = &H0& Const MIXERCONTROL_CT_SC_SWITCH_BUTTON = &H1000000 Const MIXERCONTROL_CT_SC_METER_POLLED = &H0& Const MIXERCONTROL_CT_SC_TIME_MICROSECS = &H0& Const MIXERCONTROL_CT_SC_TIME_MILLISECS = &H1000000 Const MIXERCONTROL_CT_SC_LIST_SINGLE = &H0& Const MIXERCONTROL_CT_SC_LIST_MULTIPLE = &H1000000 Const MIXERCONTROL_CT_UNITS_MASK = &HFF0000 Const MIXERCONTROL_CT_UNITS_CUSTOM = &H0& Const MIXERCONTROL_CT_UNITS_BOOLEAN = &H10000 Const MIXERCONTROL_CT_UNITS_SIGNED = &H20000 Const MIXERCONTROL_CT_UNITS_UNSIGNED = &H30000 Const MIXERCONTROL_CT_UNITS_DECIBELS = &H40000 ' in 10ths Const MIXERCONTROL_CT_UNITS_PERCENT = &H50000 ' in 10ths ' ' Commonly used control types for specifying MIXERCONTROL.dwControlType ' Const MIXERCONTROL_CONTROLTYPE_CUSTOM = (MIXERCONTROL_CT_CLASS_CUSTOM Or MIXERCONTROL_CT_UNITS_CUSTOM) Const MIXERCONTROL_CONTROLTYPE_BOOLEANMETER = (MIXERCONTROL_CT_CLASS_METER Or MIXERCONTROL_CT_SC_METER_POLLED Or MIXERCONTROL_CT_UNITS_BOOLEAN) Const MIXERCONTROL_CONTROLTYPE_SIGNEDMETER = (MIXERCONTROL_CT_CLASS_METER Or MIXERCONTROL_CT_SC_METER_POLLED Or MIXERCONTROL_CT_UNITS_SIGNED) Const MIXERCONTROL_CONTROLTYPE_PEAKMETER = (MIXERCONTROL_CONTROLTYPE_SIGNEDMETER + 1) Const MIXERCONTROL_CONTROLTYPE_UNSIGNEDMETER = (MIXERCONTROL_CT_CLASS_METER Or MIXERCONTROL_CT_SC_METER_POLLED Or MIXERCONTROL_CT_UNITS_UNSIGNED) Const MIXERCONTROL_CONTROLTYPE_BOOLEAN = (MIXERCONTROL_CT_CLASS_SWITCH Or MIXERCONTROL_CT_SC_SWITCH_BOOLEAN Or MIXERCONTROL_CT_UNITS_BOOLEAN) Const MIXERCONTROL_CONTROLTYPE_ONOFF = (MIXERCONTROL_CONTROLTYPE_BOOLEAN + 1) Const MIXERCONTROL_CONTROLTYPE_MUTE = (MIXERCONTROL_CONTROLTYPE_BOOLEAN + 2) Const MIXERCONTROL_CONTROLTYPE_MONO = (MIXERCONTROL_CONTROLTYPE_BOOLEAN + 3) Const MIXERCONTROL_CONTROLTYPE_LOUDNESS = (MIXERCONTROL_CONTROLTYPE_BOOLEAN + 4) Const MIXERCONTROL_CONTROLTYPE_STEREOENH = (MIXERCONTROL_CONTROLTYPE_BOOLEAN + 5) Const MIXERCONTROL_CONTROLTYPE_BUTTON = (MIXERCONTROL_CT_CLASS_SWITCH Or MIXERCONTROL_CT_SC_SWITCH_BUTTON Or MIXERCONTROL_CT_UNITS_BOOLEAN) Const MIXERCONTROL_CONTROLTYPE_DECIBELS = (MIXERCONTROL_CT_CLASS_NUMBER Or MIXERCONTROL_CT_UNITS_DECIBELS) Const MIXERCONTROL_CONTROLTYPE_SIGNED = (MIXERCONTROL_CT_CLASS_NUMBER Or MIXERCONTROL_CT_UNITS_SIGNED) Const MIXERCONTROL_CONTROLTYPE_UNSIGNED = (MIXERCONTROL_CT_CLASS_NUMBER Or MIXERCONTROL_CT_UNITS_UNSIGNED) Const MIXERCONTROL_CONTROLTYPE_PERCENT = (MIXERCONTROL_CT_CLASS_NUMBER Or MIXERCONTROL_CT_UNITS_PERCENT) Const MIXERCONTROL_CONTROLTYPE_SLIDER = (MIXERCONTROL_CT_CLASS_SLIDER Or MIXERCONTROL_CT_UNITS_SIGNED) Const MIXERCONTROL_CONTROLTYPE_PAN = (MIXERCONTROL_CONTROLTYPE_SLIDER + 1) Const MIXERCONTROL_CONTROLTYPE_QSOUNDPAN = (MIXERCONTROL_CONTROLTYPE_SLIDER + 2) Const MIXERCONTROL_CONTROLTYPE_FADER = (MIXERCONTROL_CT_CLASS_FADER Or MIXERCONTROL_CT_UNITS_UNSIGNED) Const MIXERCONTROL_CONTROLTYPE_VOLUME = (MIXERCONTROL_CONTROLTYPE_FADER + 1) Const MIXERCONTROL_CONTROLTYPE_BASS = (MIXERCONTROL_CONTROLTYPE_FADER + 2) Const MIXERCONTROL_CONTROLTYPE_TREBLE = (MIXERCONTROL_CONTROLTYPE_FADER + 3) Const MIXERCONTROL_CONTROLTYPE_EQUALIZER = (MIXERCONTROL_CONTROLTYPE_FADER + 4) Const MIXERCONTROL_CONTROLTYPE_SINGLESELECT = (MIXERCONTROL_CT_CLASS_LIST Or MIXERCONTROL_CT_SC_LIST_SINGLE Or MIXERCONTROL_CT_UNITS_BOOLEAN) Const MIXERCONTROL_CONTROLTYPE_MUX = (MIXERCONTROL_CONTROLTYPE_SINGLESELECT + 1) Const MIXERCONTROL_CONTROLTYPE_MULTIPLESELECT = (MIXERCONTROL_CT_CLASS_LIST Or MIXERCONTROL_CT_SC_LIST_MULTIPLE Or MIXERCONTROL_CT_UNITS_BOOLEAN) Const MIXERCONTROL_CONTROLTYPE_MIXER = (MIXERCONTROL_CONTROLTYPE_MULTIPLESELECT + 1) Const MIXERCONTROL_CONTROLTYPE_MICROTIME = (MIXERCONTROL_CT_CLASS_TIME Or MIXERCONTROL_CT_SC_TIME_MICROSECS Or MIXERCONTROL_CT_UNITS_UNSIGNED) Const MIXERCONTROL_CONTROLTYPE_MILLITIME = (MIXERCONTROL_CT_CLASS_TIME Or MIXERCONTROL_CT_SC_TIME_MILLISECS Or MIXERCONTROL_CT_UNITS_UNSIGNED) ' ' MIXERLINECONTROLS ' Type MIXERLINECONTROLS cbStruct As Long ' size in Byte of MIXERLINECONTROLS dwLineID As Long ' line id (from MIXERLINE.dwLineID) ' MIXER_GETLINECONTROLSF_ONEBYID or dwControl As Long ' MIXER_GETLINECONTROLSF_ONEBYTYPE cControls As Long ' count of controls pmxctrl points to cbmxctrl As Long ' size in Byte of _one_ MIXERCONTROL pamxctrl As MIXERCONTROL ' pointer to first MIXERCONTROL array End Type Declare Function mixerGetLineControls Lib "winmm.dll" Alias "mixerGetLineControlsA" (ByVal hmxobj As Long, pmxlc As MIXERLINECONTROLS, ByVal fdwControls As Long) As Long Const MIXER_GETLINECONTROLSF_ALL = &H0& Const MIXER_GETLINECONTROLSF_ONEBYID = &H1& Const MIXER_GETLINECONTROLSF_ONEBYTYPE = &H2& Const MIXER_GETLINECONTROLSF_QUERYMASK = &HF& Type MIXERCONTROLDETAILS cbStruct As Long ' size in Byte of MIXERCONTROLDETAILS dwControlID As Long ' control id to get/set details on cChannels As Long ' number of channels in paDetails array item As Long ' hwndOwner or cMultipleItems cbDetails As Long ' size of _one_ details_XX struct paDetails As Long ' pointer to array of details_XX structs End Type ' MIXER_GETCONTROLDETAILSF_LISTTEXT Type MIXERCONTROLDETAILS_LISTTEXT dwParam1 As Long dwParam2 As Long szName As String * MIXER_LONG_NAME_CHARS End Type ' MIXER_GETCONTROLDETAILSF_VALUE Type MIXERCONTROLDETAILS_BOOLEAN fValue As Long End Type Type MIXERCONTROLDETAILS_SIGNED lValue As Long End Type Type MIXERCONTROLDETAILS_UNSIGNED dwValue As Long End Type Declare Function mixerGetControlDetails Lib "winmm.dll" Alias "mixerGetControlDetailsA" (ByVal hmxobj As Long, pmxcd As MIXERCONTROLDETAILS, ByVal fdwDetails As Long) As Long Const MIXER_GETCONTROLDETAILSF_VALUE = &H0& Const MIXER_GETCONTROLDETAILSF_LISTTEXT = &H1& Const MIXER_GETCONTROLDETAILSF_QUERYMASK = &HF& Declare Function mixerSetControlDetails Lib "winmm.dll" Alias "mixerSetControlDetails" (ByVal hmxobj As Long, pmxcd As MIXERCONTROLDETAILS, ByVal fdwDetails As Long) As Long Const MIXER_SETCONTROLDETAILSF_VALUE = &H0& Const MIXER_SETCONTROLDETAILSF_CUSTOM = &H1& Const MIXER_SETCONTROLDETAILSF_QUERYMASK = &HF& ' constants used with JOYINFOEX Const JOY_BUTTON5 = &H10& Const JOY_BUTTON6 = &H20& Const JOY_BUTTON7 = &H40& Const JOY_BUTTON8 = &H80& Const JOY_BUTTON9 = &H100& Const JOY_BUTTON10 = &H200& Const JOY_BUTTON11 = &H400& Const JOY_BUTTON12 = &H800& Const JOY_BUTTON13 = &H1000& Const JOY_BUTTON14 = &H2000& Const JOY_BUTTON15 = &H4000& Const JOY_BUTTON16 = &H8000& Const JOY_BUTTON17 = &H10000 Const JOY_BUTTON18 = &H20000 Const JOY_BUTTON19 = &H40000 Const JOY_BUTTON20 = &H80000 Const JOY_BUTTON21 = &H100000 Const JOY_BUTTON22 = &H200000 Const JOY_BUTTON23 = &H400000 Const JOY_BUTTON24 = &H800000 Const JOY_BUTTON25 = &H1000000 Const JOY_BUTTON26 = &H2000000 Const JOY_BUTTON27 = &H4000000 Const JOY_BUTTON28 = &H8000000 Const JOY_BUTTON29 = &H10000000 Const JOY_BUTTON30 = &H20000000 Const JOY_BUTTON31 = &H40000000 Const JOY_BUTTON32 = &H80000000 ' constants used with JOYINFOEX structure Const JOY_POVCENTERED = -1 Const JOY_POVFORWARD = 0 Const JOY_POVRIGHT = 9000 Const JOY_POVBACKWARD = 18000 Const JOY_POVLEFT = 27000 Const JOY_RETURNX = &H1& Const JOY_RETURNY = &H2& Const JOY_RETURNZ = &H4& Const JOY_RETURNR = &H8& Const JOY_RETURNU = &H10 ' axis 5 Const JOY_RETURNV = &H20 ' axis 6 Const JOY_RETURNPOV = &H40& Const JOY_RETURNBUTTONS = &H80& Const JOY_RETURNRAWDATA = &H100& Const JOY_RETURNPOVCTS = &H200& Const JOY_RETURNCENTERED = &H400& Const JOY_USEDEADZONE = &H800& Const JOY_RETURNALL = (JOY_RETURNX Or JOY_RETURNY Or JOY_RETURNZ Or JOY_RETURNR Or JOY_RETURNU Or JOY_RETURNV Or JOY_RETURNPOV Or JOY_RETURNBUTTONS) Const JOY_CAL_READALWAYS = &H10000 Const JOY_CAL_READXYONLY = &H20000 Const JOY_CAL_READ3 = &H40000 Const JOY_CAL_READ4 = &H80000 Const JOY_CAL_READXONLY = &H100000 Const JOY_CAL_READYONLY = &H200000 Const JOY_CAL_READ5 = &H400000 Const JOY_CAL_READ6 = &H800000 Const JOY_CAL_READZONLY = &H1000000 Const JOY_CAL_READRONLY = &H2000000 Const JOY_CAL_READUONLY = &H4000000 Const JOY_CAL_READVONLY = &H8000000 Declare Function joyGetPos Lib "winmm.dll" Alias "joyGetPos" (ByVal uJoyID As Long, pji As JOYINFO) As Long Declare Function joyGetPosEx Lib "winmm.dll" Alias "joyGetPosEx" (ByVal uJoyID As Long, pji As JOYINFOEX) As Long Const WAVE_FORMAT_QUERY = &H1 Const SND_PURGE = &H40 ' purge non-static events for task Const SND_APPLICATION = &H80 ' look for application specific association Const WAVE_MAPPED = &H4 Const WAVE_FORMAT_DIRECT = &H8 Const WAVE_FORMAT_DIRECT_QUERY = (WAVE_FORMAT_QUERY Or WAVE_FORMAT_DIRECT) Const MIM_MOREDATA = MM_MIM_MOREDATA Const MOM_POSITIONCB = MM_MOM_POSITIONCB ' flags for dwFlags parm of midiInOpen() Const MIDI_IO_STATUS = &H20& Declare Function midiStreamOpen Lib "winmm.dll" Alias "midiStreamOpen" (phms As Long, puDeviceID As Long, ByVal cMidi As Long, ByVal dwCallback As Long, ByVal dwInstance As Long, ByVal fdwOpen As Long) As Long Declare Function midiStreamClose Lib "winmm.dll" Alias "midiStreamClose" (ByVal hms As Long) As Long Declare Function midiStreamProperty Lib "winmm.dll" Alias "midiStreamProperty" (ByVal hms As Long, lppropdata As Byte, ByVal dwProperty As Long) As Long Declare Function midiStreamPosition Lib "winmm.dll" Alias "midiStreamPosition" (ByVal hms As Long, lpmmt As MMTIME, ByVal cbmmt As Long) As Long Declare Function midiStreamOut Lib "winmm.dll" Alias "midiStreamOut" (ByVal hms As Long, pmh As MIDIHDR, ByVal cbmh As Long) As Long Declare Function midiStreamPause Lib "winmm.dll" Alias "midiStreamPause" (ByVal hms As Long) As Long Declare Function midiStreamRestart Lib "winmm.dll" Alias "midiStreamRestart" (ByVal hms As Long) As Long Declare Function midiStreamStop Lib "winmm.dll" Alias "midiStreamStop" (ByVal hms As Long) As Long Declare Function midiConnect Lib "winmm.dll" Alias "midiConnect" (ByVal hmi As Long, ByVal hmo As Long, pReserved As Any) As Long Declare Function midiDisconnect Lib "winmm.dll" Alias "midiDisconnect" (ByVal hmi As Long, ByVal hmo As Long, pReserved As Any) As Long Type JOYINFOEX dwSize As Long ' size of structure dwFlags As Long ' flags to indicate what to return dwXpos As Long ' x position dwYpos As Long ' y position dwZpos As Long ' z position dwRpos As Long ' rudder/4th axis position dwUpos As Long ' 5th axis position dwVpos As Long ' 6th axis position dwButtons As Long ' button states dwButtonNumber As Long ' current button number pressed dwPOV As Long ' point of view state dwReserved1 As Long ' reserved for communication between winmm driver dwReserved2 As Long ' reserved for future expansion End Type ' Installable driver support ' Driver messages Const DRV_LOAD = &H1 Const DRV_ENABLE = &H2 Const DRV_OPEN = &H3 Const DRV_CLOSE = &H4 Const DRV_DISABLE = &H5 Const DRV_FREE = &H6 Const DRV_CONFIGURE = &H7 Const DRV_QUERYCONFIGURE = &H8 Const DRV_INSTALL = &H9 Const DRV_REMOVE = &HA Const DRV_EXITSESSION = &HB Const DRV_POWER = &HF Const DRV_RESERVED = &H800 Const DRV_USER = &H4000 Type DRVCONFIGINFO dwDCISize As Long lpszDCISectionName As String lpszDCIAliasName As String dnDevNode As Long End Type ' Supported return values for DRV_CONFIGURE message Const DRVCNF_CANCEL = &H0 Const DRVCNF_OK = &H1 Const DRVCNF_RESTART = &H2 ' return values from DriverProc() function Const DRV_CANCEL = DRVCNF_CANCEL Const DRV_OK = DRVCNF_OK Const DRV_RESTART = DRVCNF_RESTART Declare Function CloseDriver Lib "winmm.dll" Alias "CloseDriver" (ByVal hDriver As Long, ByVal lParam1 As Long, ByVal lParam2 As Long) As Long Declare Function OpenDriver Lib "winmm.dll" Alias "OpenDriver" (ByVal szDriverName As String, ByVal szSectionName As String, ByVal lParam2 As Long) As Long Declare Function SendDriverMessage Lib "winmm.dll" Alias "SendDriverMessage" (ByVal hDriver As Long, ByVal message As Long, ByVal lParam1 As Long, ByVal lParam2 As Long) As Long Declare Function DrvGetModuleHandle Lib "winmm.dll" Alias "DrvGetModuleHandle" (ByVal hDriver As Long) As Long Declare Function GetDriverModuleHandle Lib "winmm.dll" Alias "GetDriverModuleHandle" (ByVal hDriver As Long) As Long Declare Function DefDriverProc Lib "winmm.dll" Alias "DefDriverProc" (ByVal dwDriverIdentifier As Long, ByVal hdrvr As Long, ByVal uMsg As Long, ByVal lParam1 As Long, ByVal lParam2 As Long) As Long Const DRV_MCI_FIRST = DRV_RESERVED Const DRV_MCI_LAST = DRV_RESERVED + &HFFF ' Driver callback support ' flags used with waveOutOpen(), waveInOpen(), midiInOpen(), and ' midiOutOpen() to specify the type of the dwCallback parameter. Const CALLBACK_TYPEMASK = &H70000 ' callback type mask Const CALLBACK_NULL = &H0 ' no callback Const CALLBACK_WINDOW = &H10000 ' dwCallback is a HWND Const CALLBACK_TASK = &H20000 ' dwCallback is a HTASK Const CALLBACK_FUNCTION = &H30000 ' dwCallback is a FARPROC ' manufacturer IDs Const MM_MICROSOFT = 1 ' Microsoft Corp. ' product IDs Const MM_MIDI_MAPPER = 1 ' MIDI Mapper Const MM_WAVE_MAPPER = 2 ' Wave Mapper Const MM_SNDBLST_MIDIOUT = 3 ' Sound Blaster MIDI output port Const MM_SNDBLST_MIDIIN = 4 ' Sound Blaster MIDI input port Const MM_SNDBLST_SYNTH = 5 ' Sound Blaster internal synthesizer Const MM_SNDBLST_WAVEOUT = 6 ' Sound Blaster waveform output Const MM_SNDBLST_WAVEIN = 7 ' Sound Blaster waveform input Const MM_ADLIB = 9 ' Ad Lib-compatible synthesizer Const MM_MPU401_MIDIOUT = 10 ' MPU401-compatible MIDI output port Const MM_MPU401_MIDIIN = 11 ' MPU401-compatible MIDI input port Const MM_PC_JOYSTICK = 12 ' Joystick adapter Declare Function mmsystemGetVersion Lib "winmm.dll" Alias "mmsystemGetVersion" () As Long Declare Sub OutputDebugString Lib "kernel32.dll" Alias "OutputDebugStingA" (ByVal lpszOutputString As String) Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long ' flag values for uFlags parameter Const SND_SYNC = &H0 ' play synchronously (default) Const SND_ASYNC = &H1 ' play asynchronously Const SND_NODEFAULT = &H2 ' silence not default, if sound not found Const SND_MEMORY = &H4 ' lpszSoundName points to a memory file Const SND_ALIAS = &H10000 ' name is a WIN.INI [sounds] entry Const SND_FILENAME = &H20000 ' name is a file name Const SND_RESOURCE = &H40004 ' name is a resource name or atom Const SND_ALIAS_ID = &H110000 ' name is a WIN.INI [sounds] entry identifier Const SND_ALIAS_START = 0 ' must be > 4096 to keep strings in same section of resource file Const SND_LOOP = &H8 ' loop the sound until next sndPlaySound Const SND_NOSTOP = &H10 ' don't stop any currently playing sound Const SND_VALID = &H1F ' valid flags / ;Internal / Const SND_NOWAIT = &H2000 ' don't wait if the driver is busy Const SND_VALIDFLAGS = &H17201F ' Set of valid flag bits. Anything outside ' this range will raise an error Const SND_RESERVED = &HFF000000 ' In particular these flags are reserved Const SND_TYPE_MASK = &H170007 Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long ' waveform audio error return values Const WAVERR_BADFORMAT = (WAVERR_BASE + 0) ' unsupported wave format Const WAVERR_STILLPLAYING = (WAVERR_BASE + 1) ' still something playing Const WAVERR_UNPREPARED = (WAVERR_BASE + 2) ' header not prepared Const WAVERR_SYNC = (WAVERR_BASE + 3) ' device is synchronous Const WAVERR_LASTERROR = (WAVERR_BASE + 3) ' last error in range ' wave callback messages Const WOM_OPEN = MM_WOM_OPEN Const WOM_CLOSE = MM_WOM_CLOSE Const WOM_DONE = MM_WOM_DONE Const WIM_OPEN = MM_WIM_OPEN Const WIM_CLOSE = MM_WIM_CLOSE Const WIM_DATA = MM_WIM_DATA ' device ID for wave device mapper Const WAVE_MAPPER = -1& ' flags for dwFlags parameter in waveOutOpen() and waveInOpen() Const WAVE_ALLOWSYNC = &H2 Const WAVE_VALID = &H3 ' ;Internal Type WAVEHDR lpData As String dwBufferLength As Long dwBytesRecorded As Long dwUser As Long dwFlags As Long dwLoops As Long lpNext As Long Reserved As Long End Type ' flags for dwFlags field of WAVEHDR Const WHDR_DONE = &H1 ' done bit Const WHDR_PREPARED = &H2 ' set if this header has been prepared Const WHDR_BEGINLOOP = &H4 ' loop start block Const WHDR_ENDLOOP = &H8 ' loop end block Const WHDR_INQUEUE = &H10 ' reserved for driver Const WHDR_VALID = &H1F ' valid flags / ;Internal / Type WAVEOUTCAPS wMid As Integer wPid As Integer vDriverVersion As Long szPname As String * MAXPNAMELEN dwFormats As Long wChannels As Integer dwSupport As Long End Type ' flags for dwSupport field of WAVEOUTCAPS Const WAVECAPS_PITCH = &H1 ' supports pitch control Const WAVECAPS_PLAYBACKRATE = &H2 ' supports playback rate control Const WAVECAPS_VOLUME = &H4 ' supports volume control Const WAVECAPS_LRVOLUME = &H8 ' separate left-right volume control Const WAVECAPS_SYNC = &H10 Type WAVEINCAPS wMid As Integer wPid As Integer vDriverVersion As Long szPname As String * MAXPNAMELEN dwFormats As Long wChannels As Integer End Type ' defines for dwFormat field of WAVEINCAPS and WAVEOUTCAPS Const WAVE_INVALIDFORMAT = &H0 ' invalid format Const WAVE_FORMAT_1M08 = &H1 ' 11.025 kHz, Mono, 8-bit Const WAVE_FORMAT_1S08 = &H2 ' 11.025 kHz, Stereo, 8-bit Const WAVE_FORMAT_1M16 = &H4 ' 11.025 kHz, Mono, 16-bit Const WAVE_FORMAT_1S16 = &H8 ' 11.025 kHz, Stereo, 16-bit Const WAVE_FORMAT_2M08 = &H10 ' 22.05 kHz, Mono, 8-bit Const WAVE_FORMAT_2S08 = &H20 ' 22.05 kHz, Stereo, 8-bit Const WAVE_FORMAT_2M16 = &H40 ' 22.05 kHz, Mono, 16-bit Const WAVE_FORMAT_2S16 = &H80 ' 22.05 kHz, Stereo, 16-bit Const WAVE_FORMAT_4M08 = &H100 ' 44.1 kHz, Mono, 8-bit Const WAVE_FORMAT_4S08 = &H200 ' 44.1 kHz, Stereo, 8-bit Const WAVE_FORMAT_4M16 = &H400 ' 44.1 kHz, Mono, 16-bit Const WAVE_FORMAT_4S16 = &H800 ' 44.1 kHz, Stereo, 16-bit ' flags for wFormatTag field of WAVEFORMAT Const WAVE_FORMAT_PCM = 1 ' Needed in resource files so outside #ifndef RC_INVOKED Type WAVEFORMAT wFormatTag As Integer nChannels As Integer nSamplesPerSec As Long nAvgBytesPerSec As Long nBlockAlign As Integer End Type Type PCMWAVEFORMAT wf As WAVEFORMAT wBitsPerSample As Integer End Type Declare Function waveOutGetNumDevs Lib "winmm.dll" Alias "waveOutGetNumDevs" () As Long Declare Function waveOutGetDevCaps Lib "winmm.dll" Alias "waveOutGetDevCapsA" (ByVal uDeviceID As Long, lpCaps As WAVEOUTCAPS, ByVal uSize As Long) As Long Declare Function waveOutGetVolume Lib "winmm.dll" Alias "waveOutGetVolume" (ByVal uDeviceID As Long, lpdwVolume As Long) As Long Declare Function waveOutSetVolume Lib "winmm.dll" Alias "waveOutSetVolume" (ByVal uDeviceID As Long, ByVal dwVolume As Long) As Long Declare Function waveOutGetErrorText Lib "winmm.dll" Alias "waveOutGetErrorTextA" (ByVal err As Long, ByVal lpText As String, ByVal uSize As Long) As Long Declare Function waveOutOpen Lib "winmm.dll" Alias "waveOutOpen" (lphWaveOut As Long, ByVal uDeviceID As Long, lpFormat As WAVEFORMAT, ByVal dwCallback As Long, ByVal dwInstance As Long, ByVal dwFlags As Long) As Long Declare Function waveOutClose Lib "winmm.dll" Alias "waveOutClose" (ByVal hWaveOut As Long) As Long Declare Function waveOutPrepareHeader Lib "winmm.dll" Alias "waveOutPrepareHeader" (ByVal hWaveOut As Long, lpWaveOutHdr As WAVEHDR, ByVal uSize As Long) As Long Declare Function waveOutUnprepareHeader Lib "winmm.dll" Alias "waveOutUnprepareHeader" (ByVal hWaveOut As Long, lpWaveOutHdr As WAVEHDR, ByVal uSize As Long) As Long Declare Function waveOutWrite Lib "winmm.dll" Alias "waveOutWrite" (ByVal hWaveOut As Long, lpWaveOutHdr As WAVEHDR, ByVal uSize As Long) As Long Declare Function waveOutPause Lib "winmm.dll" Alias "waveOutPause" (ByVal hWaveOut As Long) As Long Declare Function waveOutRestart Lib "winmm.dll" Alias "waveOutRestart" (ByVal hWaveOut As Long) As Long Declare Function waveOutReset Lib "winmm.dll" Alias "waveOutReset" (ByVal hWaveOut As Long) As Long Declare Function waveOutBreakLoop Lib "winmm.dll" Alias "waveOutBreakLoop" (ByVal hWaveOut As Long) As Long Declare Function waveOutGetPosition Lib "winmm.dll" Alias "waveOutGetPosition" (ByVal hWaveOut As Long, lpInfo As MMTIME, ByVal uSize As Long) As Long Declare Function waveOutGetPitch Lib "winmm.dll" Alias "waveOutGetPitch" (ByVal hWaveOut As Long, lpdwPitch As Long) As Long Declare Function waveOutSetPitch Lib "winmm.dll" Alias "waveOutSetPitch" (ByVal hWaveOut As Long, ByVal dwPitch As Long) As Long Declare Function waveOutGetPlaybackRate Lib "winmm.dll" Alias "waveOutGetPlaybackRate" (ByVal hWaveOut As Long, lpdwRate As Long) As Long Declare Function waveOutSetPlaybackRate Lib "winmm.dll" Alias "waveOutSetPlaybackRate" (ByVal hWaveOut As Long, ByVal dwRate As Long) As Long Declare Function waveOutGetID Lib "winmm.dll" Alias "waveOutGetID" (ByVal hWaveOut As Long, lpuDeviceID As Long) As Long Declare Function waveOutMessage Lib "winmm.dll" Alias "waveOutMessage" (ByVal hWaveOut As Long, ByVal msg As Long, ByVal dw1 As Long, ByVal dw2 As Long) As Long Declare Function waveInGetNumDevs Lib "winmm.dll" Alias "waveInGetNumDevs" () As Long Declare Function waveInGetDevCaps Lib "winmm.dll" Alias "waveInGetDevCapsA" (ByVal uDeviceID As Long, lpCaps As WAVEINCAPS, ByVal uSize As Long) As Long Declare Function waveInGetErrorText Lib "winmm.dll" Alias "waveInGetErrorTextA" (ByVal err As Long, ByVal lpText As String, ByVal uSize As Long) As Long Declare Function waveInOpen Lib "winmm.dll" Alias "waveInOpen" (lphWaveIn As Long, ByVal uDeviceID As Long, lpFormat As WAVEFORMAT, ByVal dwCallback As Long, ByVal dwInstance As Long, ByVal dwFlags As Long) As Long Declare Function waveInClose Lib "winmm.dll" Alias "waveInClose" (ByVal hWaveIn As Long) As Long Declare Function waveInPrepareHeader Lib "winmm.dll" Alias "waveInPrepareHeader" (ByVal hWaveIn As Long, lpWaveInHdr As WAVEHDR, ByVal uSize As Long) As Long Declare Function waveInUnprepareHeader Lib "winmm.dll" Alias "waveInUnprepareHeader" (ByVal hWaveIn As Long, lpWaveInHdr As WAVEHDR, ByVal uSize As Long) As Long Declare Function waveInAddBuffer Lib "winmm.dll" Alias "waveInAddBuffer" (ByVal hWaveIn As Long, lpWaveInHdr As WAVEHDR, ByVal uSize As Long) As Long Declare Function waveInStart Lib "winmm.dll" Alias "waveInStart" (ByVal hWaveIn As Long) As Long Declare Function waveInStop Lib "winmm.dll" Alias "waveInStop" (ByVal hWaveIn As Long) As Long Declare Function waveInReset Lib "winmm.dll" Alias "waveInReset" (ByVal hWaveIn As Long) As Long Declare Function waveInGetPosition Lib "winmm.dll" Alias "waveInGetPosition" (ByVal hWaveIn As Long, lpInfo As MMTIME, ByVal uSize As Long) As Long Declare Function waveInGetID Lib "winmm.dll" Alias "waveInGetID" (ByVal hWaveIn As Long, lpuDeviceID As Long) As Long Declare Function waveInMessage Lib "winmm.dll" Alias "waveInMessage" (ByVal hWaveIn As Long, ByVal msg As Long, ByVal dw1 As Long, ByVal dw2 As Long) As Long ' MIDI error return values Const MIDIERR_UNPREPARED = (MIDIERR_BASE + 0) ' header not prepared Const MIDIERR_STILLPLAYING = (MIDIERR_BASE + 1) ' still something playing Const MIDIERR_NOMAP = (MIDIERR_BASE + 2) ' no current map Const MIDIERR_NOTREADY = (MIDIERR_BASE + 3) ' hardware is still busy Const MIDIERR_NODEVICE = (MIDIERR_BASE + 4) ' port no longer connected Const MIDIERR_INVALIDSETUP = (MIDIERR_BASE + 5) ' invalid setup Const MIDIERR_LASTERROR = (MIDIERR_BASE + 5) ' last error in range ' MIDI callback messages Const MIM_OPEN = MM_MIM_OPEN Const MIM_CLOSE = MM_MIM_CLOSE Const MIM_DATA = MM_MIM_DATA Const MIM_LONGDATA = MM_MIM_LONGDATA Const MIM_ERROR = MM_MIM_ERROR Const MIM_LONGERROR = MM_MIM_LONGERROR Const MOM_OPEN = MM_MOM_OPEN Const MOM_CLOSE = MM_MOM_CLOSE Const MOM_DONE = MM_MOM_DONE ' device ID for MIDI mapper Const MIDIMAPPER = (-1) ' Cannot be cast to DWORD as RC complains Const MIDI_MAPPER = -1& ' flags for wFlags parm of midiOutCachePatches(), midiOutCacheDrumPatches() Const MIDI_CACHE_ALL = 1 Const MIDI_CACHE_BESTFIT = 2 Const MIDI_CACHE_QUERY = 3 Const MIDI_UNCACHE = 4 Const MIDI_CACHE_VALID = (MIDI_CACHE_ALL Or MIDI_CACHE_BESTFIT Or MIDI_CACHE_QUERY Or MIDI_UNCACHE) ' ;Internal Type MIDIOUTCAPS wMid As Integer wPid As Integer vDriverVersion As Long szPname As String * MAXPNAMELEN wTechnology As Integer wVoices As Integer wNotes As Integer wChannelMask As Integer dwSupport As Long End Type ' flags for wTechnology field of MIDIOUTCAPS structure Const MOD_MIDIPORT = 1 ' output port Const MOD_SYNTH = 2 ' generic internal synth Const MOD_SQSYNTH = 3 ' square wave internal synth Const MOD_FMSYNTH = 4 ' FM internal synth Const MOD_MAPPER = 5 ' MIDI mapper ' flags for dwSupport field of MIDIOUTCAPS Const MIDICAPS_VOLUME = &H1 ' supports volume control Const MIDICAPS_LRVOLUME = &H2 ' separate left-right volume control Const MIDICAPS_CACHE = &H4 Type MIDIINCAPS wMid As Integer wPid As Integer vDriverVersion As Long szPname As String * MAXPNAMELEN End Type Type MIDIHDR lpData As String dwBufferLength As Long dwBytesRecorded As Long dwUser As Long dwFlags As Long lpNext As Long Reserved As Long End Type ' flags for dwFlags field of MIDIHDR structure Const MHDR_DONE = &H1 ' done bit Const MHDR_PREPARED = &H2 ' set if header prepared Const MHDR_INQUEUE = &H4 ' reserved for driver Const MHDR_VALID = &H7 ' valid flags / ;Internal / Declare Function midiOutGetDevCaps Lib "winmm.dll" Alias "midiOutGetDevCapsA" (ByVal uDeviceID As Long, lpCaps As MIDIOUTCAPS, ByVal uSize As Long) As Long Declare Function midiOutGetVolume Lib "winmm.dll" Alias "midiOutGetVolume" (ByVal uDeviceID As Long, lpdwVolume As Long) As Long Declare Function midiOutSetVolume Lib "winmm.dll" Alias "midiOutSetVolume" (ByVal uDeviceID As Long, ByVal dwVolume As Long) As Long Declare Function midiOutGetErrorText Lib "winmm.dll" Alias "midiOutGetErrorTextA" (ByVal err As Long, ByVal lpText As String, ByVal uSize As Long) As Long Declare Function midiOutOpen Lib "winmm.dll" Alias "midiOutOpen" (lphMidiOut As Long, ByVal uDeviceID As Long, ByVal dwCallback As Long, ByVal dwInstance As Long, ByVal dwFlags As Long) As Long Declare Function midiOutClose Lib "winmm.dll" Alias "midiOutClose" (ByVal hMidiOut As Long) As Long Declare Function midiOutPrepareHeader Lib "winmm.dll" Alias "midiOutPrepareHeader" (ByVal hMidiOut As Long, lpMidiOutHdr As MIDIHDR, ByVal uSize As Long) As Long Declare Function midiOutUnprepareHeader Lib "winmm.dll" Alias "midiOutUnprepareHeader" (ByVal hMidiOut As Long, lpMidiOutHdr As MIDIHDR, ByVal uSize As Long) As Long Declare Function midiOutShortMsg Lib "winmm.dll" Alias "midiOutShortMsg" (ByVal hMidiOut As Long, ByVal dwMsg As Long) As Long Declare Function midiOutLongMsg Lib "winmm.dll" Alias "midiOutLongMsg" (ByVal hMidiOut As Long, lpMidiOutHdr As MIDIHDR, ByVal uSize As Long) As Long Declare Function midiOutReset Lib "winmm.dll" Alias "midiOutReset" (ByVal hMidiOut As Long) As Long Declare Function midiOutCachePatches Lib "winmm.dll" Alias "midiOutCachePatches" (ByVal hMidiOut As Long, ByVal uBank As Long, lpPatchArray As Long, ByVal uFlags As Long) As Long Declare Function midiOutCacheDrumPatches Lib "winmm.dll" Alias "midiOutCacheDrumPatches" (ByVal hMidiOut As Long, ByVal uPatch As Long, lpKeyArray As Long, ByVal uFlags As Long) As Long Declare Function midiOutGetID Lib "winmm.dll" Alias "midiOutGetID" (ByVal hMidiOut As Long, lpuDeviceID As Long) As Long Declare Function midiOutMessage Lib "winmm.dll" Alias "midiOutMessage" (ByVal hMidiOut As Long, ByVal msg As Long, ByVal dw1 As Long, ByVal dw2 As Long) As Long Declare Function midiInGetNumDevs Lib "winmm.dll" Alias "midiInGetNumDevs" () As Long Declare Function midiInGetDevCaps Lib "winmm.dll" Alias "midiInGetDevCapsA" (ByVal uDeviceID As Long, lpCaps As MIDIINCAPS, ByVal uSize As Long) As Long Declare Function midiInGetErrorText Lib "winmm.dll" Alias "midiInGetErrorTextA" (ByVal err As Long, ByVal lpText As String, ByVal uSize As Long) As Long Declare Function midiInOpen Lib "winmm.dll" Alias "midiInOpen" (lphMidiIn As Long, ByVal uDeviceID As Long, ByVal dwCallback As Long, ByVal dwInstance As Long, ByVal dwFlags As Long) As Long Declare Function midiInClose Lib "winmm.dll" Alias "midiInClose" (ByVal hMidiIn As Long) As Long Declare Function midiInPrepareHeader Lib "winmm.dll" Alias "midiInPrepareHeader" (ByVal hMidiIn As Long, lpMidiInHdr As MIDIHDR, ByVal uSize As Long) As Long Declare Function midiInUnprepareHeader Lib "winmm.dll" Alias "midiInUnprepareHeader" (ByVal hMidiIn As Long, lpMidiInHdr As MIDIHDR, ByVal uSize As Long) As Long Declare Function midiInAddBuffer Lib "winmm.dll" Alias "midiInAddBuffer" (ByVal hMidiIn As Long, lpMidiInHdr As MIDIHDR, ByVal uSize As Long) As Long Declare Function midiInStart Lib "winmm.dll" Alias "midiInStart" (ByVal hMidiIn As Long) As Long Declare Function midiInStop Lib "winmm.dll" Alias "midiInStop" (ByVal hMidiIn As Long) As Long Declare Function midiInReset Lib "winmm.dll" Alias "midiInReset" (ByVal hMidiIn As Long) As Long Declare Function midiInGetID Lib "winmm.dll" Alias "midiInGetID" (ByVal hMidiIn As Long, lpuDeviceID As Long) As Long Declare Function midiInMessage Lib "winmm.dll" Alias "midiInMessage" (ByVal hMidiIn As Long, ByVal msg As Long, ByVal dw1 As Long, ByVal dw2 As Long) As Long ' device ID for aux device mapper Const AUX_MAPPER = -1& Type AUXCAPS wMid As Integer wPid As Integer vDriverVersion As Long szPname As String * MAXPNAMELEN wTechnology As Integer dwSupport As Long End Type ' flags for wTechnology field in AUXCAPS structure Const AUXCAPS_CDAUDIO = 1 ' audio from internal CD-ROM drive Const AUXCAPS_AUXIN = 2 ' audio from auxiliary input jacks ' flags for dwSupport field in AUXCAPS structure Const AUXCAPS_VOLUME = &H1 ' supports volume control Const AUXCAPS_LRVOLUME = &H2 ' separate left-right volume control Declare Function auxGetNumDevs Lib "winmm.dll" Alias "auxGetNumDevs" () As Long Declare Function auxGetDevCaps Lib "winmm.dll" Alias "auxGetDevCapsA" (ByVal uDeviceID As Long, lpCaps As AUXCAPS, ByVal uSize As Long) As Long Declare Function auxSetVolume Lib "winmm.dll" Alias "auxSetVolume" (ByVal uDeviceID As Long, ByVal dwVolume As Long) As Long Declare Function auxGetVolume Lib "winmm.dll" Alias "auxGetVolume" (ByVal uDeviceID As Long, lpdwVolume As Long) As Long Declare Function auxOutMessage Lib "winmm.dll" Alias "auxOutMessage" (ByVal uDeviceID As Long, ByVal msg As Long, ByVal dw1 As Long, ByVal dw2 As Long) As Long ' timer error return values Const TIMERR_NOERROR = (0) ' no error Const TIMERR_NOCANDO = (TIMERR_BASE + 1) ' request not completed Const TIMERR_STRUCT = (TIMERR_BASE + 33) ' time struct size ' flags for wFlags parameter of timeSetEvent() function Const TIME_ONESHOT = 0 ' program timer for single event Const TIME_PERIODIC = 1 ' program for continuous periodic event Type TIMECAPS wPeriodMin As Long wPeriodMax As Long End Type Declare Function timeGetSystemTime Lib "winmm.dll" Alias "timeGetSystemTime" (lpTime As MMTIME, ByVal uSize As Long) As Long Declare Function timeGetTime Lib "winmm.dll" Alias "timeGetTime" () As Long Declare Function timeSetEvent Lib "winmm.dll" Alias "timeSetEvent" (ByVal uDelay As Long, ByVal uResolution As Long, ByVal lpFunction As Long, ByVal dwUser As Long, ByVal uFlags As Long) As Long Declare Function timeKillEvent Lib "winmm.dll" Alias "timeKillEvent" (ByVal uID As Long) As Long Declare Function timeGetDevCaps Lib "winmm.dll" Alias "timeGetDevCaps" (lpTimeCaps As TIMECAPS, ByVal uSize As Long) As Long Declare Function timeBeginPeriod Lib "winmm.dll" Alias "timeBeginPeriod" (ByVal uPeriod As Long) As Long Declare Function timeEndPeriod Lib "winmm.dll" Alias "timeEndPeriod" (ByVal uPeriod As Long) As Long ' joystick error return values Const JOYERR_NOERROR = (0) ' no error Const JOYERR_PARMS = (JOYERR_BASE + 5) ' bad parameters Const JOYERR_NOCANDO = (JOYERR_BASE + 6) ' request not completed Const JOYERR_UNPLUGGED = (JOYERR_BASE + 7) ' joystick is unplugged ' constants used with JOYINFO structure and MM_JOY messages Const JOY_BUTTON1 = &H1 Const JOY_BUTTON2 = &H2 Const JOY_BUTTON3 = &H4 Const JOY_BUTTON4 = &H8 Const JOY_BUTTON1CHG = &H100 Const JOY_BUTTON2CHG = &H200 Const JOY_BUTTON3CHG = &H400 Const JOY_BUTTON4CHG = &H800 ' joystick ID constants Const JOYSTICKID1 = 0 Const JOYSTICKID2 = 1 Type JOYCAPS wMid As Integer wPid As Integer szPname As String * MAXPNAMELEN wXmin As Integer wXmax As Integer wYmin As Integer wYmax As Integer wZmin As Integer wZmax As Integer wNumButtons As Integer wPeriodMin As Integer wPeriodMax As Integer End Type Type JOYINFO wXpos As Long wYpos As Long wZpos As Long wButtons As Long End Type Declare Function joyGetDevCaps Lib "winmm.dll" Alias "joyGetDevCapsA" (ByVal id As Long, lpCaps As JOYCAPS, ByVal uSize As Long) As Long Declare Function joyGetNumDevs Lib "winmm.dll" Alias "joyGetNumDevs" () As Long Declare Function joyGetThreshold Lib "winmm.dll" Alias "joyGetThreshold" (ByVal id As Long, lpuThreshold As Long) As Long Declare Function joyReleaseCapture Lib "winmm.dll" Alias "joyReleaseCapture" (ByVal id As Long) As Long Declare Function joySetCapture Lib "winmm.dll" Alias "joySetCapture" (ByVal hwnd As Long, ByVal uID As Long, ByVal uPeriod As Long, ByVal bChanged As Long) As Long Declare Function joySetThreshold Lib "winmm.dll" Alias "joySetThreshold" (ByVal id As Long, ByVal uThreshold As Long) As Long ' MMIO error return values Const MMIOERR_BASE = 256 Const MMIOERR_FILENOTFOUND = (MMIOERR_BASE + 1) ' file not found Const MMIOERR_OUTOFMEMORY = (MMIOERR_BASE + 2) ' out of memory Const MMIOERR_CANNOTOPEN = (MMIOERR_BASE + 3) ' cannot open Const MMIOERR_CANNOTCLOSE = (MMIOERR_BASE + 4) ' cannot close Const MMIOERR_CANNOTREAD = (MMIOERR_BASE + 5) ' cannot read Const MMIOERR_CANNOTWRITE = (MMIOERR_BASE + 6) ' cannot write Const MMIOERR_CANNOTSEEK = (MMIOERR_BASE + 7) ' cannot seek Const MMIOERR_CANNOTEXPAND = (MMIOERR_BASE + 8) ' cannot expand file Const MMIOERR_CHUNKNOTFOUND = (MMIOERR_BASE + 9) ' chunk not found Const MMIOERR_UNBUFFERED = (MMIOERR_BASE + 10) ' file is unbuffered ' MMIO constants Const CFSEPCHAR = "+" ' compound file name separator char. Type MMIOINFO dwFlags As Long fccIOProc As Long pIOProc As Long wErrorRet As Long htask As Long cchBuffer As Long pchBuffer As String pchNext As String pchEndRead As String pchEndWrite As String lBufOffset As Long lDiskOffset As Long adwInfo(4) As Long dwReserved1 As Long dwReserved2 As Long hmmio As Long End Type Const MMIO_RWMODE = &H3 ' mask to get bits used for opening ' file for reading/writing/both Const MMIO_SHAREMODE = &H70 ' file sharing mode number ' constants for dwFlags field of MMIOINFO Const MMIO_CREATE = &H1000 ' create new file (or truncate file) Const MMIO_PARSE = &H100 ' parse new file returning path Const MMIO_DELETE = &H200 ' create new file (or truncate file) Const MMIO_EXIST = &H4000 ' checks for existence of file Const MMIO_ALLOCBUF = &H10000 ' mmioOpen() should allocate a buffer Const MMIO_GETTEMP = &H20000 ' mmioOpen() should retrieve temp name Const MMIO_DIRTY = &H10000000 ' I/O buffer is dirty ' MMIO_DIRTY is also used in the field of MMCKINFO structure Const MMIO_OPEN_VALID = &H3FFFF ' valid flags for mmioOpen / ;Internal / ' read/write mode numbers (bit field MMIO_RWMODE) Const MMIO_READ = &H0 ' open file for reading only Const MMIO_WRITE = &H1 ' open file for writing only Const MMIO_READWRITE = &H2 ' open file for reading and writing ' share mode numbers (bit field MMIO_SHAREMODE) Const MMIO_COMPAT = &H0 ' compatibility mode Const MMIO_EXCLUSIVE = &H10 ' exclusive-access mode Const MMIO_DENYWRITE = &H20 ' deny writing to other processes Const MMIO_DENYREAD = &H30 ' deny reading to other processes Const MMIO_DENYNONE = &H40 ' deny nothing to other processes ' flags for other functions Const MMIO_FHOPEN = &H10 ' mmioClose(): keep file handle open Const MMIO_EMPTYBUF = &H10 ' mmioFlush(): empty the I/O buffer Const MMIO_TOUPPER = &H10 ' mmioStringToFOURCC(): cvt. to u-case Const MMIO_INSTALLPROC = &H10000 ' mmioInstallIOProc(): install MMIOProc Const MMIO_PUBLICPROC = &H10000000 ' mmioInstallIOProc: install Globally Const MMIO_UNICODEPROC = &H1000000 ' mmioInstallIOProc(): Unicode MMIOProc Const MMIO_REMOVEPROC = &H20000 ' mmioInstallIOProc(): remove MMIOProc Const MMIO_FINDPROC = &H40000 ' mmioInstallIOProc(): find an MMIOProc Const MMIO_FINDCHUNK = &H10 ' mmioDescend(): find a chunk by ID Const MMIO_FINDRIFF = &H20 ' mmioDescend(): find a LIST chunk Const MMIO_FINDLIST = &H40 ' mmioDescend(): find a RIFF chunk Const MMIO_CREATERIFF = &H20 ' mmioCreateChunk(): make a LIST chunk Const MMIO_CREATELIST = &H40 ' mmioCreateChunk(): make a RIFF chunk Const MMIO_VALIDPROC = &H11070000 ' valid for mmioInstallIOProc / ;Internal / ' message numbers for MMIOPROC I/O procedure functions Const MMIOM_READ = MMIO_READ ' read (must equal MMIO_READ!) Const MMIOM_WRITE = MMIO_WRITE ' write (must equal MMIO_WRITE!) Const MMIOM_SEEK = 2 ' seek to a new position in file Const MMIOM_OPEN = 3 ' open file Const MMIOM_CLOSE = 4 ' close file Const MMIOM_WRITEFLUSH = 5 ' write and flush Const MMIOM_RENAME = 6 ' rename specified file Const MMIOM_USER = &H8000 ' beginning of user-defined messages ' flags for mmioSeek() Const SEEK_SET = 0 ' seek to an absolute position Const SEEK_CUR = 1 ' seek relative to current position Const SEEK_END = 2 ' seek relative to end of file ' other constants Const MMIO_DEFAULTBUFFER = 8192 ' default buffer size Type MMCKINFO ckid As Long ckSize As Long fccType As Long dwDataOffset As Long dwFlags As Long End Type Declare Function mmioStringToFOURCC Lib "winmm.dll" Alias "mmioStringToFOURCCA" (ByVal sz As String, ByVal uFlags As Long) As Long Declare Function mmioOpen Lib "winmm.dll" Alias "mmioOpenA" (ByVal szFileName As String, lpmmioinfo As MMIOINFO, ByVal dwOpenFlags As Long) As Long Declare Function mmioRename Lib "winmm.dll" Alias "mmioRenameA" (ByVal szFileName As String, ByVal SzNewFileName As String, lpmmioinfo As MMIOINFO, ByVal dwRenameFlags As Long) As Long Declare Function mmioClose Lib "winmm.dll" Alias "mmioClose" (ByVal hmmio As Long, ByVal uFlags As Long) As Long Declare Function mmioRead Lib "winmm.dll" Alias "mmioRead" (ByVal hmmio As Long, ByVal pch As String, ByVal cch As Long) As Long Declare Function mmioWrite Lib "winmm.dll" Alias "mmioWrite" (ByVal hmmio As Long, ByVal pch As String, ByVal cch As Long) As Long Declare Function mmioSeek Lib "winmm.dll" Alias "mmioSeek" (ByVal hmmio As Long, ByVal lOffset As Long, ByVal iOrigin As Long) As Long Declare Function mmioGetInfo Lib "winmm.dll" Alias "mmioGetInfo" (ByVal hmmio As Long, lpmmioinfo As MMIOINFO, ByVal uFlags As Long) As Long Declare Function mmioSetInfo Lib "winmm.dll" Alias "mmioSetInfo" (ByVal hmmio As Long, lpmmioinfo As MMIOINFO, ByVal uFlags As Long) As Long Declare Function mmioSetBuffer Lib "winmm.dll" Alias "mmioSetBuffer" (ByVal hmmio As Long, ByVal pchBuffer As String, ByVal cchBuffer As Long, ByVal uFlags As Long) As Long Declare Function mmioFlush Lib "winmm.dll" Alias "mmioFlush" (ByVal hmmio As Long, ByVal uFlags As Long) As Long Declare Function mmioAdvance Lib "winmm.dll" Alias "mmioAdvance" (ByVal hmmio As Long, lpmmioinfo As MMIOINFO, ByVal uFlags As Long) As Long Declare Function mmioSendMessage Lib "winmm.dll" Alias "mmioSendMessage" (ByVal hmmio As Long, ByVal uMsg As Long, ByVal lParam1 As Long, ByVal lParam2 As Long) As Long Declare Function mmioDescend Lib "winmm.dll" Alias "mmioDescend" (ByVal hmmio As Long, lpck As MMCKINFO, lpckParent As MMCKINFO, ByVal uFlags As Long) As Long Declare Function mmioAscend Lib "winmm.dll" Alias "mmioAscend" (ByVal hmmio As Long, lpck As MMCKINFO, ByVal uFlags As Long) As Long Declare Function mmioCreateChunk Lib "winmm.dll" Alias "mmioCreateChunk" (ByVal hmmio As Long, lpck As MMCKINFO, ByVal uFlags As Long) As Long ' MCI functions Declare Function mciSendCommand Lib "winmm.dll" Alias "mciSendCommandA" (ByVal wDeviceID As Long, ByVal uMessage As Long, ByVal dwParam1 As Long, ByVal dwParam2 As Any) As Long Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long Declare Function mciGetCreatorTask Lib "winmm.dll" Alias "mciGetCreatorTask" (ByVal wDeviceID As Long) As Long Declare Function mciGetDeviceID Lib "winmm.dll" Alias "mciGetDeviceIDA" (ByVal lpstrName As String) As Long Declare Function mciGetDeviceIDFromElementID Lib "winmm.dll" Alias "mciGetDeviceIDFromElementIDA" (ByVal dwElementID As Long, ByVal lpstrType As String) As Long Declare Function mciGetErrorString Lib "winmm.dll" Alias "mciGetErrorStringA" (ByVal dwError As Long, ByVal lpstrBuffer As String, ByVal uLength As Long) As Long Declare Function mciExecute Lib "winmm.dll" Alias "mciExecute" (ByVal lpstrCommand As String) As Long ' MCI error return values Const MCIERR_INVALID_DEVICE_ID = (MCIERR_BASE + 1) Const MCIERR_UNRECOGNIZED_KEYWORD = (MCIERR_BASE + 3) Const MCIERR_UNRECOGNIZED_COMMAND = (MCIERR_BASE + 5) Const MCIERR_HARDWARE = (MCIERR_BASE + 6) Const MCIERR_INVALID_DEVICE_NAME = (MCIERR_BASE + 7) Const MCIERR_OUT_OF_MEMORY = (MCIERR_BASE + 8) Const MCIERR_DEVICE_OPEN = (MCIERR_BASE + 9) Const MCIERR_CANNOT_LOAD_DRIVER = (MCIERR_BASE + 10) Const MCIERR_MISSING_COMMAND_STRING = (MCIERR_BASE + 11) Const MCIERR_PARAM_OVERFLOW = (MCIERR_BASE + 12) Const MCIERR_MISSING_STRING_ARGUMENT = (MCIERR_BASE + 13) Const MCIERR_BAD_INTEGER = (MCIERR_BASE + 14) Const MCIERR_PARSER_INTERNAL = (MCIERR_BASE + 15) Const MCIERR_DRIVER_INTERNAL = (MCIERR_BASE + 16) Const MCIERR_MISSING_PARAMETER = (MCIERR_BASE + 17) Const MCIERR_UNSUPPORTED_FUNCTION = (MCIERR_BASE + 18) Const MCIERR_FILE_NOT_FOUND = (MCIERR_BASE + 19) Const MCIERR_DEVICE_NOT_READY = (MCIERR_BASE + 20) Const MCIERR_INTERNAL = (MCIERR_BASE + 21) Const MCIERR_DRIVER = (MCIERR_BASE + 22) Const MCIERR_CANNOT_USE_ALL = (MCIERR_BASE + 23) Const MCIERR_MULTIPLE = (MCIERR_BASE + 24) Const MCIERR_EXTENSION_NOT_FOUND = (MCIERR_BASE + 25) Const MCIERR_OUTOFRANGE = (MCIERR_BASE + 26) Const MCIERR_FLAGS_NOT_COMPATIBLE = (MCIERR_BASE + 28) Const MCIERR_FILE_NOT_SAVED = (MCIERR_BASE + 30) Const MCIERR_DEVICE_TYPE_REQUIRED = (MCIERR_BASE + 31) Const MCIERR_DEVICE_LOCKED = (MCIERR_BASE + 32) Const MCIERR_DUPLICATE_ALIAS = (MCIERR_BASE + 33) Const MCIERR_BAD_CONSTANT = (MCIERR_BASE + 34) Const MCIERR_MUST_USE_SHAREABLE = (MCIERR_BASE + 35) Const MCIERR_MISSING_DEVICE_NAME = (MCIERR_BASE + 36) Const MCIERR_BAD_TIME_FORMAT = (MCIERR_BASE + 37) Const MCIERR_NO_CLOSING_QUOTE = (MCIERR_BASE + 38) Const MCIERR_DUPLICATE_FLAGS = (MCIERR_BASE + 39) Const MCIERR_INVALID_FILE = (MCIERR_BASE + 40) Const MCIERR_NULL_PARAMETER_BLOCK = (MCIERR_BASE + 41) Const MCIERR_UNNAMED_RESOURCE = (MCIERR_BASE + 42) Const MCIERR_NEW_REQUIRES_ALIAS = (MCIERR_BASE + 43) Const MCIERR_NOTIFY_ON_AUTO_OPEN = (MCIERR_BASE + 44) Const MCIERR_NO_ELEMENT_ALLOWED = (MCIERR_BASE + 45) Const MCIERR_NONAPPLICABLE_FUNCTION = (MCIERR_BASE + 46) Const MCIERR_ILLEGAL_FOR_AUTO_OPEN = (MCIERR_BASE + 47) Const MCIERR_FILENAME_REQUIRED = (MCIERR_BASE + 48) Const MCIERR_EXTRA_CHARACTERS = (MCIERR_BASE + 49) Const MCIERR_DEVICE_NOT_INSTALLED = (MCIERR_BASE + 50) Const MCIERR_GET_CD = (MCIERR_BASE + 51) Const MCIERR_SET_CD = (MCIERR_BASE + 52) Const MCIERR_SET_DRIVE = (MCIERR_BASE + 53) Const MCIERR_DEVICE_LENGTH = (MCIERR_BASE + 54) Const MCIERR_DEVICE_ORD_LENGTH = (MCIERR_BASE + 55) Const MCIERR_NO_INTEGER = (MCIERR_BASE + 56) Const MCIERR_WAVE_OUTPUTSINUSE = (MCIERR_BASE + 64) Const MCIERR_WAVE_SETOUTPUTINUSE = (MCIERR_BASE + 65) Const MCIERR_WAVE_INPUTSINUSE = (MCIERR_BASE + 66) Const MCIERR_WAVE_SETINPUTINUSE = (MCIERR_BASE + 67) Const MCIERR_WAVE_OUTPUTUNSPECIFIED = (MCIERR_BASE + 68) Const MCIERR_WAVE_INPUTUNSPECIFIED = (MCIERR_BASE + 69) Const MCIERR_WAVE_OUTPUTSUNSUITABLE = (MCIERR_BASE + 70) Const MCIERR_WAVE_SETOUTPUTUNSUITABLE = (MCIERR_BASE + 71) Const MCIERR_WAVE_INPUTSUNSUITABLE = (MCIERR_BASE + 72) Const MCIERR_WAVE_SETINPUTUNSUITABLE = (MCIERR_BASE + 73) Const MCIERR_SEQ_DIV_INCOMPATIBLE = (MCIERR_BASE + 80) Const MCIERR_SEQ_PORT_INUSE = (MCIERR_BASE + 81) Const MCIERR_SEQ_PORT_NONEXISTENT = (MCIERR_BASE + 82) Const MCIERR_SEQ_PORT_MAPNODEVICE = (MCIERR_BASE + 83) Const MCIERR_SEQ_PORT_MISCERROR = (MCIERR_BASE + 84) Const MCIERR_SEQ_TIMER = (MCIERR_BASE + 85) Const MCIERR_SEQ_PORTUNSPECIFIED = (MCIERR_BASE + 86) Const MCIERR_SEQ_NOMIDIPRESENT = (MCIERR_BASE + 87) Const MCIERR_NO_WINDOW = (MCIERR_BASE + 90) Const MCIERR_CREATEWINDOW = (MCIERR_BASE + 91) Const MCIERR_FILE_READ = (MCIERR_BASE + 92) Const MCIERR_FILE_WRITE = (MCIERR_BASE + 93) ' All custom device driver errors must be >= this value Const MCIERR_CUSTOM_DRIVER_BASE = (MCIERR_BASE + 256) ' Message numbers must be in the range between MCI_FIRST and MCI_LAST Const MCI_FIRST = &H800 ' Messages 0x801 and 0x802 are reserved Const MCI_OPEN = &H803 Const MCI_CLOSE = &H804 Const MCI_ESCAPE = &H805 Const MCI_PLAY = &H806 Const MCI_SEEK = &H807 Const MCI_STOP = &H808 Const MCI_PAUSE = &H809 Const MCI_INFO = &H80A Const MCI_GETDEVCAPS = &H80B Const MCI_SPIN = &H80C Const MCI_SET = &H80D Const MCI_STEP = &H80E Const MCI_RECORD = &H80F Const MCI_SYSINFO = &H810 Const MCI_BREAK = &H811 Const MCI_SOUND = &H812 Const MCI_SAVE = &H813 Const MCI_STATUS = &H814 Const MCI_CUE = &H830 Const MCI_REALIZE = &H840 Const MCI_WINDOW = &H841 Const MCI_PUT = &H842 Const MCI_WHERE = &H843 Const MCI_FREEZE = &H844 Const MCI_UNFREEZE = &H845 Const MCI_LOAD = &H850 Const MCI_CUT = &H851 Const MCI_COPY = &H852 Const MCI_PASTE = &H853 Const MCI_UPDATE = &H854 Const MCI_RESUME = &H855 Const MCI_DELETE = &H856 Const MCI_LAST = &HFFF ' the next 0x400 message ID's are reserved for custom drivers ' all custom MCI command messages must be >= than this value Const MCI_USER_MESSAGES = (&H400 + MCI_FIRST) Const MCI_ALL_DEVICE_ID = - 1 ' Matches all MCI devices ' constants for predefined MCI device types Const MCI_DEVTYPE_VCR = 513 Const MCI_DEVTYPE_VIDEODISC = 514 Const MCI_DEVTYPE_OVERLAY = 515 Const MCI_DEVTYPE_CD_AUDIO = 516 Const MCI_DEVTYPE_DAT = 517 Const MCI_DEVTYPE_SCANNER = 518 Const MCI_DEVTYPE_ANIMATION = 519 Const MCI_DEVTYPE_DIGITAL_VIDEO = 520 Const MCI_DEVTYPE_OTHER = 521 Const MCI_DEVTYPE_WAVEFORM_AUDIO = 522 Const MCI_DEVTYPE_SEQUENCER = 523 Const MCI_DEVTYPE_FIRST = MCI_DEVTYPE_VCR Const MCI_DEVTYPE_LAST = MCI_DEVTYPE_SEQUENCER Const MCI_DEVTYPE_FIRST_USER = &H1000 ' return values for 'status mode' command Const MCI_MODE_NOT_READY = (MCI_STRING_OFFSET + 12) Const MCI_MODE_STOP = (MCI_STRING_OFFSET + 13) Const MCI_MODE_PLAY = (MCI_STRING_OFFSET + 14) Const MCI_MODE_RECORD = (MCI_STRING_OFFSET + 15) Const MCI_MODE_SEEK = (MCI_STRING_OFFSET + 16) Const MCI_MODE_PAUSE = (MCI_STRING_OFFSET + 17) Const MCI_MODE_OPEN = (MCI_STRING_OFFSET + 18) ' constants used in 'set time format' and 'status time format' commands Const MCI_FORMAT_MILLISECONDS = 0 Const MCI_FORMAT_HMS = 1 Const MCI_FORMAT_MSF = 2 Const MCI_FORMAT_FRAMES = 3 Const MCI_FORMAT_SMPTE_24 = 4 Const MCI_FORMAT_SMPTE_25 = 5 Const MCI_FORMAT_SMPTE_30 = 6 Const MCI_FORMAT_SMPTE_30DROP = 7 Const MCI_FORMAT_BYTES = 8 Const MCI_FORMAT_SAMPLES = 9 Const MCI_FORMAT_TMSF = 10 ' Flags for wParam of the MM_MCINOTIFY message Const MCI_NOTIFY_SUCCESSFUL = &H1 Const MCI_NOTIFY_SUPERSEDED = &H2 Const MCI_NOTIFY_ABORTED = &H4 Const MCI_NOTIFY_FAILURE = &H8 ' common flags for dwFlags parameter of MCI command messages Const MCI_NOTIFY = &H1& Const MCI_WAIT = &H2& Const MCI_FROM = &H4& Const MCI_TO = &H8& Const MCI_TRACK = &H10& ' flags for dwFlags parameter of MCI_OPEN command message Const MCI_OPEN_SHAREABLE = &H100& Const MCI_OPEN_ELEMENT = &H200& Const MCI_OPEN_ALIAS = &H400& Const MCI_OPEN_ELEMENT_ID = &H800& Const MCI_OPEN_TYPE_ID = &H1000& Const MCI_OPEN_TYPE = &H2000& ' flags for dwFlags parameter of MCI_SEEK command message Const MCI_SEEK_TO_START = &H100& Const MCI_SEEK_TO_END = &H200& ' flags for dwFlags parameter of MCI_STATUS command message Const MCI_STATUS_ITEM = &H100& Const MCI_STATUS_START = &H200& ' flags for dwItem field of the MCI_STATUS_PARMS parameter block Const MCI_STATUS_LENGTH = &H1& Const MCI_STATUS_POSITION = &H2& Const MCI_STATUS_NUMBER_OF_TRACKS = &H3& Const MCI_STATUS_MODE = &H4& Const MCI_STATUS_MEDIA_PRESENT = &H5& Const MCI_STATUS_TIME_FORMAT = &H6& Const MCI_STATUS_READY = &H7& Const MCI_STATUS_CURRENT_TRACK = &H8& ' flags for dwFlags parameter of MCI_INFO command message Const MCI_INFO_PRODUCT = &H100& Const MCI_INFO_FILE = &H200& ' flags for dwFlags parameter of MCI_GETDEVCAPS command message Const MCI_GETDEVCAPS_ITEM = &H100& ' flags for dwItem field of the MCI_GETDEVCAPS_PARMS parameter block Const MCI_GETDEVCAPS_CAN_RECORD = &H1& Const MCI_GETDEVCAPS_HAS_AUDIO = &H2& Const MCI_GETDEVCAPS_HAS_VIDEO = &H3& Const MCI_GETDEVCAPS_DEVICE_TYPE = &H4& Const MCI_GETDEVCAPS_USES_FILES = &H5& Const MCI_GETDEVCAPS_COMPOUND_DEVICE = &H6& Const MCI_GETDEVCAPS_CAN_EJECT = &H7& Const MCI_GETDEVCAPS_CAN_PLAY = &H8& Const MCI_GETDEVCAPS_CAN_SAVE = &H9& ' flags for dwFlags parameter of MCI_SYSINFO command message Const MCI_SYSINFO_QUANTITY = &H100& Const MCI_SYSINFO_OPEN = &H200& Const MCI_SYSINFO_NAME = &H400& Const MCI_SYSINFO_INSTALLNAME = &H800& ' flags for dwFlags parameter of MCI_SET command message Const MCI_SET_DOOR_OPEN = &H100& Const MCI_SET_DOOR_CLOSED = &H200& Const MCI_SET_TIME_FORMAT = &H400& Const MCI_SET_AUDIO = &H800& Const MCI_SET_VIDEO = &H1000& Const MCI_SET_ON = &H2000& Const MCI_SET_OFF = &H4000& ' flags for dwAudio field of MCI_SET_PARMS or MCI_SEQ_SET_PARMS Const MCI_SET_AUDIO_ALL = &H4001& Const MCI_SET_AUDIO_LEFT = &H4002& Const MCI_SET_AUDIO_RIGHT = &H4003& ' flags for dwFlags parameter of MCI_BREAK command message Const MCI_BREAK_KEY = &H100& Const MCI_BREAK_HWND = &H200& Const MCI_BREAK_OFF = &H400& ' flags for dwFlags parameter of MCI_RECORD command message Const MCI_RECORD_INSERT = &H100& Const MCI_RECORD_OVERWRITE = &H200& ' flags for dwFlags parameter of MCI_SOUND command message Const MCI_SOUND_NAME = &H100& ' flags for dwFlags parameter of MCI_SAVE command message Const MCI_SAVE_FILE = &H100& ' flags for dwFlags parameter of MCI_LOAD command message Const MCI_LOAD_FILE = &H100& Type MCI_GENERIC_PARMS dwCallback As Long End Type Type MCI_OPEN_PARMS dwCallback As Long wDeviceID As Long lpstrDeviceType As String lpstrElementName As String lpstrAlias As String End Type Type MCI_PLAY_PARMS dwCallback As Long dwFrom As Long dwTo As Long End Type Type MCI_SEEK_PARMS dwCallback As Long dwTo As Long End Type Type MCI_STATUS_PARMS dwCallback As Long dwReturn As Long dwItem As Long dwTrack As Integer End Type Type MCI_INFO_PARMS dwCallback As Long lpstrReturn As String dwRetSize As Long End Type Type MCI_GETDEVCAPS_PARMS dwCallback As Long dwReturn As Long dwIten As Long End Type Type MCI_SYSINFO_PARMS dwCallback As Long lpstrReturn As String dwRetSize As Long dwNumber As Long wDeviceType As Long End Type Type MCI_SET_PARMS dwCallback As Long dwTimeFormat As Long dwAudio As Long End Type Type MCI_BREAK_PARMS dwCallback As Long nVirtKey As Long hwndBreak As Long End Type Type MCI_SOUND_PARMS dwCallback As Long lpstrSoundName As String End Type Type MCI_SAVE_PARMS dwCallback As Long lpFileName As String End Type Type MCI_LOAD_PARMS dwCallback As Long lpFileName As String End Type Type MCI_RECORD_PARMS dwCallback As Long dwFrom As Long dwTo As Long End Type Const MCI_VD_MODE_PARK = (MCI_VD_OFFSET + 1) ' return ID's for videodisc MCI_GETDEVCAPS command ' flag for dwReturn field of MCI_STATUS_PARMS ' MCI_STATUS command, (dwItem == MCI_VD_STATUS_MEDIA_TYPE) Const MCI_VD_MEDIA_CLV = (MCI_VD_OFFSET + 2) Const MCI_VD_MEDIA_CAV = (MCI_VD_OFFSET + 3) Const MCI_VD_MEDIA_OTHER = (MCI_VD_OFFSET + 4) Const MCI_VD_FORMAT_TRACK = &H4001 ' flags for dwFlags parameter of MCI_PLAY command message Const MCI_VD_PLAY_REVERSE = &H10000 Const MCI_VD_PLAY_FAST = &H20000 Const MCI_VD_PLAY_SPEED = &H40000 Const MCI_VD_PLAY_SCAN = &H80000 Const MCI_VD_PLAY_SLOW = &H100000 ' flag for dwFlags parameter of MCI_SEEK command message Const MCI_VD_SEEK_REVERSE = &H10000 ' flags for dwItem field of MCI_STATUS_PARMS parameter block Const MCI_VD_STATUS_SPEED = &H4002& Const MCI_VD_STATUS_FORWARD = &H4003& Const MCI_VD_STATUS_MEDIA_TYPE = &H4004& Const MCI_VD_STATUS_SIDE = &H4005& Const MCI_VD_STATUS_DISC_SIZE = &H4006& ' flags for dwFlags parameter of MCI_GETDEVCAPS command message Const MCI_VD_GETDEVCAPS_CLV = &H10000 Const MCI_VD_GETDEVCAPS_CAV = &H20000 Const MCI_VD_SPIN_UP = &H10000 Const MCI_VD_SPIN_DOWN = &H20000 ' flags for dwItem field of MCI_GETDEVCAPS_PARMS parameter block Const MCI_VD_GETDEVCAPS_CAN_REVERSE = &H4002& Const MCI_VD_GETDEVCAPS_FAST_RATE = &H4003& Const MCI_VD_GETDEVCAPS_SLOW_RATE = &H4004& Const MCI_VD_GETDEVCAPS_NORMAL_RATE = &H4005& ' flags for the dwFlags parameter of MCI_STEP command message Const MCI_VD_STEP_FRAMES = &H10000 Const MCI_VD_STEP_REVERSE = &H20000 ' flag for the MCI_ESCAPE command message Const MCI_VD_ESCAPE_STRING = &H100& Type MCI_VD_PLAY_PARMS dwCallback As Long dwFrom As Long dwTo As Long dwSpeed As Long End Type Type MCI_VD_STEP_PARMS dwCallback As Long dwFrames As Long End Type Type MCI_VD_ESCAPE_PARMS dwCallback As Long lpstrCommand As String End Type Const MCI_WAVE_PCM = (MCI_WAVE_OFFSET + 0) Const MCI_WAVE_MAPPER = (MCI_WAVE_OFFSET + 1) ' flags for the dwFlags parameter of MCI_OPEN command message Const MCI_WAVE_OPEN_BUFFER = &H10000 ' flags for the dwFlags parameter of MCI_SET command message Const MCI_WAVE_SET_FORMATTAG = &H10000 Const MCI_WAVE_SET_CHANNELS = &H20000 Const MCI_WAVE_SET_SAMPLESPERSEC = &H40000 Const MCI_WAVE_SET_AVGBYTESPERSEC = &H80000 Const MCI_WAVE_SET_BLOCKALIGN = &H100000 Const MCI_WAVE_SET_BITSPERSAMPLE = &H200000 ' flags for the dwFlags parameter of MCI_STATUS, MCI_SET command messages Const MCI_WAVE_INPUT = &H400000 Const MCI_WAVE_OUTPUT = &H800000 ' flags for the dwItem field of MCI_STATUS_PARMS parameter block Const MCI_WAVE_STATUS_FORMATTAG = &H4001& Const MCI_WAVE_STATUS_CHANNELS = &H4002& Const MCI_WAVE_STATUS_SAMPLESPERSEC = &H4003& Const MCI_WAVE_STATUS_AVGBYTESPERSEC = &H4004& Const MCI_WAVE_STATUS_BLOCKALIGN = &H4005& Const MCI_WAVE_STATUS_BITSPERSAMPLE = &H4006& Const MCI_WAVE_STATUS_LEVEL = &H4007& ' flags for the dwFlags parameter of MCI_SET command message Const MCI_WAVE_SET_ANYINPUT = &H4000000 Const MCI_WAVE_SET_ANYOUTPUT = &H8000000 ' flags for the dwFlags parameter of MCI_GETDEVCAPS command message Const MCI_WAVE_GETDEVCAPS_INPUTS = &H4001& Const MCI_WAVE_GETDEVCAPS_OUTPUTS = &H4002& Type MCI_WAVE_OPEN_PARMS dwCallback As Long wDeviceID As Long lpstrDeviceType As String lpstrElementName As String lpstrAlias As String dwBufferSeconds As Long End Type Type MCI_WAVE_DELETE_PARMS dwCallback As Long dwFrom As Long dwTo As Long End Type Type MCI_WAVE_SET_PARMS dwCallback As Long dwTimeFormat As Long dwAudio As Long wInput As Long wOutput As Long wFormatTag As Integer wReserved2 As Integer nChannels As Integer wReserved3 As Integer nSamplesPerSec As Long nAvgBytesPerSec As Long nBlockAlign As Integer wReserved4 As Integer wBitsPerSample As Integer wReserved5 As Integer End Type ' flags for the dwReturn field of MCI_STATUS_PARMS parameter block ' MCI_STATUS command, (dwItem == MCI_SEQ_STATUS_DIVTYPE) Const MCI_SEQ_DIV_PPQN = (0 + MCI_SEQ_OFFSET) Const MCI_SEQ_DIV_SMPTE_24 = (1 + MCI_SEQ_OFFSET) Const MCI_SEQ_DIV_SMPTE_25 = (2 + MCI_SEQ_OFFSET) Const MCI_SEQ_DIV_SMPTE_30DROP = (3 + MCI_SEQ_OFFSET) Const MCI_SEQ_DIV_SMPTE_30 = (4 + MCI_SEQ_OFFSET) ' flags for the dwMaster field of MCI_SEQ_SET_PARMS parameter block ' MCI_SET command, (dwFlags == MCI_SEQ_SET_MASTER) Const MCI_SEQ_FORMAT_SONGPTR = &H4001 Const MCI_SEQ_FILE = &H4002 Const MCI_SEQ_MIDI = &H4003 Const MCI_SEQ_SMPTE = &H4004 Const MCI_SEQ_NONE = 65533 Const MCI_SEQ_MAPPER = 65535 ' flags for the dwItem field of MCI_STATUS_PARMS parameter block Const MCI_SEQ_STATUS_TEMPO = &H4002& Const MCI_SEQ_STATUS_PORT = &H4003& Const MCI_SEQ_STATUS_SLAVE = &H4007& Const MCI_SEQ_STATUS_MASTER = &H4008& Const MCI_SEQ_STATUS_OFFSET = &H4009& Const MCI_SEQ_STATUS_DIVTYPE = &H400A& ' flags for the dwFlags parameter of MCI_SET command message Const MCI_SEQ_SET_TEMPO = &H10000 Const MCI_SEQ_SET_PORT = &H20000 Const MCI_SEQ_SET_SLAVE = &H40000 Const MCI_SEQ_SET_MASTER = &H80000 Const MCI_SEQ_SET_OFFSET = &H1000000 Type MCI_SEQ_SET_PARMS dwCallback As Long dwTimeFormat As Long dwAudio As Long dwTempo As Long dwPort As Long dwSlave As Long dwMaster As Long dwOffset As Long End Type ' flags for dwFlags parameter of MCI_OPEN command message Const MCI_ANIM_OPEN_WS = &H10000 Const MCI_ANIM_OPEN_PARENT = &H20000 Const MCI_ANIM_OPEN_NOSTATIC = &H40000 ' flags for dwFlags parameter of MCI_PLAY command message Const MCI_ANIM_PLAY_SPEED = &H10000 Const MCI_ANIM_PLAY_REVERSE = &H20000 Const MCI_ANIM_PLAY_FAST = &H40000 Const MCI_ANIM_PLAY_SLOW = &H80000 Const MCI_ANIM_PLAY_SCAN = &H100000 ' flags for dwFlags parameter of MCI_STEP command message Const MCI_ANIM_STEP_REVERSE = &H10000 Const MCI_ANIM_STEP_FRAMES = &H20000 ' flags for dwItem field of MCI_STATUS_PARMS parameter block Const MCI_ANIM_STATUS_SPEED = &H4001& Const MCI_ANIM_STATUS_FORWARD = &H4002& Const MCI_ANIM_STATUS_HWND = &H4003& Const MCI_ANIM_STATUS_HPAL = &H4004& Const MCI_ANIM_STATUS_STRETCH = &H4005& ' flags for the dwFlags parameter of MCI_INFO command message Const MCI_ANIM_INFO_TEXT = &H10000 ' flags for dwItem field of MCI_GETDEVCAPS_PARMS parameter block Const MCI_ANIM_GETDEVCAPS_CAN_REVERSE = &H4001& Const MCI_ANIM_GETDEVCAPS_FAST_RATE = &H4002& Const MCI_ANIM_GETDEVCAPS_SLOW_RATE = &H4003& Const MCI_ANIM_GETDEVCAPS_NORMAL_RATE = &H4004& Const MCI_ANIM_GETDEVCAPS_PALETTES = &H4006& Const MCI_ANIM_GETDEVCAPS_CAN_STRETCH = &H4007& Const MCI_ANIM_GETDEVCAPS_MAX_WINDOWS = &H4008& ' flags for the MCI_REALIZE command message Const MCI_ANIM_REALIZE_NORM = &H10000 Const MCI_ANIM_REALIZE_BKGD = &H20000 ' flags for dwFlags parameter of MCI_WINDOW command message Const MCI_ANIM_WINDOW_HWND = &H10000 Const MCI_ANIM_WINDOW_STATE = &H40000 Const MCI_ANIM_WINDOW_TEXT = &H80000 Const MCI_ANIM_WINDOW_ENABLE_STRETCH = &H100000 Const MCI_ANIM_WINDOW_DISABLE_STRETCH = &H200000 ' flags for hWnd field of MCI_ANIM_WINDOW_PARMS parameter block ' MCI_WINDOW command message, (dwFlags == MCI_ANIM_WINDOW_HWND) Const MCI_ANIM_WINDOW_DEFAULT = &H0& ' flags for dwFlags parameter of MCI_PUT command message Const MCI_ANIM_RECT = &H10000 Const MCI_ANIM_PUT_SOURCE = &H20000 ' also MCI_WHERE Const MCI_ANIM_PUT_DESTINATION = &H40000 ' also MCI_WHERE ' flags for dwFlags parameter of MCI_WHERE command message Const MCI_ANIM_WHERE_SOURCE = &H20000 Const MCI_ANIM_WHERE_DESTINATION = &H40000 ' flags for dwFlags parameter of MCI_UPDATE command message Const MCI_ANIM_UPDATE_HDC = &H20000 Type MCI_ANIM_OPEN_PARMS dwCallback As Long wDeviceID As Long lpstrDeviceType As String lpstrElementName As String lpstrAlias As String dwStyle As Long hWndParent As Long End Type Type MCI_ANIM_PLAY_PARMS dwCallback As Long dwFrom As Long dwTo As Long dwSpeed As Long End Type Type MCI_ANIM_STEP_PARMS dwCallback As Long dwFrames As Long End Type Type MCI_ANIM_WINDOW_PARMS dwCallback As Long hwnd As Long nCmdShow As Long lpstrText As String End Type Type MCI_ANIM_RECT_PARMS dwCallback As Long rc As Rect End Type Type MCI_ANIM_UPDATE_PARMS dwCallback As Long rc As Rect hdc As Long End Type ' flags for dwFlags parameter of MCI_OPEN command message Const MCI_OVLY_OPEN_WS = &H10000 Const MCI_OVLY_OPEN_PARENT = &H20000 ' flags for dwFlags parameter of MCI_STATUS command message Const MCI_OVLY_STATUS_HWND = &H4001& Const MCI_OVLY_STATUS_STRETCH = &H4002& ' flags for dwFlags parameter of MCI_INFO command message Const MCI_OVLY_INFO_TEXT = &H10000 ' flags for dwItem field of MCI_GETDEVCAPS_PARMS parameter block Const MCI_OVLY_GETDEVCAPS_CAN_STRETCH = &H4001& Const MCI_OVLY_GETDEVCAPS_CAN_FREEZE = &H4002& Const MCI_OVLY_GETDEVCAPS_MAX_WINDOWS = &H4003& ' flags for dwFlags parameter of MCI_WINDOW command message Const MCI_OVLY_WINDOW_HWND = &H10000 Const MCI_OVLY_WINDOW_STATE = &H40000 Const MCI_OVLY_WINDOW_TEXT = &H80000 Const MCI_OVLY_WINDOW_ENABLE_STRETCH = &H100000 Const MCI_OVLY_WINDOW_DISABLE_STRETCH = &H200000 ' flags for hWnd parameter of MCI_OVLY_WINDOW_PARMS parameter block Const MCI_OVLY_WINDOW_DEFAULT = &H0& ' flags for dwFlags parameter of MCI_PUT command message Const MCI_OVLY_RECT = &H10000 Const MCI_OVLY_PUT_SOURCE = &H20000 Const MCI_OVLY_PUT_DESTINATION = &H40000 Const MCI_OVLY_PUT_FRAME = &H80000 Const MCI_OVLY_PUT_VIDEO = &H100000 ' flags for dwFlags parameter of MCI_WHERE command message Const MCI_OVLY_WHERE_SOURCE = &H20000 Const MCI_OVLY_WHERE_DESTINATION = &H40000 Const MCI_OVLY_WHERE_FRAME = &H80000 Const MCI_OVLY_WHERE_VIDEO = &H100000 Type MCI_OVLY_OPEN_PARMS dwCallback As Long wDeviceID As Long lpstrDeviceType As String lpstrElementName As String lpstrAlias As String dwStyle As Long hWndParent As Long End Type Type MCI_OVLY_WINDOW_PARMS dwCallback As Long hwnd As Long nCmdShow As Long lpstrText As String End Type Type MCI_OVLY_RECT_PARMS dwCallback As Long rc As Rect End Type Type MCI_OVLY_SAVE_PARMS dwCallback As Long lpFileName As String rc As Rect End Type Type MCI_OVLY_LOAD_PARMS dwCallback As Long lpFileName As String rc As Rect End Type Const CAPS1 = 94 ' other caps Const C1_TRANSPARENT = &H1 ' new raster cap Const NEWTRANSPARENT = 3 ' use with SetBkMode() Const QUERYROPSUPPORT = 40 ' use to determine ROP support Const SELECTDIB = 41 ' DIB.DRV select dib escape ' ---------------- ' shell association database management functions ' ----------------- ' error values for ShellExecute() beyond the regular WinExec() codes Const SE_ERR_SHARE = 26 Const SE_ERR_ASSOCINCOMPLETE = 27 Const SE_ERR_DDETIMEOUT = 28 Const SE_ERR_DDEFAIL = 29 Const SE_ERR_DDEBUSY = 30 Const SE_ERR_NOASSOC = 31 ' ------------- ' Print APIs ' ------------- Type PRINTER_INFO_1 flags As Long pDescription As String pName As String pComment As String End Type Type PRINTER_INFO_2 pServerName As String pPrinterName As String pShareName As String pPortName As String pDriverName As String pComment As String pLocation As String pDevMode As Long 'wants a pointer to a DEVMODE struct pSepFile As String pPrintProcessor As String pDatatype As String pParameters As String pSecurityDescriptor As Long 'wants pointer to a SECURITY_DESCRIPTOR struc. or a null Attributes As Long Priority As Long DefaultPriority As Long StartTime As Long UntilTime As Long Status As Long cJobs As Long AveragePPM As Long End Type Type PRINTER_INFO_3 pSecurityDescriptor As SECURITY_DESCRIPTOR End Type Const PRINTER_CONTROL_PAUSE = 1 Const PRINTER_CONTROL_RESUME = 2 Const PRINTER_CONTROL_PURGE = 3 Const PRINTER_STATUS_PAUSED = &H1 Const PRINTER_STATUS_ERROR = &H2 Const PRINTER_STATUS_PENDING_DELETION = &H4 Const PRINTER_STATUS_PAPER_JAM = &H8 Const PRINTER_STATUS_PAPER_OUT = &H10 Const PRINTER_STATUS_MANUAL_FEED = &H20 Const PRINTER_STATUS_PAPER_PROBLEM = &H40 Const PRINTER_STATUS_OFFLINE = &H80 Const PRINTER_STATUS_IO_ACTIVE = &H100 Const PRINTER_STATUS_BUSY = &H200 Const PRINTER_STATUS_PRINTING = &H400 Const PRINTER_STATUS_OUTPUT_BIN_FULL = &H800 Const PRINTER_STATUS_NOT_AVAILABLE = &H1000 Const PRINTER_STATUS_WAITING = &H2000 Const PRINTER_STATUS_PROCESSING = &H4000 Const PRINTER_STATUS_INITIALIZING = &H8000 Const PRINTER_STATUS_WARMING_UP = &H10000 Const PRINTER_STATUS_TONER_LOW = &H20000 Const PRINTER_STATUS_NO_TONER = &H40000 Const PRINTER_STATUS_PAGE_PUNT = &H80000 Const PRINTER_STATUS_USER_INTERVENTION = &H100000 Const PRINTER_STATUS_OUT_OF_MEMORY = &H200000 Const PRINTER_STATUS_DOOR_OPEN = &H400000 Const PRINTER_ATTRIBUTE_QUEUED = &H1 Const PRINTER_ATTRIBUTE_DIRECT = &H2 Const PRINTER_ATTRIBUTE_DEFAULT = &H4 Const PRINTER_ATTRIBUTE_SHARED = &H8 Const PRINTER_ATTRIBUTE_NETWORK = &H10 Const PRINTER_ATTRIBUTE_HIDDEN = &H20 Const PRINTER_ATTRIBUTE_LOCAL = &H40 Const NO_PRIORITY = 0 Const MAX_PRIORITY = 99 Const MIN_PRIORITY = 1 Const DEF_PRIORITY = 1 Type JOB_INFO_1 JobId As Long pPrinterName As String pMachineName As String pUserName As String pDocument As String pDatatype As String pStatus As String Status As Long Priority As Long Position As Long TotalPages As Long PagesPrinted As Long Submitted As SYSTEMTIME End Type Type JOB_INFO_2 JobId As Long pPrinterName As String pMachineName As String pUserName As String pDocument As String pNotifyName As String pDatatype As String pPrintProcessor As String pParameters As String pDriverName As String pDevMode As DEVMODE pStatus As String pSecurityDescriptor As SECURITY_DESCRIPTOR Status As Long Priority As Long Position As Long StartTime As Long UntilTime As Long TotalPages As Long Size As Long Submitted As SYSTEMTIME time As Long PagesPrinted As Long End Type Const JOB_CONTROL_PAUSE = 1 Const JOB_CONTROL_RESUME = 2 Const JOB_CONTROL_CANCEL = 3 Const JOB_CONTROL_RESTART = 4 Const JOB_STATUS_PAUSED = &H1 Const JOB_STATUS_ERROR = &H2 Const JOB_STATUS_DELETING = &H4 Const JOB_STATUS_SPOOLING = &H8 Const JOB_STATUS_PRINTING = &H10 Const JOB_STATUS_OFFLINE = &H20 Const JOB_STATUS_PAPEROUT = &H40 Const JOB_STATUS_PRINTED = &H80 Const JOB_POSITION_UNSPECIFIED = 0 Type ADDJOB_INFO_1 Path As String JobId As Long End Type Type DRIVER_INFO_1 pName As String End Type Type DRIVER_INFO_2 cVersion As Long pName As String pEnvironment As String pDriverPath As String pDataFile As String pConfigFile As String End Type Type DOC_INFO_1 pDocName As String pOutputFile As String pDatatype As String End Type Type FORM_INFO_1 pName As String Size As SIZEL ImageableArea As RECTL End Type Const FORM_BUILTIN = &H1 Type PRINTPROCESSOR_INFO_1 pName As String End Type Type PORT_INFO_1 pName As String End Type Type MONITOR_INFO_1 pName As String End Type Type MONITOR_INFO_2 pName As String pEnvironment As String pDLLName As String End Type Type DATATYPES_INFO_1 pName As String End Type Type PRINTER_DEFAULTS pDatatype As Long ' Pointer to a string pDevMode As Long ' Pointer to DEVMODE structure DesiredAccess As Long End Type Type PRINTER_INFO_4 pPrinterName As String pServerName As String Attributes As Long End Type Type PRINTER_INFO_5 pPrinterName As String pPortName As String Attributes As Long DeviceNotSelectedTimeout As Long TransmissionRetryTimeout As Long End Type Const PRINTER_CONTROL_SET_STATUS = 4 Const PRINTER_ATTRIBUTE_WORK_OFFLINE = &H400 Const PRINTER_ATTRIBUTE_ENABLE_BIDI = &H800 Const JOB_CONTROL_DELETE = 5 Const JOB_STATUS_USER_INTERVENTION = &H10000 Type DRIVER_INFO_3 cVersion As Long pName As String ' QMS 810 pEnvironment As String ' Win32 x86 pDriverPath As String ' c:\drivers\pscript.dll pDataFile As String ' c:\drivers\QMS810.PPD pConfigFile As String ' c:\drivers\PSCRPTUI.DLL pHelpFile As String ' c:\drivers\PSCRPTUI.HLP pDependentFiles As String ' pMonitorName As String ' "PJL monitor" pDefaultDataType As String ' "EMF" End Type Type DOC_INFO_2 pDocName As String pOutputFile As String pDatatype As String dwMode As Long JobId As Long End Type Const DI_CHANNEL = 1 ' start direct read/write channel, Const DI_READ_SPOOL_JOB = 3 Type PORT_INFO_2 pPortName As String pMonitorName As String pDescription As String fPortType As Long Reserved As Long End Type Const PORT_TYPE_WRITE = &H1 Const PORT_TYPE_READ = &H2 Const PORT_TYPE_REDIRECTED = &H4 Const PORT_TYPE_NET_ATTACHED = &H8 Declare Function EnumPrinters Lib "winspool.drv" Alias "EnumPrintersA" (ByVal flags As Long, ByVal name As String, ByVal Level As Long, pPrinterEnum As Byte, ByVal cdBuf As Long, pcbNeeded As Long, pcReturned As Long) As Long Const PRINTER_ENUM_DEFAULT = &H1 Const PRINTER_ENUM_LOCAL = &H2 Const PRINTER_ENUM_CONNECTIONS = &H4 Const PRINTER_ENUM_FAVORITE = &H4 Const PRINTER_ENUM_NAME = &H8 Const PRINTER_ENUM_REMOTE = &H10 Const PRINTER_ENUM_SHARED = &H20 Const PRINTER_ENUM_NETWORK = &H40 Const PRINTER_ENUM_EXPAND = &H4000 Const PRINTER_ENUM_CONTAINER = &H8000 Const PRINTER_ENUM_ICONMASK = &HFF0000 Const PRINTER_ENUM_ICON1 = &H10000 Const PRINTER_ENUM_ICON2 = &H20000 Const PRINTER_ENUM_ICON3 = &H40000 Const PRINTER_ENUM_ICON4 = &H80000 Const PRINTER_ENUM_ICON5 = &H100000 Const PRINTER_ENUM_ICON6 = &H200000 Const PRINTER_ENUM_ICON7 = &H400000 Const PRINTER_ENUM_ICON8 = &H800000 Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, pDefault As PRINTER_DEFAULTS) As Long Declare Function ResetPrinter Lib "winspool.drv" Alias "ResetPrinterA" (ByVal hPrinter As Long, pDefault As PRINTER_DEFAULTS) As Long Declare Function SetJob Lib "winspool.drv" Alias "SetJobA" (ByVal hPrinter As Long, ByVal JobId As Long, ByVal Level As Long, pJob As Byte, ByVal Command As Long) As Long Declare Function GetJob Lib "winspool.drv" Alias "GetJobA" (ByVal hPrinter As Long, ByVal JobId As Long, ByVal Level As Long, pJob As Byte, ByVal cdBuf As Long, pcbNeeded As Long) As Long Declare Function EnumJobs Lib "winspool.drv" Alias "EnumJobsA" (ByVal hPrinter As Long, ByVal FirstJob As Long, ByVal NoJobs As Long, ByVal Level As Long, pJob As Byte, ByVal cdBuf As Long, pcbNeeded As Long, pcReturned As Long) As Long Declare Function AddPrinter Lib "winspool.drv" Alias "AddPrinterA" (ByVal pName As String, ByVal Level As Long, pPrinter As Any) As Long Declare Function AddPrinterDriver Lib "winspool.drv" Alias "AddPrinterDriverA" (ByVal pName As String, ByVal Level As Long, pDriverInfo As Any) As Long Declare Function EnumPrinterDrivers Lib "winspool.drv" Alias "EnumPrinterDriversA" (ByVal pName As String, ByVal pEnvironment As String, ByVal Level As Long, pDriverInfo As Byte, ByVal cdBuf As Long, pcbNeeded As Long, pcRetruned As Long) As Long Declare Function GetPrinterDriver Lib "winspool.drv" Alias "GetPrinterDriverA" (ByVal hPrinter As Long, ByVal pEnvironment As String, ByVal Level As Long, pDriverInfo As Byte, ByVal cdBuf As Long, pcbNeeded As Long) As Long Declare Function GetPrinterDriverDirectory Lib "winspool.drv" Alias "GetPrinterDriverDirectoryA" (ByVal pName As String, ByVal pEnvironment As String, ByVal Level As Long, pDriverDirectory As Byte, ByVal cdBuf As Long, pcbNeeded As Long) As Long Declare Function DeletePrinterDriver Lib "winspool.drv" Alias "DeletePrinterDriverA" (ByVal pName As String, ByVal pEnvironment As String, ByVal pDriverName As String) As Long Declare Function AddPrintProcessor Lib "winspool.drv" Alias "AddPrintProcessorA" (ByVal pName As String, ByVal pEnvironment As String, ByVal pPathName As String, ByVal pPrintProcessorName As String) As Long Declare Function EnumPrintProcessors Lib "winspool.drv" Alias "EnumPrintProcessorsA" (ByVal pName As String, ByVal pEnvironment As String, ByVal Level As Long, pPrintProcessorInfo As Byte, ByVal cdBuf As Long, pcbNeeded As Long, pcReturned As Long) As Long Declare Function GetPrintProcessorDirectory Lib "winspool.drv" Alias "GetPrintProcessorDirectoryA" (ByVal pName As String, ByVal pEnvironment As String, ByVal Level As Long, ByVal pPrintProcessorInfo As String, ByVal cdBuf As Long, pcbNeeded As Long) As Long Declare Function EnumPrintProcessorDatatypes Lib "winspool.drv" Alias "EnumPrintProcessorDatatypesA" (ByVal pName As String, ByVal pPrintProcessorName As String, ByVal Level As Long, pDatatypes As Byte, ByVal cdBuf As Long, pcbNeeded As Long, pcReturned As Long) As Long Declare Function DeletePrintProcessor Lib "winspool.drv" Alias "DeletePrintProcessorA" (ByVal pName As String, ByVal pEnvironment As String, ByVal pPrintProcessorName As String) As Long Declare Function StartDocPrinter Lib "winspool.drv" Alias "StartDocPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, pDocInfo As Byte) As Long Declare Function StartPagePrinter Lib "winspool.drv" Alias "StartPagePrinter" (ByVal hPrinter As Long) As Long Declare Function WritePrinter Lib "winspool.drv" Alias "WritePrinter" (ByVal hPrinter As Long, pBuf As Any, ByVal cdBuf As Long, pcWritten As Long) As Long Declare Function EndPagePrinter Lib "winspool.drv" Alias "EndPagePrinter" (ByVal hPrinter As Long) As Long Declare Function AbortPrinter Lib "winspool.drv" Alias "AbortPrinter" (ByVal hPrinter As Long) As Long Declare Function ReadPrinter Lib "winspool.drv" Alias "ReadPrinter" (ByVal hPrinter As Long, pBuf As Any, ByVal cdBuf As Long, pNoBytesRead As Long) As Long Declare Function EndDocPrinter Lib "winspool.drv" Alias "EndDocPrinter" (ByVal hPrinter As Long) As Long Declare Function AddJob Lib "winspool.drv" Alias "AddJobA" (ByVal hPrinter As Long, ByVal Level As Long, pData As Byte, ByVal cdBuf As Long, pcbNeeded As Long) As Long Declare Function ScheduleJob Lib "winspool.drv" Alias "ScheduleJob" (ByVal hPrinter As Long, ByVal JobId As Long) As Long Declare Function PrinterProperties Lib "winspool.drv" Alias "PrinterProperties" (ByVal hwnd As Long, ByVal hPrinter As Long) As Long Declare Function DocumentProperties Lib "winspool.drv" Alias "DocumentPropertiesA" (ByVal hwnd As Long, ByVal hPrinter As Long, ByVal pDeviceName As String, pDevModeOutput As DEVMODE, pDevModeInput As DEVMODE, ByVal fMode As Long) As Long Declare Function AdvancedDocumentProperties Lib "winspool.drv" Alias "AdvancedDocumentPropertiesA" (ByVal hwnd As Long, ByVal hPrinter As Long, ByVal pDeviceName As String, pDevModeOutput As DEVMODE, pDevModeInput As DEVMODE) As Long Declare Function GetPrinterData Lib "winspool.drv" Alias "GetPrinterDataA" (ByVal hPrinter As Long, ByVal pValueName As String, pType As Long, pData As Byte, ByVal nSize As Long, pcbNeeded As Long) As Long Declare Function SetPrinterData Lib "winspool.drv" Alias "SetPrinterDataA" (ByVal hPrinter As Long, ByVal pValueName As String, ByVal dwType As Long, pData As Byte, ByVal cbData As Long) As Long Declare Function WaitForPrinterChange Lib "winspool.drv" Alias "WaitForPrinterChange" (ByVal hPrinter As Long, ByVal flags As Long) As Long Const PRINTER_CHANGE_ADD_PRINTER = &H1 Const PRINTER_CHANGE_SET_PRINTER = &H2 Const PRINTER_CHANGE_DELETE_PRINTER = &H4 Const PRINTER_CHANGE_PRINTER = &HFF Const PRINTER_CHANGE_ADD_JOB = &H100 Const PRINTER_CHANGE_SET_JOB = &H200 Const PRINTER_CHANGE_DELETE_JOB = &H400 Const PRINTER_CHANGE_WRITE_JOB = &H800 Const PRINTER_CHANGE_JOB = &HFF00 Const PRINTER_CHANGE_ADD_FORM = &H10000 Const PRINTER_CHANGE_SET_FORM = &H20000 Const PRINTER_CHANGE_DELETE_FORM = &H40000 Const PRINTER_CHANGE_FORM = &H70000 Const PRINTER_CHANGE_ADD_PORT = &H100000 Const PRINTER_CHANGE_CONFIGURE_PORT = &H200000 Const PRINTER_CHANGE_DELETE_PORT = &H400000 Const PRINTER_CHANGE_PORT = &H700000 Const PRINTER_CHANGE_ADD_PRINT_PROCESSOR = &H1000000 Const PRINTER_CHANGE_DELETE_PRINT_PROCESSOR = &H4000000 Const PRINTER_CHANGE_PRINT_PROCESSOR = &H7000000 Const PRINTER_CHANGE_ADD_PRINTER_DRIVER = &H10000000 Const PRINTER_CHANGE_DELETE_PRINTER_DRIVER = &H40000000 Const PRINTER_CHANGE_PRINTER_DRIVER = &H70000000 Const PRINTER_CHANGE_TIMEOUT = &H80000000 Const PRINTER_CHANGE_ALL = &H7777FFFF Declare Function PrinterMessageBox Lib "winspool.drv" Alias "PrinterMessageBoxA" (ByVal hPrinter As Long, ByVal error As Long, ByVal hwnd As Long, ByVal pText As String, ByVal pCaption As String, ByVal dwType As Long) As Long Const PRINTER_ERROR_INFORMATION = &H80000000 Const PRINTER_ERROR_WARNING = &H40000000 Const PRINTER_ERROR_SEVERE = &H20000000 Const PRINTER_ERROR_OUTOFPAPER = &H1 Const PRINTER_ERROR_JAM = &H2 Const PRINTER_ERROR_OUTOFTONER = &H4 Declare Function ClosePrinter Lib "winspool.drv" Alias "ClosePrinter" (ByVal hPrinter As Long) As Long Declare Function AddForm Lib "winspool.drv" Alias "AddFormA" (ByVal hPrinter As Long, ByVal Level As Long, pForm As Byte) As Long Declare Function DeleteForm Lib "winspool.drv" Alias "DeleteFormA" (ByVal hPrinter As Long, ByVal pFormName As String) As Long Declare Function GetForm Lib "winspool.drv" Alias "GetFormA" (ByVal hPrinter As Long, ByVal pFormName As String, ByVal Level As Long, pForm As Byte, ByVal cbBuf As Long, pcbNeeded As Long) As Long Declare Function SetForm Lib "winspool.drv" Alias "SetFormA" (ByVal hPrinter As Long, ByVal pFormName As String, ByVal Level As Long, pForm As Byte) As Long Declare Function EnumForms Lib "winspool.drv" Alias "EnumFormsA" (ByVal hPrinter As Long, ByVal Level As Long, pForm As Byte, ByVal cbBuf As Long, pcbNeeded As Long, pcReturned As Long) As Long Declare Function EnumMonitors Lib "winspool.drv" Alias "EnumMonitorsA" (ByVal pName As String, ByVal Level As Long, pMonitors As Byte, ByVal cbBuf As Long, pcbNeeded As Long, pcReturned As Long) As Long Declare Function AddMonitor Lib "winspool.drv" Alias "AddMonitorA" (ByVal pName As String, ByVal Level As Long, pMonitors As Byte) As Long Declare Function DeleteMonitor Lib "winspool.drv" Alias "DeleteMonitorA" (ByVal pName As String, ByVal pEnvironment As String, ByVal pMonitorName As String) As Long Declare Function EnumPorts Lib "winspool.drv" Alias "EnumPortsA" (ByVal pName As String, ByVal Level As Long, ByVal lpbPorts As Long, ByVal cbBuf As Long, pcbNeeded As Long, pcReturned As Long) As Long Declare Function AddPort Lib "winspool.drv" Alias "AddPortA" (ByVal pName As String, ByVal hwnd As Long, ByVal pMonitorName As String) As Long Declare Function ConfigurePort Lib "winspool.drv" Alias "ConfigurePortA" (ByVal pName As String, ByVal hwnd As Long, ByVal pPortName As String) As Long Declare Function DeletePort Lib "winspool.drv" Alias "DeletePortA" (ByVal pName As String, ByVal hwnd As Long, ByVal pPortName As String) As Long Declare Function AddPrinterConnection Lib "winspool.drv" Alias "AddPrinterConnectionA" (ByVal pName As String) As Long Declare Function DeletePrinterConnection Lib "winspool.drv" Alias "DeletePrinterConnectionA" (ByVal pName As String) As Long Declare Function ConnectToPrinterDlg Lib "winspool.drv" Alias "ConnectToPrinterDlg" (ByVal hwnd As Long, ByVal flags As Long) As Long Type PROVIDOR_INFO_1 pName As String pEnvironment As String pDLLName As String End Type Declare Function AddPrintProvidor Lib "winspool.drv" Alias "AddPrintProvidorA" (ByVal pName As String, ByVal Level As Long, pProvidorInfo As Byte) As Long Declare Function DeletePrintProvidor Lib "winspool.drv" Alias "DeletePrintProvidorA" (ByVal pName As String, ByVal pEnvironment As String, ByVal pPrintProvidorName As String) As Long Const SERVER_ACCESS_ADMINISTER = &H1 Const SERVER_ACCESS_ENUMERATE = &H2 Const PRINTER_ACCESS_ADMINISTER = &H4 Const PRINTER_ACCESS_USE = &H8 Const JOB_ACCESS_ADMINISTER = &H10 ' Access rights for print servers Const SERVER_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or SERVER_ACCESS_ADMINISTER Or SERVER_ACCESS_ENUMERATE) Const SERVER_READ = (STANDARD_RIGHTS_READ Or SERVER_ACCESS_ENUMERATE) Const SERVER_WRITE = (STANDARD_RIGHTS_WRITE Or SERVER_ACCESS_ADMINISTER Or SERVER_ACCESS_ENUMERATE) Const SERVER_EXECUTE = (STANDARD_RIGHTS_EXECUTE Or SERVER_ACCESS_ENUMERATE) ' Access rights for printers Const PRINTER_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or PRINTER_ACCESS_ADMINISTER Or PRINTER_ACCESS_USE) Const PRINTER_READ = (STANDARD_RIGHTS_READ Or PRINTER_ACCESS_USE) Const PRINTER_WRITE = (STANDARD_RIGHTS_WRITE Or PRINTER_ACCESS_USE) Const PRINTER_EXECUTE = (STANDARD_RIGHTS_EXECUTE Or PRINTER_ACCESS_USE) ' Access rights for jobs Const JOB_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or JOB_ACCESS_ADMINISTER) Const JOB_READ = (STANDARD_RIGHTS_READ Or JOB_ACCESS_ADMINISTER) Const JOB_WRITE = (STANDARD_RIGHTS_WRITE Or JOB_ACCESS_ADMINISTER) Const JOB_EXECUTE = (STANDARD_RIGHTS_EXECUTE Or JOB_ACCESS_ADMINISTER) ' Windows Network support ' RESOURCE ENUMERATION ' Duplicates Const RESOURCE_CONNECTED = &H1 Const RESOURCE_PUBLICNET = &H2 ' Duplicates Const RESOURCE_REMEMBERED = &H3 ' Duplicates Const RESOURCETYPE_ANY = &H0 ' Duplicates Const RESOURCETYPE_DISK = &H1 ' Duplicates Const RESOURCETYPE_PRINT = &H2 ' Duplicates Const RESOURCETYPE_UNKNOWN = &HFFFF ' Duplicates Const RESOURCEUSAGE_CONNECTABLE = &H1 ' Duplicates Const RESOURCEUSAGE_CONTAINER = &H2 ' Duplicates Const RESOURCEUSAGE_RESERVED = &H80000000 ' Duplicates Const RESOURCEDISPLAYTYPE_GENERIC = &H0 ' Duplicates Const RESOURCEDISPLAYTYPE_DOMAIN = &H1 ' Duplicates Const RESOURCEDISPLAYTYPE_SERVER = &H2 ' Duplicates Const RESOURCEDISPLAYTYPE_SHARE = &H3 ' Duplicates Const RESOURCEDISPLAYTYPE_FILE = &H4 ' Duplicates Const RESOURCEDISPLAYTYPE_GROUP = &H5 Type NETRESOURCE dwScope As Long dwType As Long dwDisplayType As Long dwUsage As Long lpLocalName As String lpRemoteName As String lpComment As String lpProvider As String End Type Const CONNECT_UPDATE_PROFILE = &H1 Declare Function WNetAddConnection Lib "mpr.dll" Alias "WNetAddConnectionA" (ByVal lpszNetPath As String, ByVal lpszPassword As String, ByVal lpszLocalName As String) As Long Declare Function WNetAddConnection2 Lib "mpr.dll" Alias "WNetAddConnection2A" (lpNetResource As NETRESOURCE, ByVal lpPassword As String, ByVal lpUserName As String, ByVal dwFlags As Long) As Long Declare Function WNetCancelConnection Lib "mpr.dll" Alias "WNetCancelConnectionA" (ByVal lpszName As String, ByVal bForce As Long) As Long Declare Function WNetCancelConnection2 Lib "mpr.dll" Alias "WNetCancelConnection2A" (ByVal lpName As String, ByVal dwFlags As Long, ByVal fForce As Long) As Long Declare Function WNetGetConnection Lib "mpr.dll" Alias "WNetGetConnectionA" (ByVal lpszLocalName As String, ByVal lpszRemoteName As String, cbRemoteName As Long) As Long ' Declare Function WNetOpenEnum Lib "mpr.dll" Alias "WNetOpenEnumA" (ByVal dwScope As Long, ByVal dwType As Long, ByVal dwUsage As Long, lpNetResource As Any, lphEnum As Long) As Long Declare Function WNetOpenEnum Lib "mpr.dll" Alias "WNetOpenEnumA" (ByVal dwScope As Long, ByVal dwType As Long, ByVal dwUsage As Long, lpNetResource As NETRESOURCE, lphEnum As Long) As Long ' Declare Function WNetEnumResource Lib "mpr.dll" Alias "WNetEnumResourceA" (ByVal hEnum As Long, lpcCount As Long, lpBuffer As Any, lpBufferSize As Long) As Long Declare Function WNetEnumResource Lib "mpr.dll" Alias "WNetEnumResourceA" (ByVal hEnum As Long, lpcCount As Long, lpBuffer As NETRESOURCE, lpBufferSize As Long) As Long Declare Function WNetCloseEnum Lib "mpr.dll" Alias "WNetCloseEnum" (ByVal hEnum As Long) As Long Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long Declare Function WNetConnectionDialog Lib "mpr.dll" Alias "WNetConnectionDialog" (ByVal hwnd As Long, ByVal dwType As Long) As Long Declare Function WNetDisconnectDialog Lib "mpr.dll" Alias "WNetDisconnectDialog" (ByVal hwnd As Long, ByVal dwType As Long) As Long Declare Function WNetGetLastError Lib "mpr.dll" Alias "WNetGetLastErrorA" (lpError As Long, ByVal lpErrorBuf As String, ByVal nErrorBufSize As Long, ByVal lpNameBuf As String, ByVal nNameBufSize As Long) As Long ' Status Codes ' This section is provided for backward compatibility. Use of the ERROR_ ' codes is preferred. The WN_ error codes may not be available in future ' releases. ' General Const WN_SUCCESS = NO_ERROR Const WN_NOT_SUPPORTED = ERROR_NOT_SUPPORTED Const WN_NET_ERROR = ERROR_UNEXP_NET_ERR Const WN_MORE_DATA = ERROR_MORE_DATA Const WN_BAD_POINTER = ERROR_INVALID_ADDRESS Const WN_BAD_VALUE = ERROR_INVALID_PARAMETER Const WN_BAD_PASSWORD = ERROR_INVALID_PASSWORD Const WN_ACCESS_DENIED = ERROR_ACCESS_DENIED Const WN_FUNCTION_BUSY = ERROR_BUSY Const WN_WINDOWS_ERROR = ERROR_UNEXP_NET_ERR Const WN_BAD_USER = ERROR_BAD_USERNAME Const WN_OUT_OF_MEMORY = ERROR_NOT_ENOUGH_MEMORY Const WN_NO_NETWORK = ERROR_NO_NETWORK Const WN_EXTENDED_ERROR = ERROR_EXTENDED_ERROR ' Connection Const WN_NOT_CONNECTED = ERROR_NOT_CONNECTED Const WN_OPEN_FILES = ERROR_OPEN_FILES Const WN_DEVICE_IN_USE = ERROR_DEVICE_IN_USE Const WN_BAD_NETNAME = ERROR_BAD_NET_NAME Const WN_BAD_LOCALNAME = ERROR_BAD_DEVICE Const WN_ALREADY_CONNECTED = ERROR_ALREADY_ASSIGNED Const WN_DEVICE_ERROR = ERROR_GEN_FAILURE Const WN_CONNECTION_CLOSED = ERROR_CONNECTION_UNAVAIL Const WN_NO_NET_OR_BAD_PATH = ERROR_NO_NET_OR_BAD_PATH Const WN_BAD_PROVIDER = ERROR_BAD_PROVIDER Const WN_CANNOT_OPEN_PROFILE = ERROR_CANNOT_OPEN_PROFILE Const WN_BAD_PROFILE = ERROR_BAD_PROFILE ' Enumeration Const WN_BAD_HANDLE = ERROR_INVALID_HANDLE Const WN_NO_MORE_ENTRIES = ERROR_NO_MORE_ITEMS Const WN_NOT_CONTAINER = ERROR_NOT_CONTAINER Const WN_NO_ERROR = NO_ERROR ' This section contains the definitions ' for portable NetBIOS 3.0 support. Const NCBNAMSZ = 16 ' absolute length of a net name Const MAX_LANA = 254 ' lana's in range 0 to MAX_LANA Type NCB ncb_command As Integer ncb_retcode As Integer ncb_lsn As Integer ncb_num As Integer ncb_buffer As String ncb_length As Integer ncb_callname As String * NCBNAMSZ ncb_name As String * NCBNAMSZ ncb_rto As Integer ncb_sto As Integer ncb_post As Long ncb_lana_num As Integer ncb_cmd_cplt As Integer ncb_reserve(10) As Byte ' Reserved, must be 0 ncb_event As Long End Type Type ADAPTER_STATUS adapter_address As String * 6 rev_major As Integer reserved0 As Integer adapter_type As Integer rev_minor As Integer duration As Integer frmr_recv As Integer frmr_xmit As Integer iframe_recv_err As Integer xmit_aborts As Integer xmit_success As Long recv_success As Long iframe_xmit_err As Integer recv_buff_unavail As Integer t1_timeouts As Integer ti_timeouts As Integer Reserved1 As Long free_ncbs As Integer max_cfg_ncbs As Integer max_ncbs As Integer xmit_buf_unavail As Integer max_dgram_size As Integer pending_sess As Integer max_cfg_sess As Integer max_sess As Integer max_sess_pkt_size As Integer name_count As Integer End Type Type NAME_BUFFER name As String * NCBNAMSZ name_num As Integer name_flags As Integer End Type ' values for name_flags bits. Const NAME_FLAGS_MASK = &H87 Const GROUP_NAME = &H80 Const UNIQUE_NAME = &H0 Const REGISTERING = &H0 Const REGISTERED = &H4 Const DEREGISTERED = &H5 Const DUPLICATE = &H6 Const DUPLICATE_DEREG = &H7 Type SESSION_HEADER sess_name As Integer num_sess As Integer rcv_dg_outstanding As Integer rcv_any_outstanding As Integer End Type Type SESSION_BUFFER lsn As Integer State As Integer local_name As String * NCBNAMSZ remote_name As String * NCBNAMSZ rcvs_outstanding As Integer sends_outstanding As Integer End Type ' Values for state Const LISTEN_OUTSTANDING = &H1 Const CALL_PENDING = &H2 Const SESSION_ESTABLISHED = &H3 Const HANGUP_PENDING = &H4 Const HANGUP_COMPLETE = &H5 Const SESSION_ABORTED = &H6 Type LANA_ENUM Length As Integer lana(MAX_LANA) As Integer End Type Type FIND_NAME_HEADER node_count As Integer Reserved As Integer unique_group As Integer End Type Type FIND_NAME_BUFFER Length As Integer access_control As Integer frame_control As Integer destination_addr(6) As Integer source_addr(6) As Integer routing_info(18) As Integer End Type Type ACTION_HEADER transport_id As Long action_code As Integer Reserved As Integer End Type ' Values for transport_id Const ALL_TRANSPORTS = "M\0\0\0" Const MS_NBF = "MNBF" ' NCB Command codes Const NCBCALL = &H10 ' NCB CALL Const NCBLISTEN = &H11 ' NCB LISTEN Const NCBHANGUP = &H12 ' NCB HANG UP Const NCBSEND = &H14 ' NCB SEND Const NCBRECV = &H15 ' NCB RECEIVE Const NCBRECVANY = &H16 ' NCB RECEIVE ANY Const NCBCHAINSEND = &H17 ' NCB CHAIN SEND Const NCBDGSEND = &H20 ' NCB SEND DATAGRAM Const NCBDGRECV = &H21 ' NCB RECEIVE DATAGRAM Const NCBDGSENDBC = &H22 ' NCB SEND BROADCAST DATAGRAM Const NCBDGRECVBC = &H23 ' NCB RECEIVE BROADCAST DATAGRAM Const NCBADDNAME = &H30 ' NCB ADD NAME Const NCBDELNAME = &H31 ' NCB DELETE NAME Const NCBRESET = &H32 ' NCB RESET Const NCBASTAT = &H33 ' NCB ADAPTER STATUS Const NCBSSTAT = &H34 ' NCB SESSION STATUS Const NCBCANCEL = &H35 ' NCB CANCEL Const NCBADDGRNAME = &H36 ' NCB ADD GROUP NAME Const NCBENUM = &H37 ' NCB ENUMERATE LANA NUMBERS Const NCBUNLINK = &H70 ' NCB UNLINK Const NCBSENDNA = &H71 ' NCB SEND NO ACK Const NCBCHAINSENDNA = &H72 ' NCB CHAIN SEND NO ACK Const NCBLANSTALERT = &H73 ' NCB LAN STATUS ALERT Const NCBACTION = &H77 ' NCB ACTION Const NCBFINDNAME = &H78 ' NCB FIND NAME Const NCBTRACE = &H79 ' NCB TRACE Const ASYNCH = &H80 ' high bit set == asynchronous ' NCB Return codes Const NRC_GOODRET = &H0 ' good return ' also returned when ASYNCH request accepted Const NRC_BUFLEN = &H1 ' illegal buffer length Const NRC_ILLCMD = &H3 ' illegal command Const NRC_CMDTMO = &H5 ' command timed out Const NRC_INCOMP = &H6 ' message incomplete, issue another command Const NRC_BADDR = &H7 ' illegal buffer address Const NRC_SNUMOUT = &H8 ' session number out of range Const NRC_NORES = &H9 ' no resource available Const NRC_SCLOSED = &HA ' session closed Const NRC_CMDCAN = &HB ' command cancelled Const NRC_DUPNAME = &HD ' duplicate name Const NRC_NAMTFUL = &HE ' name table full Const NRC_ACTSES = &HF ' no deletions, name has active sessions Const NRC_LOCTFUL = &H11 ' local session table full Const NRC_REMTFUL = &H12 ' remote session table full Const NRC_ILLNN = &H13 ' illegal name number Const NRC_NOCALL = &H14 ' no callname Const NRC_NOWILD = &H15 ' cannot put in NCB_NAME Const NRC_INUSE = &H16 ' name in use on remote adapter Const NRC_NAMERR = &H17 ' name deleted Const NRC_SABORT = &H18 ' session ended abnormally Const NRC_NAMCONF = &H19 ' name conflict detected Const NRC_IFBUSY = &H21 ' interface busy, IRET before retrying Const NRC_TOOMANY = &H22 ' too many commands outstanding, retry later Const NRC_BRIDGE = &H23 ' ncb_lana_num field invalid Const NRC_CANOCCR = &H24 ' command completed while cancel occurring Const NRC_CANCEL = &H26 ' command not valid to cancel Const NRC_DUPENV = &H30 ' name defined by anther local process Const NRC_ENVNOTDEF = &H34 ' environment undefined. RESET required Const NRC_OSRESNOTAV = &H35 ' required OS resources exhausted Const NRC_MAXAPPS = &H36 ' max number of applications exceeded Const NRC_NOSAPS = &H37 ' no saps available for netbios Const NRC_NORESOURCES = &H38 ' requested resources are not available Const NRC_INVADDRESS = &H39 ' invalid ncb address or length > segment Const NRC_INVDDID = &H3B ' invalid NCB DDID Const NRC_LOCKFAIL = &H3C ' lock of user area failed Const NRC_OPENERR = &H3F ' NETBIOS not loaded Const NRC_SYSTEM = &H40 ' system error Const NRC_PENDING = &HFF ' asynchronous command is not yet finished ' ' Win32 NetAPIs. ' Declare Function NetUserChangePassword Lib "Netapi32.dll" (Domain As Any, User As Any, OldPass As Byte, NewPass As Byte) As Long Declare Function NetUserGetInfo Lib "Netapi32.dll" (lpServer As Any, UserName As Byte, ByVal Level As Long, lpBuffer As Long) As Long Declare Function NetUserGetGroups Lib "Netapi32.dll" (lpServer As Any, UserName As Byte, ByVal Level As Long, lpBuffer As Long, ByVal PrefMaxLen As Long, lpEntriesRead As Long, lpTotalEntries As Long) As Long Declare Function NetUserGetLocalGroups Lib "Netapi32.dll" (lpServer As Any, UserName As Byte, ByVal Level As Long, ByVal Flags As Long, lpBuffer As Long, ByVal MaxLen As Long, lpEntriesRead As Long, lpTotalEntries As Long) As Long Declare Function NetUserAdd Lib "netapi32" (lpServer As Any, ByVal Level As Long, lpUser As USER_INFO_3_API, lpError As Long) As Long Declare Function NetWkstaGetInfo Lib "Netapi32.dll" (lpServer As Any, ByVal Level As Long, lpBuffer As Any) As Long Declare Function NetWkstaUserGetInfo Lib "Netapi32.dll" (ByVal reserved As Any, ByVal Level As Long, lpBuffer As Any) As Long Declare Function NetApiBufferFree Lib "Netapi32.dll" (ByVal lpBuffer As Long) As Long Declare Function NetRemoteTOD Lib "Netapi32.dll" (yServer As Any, pBuffer As Long) As Long ' Duplicates Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Declare Function GetUserNameW Lib "advapi32.dll" (lpBuffer As Byte, nSize As Long) As Long ' Duplicates Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long Declare Function GetComputerNameW Lib "kernel32" (lpBuffer As Any, nSize As Long) As Long ' Duplicates Declare Function GetCurrentProcess Lib "kernel32" () As Long Declare Function OpenProcessToken Lib "advapi32.dll" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As Long ' Declare Function GetTokenInformation Lib "advapi32.dll" (ByVal TokenHandle As Long, ByVal TokenInformationClass As Long, TokenInformation As Any, ByVal TokenInformationLength As Long, ReturnLength As Long) As Long ' Declare Function LookupAccountSid Lib "advapi32.dll" Alias "LookupAccountSidW" (ByVal lpSystemName As Any, Sid As Any, Name As Any, cbName As Long, ReferencedDomainName As Any, cbReferencedDomainName As Long, peUse As Integer) As Long Declare Function NetLocalGroupDelMembers Lib "netapi32.dll" (ByVal psServer As Long, ByVal psLocalGroup As Long, ByVal lLevel As Long, uMember As LOCALGROUP_MEMBERS_INFO_0, ByVal lMemberCount As Long) As Long Declare Function NetLocalGroupGetMembers Lib "netapi32.dll" (ByVal psServer As Long, ByVal psLocalGroup As Long, ByVal lLevel As Long, pBuffer As Long, ByVal lMaxLength As Long, plEntriesRead As Long, plTotalEntries As Long, phResume As Long) As Long ' Duplicates Declare Function WNetAddConnection2 Lib "mpr.dll" Alias "WNetAddConnection2A" (lpNetResource As NETRESOURCE, ByVal lpPassword As String, ByVal lpUserName As String, ByVal dwFlags As Long) As Long ' Duplicates Declare Function WNetCloseEnum Lib "mpr.dll" (ByVal hEnum As Long) As Long Declare Function Netbios Lib "netapi32.dll" Alias "Netbios" (pncb As NCB) As Byte Type USER_INFO_3 ' Level 0 starts here Name As Long ' Level 1 starts here Password As Long PasswordAge As Long Privilege As Long HomeDir As Long Comment As Long Flags As Long ScriptPath As Long ' Level 2 starts here AuthFlags As Long FullName As Long UserComment As Long Parms As Long Workstations As Long LastLogon As Long LastLogoff As Long AcctExpires As Long MaxStorage As Long UnitsPerWeek As Long LogonHours As Long BadPwCount As Long NumLogons As Long LogonServer As Long CountryCode As Long CodePage As Long ' Level 3 starts here UserID As Long PrimaryGroupID As Long Profile As Long HomeDirDrive As Long PasswordExpired As Long End Type Type GROUP_INFO_2 Name As Long Comment As Long GroupID As Long Attributes As Long End Type Type LOCALGROUP_MEMBERS_INFO_0 pSID As Long End Type Type LOCALGROUP_MEMBERS_INFO_1 'Level 0 Starts Here pSID As Long 'Level 1 Starts Here eUsage As g_netSID_NAME_USE psName As Long End Type Type WKSTA_INFO_102 wki102_platform_id As Long wki102_computername As Long wki102_langroup As Long wki102_ver_major As Long wki102_ver_minor As Long wki102_lanroot As Long wki102_logged_on_users As Long End Type Type WKSTA_USER_INFO_1 wkui1_username As Long wkui1_logon_domain As Long wkui1_oth_domains As Long wkui1_logon_server As Long End Type ' Duplicates Type NETRESOURCE Enum g_netSID_NAME_USE SidTypeUser = 1& SidTypeGroup = 2& SidTypeDomain = 3& SidTypeAlias = 4& SidTypeWellKnownGroup = 5& SidTypeDeletedAccount = 6& SidTypeInvalid = 7& SidTypeUnknown = 8& End Enum Const FILTER_TEMP_DUPLICATE_ACCOUNT As Long = &H1& Const FILTER_NORMAL_ACCOUNT As Long = &H2& Const FILTER_PROXY_ACCOUNT As Long = &H4& Const FILTER_INTERDOMAIN_TRUST_ACCOUNT As Long = &H8& Const FILTER_WORKSTATION_TRUST_ACCOUNT As Long = &H10& Const FILTER_SERVER_TRUST_ACCOUNT As Long = &H20& Const TIMEQ_FOREVER = -1& '((unsigned long) -1L) Const USER_MAXSTORAGE_UNLIMITED = -1& '((unsigned long) -1L) Const USER_NO_LOGOFF = -1& '((unsigned long) -1L) Const UNITS_PER_DAY = 24 Const UNITS_PER_WEEK = UNITS_PER_DAY * 7 Const USER_PRIV_MASK = 3 Const USER_PRIV_GUEST = 0 Const USER_PRIV_USER = 1 Const USER_PRIV_ADMIN = 2 Const UNLEN = 256 ' Maximum username length Const GNLEN = UNLEN ' Maximum groupname length Const CNLEN = 15 ' Maximum computer name length Const PWLEN = 256 ' Maximum password length Const LM20_PWLEN = 14 ' LM 2.0 Maximum password length Const MAXCOMMENTSZ = 256 ' Multipurpose comment length Const LG_INCLUDE_INDIRECT As Long = &H1& Const UF_SCRIPT = &H1 Const UF_ACCOUNTDISABLE = &H2 Const UF_HOMEDIR_REQUIRED = &H8 Const UF_LOCKOUT = &H10 Const UF_PASSWD_NOTREQD = &H20 Const UF_PASSWD_CANT_CHANGE = &H40 ' Duplicates Const LG_INCLUDE_INDIRECT As Long = &H1& Const NERR_Success As Long = 0& Const NERR_BASE = 2100 Const NERR_InvalidComputer = (NERR_BASE + 251) Const NERR_NotPrimary = (NERR_BASE + 126) Const NERR_GroupExists = (NERR_BASE + 123) Const NERR_UserExists = (NERR_BASE + 124) Const NERR_PasswordTooShort = (NERR_BASE + 145) Const RESOURCE_CONNECTED As Long = &H1& Const RESOURCE_GLOBALNET As Long = &H2& Const RESOURCE_REMEMBERED As Long = &H3& Const RESOURCE_ENUM_ALL As Long = &HFFFF Const RESOURCEDISPLAYTYPE_DOMAIN As Long = &H1& Const RESOURCEDISPLAYTYPE_FILE As Long = &H4& Const RESOURCEDISPLAYTYPE_GENERIC As Long = &H0& Const RESOURCEDISPLAYTYPE_GROUP As Long = &H5& Const RESOURCEDISPLAYTYPE_SERVER As Long = &H2& Const RESOURCEDISPLAYTYPE_SHARE As Long = &H3& Const RESOURCETYPE_ANY As Long = &H0& Const RESOURCETYPE_DISK As Long = &H1& Const RESOURCETYPE_PRINT As Long = &H2& Const RESOURCETYPE_UNKNOWN As Long = &HFFFF& Const RESOURCEUSAGE_ALL As Long = &H0& Const RESOURCEUSAGE_CONNECTABLE As Long = &H1& Const RESOURCEUSAGE_CONTAINER As Long = &H2& Const RESOURCEUSAGE_RESERVED As Long = &H80000000 ' Legal values for expression in except(). Const EXCEPTION_EXECUTE_HANDLER = 1 Const EXCEPTION_CONTINUE_SEARCH = 0 Const EXCEPTION_CONTINUE_EXECUTION = -1 ' UI dialog constants and types ' ----Constants-------------------------------------------------------------- Const ctlFirst = &H400 Const ctlLast = &H4FF ' Push buttons Const psh1 = &H400 Const psh2 = &H401 Const psh3 = &H402 Const psh4 = &H403 Const psh5 = &H404 Const psh6 = &H405 Const psh7 = &H406 Const psh8 = &H407 Const psh9 = &H408 Const psh10 = &H409 Const psh11 = &H40A Const psh12 = &H40B Const psh13 = &H40C Const psh14 = &H40D Const psh15 = &H40E Const pshHelp = psh15 Const psh16 = &H40F ' Checkboxes Const chx1 = &H410 Const chx2 = &H411 Const chx3 = &H412 Const chx4 = &H413 Const chx5 = &H414 Const chx6 = &H415 Const chx7 = &H416 Const chx8 = &H417 Const chx9 = &H418 Const chx10 = &H419 Const chx11 = &H41A Const chx12 = &H41B Const chx13 = &H41C Const chx14 = &H41D Const chx15 = &H41E Const chx16 = &H41D ' Radio buttons Const rad1 = &H420 Const rad2 = &H421 Const rad3 = &H422 Const rad4 = &H423 Const rad5 = &H424 Const rad6 = &H425 Const rad7 = &H426 Const rad8 = &H427 Const rad9 = &H428 Const rad10 = &H429 Const rad11 = &H42A Const rad12 = &H42B Const rad13 = &H42C Const rad14 = &H42D Const rad15 = &H42E Const rad16 = &H42F ' Groups, frames, rectangles, and icons Const grp1 = &H430 Const grp2 = &H431 Const grp3 = &H432 Const grp4 = &H433 Const frm1 = &H434 Const frm2 = &H435 Const frm3 = &H436 Const frm4 = &H437 Const rct1 = &H438 Const rct2 = &H439 Const rct3 = &H43A Const rct4 = &H43B Const ico1 = &H43C Const ico2 = &H43D Const ico3 = &H43E Const ico4 = &H43F ' Static text Const stc1 = &H440 Const stc2 = &H441 Const stc3 = &H442 Const stc4 = &H443 Const stc5 = &H444 Const stc6 = &H445 Const stc7 = &H446 Const stc8 = &H447 Const stc9 = &H448 Const stc10 = &H449 Const stc11 = &H44A Const stc12 = &H44B Const stc13 = &H44C Const stc14 = &H44D Const stc15 = &H44E Const stc16 = &H44F Const stc17 = &H450 Const stc18 = &H451 Const stc19 = &H452 Const stc20 = &H453 Const stc21 = &H454 Const stc22 = &H455 Const stc23 = &H456 Const stc24 = &H457 Const stc25 = &H458 Const stc26 = &H459 Const stc27 = &H45A Const stc28 = &H45B Const stc29 = &H45C Const stc30 = &H45D Const stc31 = &H45E Const stc32 = &H45F ' Listboxes Const lst1 = &H460 Const lst2 = &H461 Const lst3 = &H462 Const lst4 = &H463 Const lst5 = &H464 Const lst6 = &H465 Const lst7 = &H466 Const lst8 = &H467 Const lst9 = &H468 Const lst10 = &H469 Const lst11 = &H46A Const lst12 = &H46B Const lst13 = &H46C Const lst14 = &H46D Const lst15 = &H46E Const lst16 = &H46F ' Combo boxes Const cmb1 = &H470 Const cmb2 = &H471 Const cmb3 = &H472 Const cmb4 = &H473 Const cmb5 = &H474 Const cmb6 = &H475 Const cmb7 = &H476 Const cmb8 = &H477 Const cmb9 = &H478 Const cmb10 = &H479 Const cmb11 = &H47A Const cmb12 = &H47B Const cmb13 = &H47C Const cmb14 = &H47D Const cmb15 = &H47E Const cmb16 = &H47F ' Edit controls Const edt1 = &H480 Const edt2 = &H481 Const edt3 = &H482 Const edt4 = &H483 Const edt5 = &H484 Const edt6 = &H485 Const edt7 = &H486 Const edt8 = &H487 Const edt9 = &H488 Const edt10 = &H489 Const edt11 = &H48A Const edt12 = &H48B Const edt13 = &H48C Const edt14 = &H48D Const edt15 = &H48E Const edt16 = &H48F ' Scroll bars Const scr1 = &H490 Const scr2 = &H491 Const scr3 = &H492 Const scr4 = &H493 Const scr5 = &H494 Const scr6 = &H495 Const scr7 = &H496 Const scr8 = &H497 Const FILEOPENORD = 1536 Const MULTIFILEOPENORD = 1537 Const PRINTDLGORD = 1538 Const PRNSETUPDLGORD = 1539 Const FINDDLGORD = 1540 Const REPLACEDLGORD = 1541 Const FONTDLGORD = 1542 Const FORMATDLGORD31 = 1543 Const FORMATDLGORD30 = 1544 Type CRGB bRed As Byte bGreen As Byte bBlue As Byte bExtra As Byte End Type ' ----------------- ' ADVAPI32 ' ----------------- ' function prototypes, constants, and type definitions ' for Windows 32-bit Registry API Const HKEY_CLASSES_ROOT = &H80000000 Const HKEY_CURRENT_USER = &H80000001 Const HKEY_LOCAL_MACHINE = &H80000002 Const HKEY_USERS = &H80000003 Const HKEY_PERFORMANCE_DATA = &H80000004 Const HKEY_CURRENT_CONFIG = &H80000005 Const HKEY_DYN_DATA = &H80000006 ' Registry API prototypes Declare Function RegCloseKey Lib "advapi32.dll" Alias "RegCloseKey" (ByVal hKey As Long) As Long Declare Function RegConnectRegistry Lib "advapi32.dll" Alias "RegConnectRegistryA" (ByVal lpMachineName As String, ByVal hKey As Long, phkResult As Long) As Long Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, phkResult As Long, lpdwDisposition As Long) As Long Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long Declare Function RegEnumKey Lib "advapi32.dll" Alias "RegEnumKeyA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, ByVal cbName As Long) As Long Declare Function RegEnumKeyEx Lib "advapi32.dll" Alias "RegEnumKeyExA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, lpcbName As Long, ByVal lpReserved As Long, ByVal lpClass As String, lpcbClass As Long, lpftLastWriteTime As FILETIME) As Long Declare Function RegEnumValue Lib "advapi32.dll" Alias "RegEnumValueA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpValueName As String, lpcbValueName As Long, ByVal lpReserved As Long, lpType As Long, lpData As Byte, lpcbData As Long) As Long Declare Function RegFlushKey Lib "advapi32.dll" Alias "RegFlushKey" (ByVal hKey As Long) As Long Declare Function RegGetKeySecurity Lib "advapi32.dll" Alias "RegGetKeySecurity" (ByVal hKey As Long, ByVal SecurityInformation As Long, pSecurityDescriptor As SECURITY_DESCRIPTOR, lpcbSecurityDescriptor As Long) As Long Declare Function RegLoadKey Lib "advapi32.dll" Alias "RegLoadKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal lpFile As String) As Long Declare Function RegNotifyChangeKeyValue Lib "advapi32.dll" Alias "RegNotifyChangeKeyValue" (ByVal hKey As Long, ByVal bWatchSubtree As Long, ByVal dwNotifyFilter As Long, ByVal hEvent As Long, ByVal fAsynchronus As Long) As Long Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long Declare Function RegQueryInfoKey Lib "advapi32.dll" Alias "RegQueryInfoKeyA" (ByVal hKey As Long, ByVal lpClass As String, lpcbClass As Long, ByVal lpReserved As Long, lpcSubKeys As Long, lpcbMaxSubKeyLen As Long, lpcbMaxClassLen As Long, lpcValues As Long, lpcbMaxValueNameLen As Long, lpcbMaxValueLen As Long, lpcbSecurityDescriptor As Long, lpftLastWriteTime As FILETIME) As Long Declare Function RegQueryValue Lib "advapi32.dll" Alias "RegQueryValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal lpValue As String, lpcbValue As Long) As Long Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long ' Note that if you declare the lpData parameter as String, you must pass it By Value. Declare Function RegReplaceKey Lib "advapi32.dll" Alias "RegReplaceKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal lpNewFile As String, ByVal lpOldFile As String) As Long Declare Function RegRestoreKey Lib "advapi32.dll" Alias "RegRestoreKeyA" (ByVal hKey As Long, ByVal lpFile As String, ByVal dwFlags As Long) As Long Declare Function RegSaveKey Lib "advapi32.dll" Alias "RegSaveKeyA" (ByVal hKey As Long, ByVal lpFile As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long Declare Function RegSetKeySecurity Lib "advapi32.dll" Alias "RegSetKeySecurity" (ByVal hKey As Long, ByVal SecurityInformation As Long, pSecurityDescriptor As SECURITY_DESCRIPTOR) As Long Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long ' Note that if you declare the lpData parameter as String, you must pass it By Value. Declare Function RegUnLoadKey Lib "advapi32.dll" Alias "RegUnLoadKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long Declare Function InitiateSystemShutdown Lib "advapi32.dll" Alias "InitiateSystemShutdownA" (ByVal lpMachineName As String, ByVal lpMessage As String, ByVal dwTimeout As Long, ByVal bForceAppsClosed As Long, ByVal bRebootAfterShutdown As Long) As Long Declare Function AbortSystemShutdown Lib "advapi32.dll" Alias "AbortSystemShutdownA" (ByVal lpMachineName As String) As Long ' Service database names Const SERVICES_ACTIVE_DATABASE = "ServicesActive" Const SERVICES_FAILED_DATABASE = "ServicesFailed" ' Value to indicate no change to an optional parameter Const SERVICE_NO_CHANGE = &HFFFF ' Service State -- for Enum Requests (Bit Mask) Const SERVICE_ACTIVE = &H1 Const SERVICE_INACTIVE = &H2 Const SERVICE_STATE_ALL = (SERVICE_ACTIVE Or SERVICE_INACTIVE) ' Controls Const SERVICE_CONTROL_STOP = &H1 Const SERVICE_CONTROL_PAUSE = &H2 Const SERVICE_CONTROL_CONTINUE = &H3 Const SERVICE_CONTROL_INTERROGATE = &H4 Const SERVICE_CONTROL_SHUTDOWN = &H5 ' Service State -- for CurrentState Const SERVICE_STOPPED = &H1 Const SERVICE_START_PENDING = &H2 Const SERVICE_STOP_PENDING = &H3 Const SERVICE_RUNNING = &H4 Const SERVICE_CONTINUE_PENDING = &H5 Const SERVICE_PAUSE_PENDING = &H6 Const SERVICE_PAUSED = &H7 ' Controls Accepted (Bit Mask) Const SERVICE_ACCEPT_STOP = &H1 Const SERVICE_ACCEPT_PAUSE_CONTINUE = &H2 Const SERVICE_ACCEPT_SHUTDOWN = &H4 ' Service Control Manager object specific access types Const SC_MANAGER_CONNECT = &H1 Const SC_MANAGER_CREATE_SERVICE = &H2 Const SC_MANAGER_ENUMERATE_SERVICE = &H4 Const SC_MANAGER_LOCK = &H8 Const SC_MANAGER_QUERY_LOCK_STATUS = &H10 Const SC_MANAGER_MODIFY_BOOT_CONFIG = &H20 Const SC_MANAGER_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or SC_MANAGER_CONNECT Or SC_MANAGER_CREATE_SERVICE Or SC_MANAGER_ENUMERATE_SERVICE Or SC_MANAGER_LOCK Or SC_MANAGER_QUERY_LOCK_STATUS Or SC_MANAGER_MODIFY_BOOT_CONFIG) ' Service object specific access type Const SERVICE_QUERY_CONFIG = &H1 Const SERVICE_CHANGE_CONFIG = &H2 Const SERVICE_QUERY_STATUS = &H4 Const SERVICE_ENUMERATE_DEPENDENTS = &H8 Const SERVICE_START = &H10 Const SERVICE_STOP = &H20 Const SERVICE_PAUSE_CONTINUE = &H40 Const SERVICE_INTERROGATE = &H80 Const SERVICE_USER_DEFINED_CONTROL = &H100 Const SERVICE_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or SERVICE_QUERY_CONFIG Or SERVICE_CHANGE_CONFIG Or SERVICE_QUERY_STATUS Or SERVICE_ENUMERATE_DEPENDENTS Or SERVICE_START Or SERVICE_STOP Or SERVICE_PAUSE_CONTINUE Or SERVICE_INTERROGATE Or SERVICE _USER_DEFINED_CONTROL) Type SERVICE_STATUS dwServiceType As Long dwCurrentState As Long dwControlsAccepted As Long dwWin32ExitCode As Long dwServiceSpecificExitCode As Long dwCheckPoint As Long dwWaitHint As Long End Type Type ENUM_SERVICE_STATUS lpServiceName As String lpDisplayName As String ServiceStatus As SERVICE_STATUS End Type Type QUERY_SERVICE_LOCK_STATUS fIsLocked As Long lpLockOwner As String dwLockDuration As Long End Type Type QUERY_SERVICE_CONFIG dwServiceType As Long dwStartType As Long dwErrorControl As Long lpBinaryPathName As String lpLoadOrderGroup As String dwTagId As Long lpDependencies As String lpServiceStartName As String lpDisplayName As String End Type Type SERVICE_TABLE_ENTRY lpServiceName As String lpServiceProc As Long End Type ' ++ BUILD Version: 0010 ' Increment this if a change has global effects ' Copyright (c) 1995 Microsoft Corporation ' Module Name: ' winsvc.h ' Abstract: ' Header file for the Service Control Manager ' Environment: ' User Mode - Win32 ' --*/ ' ' Constants ' Character to designate that a name is a group ' Const SC_GROUP_IDENTIFIER = "+" ' Prototype for the Service Control Handler Function ' ///////////////////////////////////////////////////////////////////////// ' API Function Prototypes ' ///////////////////////////////////////////////////////////////////////// Declare Function ChangeServiceConfig Lib "advapi32.dll" Alias "ChangeServiceConfigA" (ByVal hService As Long, ByVal dwServiceType As Long, ByVal dwStartType As Long, ByVal dwErrorControl As Long, ByVal lpBinaryPathName As String, ByVal lpLoadOrderGroup As String, lpdwTagId As Long, ByVal lpDependencies As String, ByVal lpServiceStartName As String, ByVal lpPassword As String, ByVal lpDisplayName As String) As Long Declare Function CloseServiceHandle Lib "advapi32.dll" Alias "CloseServiceHandle" (ByVal hSCObject As Long) As Long Declare Function ControlService Lib "advapi32.dll" Alias "ControlService" (ByVal hService As Long, ByVal dwControl As Long, lpServiceStatus As SERVICE_STATUS) As Long Declare Function CreateService Lib "advapi32.dll" Alias "CreateServiceA" (ByVal hSCManager As Long, ByVal lpServiceName As String, ByVal lpDisplayName As String, ByVal dwDesiredAccess As Long, ByVal dwServiceType As Long, ByVal dwStartType As Long, ByVal dwErrorControl As Long, ByVal lpBinaryPathName As String, ByVal lpLoadOrderGroup As String, lpdwTagId As Long, ByVal lpDependencies As String, ByVal lp As String, ByVal lpPassword As String) As Long Declare Function DeleteService Lib "advapi32.dll" Alias "DeleteService" (ByVal hService As Long) As Long Declare Function EnumDependentServices Lib "advapi32.dll" Alias "EnumDependentServicesA" (ByVal hService As Long, ByVal dwServiceState As Long, lpServices As ENUM_SERVICE_STATUS, ByVal cbBufSize As Long, pcbBytesNeeded As Long, lpServicesReturned As Long) As Long Declare Function EnumServicesStatus Lib "advapi32.dll" Alias "EnumServicesStatusA" (ByVal hSCManager As Long, ByVal dwServiceType As Long, ByVal dwServiceState As Long, lpServices As ENUM_SERVICE_STATUS, ByVal cbBufSize As Long, pcbBytesNeeded As Long, lpServicesReturned As Long, lpResumeHandle As Long) As Long Declare Function GetServiceKeyName Lib "advapi32.dll" Alias "GetServiceKeyNameA" (ByVal hSCManager As Long, ByVal lpDisplayName As String, ByVal lpServiceName As String, lpcchBuffer As Long) As Long Declare Function GetServiceDisplayName Lib "advapi32.dll" Alias "GetServiceDisplayNameA" (ByVal hSCManager As Long, ByVal lpServiceName As String, ByVal lpDisplayName As String, lpcchBuffer As Long) As Long Declare Function LockServiceDatabase Lib "advapi32.dll" Alias "LockServiceDatabase" (ByVal hSCManager As Long) As Long Declare Function NotifyBootConfigStatus Lib "advapi32.dll" Alias "NotifyBootConfigStatus" (ByVal BootAcceptable As Long) As Long Declare Function OpenSCManager Lib "advapi32.dll" Alias "OpenSCManagerA" (ByVal lpMachineName As String, ByVal lpDatabaseName As String, ByVal dwDesiredAccess As Long) As Long Declare Function OpenService Lib "advapi32.dll" Alias "OpenServiceA" (ByVal hSCManager As Long, ByVal lpServiceName As String, ByVal dwDesiredAccess As Long) As Long Declare Function QueryServiceConfig Lib "advapi32.dll" Alias "QueryServiceConfigA" (ByVal hService As Long, lpServiceConfig As QUERY_SERVICE_CONFIG, ByVal cbBufSize As Long, pcbBytesNeeded As Long) As Long Declare Function QueryServiceLockStatus Lib "advapi32.dll" Alias "QueryServiceLockStatusA" (ByVal hSCManager As Long, lpLockStatus As QUERY_SERVICE_LOCK_STATUS, ByVal cbBufSize As Long, pcbBytesNeeded As Long) As Long Declare Function QueryServiceObjectSecurity Lib "advapi32.dll" Alias "QueryServiceObjectSecurity" (ByVal hService As Long, ByVal dwSecurityInformation As Long, lpSecurityDescriptor As Any, ByVal cbBufSize As Long, pcbBytesNeeded As Long) As Long Declare Function QueryServiceStatus Lib "advapi32.dll" Alias "QueryServiceStatus" (ByVal hService As Long, lpServiceStatus As SERVICE_STATUS) As Long Declare Function RegisterServiceCtrlHandler Lib "advapi32.dll" Alias "RegisterServiceCtrlHandlerA" (ByVal lpServiceName As String, ByVal lpHandlerProc As Long) As Long Declare Function SetServiceObjectSecurity Lib "advapi32.dll" Alias "SetServiceObjectSecurity" (ByVal hService As Long, ByVal dwSecurityInformation As Long, lpSecurityDescriptor As Any) As Long Declare Function SetServiceStatus Lib "advapi32.dll" Alias "SetServiceStatus" (ByVal hServiceStatus As Long, lpServiceStatus As SERVICE_STATUS) As Long Declare Function StartServiceCtrlDispatcher Lib "advapi32.dll" Alias "StartServiceCtrlDispatcherA" (lpServiceStartTable As SERVICE_TABLE_ENTRY) As Long Declare Function StartService Lib "advapi32.dll" Alias "StartServiceA" (ByVal hService As Long, ByVal dwNumServiceArgs As Long, ByVal lpServiceArgVectors As Long) As Long Declare Function UnlockServiceDatabase Lib "advapi32.dll" Alias "UnlockServiceDatabase" (ScLock As Any) As Long Type LARGE_INTEGER lowpart As Long highpart As Long End Type ' Section for Performance Monitor data Const PERF_DATA_VERSION = 1 Const PERF_DATA_REVISION = 1 Type PERF_DATA_BLOCK Signature As String * 4 LittleEndian As Long Version As Long Revision As Long TotalByteLength As Long HeaderLength As Long NumObjectTypes As Long DefaultObject As Long SystemTime As SYSTEMTIME PerfTime As LARGE_INTEGER PerfFreq As LARGE_INTEGER PerTime100nSec As LARGE_INTEGER SystemNameLength As Long SystemNameOffset As Long End Type Type PERF_OBJECT_TYPE TotalByteLength As Long DefinitionLength As Long HeaderLength As Long ObjectNameTitleIndex As Long ObjectNameTitle As String ObjectHelpTitleIndex As Long ObjectHelpTitle As String DetailLevel As Long NumCounters As Long DefaultCounter As Long NumInstances As Long CodePage As Long PerfTime As LARGE_INTEGER PerfFreq As LARGE_INTEGER End Type Const PERF_NO_INSTANCES = -1 ' no instances ' The counter type is the "or" of the following values as described below ' ' select one of the following to indicate the counter's data size Const PERF_SIZE_DWORD = &H0 Const PERF_SIZE_LARGE = &H100 Const PERF_SIZE_ZERO = &H200 ' for Zero Length fields Const PERF_SIZE_VARIABLE_LEN = &H300 ' length is in CounterLength field of Counter Definition struct ' select one of the following values to indicate the counter field usage Const PERF_TYPE_NUMBER = &H0 ' a number (not a counter) Const PERF_TYPE_COUNTER = &H400 ' an increasing numeric value Const PERF_TYPE_TEXT = &H800 ' a text field Const PERF_TYPE_ZERO = &HC00 ' displays a zero ' If the PERF_TYPE_NUMBER field was selected, then select one of the ' following to describe the Number Const PERF_NUMBER_HEX = &H0 ' display as HEX value Const PERF_NUMBER_DECIMAL = &H10000 ' display as a decimal integer Const PERF_NUMBER_DEC_1000 = &H20000 ' display as a decimal/1000 ' ' If the PERF_TYPE_COUNTER value was selected then select one of the ' following to indicate the type of counter Const PERF_COUNTER_VALUE = &H0 ' display counter value Const PERF_COUNTER_RATE = &H10000 ' divide ctr / delta time Const PERF_COUNTER_FRACTION = &H20000 ' divide ctr / base Const PERF_COUNTER_BASE = &H30000 ' base value used in fractions Const PERF_COUNTER_ELAPSED = &H40000 ' subtract counter from current time Const PERF_COUNTER_QUEUELEN = &H50000 ' Use Queuelen processing func. Const PERF_COUNTER_HISTOGRAM = &H60000 ' Counter begins or ends a histogram ' If the PERF_TYPE_TEXT value was selected, then select one of the ' following to indicate the type of TEXT data. Const PERF_TEXT_UNICODE = &H0 ' type of text in text field Const PERF_TEXT_ASCII = &H10000 ' ASCII using the CodePage field ' Timer SubTypes Const PERF_TIMER_TICK = &H0 ' use system perf. freq for base Const PERF_TIMER_100NS = &H100000 ' use 100 NS timer time base units Const PERF_OBJECT_TIMER = &H200000 ' use the object timer freq ' Any types that have calculations performed can use one or more of ' the following calculation modification flags listed here Const PERF_DELTA_COUNTER = &H400000 ' compute difference first Const PERF_DELTA_BASE = &H800000 ' compute base diff as well Const PERF_INVERSE_COUNTER = &H1000000 ' show as 1.00-value (assumes: Const PERF_MULTI_COUNTER = &H2000000 ' sum of multiple instances ' Select one of the following values to indicate the display suffix (if any) Const PERF_DISPLAY_NO_SUFFIX = &H0 ' no suffix Const PERF_DISPLAY_PER_SEC = &H10000000 ' "/sec" Const PERF_DISPLAY_PERCENT = &H20000000 ' "%" Const PERF_DISPLAY_SECONDS = &H30000000 ' "secs" Const PERF_DISPLAY_NOSHOW = &H40000000 ' value is not displayed ' Predefined counter types ' 32-bit Counter. Divide delta by delta time. Display suffix: "/sec" Const PERF_COUNTER_COUNTER = (PERF_SIZE_DWORD Or PERF_TYPE_COUNTER Or PERF_COUNTER_RATE Or PERF_TIMER_TICK Or PERF_DELTA_COUNTER Or PERF_DISPLAY_PER_SEC) ' 64-bit Timer. Divide delta by delta time. Display suffix: "%" Const PERF_COUNTER_TIMER = (PERF_SIZE_LARGE Or PERF_TYPE_COUNTER Or PERF_COUNTER_RATE Or PERF_TIMER_TICK Or PERF_DELTA_COUNTER Or PERF_DISPLAY_PERCENT) ' Queue Length Space-Time Product. Divide delta by delta time. No Display Suffix. Const PERF_COUNTER_QUEUELEN_TYPE = (PERF_SIZE_DWORD Or PERF_TYPE_COUNTER Or PERF_COUNTER_QUEUELEN Or PERF_TIMER_TICK Or PERF_DELTA_COUNTER Or PERF_DISPLAY_NO_SUFFIX) ' 64-bit Counter. Divide delta by delta time. Display Suffix: "/sec" Const PERF_COUNTER_BULK_COUNT = (PERF_SIZE_LARGE Or PERF_TYPE_COUNTER Or PERF_COUNTER_RATE Or PERF_TIMER_TICK Or PERF_DELTA_COUNTER Or PERF_DISPLAY_PER_SEC) ' Indicates the counter is not a counter but rather Unicode text Display as text. Const PERF_COUNTER_TEXT = (PERF_SIZE_VARIABLE_LEN Or PERF_TYPE_TEXT Or PERF_TEXT_UNICODE Or PERF_DISPLAY_NO_SUFFIX) ' Indicates the data is a counter which should not be ' time averaged on display (such as an error counter on a serial line) ' Display as is. No Display Suffix. Const PERF_COUNTER_RAWCOUNT = (PERF_SIZE_DWORD Or PERF_TYPE_NUMBER Or PERF_NUMBER_DECIMAL Or PERF_DISPLAY_NO_SUFFIX) ' A count which is either 1 or 0 on each sampling interrupt (% busy) ' Divide delta by delta base. Display Suffix: "%" Const PERF_SAMPLE_FRACTION = (PERF_SIZE_DWORD Or PERF_TYPE_COUNTER Or PERF_COUNTER_FRACTION Or PERF_DELTA_COUNTER Or PERF_DELTA_BASE Or PERF_DISPLAY_PERCENT) ' A count which is sampled on each sampling interrupt (queue length) ' Divide delta by delta time. No Display Suffix. Const PERF_SAMPLE_COUNTER = (PERF_SIZE_DWORD Or PERF_TYPE_COUNTER Or PERF_COUNTER_RATE Or PERF_TIMER_TICK Or PERF_DELTA_COUNTER Or PERF_DISPLAY_NO_SUFFIX) ' A label: no data is associated with this counter (it has 0 length) ' Do not display. Const PERF_COUNTER_NODATA = (PERF_SIZE_ZERO Or PERF_DISPLAY_NOSHOW) ' 64-bit Timer inverse (e.g., idle is measured, but display busy As Integer) ' Display 100 - delta divided by delta time. Display suffix: "%" Const PERF_COUNTER_TIMER_INV = (PERF_SIZE_LARGE Or PERF_TYPE_COUNTER Or PERF_COUNTER_RATE Or PERF_TIMER_TICK Or PERF_DELTA_COUNTER Or PERF_INVERSE_COUNTER Or PERF_DISPLAY_PERCENT) ' The divisor for a sample, used with the previous counter to form a ' sampled %. You must check for >0 before dividing by this! This ' counter will directly follow the numerator counter. It should not ' be displayed to the user. Const PERF_SAMPLE_BASE = (PERF_SIZE_DWORD Or PERF_TYPE_COUNTER Or PERF_COUNTER_BASE Or PERF_DISPLAY_NOSHOW Or &H1) ' for compatibility with pre-beta versions ' A timer which, when divided by an average base, produces a time ' in seconds which is the average time of some operation. This ' timer times total operations, and the base is the number of opera- ' tions. Display Suffix: "sec" Const PERF_AVERAGE_TIMER = (PERF_SIZE_DWORD Or PERF_TYPE_COUNTER Or PERF_COUNTER_FRACTION Or PERF_DISPLAY_SECONDS) ' Used as the denominator in the computation of time or count ' averages. Must directly follow the numerator counter. Not dis- ' played to the user. Const PERF_AVERAGE_BASE = (PERF_SIZE_DWORD Or PERF_TYPE_COUNTER Or PERF_COUNTER_BASE Or PERF_DISPLAY_NOSHOW Or &H2) ' for compatibility with pre-beta versions ' A bulk count which, when divided (typically) by the number of ' operations, gives (typically) the number of bytes per operation. ' No Display Suffix. Const PERF_AVERAGE_BULK = (PERF_SIZE_LARGE Or PERF_TYPE_COUNTER Or PERF_COUNTER_FRACTION Or PERF_DISPLAY_NOSHOW) ' 64-bit Timer in 100 nsec units. Display delta divided by ' delta time. Display suffix: "%" Const PERF_100NSEC_TIMER = (PERF_SIZE_LARGE Or PERF_TYPE_COUNTER Or PERF_COUNTER_RATE Or PERF_TIMER_100NS Or PERF_DELTA_COUNTER Or PERF_DISPLAY_PERCENT) ' 64-bit Timer inverse (e.g., idle is measured, but display busy As Integer) ' Display 100 - delta divided by delta time. Display suffix: "%" Const PERF_100NSEC_TIMER_INV = (PERF_SIZE_LARGE Or PERF_TYPE_COUNTER Or PERF_COUNTER_RATE Or PERF_TIMER_100NS Or PERF_DELTA_COUNTER Or PERF_INVERSE_COUNTER Or PERF_DISPLAY_PERCENT) ' 64-bit Timer. Divide delta by delta time. Display suffix: "%" ' Timer for multiple instances, so result can exceed 100%. Const PERF_COUNTER_MULTI_TIMER = (PERF_SIZE_LARGE Or PERF_TYPE_COUNTER Or PERF_COUNTER_RATE Or PERF_DELTA_COUNTER Or PERF_TIMER_TICK Or PERF_MULTI_COUNTER Or PERF_DISPLAY_PERCENT) ' 64-bit Timer inverse (e.g., idle is measured, but display busy As Integer) ' Display 100 _MULTI_BASE - delta divided by delta time. ' Display suffix: "%" Timer for multiple instances, so result ' can exceed 100%. Followed by a counter of type _MULTI_BASE. Const PERF_COUNTER_MULTI_TIMER_INV = (PERF_SIZE_LARGE Or PERF_TYPE_COUNTER Or PERF_COUNTER_RATE Or PERF_DELTA_COUNTER Or PERF_MULTI_COUNTER Or PERF_TIMER_TICK Or PERF_INVERSE_COUNTER Or PERF_DISPLAY_PERCENT) ' Number of instances to which the preceding _MULTI_..._INV counter ' applies. Used as a factor to get the percentage. Const PERF_COUNTER_MULTI_BASE = (PERF_SIZE_LARGE Or PERF_TYPE_COUNTER Or PERF_COUNTER_BASE Or PERF_MULTI_COUNTER Or PERF_DISPLAY_NOSHOW) ' 64-bit Timer in 100 nsec units. Display delta divided by delta time. ' Display suffix: "%" Timer for multiple instances, so result can exceed 100%. Const PERF_100NSEC_MULTI_TIMER = (PERF_SIZE_LARGE Or PERF_TYPE_COUNTER Or PERF_DELTA_COUNTER Or PERF_COUNTER_RATE Or PERF_TIMER_100NS Or PERF_MULTI_COUNTER Or PERF_DISPLAY_PERCENT) ' 64-bit Timer inverse (e.g., idle is measured, but display busy As Integer) ' Display 100 _MULTI_BASE - delta divided by delta time. ' Display suffix: "%" Timer for multiple instances, so result ' can exceed 100%. Followed by a counter of type _MULTI_BASE. Const PERF_100NSEC_MULTI_TIMER_INV = (PERF_SIZE_LARGE Or PERF_TYPE_COUNTER Or PERF_DELTA_COUNTER Or PERF_COUNTER_RATE Or PERF_TIMER_100NS Or PERF_MULTI_COUNTER Or PERF_INVERSE_COUNTER Or PERF_DISPLAY_PERCENT) ' Indicates the data is a fraction of the following counter which ' should not be time averaged on display (such as free space over ' total space.) Display as is. Display the quotient as "%". Const PERF_RAW_FRACTION = (PERF_SIZE_DWORD Or PERF_TYPE_COUNTER Or PERF_COUNTER_FRACTION Or PERF_DISPLAY_PERCENT) ' Indicates the data is a base for the preceding counter which should ' not be time averaged on display (such as free space over total space.) Const PERF_RAW_BASE = (PERF_SIZE_DWORD Or PERF_TYPE_COUNTER Or PERF_COUNTER_BASE Or PERF_DISPLAY_NOSHOW Or &H3) ' for compatibility with pre-beta versions ' The data collected in this counter is actually the start time of the ' item being measured. For display, this data is subtracted from the ' sample time to yield the elapsed time as the difference between the two. ' In the definition below, the PerfTime field of the Object contains ' the sample time as indicated by the PERF_OBJECT_TIMER bit and the ' difference is scaled by the PerfFreq of the Object to convert the time ' units into seconds. Const PERF_ELAPSED_TIME = (PERF_SIZE_LARGE Or PERF_TYPE_COUNTER Or PERF_COUNTER_ELAPSED Or PERF_OBJECT_TIMER Or PERF_DISPLAY_SECONDS) ' The following counter type can be used with the preceding types to ' define a range of values to be displayed in a histogram. Const PERF_COUNTER_HISTOGRAM_TYPE = &H80000000 ' Counter begins or ends a histogram ' The following are used to determine the level of detail associated ' with the counter. The user will be setting the level of detail ' that should be displayed at any given time. Const PERF_DETAIL_NOVICE = 100 ' The uninformed can understand it Const PERF_DETAIL_ADVANCED = 200 ' For the advanced user Const PERF_DETAIL_EXPERT = 300 ' For the expert user Const PERF_DETAIL_WIZARD = 400 ' For the system designer Type PERF_COUNTER_DEFINITION ByteLength As Long CounterNameTitleIndex As Long CounterNameTitle As String CounterHelpTitleIndex As Long CounterHelpTitle As String DefaultScale As Long DetailLevel As Long CounterType As Long CounterSize As Long CounterOffset As Long End Type Const PERF_NO_UNIQUE_ID = -1 Type PERF_INSTANCE_DEFINITION ByteLength As Long ParentObjectTitleIndex As Long ParentObjectInstance As Long UniqueID As Long NameOffset As Long NameLength As Long End Type Type PERF_COUNTER_BLOCK ByteLength As Long End Type Const CDERR_DIALOGFAILURE = &HFFFF Const CDERR_GENERALCODES = &H0 Const CDERR_STRUCTSIZE = &H1 Const CDERR_INITIALIZATION = &H2 Const CDERR_NOTEMPLATE = &H3 Const CDERR_NOHINSTANCE = &H4 Const CDERR_LOADSTRFAILURE = &H5 Const CDERR_FINDRESFAILURE = &H6 Const CDERR_LOADRESFAILURE = &H7 Const CDERR_LOCKRESFAILURE = &H8 Const CDERR_MEMALLOCFAILURE = &H9 Const CDERR_MEMLOCKFAILURE = &HA Const CDERR_NOHOOK = &HB Const CDERR_REGISTERMSGFAIL = &HC Const PDERR_PRINTERCODES = &H1000 Const PDERR_SETUPFAILURE = &H1001 Const PDERR_PARSEFAILURE = &H1002 Const PDERR_RETDEFFAILURE = &H1003 Const PDERR_LOADDRVFAILURE = &H1004 Const PDERR_GETDEVMODEFAIL = &H1005 Const PDERR_INITFAILURE = &H1006 Const PDERR_NODEVICES = &H1007 Const PDERR_NODEFAULTPRN = &H1008 Const PDERR_DNDMMISMATCH = &H1009 Const PDERR_CREATEICFAILURE = &H100A Const PDERR_PRINTERNOTFOUND = &H100B Const PDERR_DEFAULTDIFFERENT = &H100C Const CFERR_CHOOSEFONTCODES = &H2000 Const CFERR_NOFONTS = &H2001 Const CFERR_MAXLESSTHANMIN = &H2002 Const FNERR_FILENAMECODES = &H3000 Const FNERR_SUBCLASSFAILURE = &H3001 Const FNERR_INVALIDFILENAME = &H3002 Const FNERR_BUFFERTOOSMALL = &H3003 Const FRERR_FINDREPLACECODES = &H4000 Const FRERR_BUFFERLENGTHZERO = &H4001 Const CCERR_CHOOSECOLORCODES = &H5000 ' Public interface to LZEXP?.LIB ' LZEXPAND error return codes Const LZERROR_BADINHANDLE = (-1) ' invalid input handle Const LZERROR_BADOUTHANDLE = (-2) ' invalid output handle Const LZERROR_READ = (-3) ' corrupt compressed file format Const LZERROR_WRITE = (-4) ' out of space for output file Const LZERROR_PUBLICLOC = (-5) ' insufficient memory for LZFile struct Const LZERROR_GLOBLOCK = (-6) ' bad Global handle Const LZERROR_BADVALUE = (-7) ' input parameter out of range Const LZERROR_UNKNOWNALG = (-8) ' compression algorithm not recognized Declare Function LZCopy Lib "lz32.dll" Alias "LZCopy" (ByVal hfSource As Long, ByVal hfDest As Long) As Long Declare Function LZInit Lib "lz32.dll" Alias "LZInit" (ByVal hfSrc As Long) As Long Declare Function GetExpandedName Lib "lz32.dll" Alias "GetExpandedNameA" (ByVal lpszSource As String, ByVal lpszBuffer As String) As Long Declare Function LZOpenFile Lib "lz32.dll" Alias "LZOpenFileA" (ByVal lpszFile As String, lpOf As OFSTRUCT, ByVal style As Long) As Long Declare Function LZSeek Lib "lz32.dll" Alias "LZSeek" (ByVal hfFile As Long, ByVal lOffset As Long, ByVal nOrigin As Long) As Long Declare Function LZRead Lib "lz32.dll" Alias "LZRead" (ByVal hfFile As Long, ByVal lpvBuf As String, ByVal cbread As Long) As Long Declare Sub LZClose Lib "lz32.dll" Alias "LZClose" (ByVal hfFile As Long) ' ******************************************************************** ' IMM.H - Input Method Manager definitions ' ' Copyright (c) 1993-1995 Microsoft Corporation ' ******************************************************************** Const VK_PROCESSKEY = &HE5 Type COMPOSITIONFORM dwStyle As Long ptCurrentPos As POINTAPI rcArea As Rect End Type Type CANDIDATEFORM dwIndex As Long dwStyle As Long ptCurrentPos As POINTAPI rcArea As Rect End Type Type CANDIDATELIST dwSize As Long dwStyle As Long dwCount As Long dwSelection As Long dwPageStart As Long dwPageSize As Long dwOffset(1) As Long End Type Const STYLE_DESCRIPTION_SIZE = 32 Type STYLEBUF dwStyle As Long szDescription As String * STYLE_DESCRIPTION_SIZE End Type ' prototype of IMM API Declare Function ImmInstallIME Lib "imm32.dll" Alias "ImmInstallIMEA" (ByVal lpszIMEFileName As String, ByVal lpszLayoutText As String) As Long Declare Function ImmGetDefaultIMEWnd Lib "imm32.dll" Alias "ImmGetDefaultIMEWnd" (ByVal hwnd As Long) As Long Declare Function ImmGetDescription Lib "imm32.dll" Alias "ImmGetDescriptionA" (ByVal hkl As Long, ByVal lpsz As String, ByVal uBufLen As Long) As Long Declare Function ImmGetIMEFileName Lib "imm32.dll" Alias "ImmGetIMEFileNameA" (ByVal hkl As Long, ByVal lpStr As String, ByVal uBufLen As Long) As Long Declare Function ImmGetProperty Lib "imm32.dll" Alias "ImmGetProperty" (ByVal hkl As Long, ByVal dw As Long) As Long Declare Function ImmIsIME Lib "imm32.dll" Alias "ImmIsIME" (ByVal hkl As Long) As Long Declare Function ImmSimulateHotKey Lib "imm32.dll" Alias "ImmSimulateHotKey" (ByVal hwnd As Long, ByVal dw As Long) As Long Declare Function ImmCreateContext Lib "imm32.dll" Alias "ImmCreateContext" () As Long Declare Function ImmDestroyContext Lib "imm32.dll" Alias "ImmDestroyContext" (ByVal himc As Long) As Long Declare Function ImmGetContext Lib "imm32.dll" Alias "ImmGetContext" (ByVal hwnd As Long) As Long Declare Function ImmReleaseContext Lib "imm32.dll" Alias "ImmReleaseContext" (ByVal hwnd As Long, ByVal himc As Long) As Long Declare Function ImmAssociateContext Lib "imm32.dll" Alias "ImmAssociateContext" (ByVal hwnd As Long, ByVal himc As Long) As Long Declare Function ImmGetCompositionString Lib "imm32.dll" Alias "ImmGetCompositionStringA" (ByVal himc As Long, ByVal dw As Long, lpv As Any, ByVal dw2 As Long) As Long Declare Function ImmSetCompositionString Lib "imm32.dll" Alias "ImmSetCompositionStringA" (ByVal himc As Long, ByVal dwIndex As Long, lpComp As Any, ByVal dw As Long, lpRead As Any, ByVal dw2 As Long) As Long Declare Function ImmGetCandidateListCount Lib "imm32.dll" Alias "ImmGetCandidateListCountA" (ByVal himc As Long, lpdwListCount As Long) As Long Declare Function ImmGetCandidateList Lib "imm32.dll" Alias "ImmGetCandidateListA" (ByVal himc As Long, ByVal deIndex As Long, lpCandidateList As CANDIDATELIST, ByVal dwBufLen As Long) As Long Declare Function ImmGetGuideLine Lib "imm32.dll" Alias "ImmGetGuideLineA" (ByVal himc As Long, ByVal dwIndex As Long, ByVal lpStr As String, ByVal dwBufLen As Long) As Long Declare Function ImmGetConversionStatus Lib "imm32.dll" Alias "ImmGetConversionStatus" (ByVal himc As Long, lpdw As Long, lpdw2 As Long) As Long Declare Function ImmSetConversionStatus Lib "imm32.dll" Alias "ImmSetConversionStatus" (ByVal himc As Long, ByVal dw1 As Long, ByVal dw2 As Long) As Long Declare Function ImmGetOpenStatus Lib "imm32.dll" Alias "ImmGetOpenStatus" (ByVal himc As Long) As Long Declare Function ImmSetOpenStatus Lib "imm32.dll" Alias "ImmSetOpenStatus" (ByVal himc As Long, ByVal b As Long) As Long Declare Function ImmGetCompositionFont Lib "imm32.dll" Alias "ImmGetCompositionFontA" (ByVal himc As Long, lpLogFont As LOGFONT) As Long Declare Function ImmSetCompositionFont Lib "imm32.dll" Alias "ImmSetCompositionFontA" (ByVal himc As Long, lpLogFont As LOGFONT) As Long Declare Function ImmConfigureIME Lib "imm32.dll" Alias "ImmConfigureIMEA" (ByVal hkl As Long, ByVal hwnd As Long, ByVal dw As Long) As Long Declare Function ImmEscape Lib "imm32.dll" Alias "ImmEscapeA" (ByVal hkl As Long, ByVal himc As Long, ByVal un As Long, lpv As Any) As Long Declare Function ImmGetConversionList Lib "imm32.dll" Alias "ImmGetConversionListA" (ByVal hkl As Long, ByVal himc As Long, ByVal lpsz As String, lpCandidateList As CANDIDATELIST, ByVal dwBufLen As Long, ByVal uFlag As Long) As Long Declare Function ImmNotifyIME Lib "imm32.dll" Alias "ImmNotifyIME" (ByVal himc As Long, ByVal dwAction As Long, ByVal dwIndex As Long, ByVal dwValue As Long) As Long Declare Function ImmGetStatusWindowPos Lib "imm32.dll" Alias "ImmGetStatusWindowPos" (ByVal himc As Long, lpPoint As POINTAPI) As Long Declare Function ImmSetStatusWindowPos Lib "imm32.dll" Alias "ImmSetStatusWindowPos" (ByVal himc As Long, lpPoint As POINTAPI) As Long Declare Function ImmGetCompositionWindow Lib "imm32.dll" Alias "ImmGetCompositionWindow" (ByVal himc As Long, lpCompositionForm As COMPOSITIONFORM) As Long Declare Function ImmSetCompositionWindow Lib "imm32.dll" Alias "ImmSetCompositionWindow" (ByVal himc As Long, lpCompositionForm As COMPOSITIONFORM) As Long Declare Function ImmGetCandidateWindow Lib "imm32.dll" Alias "ImmGetCandidateWindow" (ByVal himc As Long, ByVal dw As Long, lpCandidateForm As CANDIDATEFORM) As Long Declare Function ImmSetCandidateWindow Lib "imm32.dll" Alias "ImmSetCandidateWindow" (ByVal himc As Long, lpCandidateForm As CANDIDATEFORM) As Long Declare Function ImmIsUIMessage Lib "imm32.dll" Alias "ImmIsUIMessageA" (ByVal hwnd As Long, ByVal un As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Declare Function ImmGetVirtualKey Lib "imm32.dll" Alias "ImmGetVirtualKey" (ByVal hwnd As Long) As Long Declare Function ImmRegisterWord Lib "imm32.dll" Alias "ImmRegisterWordA" (ByVal hkl As Long, ByVal lpszReading As String, ByVal dw As Long, ByVal lpszRegister As String) As Long Declare Function ImmUnregisterWord Lib "imm32.dll" Alias "ImmUnregisterWordA" (ByVal hkl As Long, ByVal lpszReading As String, ByVal dw As Long, ByVal lpszUnregister As String) As Long Declare Function ImmGetRegisterWordStyle Lib "imm32.dll" Alias "ImmGetRegisterWordStyleA" (ByVal hkl As Long, ByVal nItem As Long, lpStyleBuf As STYLEBUF) As Long Declare Function ImmEnumRegisterWord Lib "imm32.dll" Alias "ImmEnumRegisterWordA" (ByVal hkl As Long, ByVal RegisterWordEnumProc As Long, ByVal lpszReading As String, ByVal dw As Long, ByVal lpszRegister As String, lpv As Any) As Long ' the IME related messages Const WM_CONVERTREQUESTEX = &H108 Const WM_IME_STARTCOMPOSITION = &H10D Const WM_IME_ENDCOMPOSITION = &H10E Const WM_IME_COMPOSITION = &H10F Const WM_IME_KEYLAST = &H10F Const WM_IME_SETCONTEXT = &H281 Const WM_IME_NOTIFY = &H282 Const WM_IME_CONTROL = &H283 Const WM_IME_COMPOSITIONFULL = &H284 Const WM_IME_SELECT = &H285 Const WM_IME_CHAR = &H286 Const WM_IME_KEYDOWN = &H290 Const WM_IME_KEYUP = &H291 ' wParam for WM_IME_CONTROL Const IMC_GETCANDIDATEPOS = &H7 Const IMC_SETCANDIDATEPOS = &H8 Const IMC_GETCOMPOSITIONFONT = &H9 Const IMC_SETCOMPOSITIONFONT = &HA Const IMC_GETCOMPOSITIONWINDOW = &HB Const IMC_SETCOMPOSITIONWINDOW = &HC Const IMC_GETSTATUSWINDOWPOS = &HF Const IMC_SETSTATUSWINDOWPOS = &H10 Const IMC_CLOSESTATUSWINDOW = &H21 Const IMC_OPENSTATUSWINDOW = &H22 ' wParam for WM_IME_CONTROL to the soft keyboard ' dwAction for ImmNotifyIME Const NI_OPENCANDIDATE = &H10 Const NI_CLOSECANDIDATE = &H11 Const NI_SELECTCANDIDATESTR = &H12 Const NI_CHANGECANDIDATELIST = &H13 Const NI_FINALIZECONVERSIONRESULT = &H14 Const NI_COMPOSITIONSTR = &H15 Const NI_SETCANDIDATE_PAGESTART = &H16 Const NI_SETCANDIDATE_PAGESIZE = &H17 ' lParam for WM_IME_SETCONTEXT Const ISC_SHOWUICANDIDATEWINDOW = &H1 Const ISC_SHOWUICOMPOSITIONWINDOW = &H80000000 Const ISC_SHOWUIGUIDELINE = &H40000000 Const ISC_SHOWUIALLCANDIDATEWINDOW = &HF Const ISC_SHOWUIALL = &HC000000F ' dwIndex for ImmNotifyIME/NI_COMPOSITIONSTR Const CPS_COMPLETE = &H1 Const CPS_CONVERT = &H2 Const CPS_REVERT = &H3 Const CPS_CANCEL = &H4 ' Windows for Simplified Chinese Edition hot key ID from 0x10 - 0x2F Const IME_CHOTKEY_IME_NONIME_TOGGLE = &H10 Const IME_CHOTKEY_SHAPE_TOGGLE = &H11 Const IME_CHOTKEY_SYMBOL_TOGGLE = &H12 ' Windows for Japanese Edition hot key ID from 0x30 - 0x4F Const IME_JHOTKEY_CLOSE_OPEN = &H30 ' Windows for Korean Edition hot key ID from 0x50 - 0x6F Const IME_KHOTKEY_SHAPE_TOGGLE = &H50 Const IME_KHOTKEY_HANJACONVERT = &H51 Const IME_KHOTKEY_ENGLISH = &H52 ' Windows for Tranditional Chinese Edition hot key ID from 0x70 - 0x8F Const IME_THOTKEY_IME_NONIME_TOGGLE = &H70 Const IME_THOTKEY_SHAPE_TOGGLE = &H71 Const IME_THOTKEY_SYMBOL_TOGGLE = &H72 ' direct switch hot key ID from 0x100 - 0x11F Const IME_HOTKEY_DSWITCH_FIRST = &H100 Const IME_HOTKEY_DSWITCH_LAST = &H11F ' IME private hot key from 0x200 - 0x21F Const IME_ITHOTKEY_RESEND_RESULTSTR = &H200 Const IME_ITHOTKEY_PREVIOUS_COMPOSITION = &H201 Const IME_ITHOTKEY_UISTYLE_TOGGLE = &H202 ' parameter of ImmGetCompositionString Const GCS_COMPREADSTR = &H1 Const GCS_COMPREADATTR = &H2 Const GCS_COMPREADCLAUSE = &H4 Const GCS_COMPSTR = &H8 Const GCS_COMPATTR = &H10 Const GCS_COMPCLAUSE = &H20 Const GCS_CURSORPOS = &H80 Const GCS_DELTASTART = &H100 Const GCS_RESULTREADSTR = &H200 Const GCS_RESULTREADCLAUSE = &H400 Const GCS_RESULTSTR = &H800 Const GCS_RESULTCLAUSE = &H1000 ' style bit flags for WM_IME_COMPOSITION Const CS_INSERTCHAR = &H2000 Const CS_NOMOVECARET = &H4000 ' bits of fdwInit of INPUTCONTEXT ' IME property bits Const IME_PROP_AT_CARET = &H10000 Const IME_PROP_SPECIAL_UI = &H20000 Const IME_PROP_CANDLIST_START_FROM_1 = &H40000 Const IME_PROP_UNICODE = &H80000 ' IME UICapability bits Const UI_CAP_2700 = &H1 Const UI_CAP_ROT90 = &H2 Const UI_CAP_ROTANY = &H4 ' ImmSetCompositionString Capability bits Const SCS_CAP_COMPSTR = &H1 Const SCS_CAP_MAKEREAD = &H2 ' IME WM_IME_SELECT inheritance Capability bits Const SELECT_CAP_CONVERSION = &H1 Const SELECT_CAP_SENTENCE = &H2 ' ID for deIndex of ImmGetGuideLine Const GGL_LEVEL = &H1 Const GGL_INDEX = &H2 Const GGL_STRING = &H3 Const GGL_PRIVATE = &H4 ' ID for dwLevel of GUIDELINE Structure Const GL_LEVEL_NOGUIDELINE = &H0 Const GL_LEVEL_FATAL = &H1 Const GL_LEVEL_ERROR = &H2 Const GL_LEVEL_WARNING = &H3 Const GL_LEVEL_INFORMATION = &H4 ' ID for dwIndex of GUIDELINE Structure Const GL_ID_UNKNOWN = &H0 Const GL_ID_NOMODULE = &H1 Const GL_ID_NODICTIONARY = &H10 Const GL_ID_CANNOTSAVE = &H11 Const GL_ID_NOCONVERT = &H20 Const GL_ID_TYPINGERROR = &H21 Const GL_ID_TOOMANYSTROKE = &H22 Const GL_ID_READINGCONFLICT = &H23 Const GL_ID_INPUTREADING = &H24 Const GL_ID_INPUTRADICAL = &H25 Const GL_ID_INPUTCODE = &H26 Const GL_ID_INPUTSYMBOL = &H27 Const GL_ID_CHOOSECANDIDATE = &H28 Const GL_ID_REVERSECONVERSION = &H29 Const GL_ID_PRIVATE_FIRST = &H8000 Const GL_ID_PRIVATE_LAST = &HFFFF ' ID for dwIndex of ImmGetProperty Const IGP_PROPERTY = &H4 Const IGP_CONVERSION = &H8 Const IGP_SENTENCE = &HC Const IGP_UI = &H10 Const IGP_SETCOMPSTR = &H14 Const IGP_SELECT = &H18 ' dwIndex for ImmSetCompositionString API Const SCS_SETSTR = (GCS_COMPREADSTR Or GCS_COMPSTR) Const SCS_CHANGEATTR = (GCS_COMPREADATTR Or GCS_COMPATTR) Const SCS_CHANGECLAUSE = (GCS_COMPREADCLAUSE Or GCS_COMPCLAUSE) ' attribute for COMPOSITIONSTRING Structure Const ATTR_INPUT = &H0 Const ATTR_TARGET_CONVERTED = &H1 Const ATTR_CONVERTED = &H2 Const ATTR_TARGET_NOTCONVERTED = &H3 Const ATTR_INPUT_ERROR = &H4 ' bit field for IMC_SETCOMPOSITIONWINDOW, IMC_SETCANDIDATEWINDOW Const CFS_DEFAULT = &H0 Const CFS_RECT = &H1 Const CFS_POINT = &H2 Const CFS_SCREEN = &H4 Const CFS_FORCE_POSITION = &H20 Const CFS_CANDIDATEPOS = &H40 Const CFS_EXCLUDE = &H80 ' conversion direction for ImmGetConversionList Const GCL_CONVERSION = &H1 Const GCL_REVERSECONVERSION = &H2 Const GCL_REVERSE_LENGTH = &H3 ' bit field for conversion mode Const IME_CMODE_ALPHANUMERIC = &H0 Const IME_CMODE_NATIVE = &H1 Const IME_CMODE_CHINESE = IME_CMODE_NATIVE Const IME_CMODE_HANGEUL = IME_CMODE_NATIVE Const IME_CMODE_JAPANESE = IME_CMODE_NATIVE Const IME_CMODE_KATAKANA = &H2 ' only effect under IME_CMODE_NATIVE Const IME_CMODE_LANGUAGE = &H3 Const IME_CMODE_FULLSHAPE = &H8 Const IME_CMODE_ROMAN = &H10 Const IME_CMODE_CHARCODE = &H20 Const IME_CMODE_HANJACONVERT = &H40 Const IME_CMODE_SOFTKBD = &H80 Const IME_CMODE_NOCONVERSION = &H100 Const IME_CMODE_EUDC = &H200 Const IME_CMODE_SYMBOL = &H400 Const IME_SMODE_NONE = &H0 Const IME_SMODE_PLAURALCLAUSE = &H1 Const IME_SMODE_SINGLECONVERT = &H2 Const IME_SMODE_AUTOMATIC = &H4 Const IME_SMODE_PHRASEPREDICT = &H8 ' style of candidate Const IME_CAND_UNKNOWN = &H0 Const IME_CAND_READ = &H1 Const IME_CAND_CODE = &H2 Const IME_CAND_MEANING = &H3 Const IME_CAND_RADICAL = &H4 Const IME_CAND_STROKE = &H5 ' wParam of report message WM_IME_NOTIFY Const IMN_CLOSESTATUSWINDOW = &H1 Const IMN_OPENSTATUSWINDOW = &H2 Const IMN_CHANGECANDIDATE = &H3 Const IMN_CLOSECANDIDATE = &H4 Const IMN_OPENCANDIDATE = &H5 Const IMN_SETCONVERSIONMODE = &H6 Const IMN_SETSENTENCEMODE = &H7 Const IMN_SETOPENSTATUS = &H8 Const IMN_SETCANDIDATEPOS = &H9 Const IMN_SETCOMPOSITIONFONT = &HA Const IMN_SETCOMPOSITIONWINDOW = &HB Const IMN_SETSTATUSWINDOWPOS = &HC Const IMN_GUIDELINE = &HD Const IMN_PRIVATE = &HE ' error code of ImmGetCompositionString Const IMM_ERROR_NODATA = (-1) Const IMM_ERROR_GENERAL = (-2) ' dialog mode of ImmConfigureIME Const IME_CONFIG_GENERAL = 1 Const IME_CONFIG_REGISTERWORD = 2 Const IME_CONFIG_SELECTDICTIONARY = 3 ' dialog mode of ImmEscape Const IME_ESC_QUERY_SUPPORT = &H3 Const IME_ESC_RESERVED_FIRST = &H4 Const IME_ESC_RESERVED_LAST = &H7FF Const IME_ESC_PRIVATE_FIRST = &H800 Const IME_ESC_PRIVATE_LAST = &HFFF Const IME_ESC_SEQUENCE_TO_INTERNAL = &H1001 Const IME_ESC_GET_EUDC_DICTIONARY = &H1003 Const IME_ESC_SET_EUDC_DICTIONARY = &H1004 Const IME_ESC_MAX_KEY = &H1005 Const IME_ESC_IME_NAME = &H1006 Const IME_ESC_SYNC_HOTKEY = &H1007 Const IME_ESC_HANJA_MODE = &H1008 ' style of word registration Const IME_REGWORD_STYLE_EUDC = &H1 Const IME_REGWORD_STYLE_USER_FIRST = &H80000000 Const IME_REGWORD_STYLE_USER_LAST = &HFFFF ' type of soft keyboard ' for Windows Tranditional Chinese Edition Const SOFTKEYBOARD_TYPE_T1 = &H1 ' for Windows Simplified Chinese Edition Const SOFTKEYBOARD_TYPE_C1 = &H2 ' *********************************************************************** ' * * ' * mcx.h -- This module defines the 32-Bit Windows MCX APIs * ' * * ' * Copyright (c) 1990-1995, Microsoft Corp. All rights reserved. * ' * * ' ************************************************************************/ Type MODEMDEVCAPS dwActualSize As Long dwRequiredSize As Long dwDevSpecificOffset As Long dwDevSpecificSize As Long ' product and version identification dwModemProviderVersion As Long dwModemManufacturerOffset As Long dwModemManufacturerSize As Long dwModemModelOffset As Long dwModemModelSize As Long dwModemVersionOffset As Long dwModemVersionSize As Long ' local option capabilities dwDialOptions As Long ' bitmap of supported values dwCallSetupFailTimer As Long ' maximum in seconds dwInactivityTimeout As Long ' maximum in seconds dwSpeakerVolume As Long ' bitmap of supported values dwSpeakerMode As Long ' bitmap of supported values dwModemOptions As Long ' bitmap of supported values dwMaxDTERate As Long ' maximum value in bit/s dwMaxDCERate As Long ' maximum value in bit/s ' Variable portion for proprietary expansion abVariablePortion(1) As Byte End Type Type MODEMSETTINGS dwActualSize As Long dwRequiredSize As Long dwDevSpecificOffset As Long dwDevSpecificSize As Long ' static local options (read/write) dwCallSetupFailTimer As Long ' seconds dwInactivityTimeout As Long ' seconds dwSpeakerVolume As Long ' level dwSpeakerMode As Long ' mode dwPreferredModemOptions As Long ' bitmap ' negotiated options (read only) for current or last call dwNegotiatedModemOptions As Long ' bitmap dwNegotiatedDCERate As Long ' bit/s ' Variable portion for proprietary expansion abVariablePortion(1) As Byte End Type ' Dial Options Const DIALOPTION_BILLING = &H40 ' Supports wait for bong "$" Const DIALOPTION_QUIET = &H80 ' Supports wait for quiet "@" Const DIALOPTION_DIALTONE = &H100 ' Supports wait for dial tone "W" ' SpeakerVolume for MODEMDEVCAPS Const MDMVOLFLAG_LOW = &H1 Const MDMVOLFLAG_MEDIUM = &H2 Const MDMVOLFLAG_HIGH = &H4 ' SpeakerVolume for MODEMSETTINGS Const MDMVOL_LOW = &H0 Const MDMVOL_MEDIUM = &H1 Const MDMVOL_HIGH = &H2 ' SpeakerMode for MODEMDEVCAPS Const MDMSPKRFLAG_OFF = &H1 Const MDMSPKRFLAG_DIAL = &H2 Const MDMSPKRFLAG_ON = &H4 Const MDMSPKRFLAG_CALLSETUP = &H8 ' SpeakerMode for MODEMSETTINGS Const MDMSPKR_OFF = &H0 Const MDMSPKR_DIAL = &H1 Const MDMSPKR_ON = &H2 Const MDMSPKR_CALLSETUP = &H3 ' Modem Options Const MDM_COMPRESSION = &H1 Const MDM_ERROR_CONTROL = &H2 Const MDM_FORCED_EC = &H4 Const MDM_CELLULAR = &H8 Const MDM_FLOWCONTROL_HARD = &H10 Const MDM_FLOWCONTROL_SOFT = &H20 Const MDM_CCITT_OVERRIDE = &H40 Const MDM_SPEED_ADJUST = &H80 Const MDM_TONE_DIAL = &H100 Const MDM_BLIND_DIAL = &H200 Const MDM_V23_OVERRIDE = &H400 ' ***************************************************************************** * ' * shellapi.h - SHELL.DLL functions, types, and definitions * ' * * ' * Copyright (c) 1992-1995, Microsoft Corp. All rights reserved * ' * * ' \*****************************************************************************/ Declare Function DragQueryFile Lib "shell32.dll" Alias "DragQueryFileA" (ByVal HDROP As Long, ByVal UINT As Long, ByVal lpStr As String, ByVal ch As Long) As Long Declare Function DragQueryPoint Lib "shell32.dll" Alias "DragQueryPoint" (ByVal HDROP As Long, lpPoint As POINTAPI) As Long Declare Sub DragFinish Lib "shell32.dll" Alias "DragFinish" (ByVal hDrop As Long) Declare Sub DragAcceptFiles Lib "shell32.dll" Alias "DragAcceptFiles" (ByVal hwnd As Long, ByVal fAccept As Long) Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hwnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long Declare Function DuplicateIcon Lib "shell32.dll" Alias "DuplicateIcon" (ByVal hInst As Long, ByVal hIcon As Long) As Long Declare Function ExtractAssociatedIcon Lib "shell32.dll" Alias "ExtractAssociatedIconA" (ByVal hInst As Long, ByVal lpIconPath As String, lpiIcon As Long) As Long Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long Type DRAGINFO uSize As Long ' init with sizeof(DRAGINFO) pt As POINTAPI fNC As Long lpFileList As String grfKeyState As Long End Type ' // AppBar stuff Const ABM_NEW = &H0 Const ABM_REMOVE = &H1 Const ABM_QUERYPOS = &H2 Const ABM_SETPOS = &H3 Const ABM_GETSTATE = &H4 Const ABM_GETTASKBARPOS = &H5 Const ABM_ACTIVATE = &H6 ' lParam == TRUE/FALSE means activate/deactivate Const ABM_GETAUTOHIDEBAR = &H7 Const ABM_SETAUTOHIDEBAR = &H8 ' this can fail at any time. MUST check the result ' lParam = TRUE/FALSE Set/Unset ' uEdge = what edge Const ABM_WINDOWPOSCHANGED = &H9 ' these are put in the wparam of callback messages Const ABN_STATECHANGE = &H0 Const ABN_POSCHANGED = &H1 Const ABN_FULLSCREENAPP = &H2 Const ABN_WINDOWARRANGE = &H3 ' lParam == TRUE means hide ' flags for get state Const ABS_AUTOHIDE = &H1 Const ABS_ALWAYSONTOP = &H2 Const ABE_LEFT = 0 Const ABE_TOP = 1 Const ABE_RIGHT = 2 Const ABE_BOTTOM = 3 Type APPBARDATA cbSize As Long hwnd As Long uCallbackMessage As Long uEdge As Long rc As Rect lParam As Long ' message specific End Type Declare Function SHAppBarMessage Lib "shell32.dll" Alias "SHAppBarMessage" (ByVal dwMessage As Long, pData As APPBARDATA) As Long ' // EndAppBar Declare Function DoEnvironmentSubst Lib "shell32.dll" Alias "DoEnvironmentSubstA" (ByVal szString As String, ByVal cbString As Long) As Long Const EIRESID = -1 Declare Function ExtractIconEx Lib "shell32.dll" Alias "ExtractIconExA" (ByVal lpszFile As String, ByVal nIconIndex As Long, phiconLarge As Long, phiconSmall As Long, ByVal nIcons As Long) As Long ' // Shell File Operations Const FO_MOVE = &H1 Const FO_COPY = &H2 Const FO_DELETE = &H3 Const FO_RENAME = &H4 Const FOF_MULTIDESTFILES = &H1 Const FOF_CONFIRMMOUSE = &H2 Const FOF_SILENT = &H4 ' don't create progress/report Const FOF_RENAMEONCOLLISION = &H8 Const FOF_NOCONFIRMATION = &H10 ' Don't prompt the user. Const FOF_WANTMAPPINGHANDLE = &H20 ' Fill in SHFILEOPSTRUCT.hNameMappings ' Must be freed using SHFreeNameMappings Const FOF_ALLOWUNDO = &H40 Const FOF_FILESONLY = &H80 ' on *.*, do only files Const FOF_SIMPLEPROGRESS = &H100 ' means don't show names of files Const FOF_NOCONFIRMMKDIR = &H200 ' don't confirm making any needed dirs Const PO_DELETE = &H13 ' printer is being deleted Const PO_RENAME = &H14 ' printer is being renamed Const PO_PORTCHANGE = &H20 ' port this printer connected to is being changed ' if this id is set, the strings received by ' the copyhook are a doubly-null terminated ' list of strings. The first is the printer ' name and the second is the printer port. Const PO_REN_PORT = &H34 ' PO_RENAME and PO_PORTCHANGE at same time. ' no POF_ flags currently defined ' implicit parameters are: ' if pFrom or pTo are unqualified names the current directories are ' taken from the global current drive/directory settings managed ' by Get/SetCurrentDrive/Directory ' ' the global confirmation settings Type SHFILEOPSTRUCT hwnd As Long wFunc As Long pFrom As String pTo As String fFlags As Integer fAnyOperationsAborted As Long hNameMappings As Long lpszProgressTitle As String ' only used if FOF_SIMPLEPROGRESS End Type Public Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long Declare Sub SHFreeNameMappings Lib "shell32.dll" Alias "SHFreeNameMappings" (ByVal hNameMappings As Long) Type SHNAMEMAPPING pszOldPath As String pszNewPath As String cchOldPath As Long cchNewPath As Long End Type ' // End Shell File Operations ' // Begin ShellExecuteEx and family ' ShellExecute() and ShellExecuteEx() error codes ' regular WinExec() codes Const SE_ERR_FNF = 2 ' file not found Const SE_ERR_PNF = 3 ' path not found Const SE_ERR_ACCESSDENIED = 5 ' access denied Const SE_ERR_OOM = 8 ' out of memory Const SE_ERR_DLLNOTFOUND = 32 ' Note CLASSKEY overrides CLASSNAME Const SEE_MASK_CLASSNAME = &H1 Const SEE_MASK_CLASSKEY = &H3 ' Note INVOKEIDLIST overrides IDLIST Const SEE_MASK_IDLIST = &H4 Const SEE_MASK_INVOKEIDLIST = &HC Const SEE_MASK_ICON = &H10 Const SEE_MASK_HOTKEY = &H20 Const SEE_MASK_NOCLOSEPROCESS = &H40 Const SEE_MASK_CONNECTNETDRV = &H80 Const SEE_MASK_FLAG_DDEWAIT = &H100 Const SEE_MASK_DOENVSUBST = &H200 Const SEE_MASK_FLAG_NO_UI = &H400 Type SHELLEXECUTEINFO cbSize As Long fMask As Long hwnd As Long lpVerb As String lpFile As String lpParameters As String lpDirectory As String nShow As Long hInstApp As Long ' Optional fields lpIDList As Long lpClass As String hkeyClass As Long dwHotKey As Long hIcon As Long hProcess As Long End Type Declare Sub WinExecError Lib "shell32.dll" Alias "WinExecErrorA" (ByVal hwnd As Long, ByVal error As Long, ByVal lpstrFileName As String, ByVal lpstrTitle As String) ' // End ShellExecuteEx and family ' // Tray notification definitions Type NOTIFYICONDATA cbSize As Long hwnd As Long uID As Long uFlags As Long uCallbackMessage As Long hIcon As Long szTip As String * 64 End Type Const NIM_ADD = &H0 Const NIM_MODIFY = &H1 Const NIM_DELETE = &H2 Const NIF_MESSAGE = &H1 Const NIF_ICON = &H2 Const NIF_TIP = &H4 Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long ' // End Tray Notification Icons ' // Begin SHGetFileInfo ' * The SHGetFileInfo API provides an easy way to get attributes ' * for a file given a pathname. ' * ' * PARAMETERS ' * ' * pszPath file name to get info about ' * dwFileAttributes file attribs, only used with SHGFI_USEFILEATTRIBUTES ' * psfi place to return file info ' * cbFileInfo size of structure ' * uFlags flags ' * ' * RETURN ' * TRUE if things worked ' */ Type SHFILEINFO hIcon As Long ' out: icon iIcon As Long ' out: icon index dwAttributes As Long ' out: SFGAO_ flags szDisplayName As String * MAX_PATH ' out: display name (or path) szTypeName As String * 80 ' out: type name End Type Const SHGFI_ICON = &H100 ' get icon Const SHGFI_DISPLAYNAME = &H200 ' get display name Const SHGFI_TYPENAME = &H400 ' get type name Const SHGFI_ATTRIBUTES = &H800 ' get attributes Const SHGFI_ICONLOCATION = &H1000 ' get icon location Const SHGFI_EXETYPE = &H2000 ' return exe type Const SHGFI_SYSICONINDEX = &H4000 ' get system icon index Const SHGFI_LINKOVERLAY = &H8000 ' put a link overlay on icon Const SHGFI_SELECTED = &H10000 ' show icon in selected state Const SHGFI_LARGEICON = &H0 ' get large icon Const SHGFI_SMALLICON = &H1 ' get small icon Const SHGFI_OPENICON = &H2 ' get open icon Const SHGFI_SHELLICONSIZE = &H4 ' get shell size icon Const SHGFI_PIDL = &H8 ' pszPath is a pidl Const SHGFI_USEFILEATTRIBUTES = &H10 ' use passed dwFileAttribute Declare Function SHGetFileInfo Lib "shell32.dll" Alias "SHGetFileInfoA" (ByVal pszPath As String, ByVal dwFileAttributes As Long, psfi As SHFILEINFO, ByVal cbFileInfo As Long, ByVal uFlags As Long) As Long Declare Function SHGetNewLinkInfo Lib "shell32.dll" Alias "SHGetNewLinkInfoA" (ByVal pszLinkto As String, ByVal pszDir As String, ByVal pszName As String, pfMustCopy As Long, ByVal uFlags As Long) As Long Const SHGNLI_PIDL = &H1 ' pszLinkTo is a pidl Const SHGNLI_PREFIXNAME = &H2 ' Make name "Shortcut to xxx" ' // End SHGetFileInfo ' Copyright (C) 1993 - 1995 Microsoft Corporation ' Module Name: ' winperf.h ' Abstract: ' Header file for the Performance Monitor data. ' This file contains the definitions of the data structures returned ' by the Configuration Registry in response to a request for ' performance data. This file is used by both the Configuration ' Registry and the Performance Monitor to define their interface. ' The complete interface is described here, except for the name ' of the node to query in the registry. It is ' HKEY_PERFORMANCE_DATA. ' By querying that node with a subkey of "Global" the caller will ' retrieve the structures described here. ' There is no need to RegOpenKey() the reserved handle HKEY_PERFORMANCE_DATA, ' but the caller should RegCloseKey() the handle so that network transports ' and drivers can be removed or installed (which cannot happen while ' they are open for monitoring.) Remote requests must first ' RegConnectRegistry(). ' --*/ ' Data structure definitions. ' In order for data to be returned through the Configuration Registry ' in a system-independent fashion, it must be self-describing. ' In the following, all offsets are in bytes. ' ' Data is returned through the Configuration Registry in a ' a data block which begins with a _PERF_DATA_BLOCK structure. ' ' The _PERF_DATA_BLOCK structure is followed by NumObjectTypes of ' data sections, one for each type of object measured. Each object ' type section begins with a _PERF_OBJECT_TYPE structure. ' ***************************************************************************** * ' * winver.h - Version management functions, types, and definitions * ' * * ' * Include file for VER.DLL. This library is * ' * designed to allow version stamping of Windows executable files* ' * and of special .VER files for DOS executable files. * ' * * ' * Copyright (c) 1993, Microsoft Corp. All rights reserved * ' * * ' \*****************************************************************************/ ' ----- Symbols ----- Const VS_VERSION_INFO = 1 Const VS_USER_DEFINED = 100 ' ----- VS_VERSION.dwFileFlags ----- Const VS_FFI_SIGNATURE = &HFEEF04BD Const VS_FFI_STRUCVERSION = &H10000 Const VS_FFI_FILEFLAGSMASK = &H3F& ' ----- VS_VERSION.dwFileFlags ----- Const VS_FF_DEBUG = &H1& Const VS_FF_PRERELEASE = &H2& Const VS_FF_PATCHED = &H4& Const VS_FF_PRIVATEBUILD = &H8& Const VS_FF_INFOINFERRED = &H10& Const VS_FF_SPECIALBUILD = &H20& ' ----- VS_VERSION.dwFileOS ----- Const VOS_UNKNOWN = &H0& Const VOS_DOS = &H10000 Const VOS_OS216 = &H20000 Const VOS_OS232 = &H30000 Const VOS_NT = &H40000 Const VOS__BASE = &H0& Const VOS__WINDOWS16 = &H1& Const VOS__PM16 = &H2& Const VOS__PM32 = &H3& Const VOS__WINDOWS32 = &H4& Const VOS_DOS_WINDOWS16 = &H10001 Const VOS_DOS_WINDOWS32 = &H10004 Const VOS_OS216_PM16 = &H20002 Const VOS_OS232_PM32 = &H30003 Const VOS_NT_WINDOWS32 = &H40004 ' ----- VS_VERSION.dwFileType ----- Const VFT_UNKNOWN = &H0& Const VFT_APP = &H1& Const VFT_DLL = &H2& Const VFT_DRV = &H3& Const VFT_FONT = &H4& Const VFT_VXD = &H5& Const VFT_STATIC_LIB = &H7& ' ----- VS_VERSION.dwFileSubtype for VFT_WINDOWS_DRV ----- Const VFT2_UNKNOWN = &H0& Const VFT2_DRV_PRINTER = &H1& Const VFT2_DRV_KEYBOARD = &H2& Const VFT2_DRV_LANGUAGE = &H3& Const VFT2_DRV_DISPLAY = &H4& Const VFT2_DRV_MOUSE = &H5& Const VFT2_DRV_NETWORK = &H6& Const VFT2_DRV_SYSTEM = &H7& Const VFT2_DRV_INSTALLABLE = &H8& Const VFT2_DRV_SOUND = &H9& Const VFT2_DRV_COMM = &HA& Const VFT2_DRV_INPUTMETHOD = &HB& ' ----- VS_VERSION.dwFileSubtype for VFT_WINDOWS_FONT ----- Const VFT2_FONT_RASTER = &H1& Const VFT2_FONT_VECTOR = &H2& Const VFT2_FONT_TRUETYPE = &H3& ' ----- VerFindFile() flags ----- Const VFFF_ISSHAREDFILE = &H1 Const VFF_CURNEDEST = &H1 Const VFF_FILEINUSE = &H2 Const VFF_BUFFTOOSMALL = &H4 ' ----- VerInstallFile() flags ----- Const VIFF_FORCEINSTALL = &H1 Const VIFF_DONTDELETEOLD = &H2 Const VIF_TEMPFILE = &H1& Const VIF_MISMATCH = &H2& Const VIF_SRCOLD = &H4& Const VIF_DIFFLANG = &H8& Const VIF_DIFFCODEPG = &H10& Const VIF_DIFFTYPE = &H20& Const VIF_WRITEPROT = &H40& Const VIF_FILEINUSE = &H80& Const VIF_OUTOFSPACE = &H100& Const VIF_ACCESSVIOLATION = &H200& Const VIF_SHARINGVIOLATION = &H400& Const VIF_CANNOTCREATE = &H800& Const VIF_CANNOTDELETE = &H1000& Const VIF_CANNOTRENAME = &H2000& Const VIF_CANNOTDELETECUR = &H4000& Const VIF_OUTOFMEMORY = &H8000& Const VIF_CANNOTREADSRC = &H10000 Const VIF_CANNOTREADDST = &H20000 Const VIF_BUFFTOOSMALL = &H40000 ' ----- Types and structures ----- Type VS_FIXEDFILEINFO dwSignature As Long dwStrucVersion As Long ' e.g. 0x00000042 = "0.42" dwFileVersionMS As Long ' e.g. 0x00030075 = "3.75" dwFileVersionLS As Long ' e.g. 0x00000031 = "0.31" dwProductVersionMS As Long ' e.g. 0x00030010 = "3.10" dwProductVersionLS As Long ' e.g. 0x00000031 = "0.31" dwFileFlagsMask As Long ' = 0x3F for version "0.42" dwFileFlags As Long ' e.g. VFF_DEBUG Or VFF_PRERELEASE dwFileOS As Long ' e.g. VOS_DOS_WINDOWS16 dwFileType As Long ' e.g. VFT_DRIVER dwFileSubtype As Long ' e.g. VFT2_DRV_KEYBOARD dwFileDateMS As Long ' e.g. 0 dwFileDateLS As Long ' e.g. 0 End Type ' ----- Function prototypes ----- Declare Function VerFindFile Lib "version.dll" Alias "VerFindFileA" (ByVal uFlags As Long, ByVal szFileName As String, ByVal szWinDir As String, ByVal szAppDir As String, ByVal szCurDir As String, lpuCurDirLen As Long, ByVal szDestDir As String, lpuDestDirLen As Long) As Long Declare Function VerInstallFile Lib "version.dll" Alias "VerInstallFileA" (ByVal uFlags As Long, ByVal szSrcFileName As String, ByVal szDestFileName As String, ByVal szSrcDir As String, ByVal szDestDir As String, ByVal szCurDir As String, ByVal szTmpFile As String, lpuTmpFileLen As Long) As Long ' Returns size of version info in Bytes Declare Function GetFileVersionInfoSize Lib "version.dll" Alias "GetFileVersionInfoSizeA" (ByVal lptstrFilename As String, lpdwHandle As Long) As Long ' Read version info into buffer ' /* Length of buffer for info * ' /* Information from GetFileVersionSize * ' /* Filename of version stamped file * Declare Function GetFileVersionInfo Lib "version.dll" Alias "GetFileVersionInfoA" (ByVal lptstrFilename As String, ByVal dwHandle As Long, ByVal dwLen As Long, lpData As Any) As Long Declare Function VerLanguageName Lib "kernel32" Alias "VerLanguageNameA" (ByVal wLang As Long, ByVal szLang As String, ByVal nSize As Long) As Long Declare Function VerQueryValue Lib "version.dll" Alias "VerQueryValueA" (pBlock As Any, ByVal lpSubBlock As String, ByVal lplpBuffer As Long, puLen As Long) As Long ' *********************************************************************** ' * * ' * winbase.h -- This module defines the 32-Bit Windows Base APIs * ' * * ' * Copyright (c) 1990-1995, Microsoft Corp. All rights reserved. * ' * * ' ************************************************************************/ Type ICONMETRICS cbSize As Long iHorzSpacing As Long iVertSpacing As Long iTitleWrap As Long lfFont As LOGFONT End Type Type HELPINFO cbSize As Long iContextType As Long iCtrlId As Long hItemHandle As Long dwContextId As Long MousePos As POINTAPI End Type Type ANIMATIONINFO cbSize As Long iMinAnimate As Long End Type Type MINIMIZEDMETRICS cbSize As Long iWidth As Long iHorzGap As Long iVertGap As Long iArrange As Long lfFont As LOGFONT End Type ' Define API decoration for direct importing of DLL references. Declare Function HeapValidate Lib "kernel32" Alias "HeapValidate" (ByVal hHeap As Long, ByVal dwFlags As Long, lpMem As Any) As Long Declare Function HeapCompact Lib "kernel32" Alias "HeapCompact" (ByVal hHeap As Long, ByVal dwFlags As Long) As Long Const PROCESS_HEAP_REGION = &H1 Const PROCESS_HEAP_UNCOMMITTED_RANGE = &H2 Const PROCESS_HEAP_ENTRY_BUSY = &H4 Const PROCESS_HEAP_ENTRY_MOVEABLE = &H10 Const PROCESS_HEAP_ENTRY_DDESHARE = &H20 Declare Function HeapLock Lib "kernel32" Alias "HeapLock" (ByVal hHeap As Long) As Long Declare Function HeapUnlock Lib "kernel32" Alias "HeapUnlock" (ByVal hHeap As Long) As Long ' GetBinaryType return values. Const SCS_32BIT_BINARY = 0 Const SCS_DOS_BINARY = 1 Const SCS_WOW_BINARY = 2 Const SCS_PIF_BINARY = 3 Const SCS_POSIX_BINARY = 4 Const SCS_OS216_BINARY = 5 Declare Function GetBinaryType Lib "kernel32" Alias "GetBinaryTypeA" (ByVal lpApplicationName As String, lpBinaryType As Long) As Long Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long Declare Function GetProcessAffinityMask Lib "kernel32" Alias "GetProcessAffinityMask" (ByVal hProcess As Long, lpProcessAffinityMask As Long, SystemAffinityMask As Long) As Long ' Logon Support APIs Const LOGON32_LOGON_INTERACTIVE = 2 Const LOGON32_LOGON_BATCH = 4 Const LOGON32_LOGON_SERVICE = 5 Const LOGON32_PROVIDER_DEFAULT = 0 Const LOGON32_PROVIDER_WINNT35 = 1 Declare Function LogonUser Lib "advapi32" Alias "LogonUserA" (ByVal lpszUsername As String, ByVal lpszDomain As String, ByVal lpszPassword As String, ByVal dwLogonType As Long, ByVal dwLogonProvider As Long, phToken As Long) As Long Declare Function ImpersonateLoggedOnUser Lib "AdvApi32" Alias "ImpersonateLoggedOnUser" (ByVal hToken As Long) As Long Declare Function CreateProcessAsUser Lib "advapi32.dll" Alias "CreateProcessAsUserA" (ByVal hToken As Long, ByVal lpApplicationName As String, ByVal lpCommandLine As String, ByVal lpProcessAttributes As SECURITY_ATTRIBUTES, ByVal lpThreadAttributes As SECURITY_ATTRIBUTES, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, ByVal lpEnvironment As String, ByVal lpCurrentDirectory As String, ByVal lpStartupInfo As STARTUPINFO, ByVal lpProcessInformation As PROCESS_INFORMATION) As Long ' Performance counter API's Type OSVERSIONINFO dwOSVersionInfoSize As Long dwMajorVersion As Long dwMinorVersion As Long dwBuildNumber As Long dwPlatformId As Long szCSDVersion As String * 128 ' Maintenance string for PSS usage End Type ' dwPlatformId defines: ' Const VER_PLATFORM_WIN32s = 0 Const VER_PLATFORM_WIN32_WINDOWS = 1 Const VER_PLATFORM_WIN32_NT = 2 Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long ' Power Management APIs Const AC_LINE_OFFLINE = &H0 Const AC_LINE_ONLINE = &H1 Const AC_LINE_BACKUP_POWER = &H2 Const AC_LINE_UNKNOWN = &HFF Const BATTERY_FLAG_HIGH = &H1 Const BATTERY_FLAG_LOW = &H2 Const BATTERY_FLAG_CRITICAL = &H4 Const BATTERY_FLAG_CHARGING = &H8 Const BATTERY_FLAG_NO_BATTERY = &H80 Const BATTERY_FLAG_UNKNOWN = &HFF Const BATTERY_PERCENTAGE_UNKNOWN = &HFF Const BATTERY_LIFE_UNKNOWN = &HFFFF Type SYSTEM_POWER_STATUS ACLineStatus As Byte BatteryFlag As Byte BatteryLifePercent As Byte Reserved1 As Byte BatteryLifeTime As Long BatteryFullLifeTime As Long End Type Declare Function GetSystemPowerStatus Lib "kernel32" Alias "GetSystemPowerStatus" (lpSystemPowerStatus As SYSTEM_POWER_STATUS) As Long Declare Function SetSystemPowerState Lib "kernel32" Alias "SetSystemPowerState" (ByVal fSuspend As Long, ByVal fForce As Long) As Long ' * commdlg.h -- This module defines the 32-Bit Common Dialog APIs * Type OPENFILENAME lStructSize As Long hwndOwner As Long hInstance As Long lpstrFilter As String lpstrCustomFilter As String nMaxCustFilter As Long nFilterIndex As Long lpstrFile As String nMaxFile As Long lpstrFileTitle As String nMaxFileTitle As Long lpstrInitialDir As String lpstrTitle As String flags As Long nFileOffset As Integer nFileExtension As Integer lpstrDefExt As String lCustData As Long lpfnHook As Long lpTemplateName As String End Type Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Long Declare Function GetFileTitle Lib "comdlg32.dll" Alias "GetFileTitleA" (ByVal lpszFile As String, ByVal lpszTitle As String, ByVal cbBuf As Integer) As Integer Const OFN_READONLY = &H1 Const OFN_OVERWRITEPROMPT = &H2 Const OFN_HIDEREADONLY = &H4 Const OFN_NOCHANGEDIR = &H8 Const OFN_SHOWHELP = &H10 Const OFN_ENABLEHOOK = &H20 Const OFN_ENABLETEMPLATE = &H40 Const OFN_ENABLETEMPLATEHANDLE = &H80 Const OFN_NOVALIDATE = &H100 Const OFN_ALLOWMULTISELECT = &H200 Const OFN_EXTENSIONDIFFERENT = &H400 Const OFN_PATHMUSTEXIST = &H800 Const OFN_FILEMUSTEXIST = &H1000 Const OFN_CREATEPROMPT = &H2000 Const OFN_SHAREAWARE = &H4000 Const OFN_NOREADONLYRETURN = &H8000 Const OFN_NOTESTFILECREATE = &H10000 Const OFN_NONETWORKBUTTON = &H20000 Const OFN_NOLONGNAMES = &H40000 ' force no long names for 4.x modules Const OFN_EXPLORER = &H80000 ' new look commdlg Const OFN_NODEREFERENCELINKS = &H100000 Const OFN_LONGNAMES = &H200000 ' force long names for 3.x modules Const OFN_SHAREFALLTHROUGH = 2 Const OFN_SHARENOWARN = 1 Const OFN_SHAREWARN = 0 Type NMHDR hwndFrom As Long idfrom As Long code As Long End Type Type OFNOTIFY hdr As NMHDR lpOFN As OPENFILENAME pszFile As String ' May be NULL End Type Const CDM_FIRST = (WM_USER + 100) Const CDM_LAST = (WM_USER + 200) Const CDM_GETSPEC = (CDM_FIRST + &H0) Const CDM_GETFILEPATH = (CDM_FIRST + &H1) Const CDM_GETFOLDERPATH = (CDM_FIRST + &H2) Const CDM_GETFOLDERIDLIST = (CDM_FIRST + &H3) Const CDM_SETCONTROLTEXT = (CDM_FIRST + &H4) Const CDM_HIDECONTROL = (CDM_FIRST + &H5) Const CDM_SETDEFEXT = (CDM_FIRST + &H6) Type CHOOSECOLOR lStructSize As Long hwndOwner As Long hInstance As Long rgbResult As Long lpCustColors As Long flags As Long lCustData As Long lpfnHook As Long lpTemplateName As String End Type Declare Function ChooseColor Lib "comdlg32.dll" Alias "ChooseColorA" (pChoosecolor As CHOOSECOLOR) As Long Const CC_RGBINIT = &H1 Const CC_FULLOPEN = &H2 Const CC_PREVENTFULLOPEN = &H4 Const CC_SHOWHELP = &H8 Const CC_ENABLEHOOK = &H10 Const CC_ENABLETEMPLATE = &H20 Const CC_ENABLETEMPLATEHANDLE = &H40 Const CC_SOLIDCOLOR = &H80 Const CC_ANYCOLOR = &H100 Type FINDREPLACE lStructSize As Long ' size of this struct 0x20 hwndOwner As Long ' handle to owner's window hInstance As Long ' instance handle of.EXE that ' contains cust. dlg. template flags As Long ' one or more of the FR_?? lpstrFindWhat As String ' ptr. to search string lpstrReplaceWith As String ' ptr. to replace string wFindWhatLen As Integer ' size of find buffer wReplaceWithLen As Integer ' size of replace buffer lCustData As Long ' data passed to hook fn. lpfnHook As Long ' ptr. to hook fn. or NULL lpTemplateName As String ' custom template name End Type Const FR_DOWN = &H1 Const FR_WHOLEWORD = &H2 Const FR_MATCHCASE = &H4 Const FR_FINDNEXT = &H8 Const FR_REPLACE = &H10 Const FR_REPLACEALL = &H20 Const FR_DIALOGTERM = &H40 Const FR_SHOWHELP = &H80 Const FR_ENABLEHOOK = &H100 Const FR_ENABLETEMPLATE = &H200 Const FR_NOUPDOWN = &H400 Const FR_NOMATCHCASE = &H800 Const FR_NOWHOLEWORD = &H1000 Const FR_ENABLETEMPLATEHANDLE = &H2000 Const FR_HIDEUPDOWN = &H4000 Const FR_HIDEMATCHCASE = &H8000 Const FR_HIDEWHOLEWORD = &H10000 Declare Function FindText Lib "comdlg32.dll" Alias "FindTextA" (pFindreplace As FINDREPLACE) As Long Declare Function ReplaceText Lib "comdlg32.dll" Alias "ReplaceTextA" (pFindreplace As FINDREPLACE) As Long Type CHOOSEFONT lStructSize As Long hwndOwner As Long ' caller's window handle hdc As Long ' printer DC/IC or NULL lpLogFont As Long iPointSize As Long ' 10 * size in points of selected font flags As Long ' enum. type flags rgbColors As Long ' returned text color lCustData As Long ' data passed to hook fn. lpfnHook As Long ' ptr. to hook function lpTemplateName As String ' custom template name hInstance As Long ' instance handle of.EXE that ' contains cust. dlg. template lpszStyle As String ' return the style field here ' must be LF_FACESIZE or bigger nFontType As Integer ' same value reported to the EnumFonts ' call back with the extra FONTTYPE_ ' bits added MISSING_ALIGNMENT As Integer nSizeMin As Long ' minimum pt size allowed & nSizeMax As Long ' max pt size allowed if ' CF_LIMITSIZE is used End Type Declare Function ChooseFont Lib "comdlg32.dll" Alias "ChooseFontA" (pChoosefont As CHOOSEFONT) As Long Const CF_SCREENFONTS = &H1 Const CF_PRINTERFONTS = &H2 Const CF_BOTH = (CF_SCREENFONTS Or CF_PRINTERFONTS) Const CF_SHOWHELP = &H4& Const CF_ENABLEHOOK = &H8& Const CF_ENABLETEMPLATE = &H10& Const CF_ENABLETEMPLATEHANDLE = &H20& Const CF_INITTOLOGFONTSTRUCT = &H40& Const CF_USESTYLE = &H80& Const CF_EFFECTS = &H100& Const CF_APPLY = &H200& Const CF_ANSIONLY = &H400& Const CF_SCRIPTSONLY = CF_ANSIONLY Const CF_NOVECTORFONTS = &H800& Const CF_NOOEMFONTS = CF_NOVECTORFONTS Const CF_NOSIMULATIONS = &H1000& Const CF_LIMITSIZE = &H2000& Const CF_FIXEDPITCHONLY = &H4000& Const CF_WYSIWYG = &H8000 ' must also have CF_SCREENFONTS CF_PRINTERFONTS Const CF_FORCEFONTEXIST = &H10000 Const CF_SCALABLEONLY = &H20000 Const CF_TTONLY = &H40000 Const CF_NOFACESEL = &H80000 Const CF_NOSTYLESEL = &H100000 Const CF_NOSIZESEL = &H200000 Const CF_SELECTSCRIPT = &H400000 Const CF_NOSCRIPTSEL = &H800000 Const CF_NOVERTFONTS = &H1000000 Const SIMULATED_FONTTYPE = &H8000 Const PRINTER_FONTTYPE = &H4000 Const SCREEN_FONTTYPE = &H2000 Const BOLD_FONTTYPE = &H100 Const ITALIC_FONTTYPE = &H200 Const REGULAR_FONTTYPE = &H400 Const WM_CHOOSEFONT_GETLOGFONT = (WM_USER + 1) Const WM_CHOOSEFONT_SETLOGFONT = (WM_USER + 101) Const WM_CHOOSEFONT_SETFLAGS = (WM_USER + 102) Const LBSELCHSTRING = "commdlg_LBSelChangedNotify" Const SHAREVISTRING = "commdlg_ShareViolation" Const FILEOKSTRING = "commdlg_FileNameOK" Const COLOROKSTRING = "commdlg_ColorOK" Const SETRGBSTRING = "commdlg_SetRGBColor" Const HELPMSGSTRING = "commdlg_help" Const FINDMSGSTRING = "commdlg_FindReplace" Const CD_LBSELNOITEMS = -1 Const CD_LBSELCHANGE = 0 Const CD_LBSELSUB = 1 Const CD_LBSELADD = 2 Type PRINTDLG lStructSize As Long hwndOwner As Long hDevMode As Long hDevNames As Long hdc As Long flags As Long nFromPage As Integer nToPage As Integer nMinPage As Integer nMaxPage As Integer nCopies As Integer hInstance As Long lCustData As Long lpfnPrintHook As Long lpfnSetupHook As Long lpPrintTemplateName As String lpSetupTemplateName As String hPrintTemplate As Long hSetupTemplate As Long End Type Declare Function PrintDlg Lib "comdlg32.dll" Alias "PrintDlgA" (pPrintdlg As PRINTDLG) As Long Const PD_ALLPAGES = &H0 Const PD_SELECTION = &H1 Const PD_PAGENUMS = &H2 Const PD_NOSELECTION = &H4 Const PD_NOPAGENUMS = &H8 Const PD_COLLATE = &H10 Const PD_PRINTTOFILE = &H20 Const PD_PRINTSETUP = &H40 Const PD_NOWARNING = &H80 Const PD_RETURNDC = &H100 Const PD_RETURNIC = &H200 Const PD_RETURNDEFAULT = &H400 Const PD_SHOWHELP = &H800 Const PD_ENABLEPRINTHOOK = &H1000 Const PD_ENABLESETUPHOOK = &H2000 Const PD_ENABLEPRINTTEMPLATE = &H4000 Const PD_ENABLESETUPTEMPLATE = &H8000 Const PD_ENABLEPRINTTEMPLATEHANDLE = &H10000 Const PD_ENABLESETUPTEMPLATEHANDLE = &H20000 Const PD_USEDEVMODECOPIES = &H40000 Const PD_USEDEVMODECOPIESANDCOLLATE = &H40000 Const PD_DISABLEPRINTTOFILE = &H80000 Const PD_HIDEPRINTTOFILE = &H100000 Const PD_NONETWORKBUTTON = &H200000 Type DEVNAMES wDriverOffset As Integer wDeviceOffset As Integer wOutputOffset As Integer wDefault As Integer End Type Const DN_DEFAULTPRN = &H1 Declare Function CommDlgExtendedError Lib "comdlg32.dll" Alias "CommDlgExtendedError" () As Long Const WM_PSD_PAGESETUPDLG = (WM_USER) Const WM_PSD_FULLPAGERECT = (WM_USER + 1) Const WM_PSD_MINMARGINRECT = (WM_USER + 2) Const WM_PSD_MARGINRECT = (WM_USER + 3) Const WM_PSD_GREEKTEXTRECT = (WM_USER + 4) Const WM_PSD_ENVSTAMPRECT = (WM_USER + 5) Const WM_PSD_YAFULLPAGERECT = (WM_USER + 6) Type PAGESETUPDLG lStructSize As Long hwndOwner As Long hDevMode As Long hDevNames As Long flags As Long ptPaperSize As POINTAPI rtMinMargin As Rect rtMargin As Rect hInstance As Long lCustData As Long lpfnPageSetupHook As Long lpfnPagePaintHook As Long lpPageSetupTemplateName As String hPageSetupTemplate As Long End Type Declare Function PageSetupDlg Lib "comdlg32.dll" Alias "PageSetupDlgA" (pPagesetupdlg As PAGESETUPDLG) As Long Const PSD_DEFAULTMINMARGINS = &H0 ' default (printer's) Const PSD_INWININIINTLMEASURE = &H0 ' 1st of 4 possible Const PSD_MINMARGINS = &H1 ' use caller's Const PSD_MARGINS = &H2 ' use caller's Const PSD_INTHOUSANDTHSOFINCHES = &H4 ' 2nd of 4 possible Const PSD_INHUNDREDTHSOFMILLIMETERS = &H8 ' 3rd of 4 possible Const PSD_DISABLEMARGINS = &H10 Const PSD_DISABLEPRINTER = &H20 Const PSD_NOWARNING = &H80 ' must be same as PD_* Const PSD_DISABLEORIENTATION = &H100 Const PSD_RETURNDEFAULT = &H400 ' must be same as PD_* Const PSD_DISABLEPAPER = &H200 Const PSD_SHOWHELP = &H800 ' must be same as PD_* Const PSD_ENABLEPAGESETUPHOOK = &H2000 ' must be same as PD_* Const PSD_ENABLEPAGESETUPTEMPLATE = &H8000 ' must be same as PD_* Const PSD_ENABLEPAGESETUPTEMPLATEHANDLE = &H20000 ' must be same as PD_* Const PSD_ENABLEPAGEPAINTHOOK = &H40000 Const PSD_DISABLEPAGEPAINTING = &H80000 Declare Function DdeInitialize Lib "user32" Alias "DdeInitializeA" (pidInst As Long, ByVal pfnCallback As Long, ByVal afCmd As Long, ByVal ulRes As Long) As Integer ' Declare Function SetServiceBits Lib "advapi32" Alias "SetServiceBits" (ByVal hServiceStatus As Long, ByVal dwServiceBits As Long, ByVal bSetBitsOn As Boolean, ByVal bUpdateImmediately As Boolean) As Long Declare Function CopyLZFile Lib "lz32" Alias "CopyLZFile" (ByVal n1 As Long, ByVal n2 As Long) As Long Declare Function LZStart Lib "lz32" Alias "LZStart" () As Long Declare Sub LZDone Lib "lz32" Alias "LZDone" () Declare Function mciGetYieldProc Lib "winmm" Alias "mciGetYieldProc" (ByVal mciId As Long, pdwYieldData As Long) As Long Declare Function mciSetYieldProc Lib "winmm" Alias "mciSetYieldProc" (ByVal mciId As Long, ByVal fpYieldProc As Long, ByVal dwYieldData As Long) As Long Declare Function midiOutGetNumDevs Lib "winmm" Alias "midiOutGetNumDevs" () As Integer Declare Function mmioInstallIOProcA Lib "winmm" Alias "mmioInstallIOProcA" (ByVal fccIOProc As String * 4, ByVal pIOProc As Long, ByVal dwFlags As Long) As Long Declare Function CommandLineToArgv Lib "shell32" Alias "CommandLineToArgvW" (ByVal lpCmdLine As String, pNumArgs As Integer) As Long Declare Function IsTextUnicode Lib "advapi32" Alias "IsTextUnicode" (lpBuffer As Any, ByVal cb As Long, lpi As Long) As Long Declare Function NotifyChangeEventLog Lib "advapi32" Alias "NotifyChangeEventLog" (ByVal hEventLog As Long, ByVal hEvent As Long) As Long Declare Function SetThreadToken Lib "advapi32" Alias "SetThreadToken" (Thread As Long, ByVal Token As Long) As Long Type COMMCONFIG dwSize As Long wVersion As Integer wReserved As Integer dcbx As DCB dwProviderSubType As Long dwProviderOffset As Long dwProviderSize As Long wcProviderData As Byte End Type Declare Function CommConfigDialog Lib "kernel32" Alias "CommConfigDialogA" (ByVal lpszName As String, ByVal hWnd As Long, lpCC As COMMCONFIG) As Long Declare Function CreateIoCompletionPort Lib "kernel32" Alias "CreateIoCompletionPort" (ByVal FileHandle As Long, ByVal ExistingCompletionPort As Long, ByVal CompletionKey As Long, ByVal NumberOfConcurrentThreads As Long) As Long Declare Function DisableThreadLibraryCalls Lib "kernel32" Alias "DisableThreadLibraryCalls" (ByVal hLibModule As Long) As Long Declare Function EnumResourceLanguages Lib "kernel32" Alias "EnumResourceLanguagesA" (ByVal hModule As Long, ByVal lpType As String, ByVal lpName As String, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long Declare Function EnumResourceNames Lib "kernel32" Alias "EnumResourceNamesA" (ByVal hModule As Long, ByVal lpType As String, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long Declare Function EnumResourceTypes Lib "kernel32" Alias "EnumResourceTypesA" (ByVal hModule As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long Declare Function FreeEnvironmentStrings Lib "kernel32" Alias "FreeEnvironmentStringsA" (ByVal lpsz As String) As Long Declare Sub FreeLibraryAndExitThread Lib "kernel32" Alias "FreeLibraryAndExitThread" (ByVal hLibModule As Long, ByVal dwExitCode As Long) Declare Function FreeResource Lib "kernel32" Alias "FreeResource" (ByVal hResData As Long) As Long Declare Function GetCommConfig Lib "kernel32" Alias "GetCommConfig" (ByVal hCommDev As Long, lpCC As COMMCONFIG, lpdwSize As Long) As Long Declare Function GetCompressedFileSize Lib "kernel32" Alias "GetCompressedFileSizeA" (ByVal lpFileName As String, lpFileSizeHigh As Long) As Long Declare Function GetDefaultCommConfig Lib "kernel32" Alias "GetDefaultCommConfigA" (ByVal lpszName As String, lpCC As COMMCONFIG, lpdwSize As Long) As Long Declare Function GetHandleInformation Lib "kernel32" Alias "GetHandleInformation" (ByVal hObject As Long, lpdwFlags As Long) As Long Declare Function GetProcessHeaps Lib "kernel32" Alias "GetProcessHeaps" (ByVal NumberOfHeaps As Long, ProcessHeaps As Long) As Long Declare Function GetProcessWorkingSetSize Lib "kernel32" Alias "GetProcessWorkingSetSize" (ByVal hProcess As Long, lpMinimumWorkingSetSize As Long, lpMaximumWorkingSetSize As Long) As Long Declare Function GetQueuedCompletionStatus Lib "kernel32" Alias "GetQueuedCompletionStatus" (ByVal CompletionPort As Long, lpNumberOfBytesTransferred As Long, lpCompletionKey As Long, lpOverlapped As Long, ByVal dwMilliseconds As Long) As Long Declare Function GetSystemTimeAdjustment Lib "kernel32" Alias "GetSystemTimeAdjustment" (lpTimeAdjustment As Long, lpTimeIncrement As Long, lpTimeAdjustmentDisabled As Long) As Long Declare Function GlobalCompact Lib "kernel32" Alias "GlobalCompact" (ByVal dwMinFree As Long) As Long Declare Sub GlobalFix Lib "kernel32" Alias "GlobalFix" (ByVal hMem As Long) Declare Sub GlobalUnfix Lib "kernel32" Alias "GlobalUnfix" (ByVal hMem As Long) Declare Function GlobalWire Lib "kernel32" Alias "GlobalWire" (ByVal hMem As Long) As Long Declare Function GlobalUnWire Lib "kernel32" Alias "GlobalUnWire" (ByVal hMem As Long) As Long Declare Function IsBadCodePtr Lib "kernel32" Alias "IsBadCodePtr" (ByVal lpfn As Long) As Long Declare Function LocalCompact Lib "kernel32" Alias "LocalCompact" (ByVal uMinFree As Long) As Long Declare Function LocalShrink Lib "kernel32" Alias "LocalShrink" (ByVal hMem As Long, ByVal cbNewSize As Long) As Long Declare Sub ZeroMemory Lib "KERNEL32" Alias "RtlMoveMemory" (dest As Any, ByVal numBytes As Long) Declare Function ReadFileEx Lib "kernel32" Alias "ReadFileEx" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpOverlapped As OVERLAPPED, ByVal lpCompletionRoutine As Long) As Long Declare Function SetCommConfig Lib "kernel32" Alias "SetCommConfig" (ByVal hCommDev As Long, lpCC As COMMCONFIG, ByVal dwSize As Long) As Long Declare Function SetDefaultCommConfig Lib "kernel32" Alias "SetDefaultCommConfigA" (ByVal lpszName As String, lpCC As COMMCONFIG, ByVal dwSize As Long) As Long Declare Sub SetFileApisToANSI Lib "kernel32" Alias "SetFileApisToANSI" () Declare Function SetHandleInformation Lib "kernel32" Alias "SetHandleInformation" (ByVal hObject As Long, ByVal dwMask As Long, ByVal dwFlags As Long) As Long Declare Function SetProcessWorkingSetSize Lib "kernel32" Alias "SetProcessWorkingSetSize" (ByVal hProcess As Long, ByVal dwMinimumWorkingSetSize As Long, ByVal dwMaximumWorkingSetSize As Long) As Long Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long Declare Function lstrcpyn Lib "kernel32" Alias "lstrcpynA" (ByVal lpString1 As String, ByVal lpString2 As String, ByVal iMaxLength As Long) As Long Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long ' Declare Function SetSystemTimeAdjustment Lib "kernel32" Alias "SetSystemTimeAdjustment" (ByVal dwTimeAdjustment As Long, ByVal bTimeAdjustmentDisabled As Boolean) As Long Declare Function SetThreadAffinityMask Lib "kernel32" Alias "SetThreadAffinityMask" (ByVal hThread As Long, ByVal dwThreadAffinityMask As Long) As Long Declare Function SetUnhandledExceptionFilter Lib "kernel32" Alias "SetUnhandledExceptionFilter" (ByVal lpTopLevelExceptionFilter As Long) As Long Declare Function SystemTimeToTzSpecificLocalTime Lib "kernel32" Alias "SystemTimeToTzSpecificLocalTime" (lpTimeZoneInformation As TIME_ZONE_INFORMATION, lpUniversalTime As SYSTEMTIME, lpLocalTime As SYSTEMTIME) As Long Declare Function WriteFileEx Lib "kernel32" Alias "WriteFileEx" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, lpOverlapped As OVERLAPPED, ByVal lpCompletionRoutine As Long) As Long Type PIXELFORMATDESCRIPTOR nSize As Integer nVersion As Integer dwFlags As Long iPixelType As Byte cColorBits As Byte cRedBits As Byte cRedShift As Byte cGreenBits As Byte cGreenShift As Byte cBlueBits As Byte cBlueShift As Byte cAlphaBits As Byte cAlphaShift As Byte cAccumBits As Byte cAccumRedBits As Byte cAccumGreenBits As Byte cAccumBlueBits As Byte cAccumAlphaBits As Byte cDepthBits As Byte cStencilBits As Byte cAuxBuffers As Byte iLayerType As Byte bReserved As Byte dwLayerMask As Long dwVisibleMask As Long dwDamageMask As Long End Type Declare Function ChoosePixelFormat Lib "gdi32" Alias "ChoosePixelFormat" (ByVal hDC As Long, pPixelFormatDescriptor As PIXELFORMATDESCRIPTOR) As Long Declare Function CreateDIBSection Lib "gdi32" Alias "CreateDIBSection" (ByVal hDC As Long, pBitmapInfo As BITMAPINFO, ByVal un As Long, ByVal lplpVoid As Long, ByVal handle As Long, ByVal dw As Long) As Long Declare Function DescribePixelFormat Lib "gdi32" Alias "DescribePixelFormat" (ByVal hDC As Long, ByVal n As Long, ByVal un As Long, lpPixelFormatDescriptor As PIXELFORMATDESCRIPTOR) As Long ' Duplicates Declare Function EndDoc Lib "gdi32" Alias "EndDoc" (ByVal hDC As Long) As Long Declare Function EnumFonts Lib "gdi32" Alias "EnumFontsA" (ByVal hDC As Long, ByVal lpsz As String, ByVal lpFontEnumProc As Long, ByVal lParam As Long) As Long Declare Function EnumMetaFile Lib "gdi32" Alias "EnumMetaFile" (ByVal hDC As Long, ByVal hMetafile As Long, ByVal lpMFEnumProc As Long, ByVal lParam As Long) As Long Declare Function EnumObjects Lib "gdi32" Alias "EnumObjects" (ByVal hDC As Long, ByVal n As Long, ByVal lpGOBJEnumProc As Long, lpVoid As Any) As Long Declare Function FixBrushOrgEx Lib "gdi32" Alias "FixBrushOrgEx" (ByVal hDC As Long, ByVal n1 As Long, ByVal n2 As Long, lpPoint As POINTAPI) As Long Declare Function GetBrushOrgEx Lib "gdi32" Alias "GetBrushOrgEx" (ByVal hDC As Long, lpPoint As POINTAPI) As Long Declare Function GetDIBColorTable Lib "gdi32" Alias "GetDIBColorTable" (ByVal hDC As Long, ByVal un1 As Long, ByVal un2 As Long, pRGBQuad As RGBQUAD) As Long Declare Function GetPixelFormat Lib "gdi32" Alias "GetPixelFormat" (ByVal hDC As Long) As Long Declare Function LineDDA Lib "gdi32" Alias "LineDDA" (ByVal n1 As Long, ByVal n2 As Long, ByVal n3 As Long, ByVal n4 As Long, ByVal lpLineDDAProc As Long, ByVal lParam As Long) As Long Declare Function SetAbortProc Lib "gdi32" Alias "SetAbortProc" (ByVal hDC As Long, ByVal lpAbortProc As Long) As Long Declare Function SetDIBColorTable Lib "gdi32" Alias "SetDIBColorTable" (ByVal hDC As Long, ByVal un1 As Long, ByVal un2 As Long, pcRGBQuad As RGBQUAD) As Long Declare Function SetPixelFormat Lib "gdi32" Alias "SetPixelFormat" (ByVal hDC As Long, ByVal n As Long, pcPixelFormatDescriptor As PIXELFORMATDESCRIPTOR) As Long Declare Function SwapBuffers Lib "gdi32" Alias "SwapBuffers" (ByVal hDC As Long) As Long Declare Function EnumCalendarInfo Lib "kernel32" Alias "EnumCalendarInfoA" (ByVal lpCalInfoEnumProc As Long, ByVal Locale As Long, ByVal Calendar As Long, ByVal CalType As Long) As Long Declare Function GetCurrencyFormat Lib "kernel32" Alias "GetCurrencyFormatA" (ByVal Locale As Long, ByVal dwFlags As Long, ByVal lpValue As String, lpFormat As CURRENCYFMT, ByVal lpCurrencyStr As String, ByVal cchCurrency As Long) As Long Declare Function GetNumberFormat Lib "kernel32" Alias "GetNumberFormatA" (ByVal Locale As Long, ByVal dwFlags As Long, ByVal lpValue As String, lpFormat As NUMBERFMT, ByVal lpNumberStr As String, ByVal cchNumber As Long) As Long Declare Function GetStringTypeEx Lib "kernel32" Alias "GetStringTypeExA" (ByVal Locale As Long, ByVal dwInfoType As Long, ByVal lpSrcStr As String, ByVal cchSrc As Long, lpCharType As Integer) As Long Declare Function GetStringTypeW Lib "kernel32" Alias "GetStringTypeW" (ByVal dwInfoType As Long, ByVal lpSrcStr As String, ByVal cchSrc As Long, lpCharType As Integer) As Long Declare Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Long Declare Function DeletePrinter Lib "winspool.drv" Alias "DeletePrinter" (ByVal hPrinter As Long) As Long Declare Function FindClosePrinterChangeNotification Lib "winspool.drv" Alias "FindClosePrinterChangeNotification" (ByVal hChange As Long) As Long Declare Function FindFirstPrinterChangeNotification Lib "winspool.drv" Alias "FindFirstPrinterChangeNotification" (ByVal hPrinter As Long, ByVal fdwFlags As Long, ByVal fdwOptions As Long, ByVal pPrinterNotifyOptions As String) As Long Declare Function FindNextPrinterChangeNotification Lib "winspool.drv" Alias "FindNextPrinterChangeNotification" (ByVal hChange As Long, pdwChange As Long, ByVal pvReserved As String, ByVal ppPrinterNotifyInfo As Long) As Long Declare Function GetPrinter Lib "winspool.drv" Alias "GetPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, pPrinter As Any, ByVal cbBuf As Long, pcbNeeded As Long) As Long Declare Function SetPrinter Lib "winspool.drv" Alias "SetPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, pPrinter As Byte, ByVal Command As Long) As Long Declare Function BroadcastSystemMessage Lib "user32" Alias "BroadcastSystemMessage" (ByVal dw As Long, pdw As Long, ByVal un As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Declare Function CascadeWindows Lib "user32" Alias "CascadeWindows" (ByVal hwndParent As Long, ByVal wHow As Long, ByVal lpRect As RECT, ByVal cKids As Long, lpkids As Long) As Integer Declare Function ChangeMenu Lib "user32" Alias "ChangeMenuA" (ByVal hMenu As Long, ByVal cmd As Long, ByVal lpszNewItem As String, ByVal cmdInsert As Long, ByVal flags As Long) As Long Declare Function CheckMenuRadioItem Lib "user32" Alias "CheckMenuRadioItem" (ByVal hMenu As Long, ByVal un1 As Long, ByVal un2 As Long, ByVal un3 As Long, ByVal un4 As Long) As Long Declare Function CloseDesktop Lib "user32" Alias "CloseDesktop" (ByVal hDesktop As Long) As Long Declare Function CloseWindowStation Lib "user32" Alias "CloseWindowStation" (ByVal hWinSta As Long) As Long Declare Function CopyImage Lib "user32" Alias "CopyImage" (ByVal handle As Long, ByVal un1 As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long Declare Function CreateDesktop Lib "user32" Alias "CreateDesktopA" (ByVal lpszDesktop As String, ByVal lpszDevice As String, pDevmode As DEVMODE, ByVal dwFlags As Long, ByVal dwDesiredAccess As Long, lpsa As SECURITY_ATTRIBUTES) As Long Declare Function CreateDialogIndirectParam Lib "user32" Alias "CreateDialogIndirectParamA" (ByVal hInstance As Long, lpTemplate As DLGTEMPLATE, ByVal hWndParent As Long, ByVal lpDialogFunc As Long, ByVal dwInitParam As Long) As Long Declare Function CreateDialogParam Lib "user32" Alias "CreateDialogParamA" (ByVal hInstance As Long, ByVal lpName As String, ByVal hWndParent As Long, ByVal lpDialogFunc As Long, ByVal lParamInit As Long) As Long Declare Function CreateIconFromResource Lib "user32" Alias "CreateIconFromResource" (presbits As Byte, ByVal dwResSize As Long, ByVal fIcon As Long, ByVal dwVer As Long) As Long Declare Function DialogBoxIndirectParam Lib "user32" Alias "DialogBoxIndirectParamA" (ByVal hInstance As Long, hDialogTemplate As DLGTEMPLATE, ByVal hWndParent As Long, ByVal lpDialogFunc As Long, ByVal dwInitParam As Long) As Long Declare Function DragDetect Lib "user32" Alias "DragDetect" (ByVal hWnd As Long, ByVal pt As POINTAPI) As Long Declare Function DragObject Lib "user32" Alias "DragObject" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal un As Long, ByVal dw As Long, ByVal hCursor As Long) As Long Declare Function DrawAnimatedRects Lib "user32" Alias "DrawAnimatedRects" (ByVal hwnd As Long, ByVal idAni As Long, lprcFrom As Rect, lprcTo As Rect) As Long Declare Function DrawCaption Lib "user32" Alias "DrawCaption" (ByVal hWnd As Long, ByVal hDC As Long, pcRect As Rect, ByVal un As Long) As Long Declare Function DrawEdge Lib "user32" Alias "DrawEdge" (ByVal hdc As Long, qrc As RECT, ByVal edge As Long, ByVal grfFlags As Long) As Long Declare Function DrawFrameControl Lib "user32" Alias "DrawFrameControl" (ByVal hDC As Long, lpRect As RECT, ByVal un1 As Long, ByVal un2 As Long) As Long Declare Function DrawIconEx Lib "user32" Alias "DrawIconEx" (ByVal hdc As Long, ByVal xLeft As Long, ByVal yTop As Long, ByVal hIcon As Long, ByVal cxWidth As Long, ByVal cyWidth As Long, ByVal istepIfAniCur As Long, ByVal hbrFlickerFreeDraw As Long, ByVal diFlags As Long) As Long Declare Function DrawState Lib "user32" Alias "DrawStateA" (ByVal hDC As Long, ByVal hBrush As Long, ByVal lpDrawStateProc As Long, ByVal lParam As Long, ByVal wParam As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal n3 As Long, ByVal n4 As Long, ByVal un As Long) As Long Type DRAWTEXTPARAMS cbSize As Long iTabLength As Long iLeftMargin As Long iRightMargin As Long uiLengthDrawn As Long End Type Declare Function DrawTextEx Lib "user32" Alias "DrawTextExA" (ByVal hDC As Long, ByVal lpsz As String, ByVal n As Long, lpRect As RECT, ByVal un As Long, lpDrawTextParams As DRAWTEXTPARAMS) As Long Declare Function EnumChildWindows Lib "user32" Alias "EnumChildWindows" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long Declare Function EnumDesktops Lib "user32" Alias "EnumDesktopsA" (ByVal hwinsta As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long Declare Function EnumDesktopWindows Lib "user32" Alias "EnumDesktopWindows" (ByVal hDesktop As Long, ByVal lpfn As Long, ByVal lParam As Long) As Long Declare Function EnumPropsEx Lib "user32" Alias "EnumPropsExA" (ByVal hWnd As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long Declare Function EnumProps Lib "user32" Alias "EnumPropsA" (ByVal hWnd As Long, ByVal lpEnumFunc As Long) As Long Declare Function EnumThreadWindows Lib "user32" Alias "EnumThreadWindows" (ByVal dwThreadId As Long, ByVal lpfn As Long, ByVal lParam As Long) As Long Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long Declare Function EnumWindowStations Lib "user32" Alias "EnumWindowStationsA" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Declare Function GetKeyboardLayoutList Lib "user32" Alias "GetKeyboardLayoutList" (ByVal nBuff As Long, lpList As Long) As Long Declare Function GetKeyboardLayout Lib "user32" Alias "GetKeyboardLayout" (ByVal dwLayout As Long) As Long Declare Function GetMenuContextHelpId Lib "user32" Alias "GetMenuContextHelpId" (ByVal hMenu As Long) As Long Declare Function GetMenuDefaultItem Lib "user32" Alias "GetMenuDefaultItem" (ByVal hMenu As Long, ByVal fByPos As Long, ByVal gmdiFlags As Long) As Long Type MENUITEMINFO cbSize As Long fMask As Long fType As Long fState As Long wID As Long hSubMenu As Long hbmpChecked As Long hbmpUnchecked As Long dwItemData As Long dwTypeData As String cch As Long End Type Declare Function GetMenuItemInfo Lib "user32" Alias "GetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal b As Long, lpMenuItemInfo As MENUITEMINFO) As Long Declare Function GetMenuItemRect Lib "user32" Alias "GetMenuItemRect" (ByVal hWnd As Long, ByVal hMenu As Long, ByVal uItem As Long, lprcItem As RECT) As Long Type SCROLLINFO cbSize As Long fMask As Long nMin As Long nMax As Long nPage As Long nPos As Long nTrackPos As Long End Type Declare Function GetScrollInfo Lib "user32" Alias "GetScrollInfo" (ByVal hWnd As Long, ByVal n As Long, lpScrollInfo As SCROLLINFO) As Long Declare Function GetSysColorBrush Lib "user32" Alias "GetSysColorBrush" (ByVal nIndex As Long) As Long Declare Function GetUserObjectInformation Lib "user32" Alias "GetUserObjectInformationA" (ByVal hObj As Long, ByVal nIndex As Long, pvInfo As Any, ByVal nLength As Long, lpnLengthNeeded As Long) As Long Declare Function GetWindowContextHelpId Lib "user32" Alias "GetWindowContextHelpId" (ByVal hWnd As Long) As Long Declare Function GetWindowRgn Lib "user32" Alias "GetWindowRgn" (ByVal hWnd As Long, ByVal hRgn As Long) As Long Declare Function GrayString Lib "user32" Alias "GrayStringA" (ByVal hDC As Long, ByVal hBrush As Long, ByVal lpOutputFunc As Long, ByVal lpData As Long, ByVal nCount As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long ' Declare Function InsertMenuItem Lib "user32" Alias "InsertMenuItemA" (ByVal hMenu As Long, ByVal un As Long, ByVal bool As Boolean, ByRef lpcMenuItemInfo As MENUITEMINFO) As Long Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long Declare Function LoadImage Lib "user32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long ' Declare Function LookupIconIdFromDirectoryEx Lib "user32" Alias "LookupIconIdFromDirectoryEx" (presbits As Byte, ByVal fIcon As Boolean, ByVal cxDesired As Long, ByVal cyDesired As Long, ByVal Flags As Long) As Long Declare Function MapVirtualKeyEx Lib "user32" Alias "MapVirtualKeyExA" (ByVal uCode As Long, ByVal uMapType As Long, ByVal dwhkl As Long) As Long Declare Function MenuItemFromPoint Lib "user32" Alias "MenuItemFromPoint" (ByVal hWnd As Long, ByVal hMenu As Long, ByVal ptScreen As POINTAPI) As Long Type MSGBOXPARAMS cbSize As Long hwndOwner As Long hInstance As Long lpszText As String lpszCaption As String dwStyle As Long lpszIcon As String dwContextHelpId As Long lpfnMsgBoxCallback As Long dwLanguageId As Long End Type Declare Function MessageBoxIndirect Lib "user32" Alias "MessageBoxIndirectA" (lpMsgBoxParams As MSGBOXPARAMS) As Long ' Declare Function OpenDesktop Lib "user32" Alias "OpenDesktopA" (ByVal lpszDesktop As String, ByVal dwFlags As Long, ByVal fInherit As Boolean, ByVal dwDesiredAccess As Long) As Long ' Declare Function OpenInputDesktop Lib "user32" Alias "OpenInputDesktop" (ByVal dwFlags As Long, ByVal fInherit As Boolean, ByVal dwDesiredAccess As Long) As Long ' Declare Function OpenWindowStation Lib "user32" Alias "OpenWindowStationA" (ByVal lpszWinSta As String, ByVal fInherit As Boolean, ByVal dwDesiredAccess As Long) As Long Declare Function PaintDesktop Lib "user32" Alias "PaintDesktop" (ByVal hdc As Long) As Long Type WNDCLASSEX cbSize As Long style As Long lpfnWndProc As Long cbClsExtra As Long cbWndExtra As Long hInstance As Long hIcon As Long hCursor As Long hbrBackground As Long lpszMenuName As String lpszClassName As String hIconSm As Long End Type Declare Function RegisterClassEx Lib "user32" Alias "RegisterClassExA" (pcWndClassEx As WNDCLASSEX) As Integer Declare Function SetMenuContextHelpId Lib "user32" Alias "SetMenuContextHelpId" (ByVal hMenu As Long, ByVal dw As Long) As Long Declare Function SetMenuDefaultItem Lib "user32" Alias "SetMenuDefaultItem" (ByVal hMenu As Long, ByVal uItem As Long, ByVal fByPos As Long) As Long ' Declare Function SetMenuItemInfo Lib "user32" Alias "SetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal bool As Boolean, lpcMenuItemInfo As MENUITEMINFO) As Long Declare Function SetMessageExtraInfo Lib "user32" Alias "SetMessageExtraInfo" (ByVal lParam As Long) As Long Declare Function SetMessageQueue Lib "user32" Alias "SetMessageQueue" (ByVal cMessagesMax As Long) As Long Declare Function SetProcessWindowStation Lib "user32" Alias "SetProcessWindowStation" (ByVal hWinSta As Long) As Long ' Declare Function SetScrollInfo Lib "user32" Alias "SetScrollInfo" (ByVal hWnd As Long, ByVal n As Long, lpcScrollInfo As SCROLLINFO, ByVal bool As Boolean) As Long Declare Function SetSystemCursor Lib "user32" Alias "SetSystemCursor" (ByVal hcur As Long, ByVal id As Long) As Long Declare Function SetThreadDesktop Lib "user32" Alias "SetThreadDesktop" (ByVal hDesktop As Long) As Long Declare Function SetTimer Lib "user32" Alias "SetTimer" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long Declare Function SetUserObjectInformation Lib "user32" Alias "SetUserObjectInformationA" (ByVal hObj As Long, ByVal nIndex As Long, pvInfo As Any, ByVal nLength As Long) As Long Declare Function SetWindowContextHelpId Lib "user32" Alias "SetWindowContextHelpId" (ByVal hWnd As Long, ByVal dw As Long) As Long ' Declare Function SetWindowRgn Lib "user32" Alias "SetWindowRgn" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long Declare Function SetWindowsHook Lib "user32" Alias "SetWindowsHookA" (ByVal nFilterType As Long, ByVal pfnFilterProc As Long) As Long Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long Declare Function ShowWindowAsync Lib "user32" Alias "ShowWindowAsync" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long Declare Function SwitchDesktop Lib "user32" Alias "SwitchDesktop" (ByVal hDesktop As Long) As Long Declare Function TileWindows Lib "user32" Alias "TileWindows" (ByVal hwndParent As Long, ByVal wHow As Long, lpRect As Rect, ByVal cKids As Long, lpKids As Long) As Integer Declare Function ToAsciiEx Lib "user32" Alias "ToAsciiEx" (ByVal uVirtKey As Long, ByVal uScanCode As Long, lpKeyState As Byte, lpChar As Integer, ByVal uFlags As Long, ByVal dwhkl As Long) As Long Type TPMPARAMS cbSize As Long rcExclude As Rect End Type Declare Function TrackPopupMenuEx Lib "user32" Alias "TrackPopupMenuEx" (ByVal hMenu As Long, ByVal un As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal hWnd As Long, lpTPMParams As TPMPARAMS) As Long Declare Function UnhookWindowsHook Lib "user32" Alias "UnhookWindowsHook" (ByVal nCode As Long, ByVal pfnFilterProc As Long) As Long Declare Function VkKeyScanEx Lib "user32" Alias "VkKeyScanExA" (ByVal ch As Byte, ByVal dwhkl As Long) As Integer Declare Function WNetGetUniversalName Lib "mpr" Alias "WNetGetUniversalNameA" (ByVal lpLocalPath As String, ByVal dwInfoLevel As Long, lpBuffer As Any, lpBufferSize As Long) As Long Const INVALID_HANDLE_VALUE = -1 'DrawEdge Constants Const BDR_RAISEDOUTER = &H1 Const BDR_SUNKENOUTER = &H2 Const BDR_RAISEDINNER = &H4 Const BDR_SUNKENINNER = &H8 Const BDR_OUTER = &H3 Const BDR_INNER = &HC Const BDR_RAISED = &H5 Const BDR_SUNKEN = &HA Const EDGE_RAISED = (BDR_RAISEDOUTER Or BDR_RAISEDINNER) Const EDGE_SUNKEN = (BDR_SUNKENOUTER Or BDR_SUNKENINNER) Const EDGE_ETCHED = (BDR_SUNKENOUTER Or BDR_RAISEDINNER) Const EDGE_BUMP = (BDR_RAISEDOUTER Or BDR_SUNKENINNER) Const BF_LEFT = &H1 Const BF_TOP = &H2 Const BF_RIGHT = &H4 Const BF_BOTTOM = &H8 Const BF_TOPLEFT = (BF_TOP Or BF_LEFT) Const BF_TOPRIGHT = (BF_TOP Or BF_RIGHT) Const BF_BOTTOMLEFT = (BF_BOTTOM Or BF_LEFT) Const BF_BOTTOMRIGHT = (BF_BOTTOM Or BF_RIGHT) Const BF_RECT = (BF_LEFT Or BF_TOP Or BF_RIGHT Or BF_BOTTOM) Const BF_DIAGONAL = &H10 ' For diagonal lines, the BF_RECT flags specify the end point of ' the vector bounded by the rectangle parameter. Const BF_DIAGONAL_ENDTOPRIGHT = (BF_DIAGONAL Or BF_TOP Or BF_RIGHT) Const BF_DIAGONAL_ENDTOPLEFT = (BF_DIAGONAL Or BF_TOP Or BF_LEFT) Const BF_DIAGONAL_ENDBOTTOMLEFT = (BF_DIAGONAL Or BF_BOTTOM Or BF_LEFT) Const BF_DIAGONAL_ENDBOTTOMRIGHT = (BF_DIAGONAL Or BF_BOTTOM Or BF_RIGHT) Const BF_MIDDLE = &H800 ' Fill in the middle. Const BF_SOFT = &H1000 ' Use for softer buttons. Const BF_ADJUST = &H2000 ' Calculate the space left over. Const BF_FLAT = &H4000 ' For flat rather than 3-D borders. Const BF_MONO = &H8000 ' For monochrome borders. Const PAGE_NOACCESS = &H1 Const PAGE_READONLY = &H2 Const PAGE_READWRITE = &H4 Const PAGE_WRITECOPY = &H8 Const PAGE_EXECUTE = &H10 Const PAGE_EXECUTE_READ = &H20 Const PAGE_EXECUTE_READWRITE = &H40 Const PAGE_EXECUTE_WRITECOPY = &H80 Const PAGE_GUARD = &H100 Const PAGE_NOCACHE = &H200 ' STANDARD INTERNET DECLARATIONS Type tWinInetDLLVersion 'version number of Wininet.dll lMajorVersion As Long lMinorVersion As Long End Type Const INTERNET_OPTION_VERSION = 40 'Returns the version number of Wininet.dll. Const INTERNET_OPEN_TYPE_PRECONFIG = 0 'Indicates to use config info from registry Const INTERNET_DEFAULT_FTP_PORT = 21 'Number of the TCP/IP port on the server to connect to. Const INTERNET_DEFAULT_GOPHER_PORT = 70 Const INTERNET_DEFAULT_HTTP_PORT = 80 Const INTERNET_DEFAULT_HTTPS_PORT = 443 Const INTERNET_DEFAULT_SOCKS_PORT = 1080 Const INTERNET_SERVICE_FTP = 1 ' Const INTERNET_SERVICE_GOPHER = 2 'Type of service to access. Const INTERNET_SERVICE_HTTP = 3 ' Const INTERNET_FLAG_PASSIVE = &H8000000 Const INTERNET_FLAG_EXISITING_CONNECT = &H20000000 Const INTERNET_FLAG_RELOAD = &H80000000 'read from wire even if locally cached Const INTERNET_FLAG_ASYNC = &H10000000 'this request is asynchronous (where supported) Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal lpszAgent As String, ByVal dwAccessType As Long, ByVal lpszProxyName As String, ByVal lpszProxyBypass As String, ByVal dwFlags As Long) As Long Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, ByVal sUsername As String, ByVal sPassword As String, ByVal lService As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hInet As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByVal lpBuffer As String, ByVal dwNumberOfBytesToRead As Long, lNumberOfBytesRead As Long) As Integer Declare Function InternetQueryOption Lib "wininet.dll" Alias "InternetQueryOptionA" (ByVal hInternet As Long, ByVal lOption As Long, ByRef sBuffer As Any, ByRef lBufferLength As Long) As Integer Declare Function InternetSetStatusCallback Lib "wininet.dll" (ByVal hInternet As Long, ByVal lpfnCallback As Long) As Long ' HTTP FOR WININET Declare Function HttpOpenRequest Lib "wininet.dll" Alias "HttpOpenRequestA" (ByVal hHttpSession As Long, ByVal sVerb As String, ByVal sObjectName As String, ByVal sVersion As String, ByVal sReferer As String, ByVal something As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long Declare Function HttpSendRequest Lib "wininet.dll" Alias "HttpSendRequestA" (ByVal hHttpRequest As Long, ByVal sHeaders As String, ByVal lHeadersLength As Long, sOptional As Any, ByVal lOptionalLength As Long) As Integer Declare Function HttpQueryInfo Lib "wininet.dll" Alias "HttpQueryInfoA" (ByVal hHttpRequest As Long, ByVal lInfoLevel As Long, ByRef sBuffer As Any, ByRef lBufferLength As Long, ByRef lIndex As Long) As Integer Declare Function HttpAddRequestHeaders Lib "wininet.dll" Alias "HttpAddRequestHeadersA" (ByVal hHttpRequest As Long, ByVal sHeaders As String, ByVal lHeadersLength As Long, ByVal lModifiers As Long) As Integer 'The possible values for the lInfoLevel parameter: Const HTTP_QUERY_CONTENT_TYPE = 1 Const HTTP_QUERY_CONTENT_LENGTH = 5 Const HTTP_QUERY_EXPIRES = 10 Const HTTP_QUERY_LAST_MODIFIED = 11 Const HTTP_QUERY_PRAGMA = 17 Const HTTP_QUERY_VERSION = 18 Const HTTP_QUERY_STATUS_CODE = 19 Const HTTP_QUERY_STATUS_TEXT = 20 Const HTTP_QUERY_RAW_HEADERS = 21 Const HTTP_QUERY_RAW_HEADERS_CRLF = 22 Const HTTP_QUERY_FORWARDED = 30 Const HTTP_QUERY_SERVER = 37 Const HTTP_QUERY_USER_AGENT = 39 Const HTTP_QUERY_SET_COOKIE = 43 Const HTTP_QUERY_REQUEST_METHOD = 45 'Add this flag to the about flags to get request header. Const HTTP_QUERY_FLAG_REQUEST_HEADERS = &H80000000 Const HTTP_ADDREQ_FLAG_ADD_IF_NEW = &H10000000 Const HTTP_ADDREQ_FLAG_ADD = &H20000000 Const HTTP_ADDREQ_FLAG_REPLACE = &H80000000 ' FTP FOR WININET Type WIN32_FIND_DATA dwFileAttributes As Long ftCreationTime As Currency 'FILETIME ftLastAccessTime As Currency 'FILETIME ftLastWriteTime As Currency 'FILETIME nFileSizeHigh As Long nFileSizeLow As Long dwReserved0 As Long dwReserved1 As Long cFileName As String * MAX_PATH cAlternate As String * 14 End Type Const DayBias As Double = 109205# Const mSPerDay As Double = 86400000# Const FTP_TRANSFER_TYPE_UNKNOWN As Long = 0 Const FTP_TRANSFER_TYPE_ASCII As Long = 1 Const FTP_TRANSFER_TYPE_BINARY As Long = 2 Declare Function FtpGetFile Lib "WinInet" Alias "FtpGetFileA" (ByVal hFtp As Long, ByVal lpszRemoteFile As String, ByVal lpszNewFile As String, ByVal fFailIfExists As Long, ByVal dwFlagsAndAttributes As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long Declare Function FtpPutFile Lib "WinInet" Alias "FtpPutFileA" (ByVal hFtp As Long, ByVal lpszLocalFile As String, ByVal lpszNewRemoteFile As String, ByVal dwFlags As Long, ByVal dwContext As Long) As Long Declare Function FtpRenameFile Lib "WinInet" Alias "FtpRenameFileA" (ByVal hFtp As Long, ByVal lpszCurFile As String, ByVal lpszNewFile As String) As Long Declare Function FtpDeleteFile Lib "WinInet" Alias "FtpDeleteFileA" (ByVal hFtp As Long, ByVal lpszKillFile As String) As Long Declare Function FtpCreateDirectory Lib "WinInet" Alias "FtpCreateDirectoryA" (ByVal hFtp As Long, ByVal lpszNewDir As String) As Long Declare Function FtpRemoveDirectory Lib "WinInet" Alias "FtpRemoveDirectoryA" (ByVal hFtp As Long, ByVal lpszKillDir As String) As Long Declare Function FtpGetCurrentDirectory Lib "WinInet" Alias "FtpGetCurrentDirectoryA" (ByVal hFtp As Long, lpszDirectory As String, ByVal BuffLength As Long) As Long Declare Function FtpSetCurrentDirectory Lib "WinInet" Alias "FtpSetCurrentDirectoryA" (ByVal hFtp As Long, ByVal lpszDirectory As String) As Long Declare Function FtpFindFirstFile Lib "WinInet" Alias "FtpFindFirstFileA" (ByVal hFtp As Long, ByVal lpszSearchFile As String, lpFindFileData As WIN32_FIND_DATA, ByVal dwFlags As Long, ByVal dwContext As Long) As Long Declare Function InternetFindNextFile Lib "WinInet" Alias "InternetFindNextFileA" (ByVal hFind As Long, lpvFindData As WIN32_FIND_DATA) As Long ' Const DT_EDITCONTROL As Long = &H2000& Const DT_PATH_ELLIPSIS As Long = &H4000& Const DT_END_ELLIPSIS As Long = &H8000& Const DT_MODIFYSTRING As Long = &H10000 Const DT_RTLREADING As Long = &H20000 Const DT_WORD_ELLIPSIS As Long = &H40000 ' Const EM_GETLIMITTEXT = &H425 Const EM_POSFROMCHAR = &H426 Const EM_CHARFROMPOS = &H427 'Const EM_SCROLLCARET = &H431 Const EM_CANPASTE = &H432 Const EM_DISPLAYBAND = &H433 Const EM_EXGETSEL = &H434 Const EM_EXLIMITTEXT = &H435 Const EM_EXLINEFROMCHAR = &H436 Const EM_EXSETSEL = &H437 Const EM_FINDTEXT = &H438 Const EM_FORMATRANGE = &H439 Const EM_GETCHARFORMAT = &H43A Const EM_GETEVENTMASK = &H43B Const EM_GETOLEINTERFACE = &H43C Const EM_GETPARAFORMAT = &H43D Const EM_GETSELTEXT = &H43E Const EM_HIDESELECTION = &H43F Const EM_PASTESPECIAL = &H440 Const EM_REQUESTRESIZE = &H441 Const EM_SELECTIONTYPE = &H442 Const EM_SETBKGNDCOLOR = &H443 Const EM_SETCHARFORMAT = &H444 Const EM_SETEVENTMASK = &H445 Const EM_SETOLECALLBACK = &H446 Const EM_SETPARAFORMAT = &H447 Const EM_SETTARGETDEVICE = &H448 Const EM_STREAMIN = &H449 Const EM_STREAMOUT = &H44A Const EM_GETTEXTRANGE = &H44B Const EM_FINDWORDBREAK = &H44C Const EM_SETOPTIONS = &H44D Const EM_GETOPTIONS = &H44E Const EM_FINDTEXTEX = &H44F Const EM_SETUNDOLIMIT = &H452 Const EM_REDO = &H454 Const EM_CANREDO = &H455 Const EM_GETUNDONAME = &H456 Const EM_GETREDONAME = &H457 Const EM_STOPGROUPTYPING = &H458 Const EM_SETTEXTMODE = &H459 Const EM_GETTEXTMODE = &H45A ' -- C BOOL type --> VB Long, not VB Boolean Declare Function SetServiceBits Lib "advapi32" Alias "SetServiceBits" (ByVal hServiceStatus As Long, ByVal dwServiceBits As Long, ByVal bSetBitsOn As Long, ByVal bUpdateImmediately As Long) As Long Declare Function SetSystemTimeAdjustment Lib "kernel32" Alias "SetSystemTimeAdjustment" (ByVal dwTimeAdjustment As Long, ByVal bTimeAdjustmentDisabled As Long) As Long Declare Function InsertMenuItem Lib "user32" Alias "InsertMenuItemA" (ByVal hMenu As Long, ByVal un As Long, ByVal bool As Long, ByRef lpcMenuItemInfo As MENUITEMINFO) As Long Declare Function LookupIconIdFromDirectoryEx Lib "user32" Alias "LookupIconIdFromDirectoryEx" (presbits As Byte, ByVal fIcon As Long, ByVal cxDesired As Long, ByVal cyDesired As Long, ByVal Flags As Long) As Long Declare Function OpenDesktop Lib "user32" Alias "OpenDesktopA" (ByVal lpszDesktop As String, ByVal dwFlags As Long, ByVal fInherit As Long, ByVal dwDesiredAccess As Long) As Long Declare Function OpenInputDesktop Lib "user32" Alias "OpenInputDesktop" (ByVal dwFlags As Long, ByVal fInherit As Long, ByVal dwDesiredAccess As Long) As Long Declare Function OpenWindowStation Lib "user32" Alias "OpenWindowStationA" (ByVal lpszWinSta As String, ByVal fInherit As Long, ByVal dwDesiredAccess As Long) As Long Declare Function SetMenuItemInfo Lib "user32" Alias "SetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal bool As Long, lpcMenuItemInfo As MENUITEMINFO) As Long Declare Function SetScrollInfo Lib "user32" Alias "SetScrollInfo" (ByVal hWnd As Long, ByVal n As Long, lpcScrollInfo As SCROLLINFO, ByVal bool As Long) As Long Declare Function SetWindowRgn Lib "user32" Alias "SetWindowRgn" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long ' -- Declares for SHBrowseForFolder & associates Declare Sub CoTaskMemFree Lib "ole32" (ByVal hMem As Long) Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long Declare Function OleInitialize Lib "ole32" (ByVal vbNullString As Any) As Long Declare Sub OleUninitialize Lib "ole32" () Type BrowseInfo hWndOwner As Long pIDLRoot As Long pszDisplayName As Long lpszTitle As Long ulFlags As Long lpfnCallback As Long lParam As Long iImage As Long End Type Const BIF_RETURNONLYFSDIRS = 1 'For finding a folder to start document searching Const BIF_DONTGOBELOWDOMAIN = 2 'For starting the Find Computer Const BIF_STATUSTEXT = 4 'Top of the dialog has 2 lines of text for BROWSEINFO.lpszTitle and one line if 'this flag is set. Passing the message BFFM_SETSTATUSTEXTA to the hwnd can set the 'rest of the text. This is not used with BIF_USENEWUI and BROWSEINFO.lpszTitle gets 'all three lines of text. Const BIF_RETURNFSANCESTORS = 8 Const BIF_EDITBOX = 16 'Add an editbox to the dialog. Always on with BIF_USENEWUI Const BIF_VALIDATE = 32 'insist on valid result (or CANCEL) Const BIF_USENEWUI = 64 'Use the new dialog layout with the ability to resize. 'Caller needs to call OleInitialize() before using this API. Const BIF_BROWSEINCLUDEURLS = 128 'Allow URLs to be displayed or entered. (Requires BIF_USENEWUI) Const BIF_BROWSEFORCOMPUTER = 4096 'Browsing for Computers. Const BIF_BROWSEFORPRINTER = 8192 'Browsing for Printers Const BIF_BROWSEINCLUDEFILES = 16384 'Browsing for Everything Const BIF_SHAREABLE = 32768 'sharable resources displayed (remote shares, requires BIF_USENEWUI) ' -- Declares for ODBC ' ODBC Core API's Definitions -- 32 bit versions Declare Function SQLAllocConnect Lib "odbc32.dll" (ByVal hEnv As Long, phdbc As Long) As Integer Declare Function SQLAllocEnv Lib "odbc32.dll" (phEnv As Long) As Integer Declare Function SQLAllocStmt Lib "odbc32.dll" (ByVal hDbc As Long, phstmt As Long) As Integer Declare Function SQLBindCol Lib "odbc32.dll" (ByVal hStmt As Long, ByVal icol As Integer, ByVal fCType As Integer, rgbValue As Any, ByVal cbValueMax As Long, pcbValue As Long) As Integer Declare Function SQLCancel Lib "odbc32.dll" (ByVal hStmt As Long) As Integer Declare Function SQLColAttributes Lib "odbc32.dll" (ByVal hStmt As Long, ByVal icol As Integer, ByVal fDescType As Integer, rgbDesc As Any, ByVal cbDescMax As Integer, pcbDesc As Integer, pfDesc As Long) As Integer Declare Function SQLColAttributesString Lib "odbc32.dll" Alias "SQLColAttributes" (ByVal hStmt As Long, ByVal icol As Integer, ByVal fDescType As Integer, ByVal rgbDesc As String, ByVal cbDescMax As Integer, pcbDesc As Integer, pfDesc As Long) As Integer Declare Function SQLConnect Lib "odbc32.dll" (ByVal hDbc As Long, ByVal szDSN As String, ByVal cbDSN As Integer, ByVal szUID As String, ByVal cbUID As Integer, ByVal szAuthStr As String, ByVal cbAuthStr As Integer) As Integer Declare Function SQLDescribeCol Lib "odbc32.dll" (ByVal hStmt As Long, ByVal icol As Integer, ByVal szColName As String, ByVal cbColNameMax As Integer, pcbColName As Integer, pfSqlType As Integer, pcbColDef As Long, pibScale As Integer, pfNullable As Integer) As Integer Declare Function SQLDisconnect Lib "odbc32.dll" (ByVal hDbc As Long) As Integer Declare Function SQLError Lib "odbc32.dll" (ByVal hEnv As Long, ByVal hDbc As Long, ByVal hStmt As Long, ByVal szSqlState As String, pfNativeError As Long, ByVal szErrorMsg As String, ByVal cbErrorMsgMax As Integer, pcbErrorMsg As Integer) As Integer Declare Function SQLExecDirect Lib "odbc32.dll" (ByVal hStmt As Long, ByVal szSqlStr As String, ByVal cbSqlStr As Long) As Integer Declare Function SQLExecute Lib "odbc32.dll" (ByVal hStmt As Long) As Integer Declare Function SQLFetch Lib "odbc32.dll" (ByVal hStmt As Long) As Integer Declare Function SQLFreeConnect Lib "odbc32.dll" (ByVal hDbc As Long) As Integer Declare Function SQLFreeEnv Lib "odbc32.dll" (ByVal hEnv As Long) As Integer Declare Function SQLFreeStmt Lib "odbc32.dll" (ByVal hStmt As Long, ByVal fOption As Integer) As Integer Declare Function SQLGetCursorName Lib "odbc32.dll" (ByVal hStmt As Long, ByVal szCursor As String, ByVal cbCursorMax As Integer, pcbCursor As Integer) As Integer Declare Function SQLNumResultCols Lib "odbc32.dll" (ByVal hStmt As Long, pccol As Integer) As Integer Declare Function SQLPrepare Lib "odbc32.dll" (ByVal hStmt As Long, ByVal szSqlStr As String, ByVal cbSqlStr As Long) As Integer Declare Function SQLRowCount Lib "odbc32.dll" (ByVal hStmt As Long, pcrow As Long) As Integer Declare Function SQLSetCursorName Lib "odbc32.dll" (ByVal hStmt As Long, ByVal szCursor As String, ByVal cbCursor As Integer) As Integer Declare Function SQLSetParam Lib "odbc32.dll" (ByVal hStmt As Long, ByVal ipar As Integer, ByVal fCType As Integer, ByVal fSqlType As Integer, ByVal cbColDef As Long, ByVal ibScale As Integer, rgbValue As Any, pcbValue As Long) As Integer Declare Function SQLTransact Lib "odbc32.dll" (ByVal hEnv As Long, ByVal hDbc As Long, ByVal fType As Integer) As Integer ' ' Level 1 Prototypes Declare Function SQLBindParameter Lib "odbc32.dll" (ByVal hStmt As Long, ByVal ipar As Integer, ByVal fParamType As Integer, ByVal fCType As Integer, ByVal fSqlType As Integer, ByVal cbColDef As Long, ByVal ibScale As Integer, rgbValue As Any, ByVal cbValueMax As Long, pcbValue As Long) As Integer Declare Function SQLColumns Lib "odbc32.dll" (ByVal hStmt As Long, szTblQualifier As Any, ByVal cbTblQualifier As Integer, szTblOwner As Any, ByVal cbTblOwner As Integer, szTblName As Any, ByVal cbTblName As Integer, szColName As Any, ByVal cbColName As Integer) As Integer Declare Function SQLDriverConnect Lib "odbc32.dll" (ByVal hDbc As Long, ByVal hWnd As Long, ByVal szCSIn As String, ByVal cbCSIn As Integer, ByVal szCSOut As String, ByVal cbCSMax As Integer, cbCSOut As Integer, ByVal fDrvrComp As Integer) As Integer Declare Function SQLGetConnectOption Lib "odbc32.dll" (ByVal hDbc As Long, ByVal fOption As Integer, ByRef pvParam As Any) As Integer Declare Function SQLGetConnectOptionString Lib "odbc32.dll" Alias "SQLGetConnectOption" (ByVal hDbc As Long, ByVal fOption As Integer, ByVal pvParam As String) As Integer Declare Function SQLGetData Lib "odbc32.dll" (ByVal hStmt As Long, ByVal icol As Integer, ByVal fCType As Integer, ByVal rgbValue As String, ByVal cbValueMax As Long, pcbValue As Long) As Integer Declare Function SQLGetNumericData Lib "odbc32.dll" Alias "SQLGetData" (ByVal hStmt As Long, ByVal icol As Integer, ByVal fCType As Integer, ByRef rgbValue As Any, ByVal cbValueMax As Long, pcbValue As Long) As Integer Declare Function SQLGetFunctions Lib "odbc32.dll" (ByVal hDbc As Long, ByVal fFunction As Integer, pfExists As Integer) As Integer Declare Function SQLGetInfo Lib "odbc32.dll" (ByVal hDbc As Long, ByVal fInfoType As Integer, ByRef rgbInfoValue As Any, ByVal cbInfoMax As Integer, cbInfoOut As Integer) As Integer Declare Function SQLGetInfoString Lib "odbc32.dll" Alias "SQLGetInfo" (ByVal hDbc&, ByVal fInfoType As Integer, ByVal rgbInfoValue As String, ByVal cbInfoMax As Integer, cbInfoOut As Integer) As Integer Declare Function SQLGetStmtOption Lib "odbc32.dll" (ByVal hStmt As Long, ByVal fOption As Integer, ByRef pvParam As Any) As Integer Declare Function SQLGetStmtOptionString Lib "odbc32.dll" Alias "SQLGetStmtOption" (ByVal hStmt As Long, ByVal fOption As Integer, ByVal pvParam As String) As Integer Declare Function SQLGetTypeInfo Lib "odbc32.dll" (ByVal hStmt As Long, ByVal fSqlType As Integer) As Integer Declare Function SQLParamData Lib "odbc32.dll" (ByVal hStmt As Long, prgbValue As Any) As Integer Declare Function SQLPutData Lib "odbc32.dll" (ByVal hStmt As Long, rgbValue As Any, ByVal cbValue As Long) As Integer Declare Function SQLSetConnectOption Lib "odbc32.dll" (ByVal hDbc As Long, ByVal fOption As Integer, ByVal vParam As Any) As Integer Declare Function SQLSetConnectStringOption Lib "odbc32.dll" Alias "SQLSetConnectOption" (ByVal hDbc As Long, ByVal fOption As Integer, vParam As String) As Integer Declare Function SQLSetStmtOption Lib "odbc32.dll" (ByVal hStmt As Long, ByVal fOption As Integer, ByVal vParam As Long) As Integer Declare Function SQLSpecialColumns Lib "odbc32.dll" (ByVal hStmt As Long, ByVal fColType As Integer, szTblQualifier As Any, ByVal cbTblQualifier As Integer, szTblOwner As Any, ByVal cbTblOwner As Integer, szTblName As Any, ByVal cbTblName As Integer, ByVal fScope As Integer, ByVal fNullable As Integer) As Integer Declare Function SQLStatistics Lib "odbc32.dll" (ByVal hStmt As Long, szTblQualifier As Any, ByVal cbTblQualifier As Integer, szTblOwner As Any, ByVal cbTblOwner As Integer, szTblName As Any, ByVal cbTblName As Integer, ByVal fUnique As Integer, ByVal fAccuracy As Integer) As Integer Declare Function SQLTables Lib "odbc32.dll" (ByVal hStmt As Long, szTblQualifier As Any, ByVal cbTblQualifier As Integer, szTblOwner As Any, ByVal cbTblOwner As Integer, szTblName As Any, ByVal cbTblName As Integer, szTblType As Any, ByVal cbTblType As Integer) As Integer ' Level 2 Prototypes Declare Function SQLBrowseConnect Lib "odbc32.dll" (ByVal hDbc As Long, ByVal szConnStrIn As String, ByVal cbConnStrIn As Integer, ByVal szConnStrOut As String, ByVal cbConnStrOutMax As Integer, pcbConnStrOut As Integer) As Integer Declare Function SQLColumnPrivileges Lib "odbc32.dll" (ByVal hStmt As Long, szTQf As Any, ByVal cbTQf As Integer, szTOwn As Any, ByVal cbTOwn As Integer, szTName As Any, ByVal cbTName As Integer, szColName As Any, ByVal cbColName As Integer) As Integer Declare Function SQLDrivers Lib "odbc32.dll" (ByVal hEnv As Long, ByVal fDirection As Integer, ByVal szDriverDesc As String, ByVal cbDriverDescMax As Integer, pcbDriverDesc As Integer, ByVal szDriverAttr As String, ByVal cbDrvrAttrMax As Integer, pcbDrvrAttr As Integer) As Integer Declare Function SQLDataSources Lib "odbc32.dll" (ByVal hEnv As Long, ByVal fDirection As Integer, ByVal szDSN As String, ByVal cbDSNMax As Integer, pcbDSN As Integer, ByVal szDescription As String, ByVal cbDescriptionMax As Integer, pcbDescription As Integer) As Integer Declare Function SQLDescribeParam Lib "odbc32.dll" (ByVal hStmt As Long, ByVal ipar As Integer, pfSqlType As Integer, pcbColDef As Long, pibScale As Integer, pfNullable As Integer) As Integer Declare Function SQLExtendedFetch Lib "odbc32.dll" (ByVal hStmt As Long, ByVal fFetchType As Integer, ByVal irow As Long, pcrow As Long, rgfRowStatus As Integer) As Integer Declare Function SQLForeignKeys Lib "odbc32.dll" (ByVal hStmt As Long, ByVal PTQual As Long, ByVal PTQual As Integer, ByVal PTOwnr As Long, ByVal PTOwnr As Integer, ByVal PTName As Long, ByVal PTName As Integer, ByVal FTQual As Long, ByVal FTQf As Integer, ByVal FTOwnr As Long, ByVal FTOwnr As Integer, ByVal FTName As Long, ByVal FTName As Integer) As Integer Declare Function SQLMoreResults Lib "odbc32.dll" (ByVal hStmt As Long) As Integer Declare Function SQLNativeSql Lib "odbc32.dll" (ByVal hDbc As Long, ByVal szSqlStrIn As String, ByVal cbSqlStrIn As Long, ByVal szSqlStr As String, ByVal cbSqlStrMax As Long, pcbSqlStr As Long) As Integer Declare Function SQLNumParams Lib "odbc32.dll" (ByVal hStmt As Long, pcpar As Integer) As Integer Declare Function SQLParamOptions Lib "odbc32.dll" (ByVal hStmt As Long, ByVal crow As Integer, pirow As Long) As Integer Declare Function SQLPrimaryKeys Lib "odbc32.dll" (ByVal hStmt As Long, szTblQualifier As Any, ByVal cbTblQualifier As Integer, szTblOwner As Any, ByVal cbTblOwner As Integer, szTblName As Any, ByVal cbTblName As Integer) As Integer Declare Function SQLProcedureColumns Lib "odbc32.dll" (ByVal hStmt As Long, szProcQualifier As Any, ByVal cbProcQualifier As Integer, szProcOwner As Any, ByVal cbProcOwner As Integer, szProcName As Any, ByVal cbProcName As Integer, szColName As Any, ByVal cbColName As Integer) As Integer Declare Function SQLProcedures Lib "odbc32.dll" (ByVal hStmt As Long, szProcQualifier As Any, ByVal cbProcQualifier As Integer, szProcOwner As Any, ByVal cbProcOwner As Integer, szProcName As Any, ByVal cbProcName As Integer) As Integer Declare Function SQLSetPos Lib "odbc32.dll" (ByVal hStmt As Long, ByVal irow As Integer, ByVal fOption As Integer, ByVal fLock As Integer) As Integer Declare Function SQLSetScrollOptions Lib "odbc32.dll" (ByVal hStmt As Long, ByVal fConcurrency As Integer, ByVal crowKeyset As Long, ByVal crowRowset As Integer) As Integer Declare Function SQLTablePrivileges Lib "odbc32.dll" (ByVal hStmt As Long, szTblQualifier As Any, ByVal cbTblQualifier As Integer, szTblOwner As Any, ByVal cbTblOwner As Integer, szTblName As Any, ByVal cbTblName As Integer) As Integer ' ' 32 Bit declares ' ODBC Constants/Types ' generally useful constants Const SQL_NTS As Long = -3 ' NTS = Null Terminated String Const SQL_SQLSTATE_SIZE As Long = 5 ' size of SQLSTATE Const SQL_MAX_MESSAGE_LENGTH As Long = 512 ' message buffer size Const SQL_MAX_DSN_LENGTH As Long = 32 ' maximum data source name size ' RETCODEs Const SQL_ERROR As Long = -1 Const SQL_INVALID_HANDLE As Long = -2 Const SQL_NO_DATA_FOUND As Long = 100 Const SQL_SUCCESS As Long = 0 Const SQL_SUCCESS_WITH_INFO As Long = 1 ' SQLFreeStmt defines Const SQL_CLOSE As Long = 0 Const SQL_DROP As Long = 1 Const SQL_UNBIND As Long = 2 Const SQL_RESET_PARAMS As Long = 3 ' SQLSetParam defines Const SQL_C_DEFAULT As Long = 99 ' SQLTransact defines Const SQL_COMMIT As Long = 0 Const SQL_ROLLBACK As Long = 1 ' Standard SQL datatypes, using ANSI type numbering Const SQL_CHAR As Long = 1 Const SQL_NUMERIC As Long = 2 Const SQL_DECIMAL As Long = 3 Const SQL_INTEGER As Long = 4 Const SQL_SMALLINT As Long = 5 Const SQL_FLOAT As Long = 6 Const SQL_REAL As Long = 7 Const SQL_DOUBLE As Long = 8 Const SQL_VARCHAR As Long = 12 Const SQL_TYPE_MIN As Long = 1 Const SQL_TYPE_NULL As Long = 0 Const SQL_TYPE_MAX As Long = 12 ' C datatype to SQL datatype mapping SQL types Const SQL_C_CHAR As Long = SQL_CHAR ' CHAR, VARCHAR, DECIMAL, NUMERIC Const SQL_C_LONG As Long = SQL_INTEGER ' INTEGER Const SQL_C_SHORT As Long = SQL_SMALLINT ' SMALLINT Const SQL_C_FLOAT As Long = SQL_REAL ' REAL Const SQL_C_DOUBLE As Long = SQL_DOUBLE ' FLOAT, DOUBLE ' ' NULL status constants. These are used in SQLColumns, SQLColAttributes, ' SQLDescribeCol, and SQLSpecialColumns to describe the nullablity of a ' column in a table. SQL_NULLABLE_UNKNOWN can be returned only by ' SQLDescribeCol or SQLColAttributes. It is used when the DBMS's meta-data ' does not contain this info. ' Const SQL_NO_NULLS As Long = 0 Const SQL_NULLABLE As Long = 1 Const SQL_NULLABLE_UNKNOWN As Long = 2 ' Special length values Const SQL_NULL_DATA As Long = -1 Const SQL_DATA_AT_EXEC As Long = -2 ' SQLColAttributes defines Const SQL_COLUMN_COUNT As Long = 0 Const SQL_COLUMN_NAME As Long = 1 Const SQL_COLUMN_TYPE As Long = 2 Const SQL_COLUMN_LENGTH As Long = 3 Const SQL_COLUMN_PRECISION As Long = 4 Const SQL_COLUMN_SCALE As Long = 5 Const SQL_COLUMN_DISPLAY_SIZE As Long = 6 Const SQL_COLUMN_NULLABLE As Long = 7 Const SQL_COLUMN_UNSIGNED As Long = 8 Const SQL_COLUMN_MONEY As Long = 9 Const SQL_COLUMN_UPDATABLE As Long = 10 Const SQL_COLUMN_AUTO_INCREMENT As Long = 11 Const SQL_COLUMN_CASE_SENSITIVE As Long = 12 Const SQL_COLUMN_SEARCHABLE As Long = 13 Const SQL_COLUMN_TYPE_NAME As Long = 14 Const SQL_COLUMN_TABLE_NAME As Long = 15 Const SQL_COLUMN_OWNER_NAME As Long = 16 Const SQL_COLUMN_QUALIFIER_NAME As Long = 17 Const SQL_COLUMN_LABEL As Long = 18 Const SQL_COLATT_OPT_MAX As Long = SQL_COLUMN_LABEL ' SQLColAttributes subdefines for SQL_COLUMN_UPDATABLE Const SQL_ATTR_READONLY As Long = 0 Const SQL_ATTR_WRITE As Long = 1 Const SQL_ATTR_READWRITE_UNKNOWN As Long = 2 ' SQLColAttributes subdefines for SQL_COLUMN_SEARCHABLE ' These are also used by SQLGetInfo Const SQL_UNSEARCHABLE As Long = 0 Const SQL_LIKE_ONLY As Long = 1 Const SQL_ALL_EXCEPT_LIKE As Long = 2 Const SQL_SEARCHABLE As Long = 3 ' SQLError defines Const SQL_NULL_HENV As Long = 0 Const SQL_NULL_HDBC As Long = 0 Const SQL_NULL_HSTMT As Long = 0 ' Level 1 Definitions/Functions ' Generally useful constants ' Const SQL_MAX_OPTION_STRING_LENGTH = 256 ' Additional return codes Const SQL_STILL_EXECUTING As Long = 2 Const SQL_NEED_DATA As Long = 99 ' SQL extended datatypes Const SQL_DATE As Long = 9 Const SQL_TIME As Long = 10 Const SQL_TIMESTAMP As Long = 11 Const SQL_LONGVARCHAR As Long = -1 Const SQL_BINARY As Long = -2 Const SQL_VARBINARY As Long = -3 Const SQL_LONGVARBINARY As Long = -4 Const SQL_BIGINT As Long = -5 Const SQL_TINYINT As Long = -6 Const SQL_BIT As Long = -7 Const SQL_TYPE_DRIVER_START As Long = -80 ' C datatype to SQL datatype mapping Const SQL_SIGNED_OFFSET As Long = -20 Const SQL_UNSIGNED_OFFSET As Long = -22 Const SQL_C_DATE As Long = SQL_DATE Const SQL_C_TIME As Long = SQL_TIME Const SQL_C_TIMESTAMP As Long = SQL_TIMESTAMP Const SQL_C_BINARY As Long = SQL_BINARY Const SQL_C_BIT As Long = SQL_BIT Const SQL_C_TINYINT As Long = SQL_TINYINT Const SQL_C_SLONG As Long = SQL_C_LONG + SQL_SIGNED_OFFSET Const SQL_C_SSHORT As Long = SQL_C_SHORT + SQL_SIGNED_OFFSET Const SQL_C_STINYINT As Long = SQL_TINYINT + SQL_SIGNED_OFFSET Const SQL_C_ULONG As Long = SQL_C_LONG + SQL_UNSIGNED_OFFSET Const SQL_C_USHORT As Long = SQL_C_SHORT + SQL_UNSIGNED_OFFSET Const SQL_C_UTINYINT As Long = SQL_TINYINT + SQL_UNSIGNED_OFFSET Const SQL_C_BOOKMARK As Long = SQL_C_ULONG Const SQL_ALL_TYPES As Long = 0 ' ' Date/Time/Timestamp Structs ' Type DATE_STRUCT year As Integer month As Integer day As Integer End Type Type TIME_STRUCT hour As Integer minute As Integer second As Integer End Type Type TIMESTAMP_STRUCT year As Integer month As Integer day As Integer hour As Integer minute As Integer second As Integer fraction As Long End Type ' Options for SQLDriverConnect ' Const SQL_DRIVER_NOPROMPT As Long = 0 Const SQL_DRIVER_COMPLETE As Long = 1 Const SQL_DRIVER_PROMPT As Long = 2 Const SQL_DRIVER_COMPLETE_REQUIRED As Long = 3 ' Special return values for SQLGetData Const SQL_NO_TOTAL As Long = -4 ' SQLSetParam extensions Const SQL_DEFAULT_PARAM As Long = -5 Const SQL_IGNORE As Long = -6 Const SQL_LEN_DATA_AT_EXEC_OFFSET As Long = -100 ' ' Defines for SQLGetFunctions ' Core Functions ' Const SQL_API_SQLALLOCCONNECT As Long = 1 Const SQL_API_SQLALLOCENV As Long = 2 Const SQL_API_SQLALLOCSTMT As Long = 3 Const SQL_API_SQLBINDCOL As Long = 4 Const SQL_API_SQLCANCEL As Long = 5 Const SQL_API_SQLCOLATTRIBUTES As Long = 6 Const SQL_API_SQLCONNECT As Long = 7 Const SQL_API_SQLDESCRIBECOL As Long = 8 Const SQL_API_SQLDISCONNECT As Long = 9 Const SQL_API_SQLERROR As Long = 10 Const SQL_API_SQLEXECDIRECT As Long = 11 Const SQL_API_SQLEXECUTE As Long = 12 Const SQL_API_SQLFETCH As Long = 13 Const SQL_API_SQLFREECONNECT As Long = 14 Const SQL_API_SQLFREEENV As Long = 15 Const SQL_API_SQLFREESTMT As Long = 16 Const SQL_API_SQLGETCURSORNAME As Long = 17 Const SQL_API_SQLNUMRESULTCOLS As Long = 18 Const SQL_API_SQLPREPARE As Long = 19 Const SQL_API_SQLROWCOUNT As Long = 20 Const SQL_API_SQLSETCURSORNAME As Long = 21 Const SQL_API_SQLSETPARAM As Long = 22 Const SQL_API_SQLTRANSACT As Long = 23 Const SQL_NUM_FUNCTIONS As Long = 23 Const SQL_EXT_API_START As Long = 40 ' Level 1 Functions Const SQL_API_SQLCOLUMNS As Long = 40 Const SQL_API_SQLDRIVERCONNECT As Long = 41 Const SQL_API_SQLGETCONNECTOPTION As Long = 42 Const SQL_API_SQLGETDATA As Long = 43 Const SQL_API_SQLGETFUNCTIONS As Long = 44 Const SQL_API_SQLGETINFO As Long = 45 Const SQL_API_SQLGETSTMTOPTION As Long = 46 Const SQL_API_SQLGETTYPEINFO As Long = 47 Const SQL_API_SQLPARAMDATA As Long = 48 Const SQL_API_SQLPUTDATA As Long = 49 Const SQL_API_SQLSETCONNECTOPTION As Long = 50 Const SQL_API_SQLSETSTMTOPTION As Long = 51 Const SQL_API_SQLSPECIALCOLUMNS As Long = 52 Const SQL_API_SQLSTATISTICS As Long = 53 Const SQL_API_SQLTABLES As Long = 54 ' Level 2 Functions Const SQL_API_SQLBROWSECONNECT As Long = 55 Const SQL_API_SQLCOLUMNPRIVILEGES As Long = 56 Const SQL_API_SQLDATASOURCES As Long = 57 Const SQL_API_SQLDESCRIBEPARAM As Long = 58 Const SQL_API_SQLEXTENDEDFETCH As Long = 59 Const SQL_API_SQLFOREIGNKEYS As Long = 60 Const SQL_API_SQLMORERESULTS As Long = 61 Const SQL_API_SQLNATIVESQL As Long = 62 Const SQL_API_SQLNUMPARAMS As Long = 63 Const SQL_API_SQLPARAMOPTIONS As Long = 64 Const SQL_API_SQLPRIMARYKEYS As Long = 65 Const SQL_API_SQLPROCEDURECOLUMNS As Long = 66 Const SQL_API_SQLPROCEDURES As Long = 67 Const SQL_API_SQLSETPOS As Long = 68 Const SQL_API_SQLSETSCROLLOPTIONS As Long = 69 Const SQL_API_SQLTABLEPRIVILEGES As Long = 70 Const SQL_API_SQLDRIVERS As Long = 71 Const SQL_API_SQLBINDPARAMETER As Long = 72 Const SQL_EXT_API_LAST As Long = 72 Const SQL_API_ALL_FUNCTIONS As Long = 0 Const SQL_NUM_EXTENSIONS As Long = (SQL_EXT_API_LAST - SQL_EXT_API_START + 1) ' Defines for SQLGetInfo Const SQL_INFO_FIRST As Long = 0 Const SQL_ACTIVE_CONNECTIONS As Long = 0 Const SQL_ACTIVE_STATEMENTS As Long = 1 Const SQL_DATA_SOURCE_NAME As Long = 2 Const SQL_DRIVER_HDBC As Long = 3 Const SQL_DRIVER_HENV As Long = 4 Const SQL_DRIVER_HSTMT As Long = 5 Const SQL_DRIVER_NAME As Long = 6 Const SQL_DRIVER_VER As Long = 7 Const SQL_FETCH_DIRECTION As Long = 8 Const SQL_ODBC_API_CONFORMANCE As Long = 9 Const SQL_ODBC_VER As Long = 10 Const SQL_ROW_UPDATES As Long = 11 Const SQL_ODBC_SAG_CLI_CONFORMANCE As Long = 12 Const SQL_SERVER_NAME As Long = 13 Const SQL_SEARCH_PATTERN_ESCAPE As Long = 14 Const SQL_ODBC_SQL_CONFORMANCE As Long = 15 Const SQL_DBMS_NAME As Long = 17 Const SQL_DBMS_VER As Long = 18 Const SQL_ACCESSIBLE_TABLES As Long = 19 Const SQL_ACCESSIBLE_PROCEDURES As Long = 20 Const SQL_PROCEDURES As Long = 21 Const SQL_CONCAT_NULL_BEHAVIOR As Long = 22 Const SQL_CURSOR_COMMIT_BEHAVIOR As Long = 23 Const SQL_CURSOR_ROLLBACK_BEHAVIOR As Long = 24 Const SQL_DATA_SOURCE_READ_ONLY As Long = 25 Const SQL_DEFAULT_TXN_ISOLATION As Long = 26 Const SQL_EXPRESSIONS_IN_ORDERBY As Long = 27 Const SQL_IDENTIFIER_CASE As Long = 28 Const SQL_IDENTIFIER_QUOTE_CHAR As Long = 29 Const SQL_MAX_COLUMN_NAME_LEN As Long = 30 Const SQL_MAX_CURSOR_NAME_LEN As Long = 31 Const SQL_MAX_OWNER_NAME_LEN As Long = 32 Const SQL_MAX_PROCEDURE_NAME_LEN As Long = 33 Const SQL_MAX_QUALIFIER_NAME_LEN As Long = 34 Const SQL_MAX_TABLE_NAME_LEN As Long = 35 Const SQL_MULT_RESULT_SETS As Long = 36 Const SQL_MULTIPLE_ACTIVE_TXN As Long = 37 Const SQL_OUTER_JOINS As Long = 38 Const SQL_OWNER_TERM As Long = 39 Const SQL_PROCEDURE_TERM As Long = 40 Const SQL_QUALIFIER_NAME_SEPARATOR As Long = 41 Const SQL_QUALIFIER_TERM As Long = 42 Const SQL_SCROLL_CONCURRENCY As Long = 43 Const SQL_SCROLL_OPTIONS As Long = 44 Const SQL_TABLE_TERM As Long = 45 Const SQL_TXN_CAPABLE As Long = 46 Const SQL_USER_NAME As Long = 47 Const SQL_CONVERT_FUNCTIONS As Long = 48 Const SQL_NUMERIC_FUNCTIONS As Long = 49 Const SQL_STRING_FUNCTIONS As Long = 50 Const SQL_SYSTEM_FUNCTIONS As Long = 51 Const SQL_TIMEDATE_FUNCTIONS As Long = 52 Const SQL_CONVERT_BIGINT As Long = 53 Const SQL_CONVERT_BINARY As Long = 54 Const SQL_CONVERT_BIT As Long = 55 Const SQL_CONVERT_CHAR As Long = 56 Const SQL_CONVERT_DATE As Long = 57 Const SQL_CONVERT_DECIMAL As Long = 58 Const SQL_CONVERT_DOUBLE As Long = 59 Const SQL_CONVERT_FLOAT As Long = 60 Const SQL_CONVERT_INTEGER As Long = 61 Const SQL_CONVERT_LONGVARCHAR As Long = 62 Const SQL_CONVERT_NUMERIC As Long = 63 Const SQL_CONVERT_REAL As Long = 64 Const SQL_CONVERT_SMALLINT As Long = 65 Const SQL_CONVERT_TIME As Long = 66 Const SQL_CONVERT_TIMESTAMP As Long = 67 Const SQL_CONVERT_TINYINT As Long = 68 Const SQL_CONVERT_VARBINARY As Long = 69 Const SQL_CONVERT_VARCHAR As Long = 70 Const SQL_CONVERT_LONGVARBINARY As Long = 71 Const SQL_TXN_ISOLATION_OPTION As Long = 72 Const SQL_ODBC_SQL_OPT_IEF As Long = 73 Const SQL_CORRELATION_NAME As Long = 74 Const SQL_NON_NULLABLE_COLUMNS As Long = 75 Const SQL_DRIVER_HLIB As Long = 76 Const SQL_DRIVER_ODBC_VER As Long = 77 Const SQL_LOCK_TYPES As Long = 78 Const SQL_POS_OPERATIONS As Long = 79 Const SQL_POSITIONED_STATEMENTS As Long = 80 Const SQL_GETDATA_EXTENSIONS As Long = 81 Const SQL_BOOKMARK_PERSISTENCE As Long = 82 Const SQL_STATIC_SENSITIVITY As Long = 83 Const SQL_FILE_USAGE As Long = 84 Const SQL_NULL_COLLATION As Long = 85 Const SQL_ALTER_TABLE As Long = 86 Const SQL_COLUMN_ALIAS As Long = 87 Const SQL_GROUP_BY As Long = 88 Const SQL_KEYWORDS As Long = 89 Const SQL_ORDER_BY_COLUMNS_IN_SELECT As Long = 90 Const SQL_OWNER_USAGE As Long = 91 Const SQL_QUALIFIER_USAGE As Long = 92 Const SQL_QUOTED_IDENTIFIER_CASE As Long = 93 Const SQL_SPECIAL_CHARACTERS As Long = 94 Const SQL_SUBQUERIES As Long = 95 Const SQL_UNION As Long = 96 Const SQL_MAX_COLUMNS_IN_GROUP_BY As Long = 97 Const SQL_MAX_COLUMNS_IN_INDEX As Long = 98 Const SQL_MAX_COLUMNS_IN_ORDER_BY As Long = 99 Const SQL_MAX_COLUMNS_IN_SELECT As Long = 100 Const SQL_MAX_COLUMNS_IN_TABLE As Long = 101 Const SQL_MAX_INDEX_SIZE As Long = 102 Const SQL_MAX_ROW_SIZE_INCLUDES_LONG As Long = 103 Const SQL_MAX_ROW_SIZE As Long = 104 Const SQL_MAX_STATEMENT_LEN As Long = 105 Const SQL_MAX_TABLES_IN_SELECT As Long = 106 Const SQL_MAX_USER_NAME_LEN As Long = 107 Const SQL_MAX_CHAR_LITERAL_LEN As Long = 108 Const SQL_TIMEDATE_ADD_INTERVALS As Long = 109 Const SQL_TIMEDATE_DIFF_INTERVALS As Long = 110 Const SQL_NEED_LONG_DATA_LEN As Long = 111 Const SQL_MAX_BINARY_LITERAL_LEN As Long = 112 Const SQL_LIKE_ESCAPE_CLAUSE As Long = 113 Const SQL_QUALIFIER_LOCATION As Long = 114 Const SQL_INFO_LAST As Long = SQL_QUALIFIER_LOCATION Const SQL_INFO_DRIVER_START As Long = 1000 ' ' "SQL_CONVERT_" return value bitmasks ' Const SQL_CVT_CHAR As Long = &H1& Const SQL_CVT_NUMERIC As Long = &H2& Const SQL_CVT_DECIMAL As Long = &H4& Const SQL_CVT_INTEGER As Long = &H8& Const SQL_CVT_SMALLINT As Long = &H10& Const SQL_CVT_FLOAT As Long = &H20& Const SQL_CVT_REAL As Long = &H40& Const SQL_CVT_DOUBLE As Long = &H80& Const SQL_CVT_VARCHAR As Long = &H100& Const SQL_CVT_LONGVARCHAR As Long = &H200& Const SQL_CVT_BINARY As Long = &H400& Const SQL_CVT_VARBINARY As Long = &H800& Const SQL_CVT_BIT As Long = &H1000& Const SQL_CVT_TINYINT As Long = &H2000& Const SQL_CVT_BIGINT As Long = &H4000& Const SQL_CVT_DATE As Long = &H8000& Const SQL_CVT_TIME As Long = &H10000 Const SQL_CVT_TIMESTAMP As Long = &H20000 Const SQL_CVT_LONGVARBINARY As Long = &H40000 ' Conversion functions ' Const SQL_FN_CVT_CONVERT As Long = &H1& ' String functions Const SQL_FN_STR_CONCAT As Long = &H1& Const SQL_FN_STR_INSERT As Long = &H2& Const SQL_FN_STR_LEFT As Long = &H4& Const SQL_FN_STR_LTRIM As Long = &H8& Const SQL_FN_STR_LENGTH As Long = &H10& Const SQL_FN_STR_LOCATE As Long = &H20& Const SQL_FN_STR_LCASE As Long = &H40& Const SQL_FN_STR_REPEAT As Long = &H80& Const SQL_FN_STR_REPLACE As Long = &H100& Const SQL_FN_STR_RIGHT As Long = &H200& Const SQL_FN_STR_RTRIM As Long = &H400& Const SQL_FN_STR_SUBSTRING As Long = &H800& Const SQL_FN_STR_UCASE As Long = &H1000& Const SQL_FN_STR_ASCII As Long = &H2000& Const SQL_FN_STR_CHAR As Long = &H4000& Const SQL_FN_STR_DIFFERENCE As Long = &H8000& Const SQL_FN_STR_LOCATE_2 As Long = &H10000 Const SQL_FN_STR_SOUNDEX As Long = &H20000 Const SQL_FN_STR_SPACE As Long = &H40000 ' Numeric functions Const SQL_FN_NUM_ABS As Long = &H1& Const SQL_FN_NUM_ACOS As Long = &H2& Const SQL_FN_NUM_ASIN As Long = &H4& Const SQL_FN_NUM_ATAN As Long = &H8& Const SQL_FN_NUM_ATAN2 As Long = &H10& Const SQL_FN_NUM_CEILING As Long = &H20& Const SQL_FN_NUM_COS As Long = &H40& Const SQL_FN_NUM_COT As Long = &H80& Const SQL_FN_NUM_EXP As Long = &H100& Const SQL_FN_NUM_FLOOR As Long = &H200& Const SQL_FN_NUM_LOG As Long = &H400& Const SQL_FN_NUM_MOD As Long = &H800& Const SQL_FN_NUM_SIGN As Long = &H1000& Const SQL_FN_NUM_SIN As Long = &H2000& Const SQL_FN_NUM_SQRT As Long = &H4000& Const SQL_FN_NUM_TAN As Long = &H8000& Const SQL_FN_NUM_PI As Long = &H10000 Const SQL_FN_NUM_RAND As Long = &H20000 Const SQL_FN_NUM_DEGREES As Long = &H40000 Const SQL_FN_NUM_LOG10 As Long = &H80000 Const SQL_FN_NUM_POWER As Long = &H100000 Const SQL_FN_NUM_RADIANS As Long = &H200000 Const SQL_FN_NUM_ROUND As Long = &H400000 Const SQL_FN_NUM_TRUNCATE As Long = &H800000 ' Time/date functions Const SQL_FN_TD_NOW As Long = &H1& Const SQL_FN_TD_CURDATE As Long = &H2& Const SQL_FN_TD_DAYOFMONTH As Long = &H4& Const SQL_FN_TD_DAYOFWEEK As Long = &H8& Const SQL_FN_TD_DAYOFYEAR As Long = &H10& Const SQL_FN_TD_MONTH As Long = &H20& Const SQL_FN_TD_QUARTER As Long = &H40& Const SQL_FN_TD_WEEK As Long = &H80& Const SQL_FN_TD_YEAR As Long = &H100& Const SQL_FN_TD_CURTIME As Long = &H200& Const SQL_FN_TD_HOUR As Long = &H400& Const SQL_FN_TD_MINUTE As Long = &H800& Const SQL_FN_TD_SECOND As Long = &H1000& ' Const SQL_FN_TD_TIMESTAMPADD As Long = &H2000& Const SQL_FN_TD_TIMESTAMPDIFF As Long = &H4000& Const SQL_FN_TD_DAYNAME As Long = &H8000& Const SQL_FN_TD_MONTHNAME As Long = &H10000 ' System functions Const SQL_FN_SYS_USERNAME As Long = &H1& Const SQL_FN_SYS_DBNAME As Long = &H2& Const SQL_FN_SYS_IFNULL As Long = &H4& ' Timedate intervals Const SQL_FN_TSI_FRAC_SECOND As Long = &H1& Const SQL_FN_TSI_SECOND As Long = &H2& Const SQL_FN_TSI_MINUTE As Long = &H4& Const SQL_FN_TSI_HOUR As Long = &H8& Const SQL_FN_TSI_DAY As Long = &H10& Const SQL_FN_TSI_WEEK As Long = &H20& Const SQL_FN_TSI_MONTH As Long = &H40& Const SQL_FN_TSI_QUARTER As Long = &H80& Const SQL_FN_TSI_YEAR As Long = &H100& ' ODBC API conformance Const SQL_OAC_NONE As Long = 0 Const SQL_OAC_LEVEL1 As Long = 1 Const SQL_OAC_LEVEL2 As Long = 2 ' SAG CLI conformance Const SQL_OSCC_NOT_COMPLIANT As Long = 0 Const SQL_OSCC_COMPLIANT As Long = 1 ' ODBC SQL conformance Const SQL_OSC_MINIMUM As Long = 0 Const SQL_OSC_CORE As Long = 1 Const SQL_OSC_EXTENDED As Long = 2 ' Concatenation behavior Const SQL_CB_NULL As Long = 0 Const SQL_CB_NON_NULL As Long = 1 ' Cursor commit behavior Const SQL_CB_DELETE As Long = 0 Const SQL_CB_CLOSE As Long = 1 Const SQL_CB_PRESERVE As Long = 2 ' Identifier case Const SQL_IC_UPPER As Long = 1 Const SQL_IC_LOWER As Long = 2 Const SQL_IC_SENSITIVE As Long = 3 Const SQL_IC_MIXED As Long = 4 ' Transaction capable Const SQL_TC_NONE As Long = 0 Const SQL_TC_DML As Long = 1 Const SQL_TC_ALL As Long = 2 Const SQL_TC_DDL_COMMIT As Long = 3 Const SQL_TC_DDL_IGNORE As Long = 4 ' Scroll option masks Const SQL_SO_FORWARD_ONLY As Long = &H1& Const SQL_SO_KEYSET_DRIVEN As Long = &H2& Const SQL_SO_DYNAMIC As Long = &H4& Const SQL_SO_MIXED As Long = &H8& Const SQL_SO_STATIC As Long = &H10& ' Scroll concurrency option masks Const SQL_SCCO_READ_ONLY As Long = &H1& Const SQL_SCCO_LOCK As Long = &H2& Const SQL_SCCO_OPT_ROWVER As Long = &H4& Const SQL_SCCO_OPT_VALUES As Long = &H8& ' Fetch direction option masks Const SQL_FD_FETCH_NEXT As Long = &H1& Const SQL_FD_FETCH_FIRST As Long = &H2& Const SQL_FD_FETCH_LAST As Long = &H4& Const SQL_FD_FETCH_PRIOR As Long = &H8& Const SQL_FD_FETCH_ABSOLUTE As Long = &H10& Const SQL_FD_FETCH_RELATIVE As Long = &H20& Const SQL_FD_FETCH_RESUME As Long = &H40& Const SQL_FD_FETCH_BOOKMARK As Long = &H80& ' Transaction isolation option masks Const SQL_TXN_READ_UNCOMMITTED As Long = &H1& Const SQL_TXN_READ_COMMITTED As Long = &H2& Const SQL_TXN_REPEATABLE_READ As Long = &H4& Const SQL_TXN_SERIALIZABLE As Long = &H8& Const SQL_TXN_VERSIONING As Long = &H10& ' Correlation name Const SQL_CN_NONE As Long = 0 Const SQL_CN_DIFFERENT As Long = 1 Const SQL_CN_ANY As Long = 2 ' Non-nullable columns Const SQL_NNC_NULL As Long = 0 Const SQL_NNC_NON_NULL As Long = 1 ' Null collation Const SQL_NC_HIGH As Long = 0 Const SQL_NC_LOW As Long = 1 Const SQL_NC_START As Long = 2 Const SQL_NC_END As Long = 4 ' File usage Const SQL_FILE_NOT_SUPPORTED As Long = 0 Const SQL_FILE_TABLE As Long = 1 Const SQL_FILE_QUALIFIER As Long = 2 ' SQLGetData extensions masks Const SQL_GD_ANY_COLUMN As Long = &H1& Const SQL_GD_ANY_ORDER As Long = &H2& Const SQL_GD_BLOCK As Long = &H4& Const SQL_GD_BOUND As Long = &H8& ' Alter table Const SQL_AT_ADD_COLUMN As Long = 1 Const SQL_AT_DROP_COLUMN As Long = 2 ' Positioned statements masks Const SQL_PS_POSITIONED_DELETE As Long = &H1& Const SQL_PS_POSITIONED_UPDATE As Long = &H2& Const SQL_PS_SELECT_FOR_UPDATE As Long = &H4& ' Group By Const SQL_GB_NOT_SUPPORTED As Long = 0 Const SQL_GB_GROUP_BY_EQUALS_SELECT As Long = 1 Const SQL_GB_GROUP_BY_CONTAINS_SELECT As Long = 2 Const SQL_GB_NO_RELATION As Long = 3 ' Owner usage masks Const SQL_OU_DML_STATEMENTS As Long = &H1& Const SQL_OU_PROCEDURE_INVOCATION As Long = &H2& Const SQL_OU_TABLE_DEFINITION As Long = &H4& Const SQL_OU_INDEX_DEFINITION As Long = &H8& Const SQL_OU_PRIVILEGE_DEFINITION As Long = &H10& ' Qualifier usage masks Const SQL_QU_DML_STATEMENTS As Long = &H1& Const SQL_QU_PROCEDURE_INVOCATION As Long = &H2& Const SQL_QU_TABLE_DEFINITION As Long = &H4& Const SQL_QU_INDEX_DEFINITION As Long = &H8& Const SQL_QU_PRIVILEGE_DEFINITION As Long = &H10& ' Subqueries masks Const SQL_SQ_COMPARISON As Long = &H1& Const SQL_SQ_EXISTS As Long = &H2& Const SQL_SQ_IN As Long = &H4& Const SQL_SQ_QUANTIFIED As Long = &H8& Const SQL_SQ_CORRELATED_SUBQUERIES As Long = &H10& ' Union masks Const SQL_U_UNION As Long = &H1& Const SQL_U_UNION_ALL As Long = &H2& ' Bookmark persistence Const SQL_BP_CLOSE As Long = &H1& Const SQL_BP_DELETE As Long = &H2& Const SQL_BP_DROP As Long = &H4& Const SQL_BP_TRANSACTION As Long = &H8& Const SQL_BP_UPDATE As Long = &H10& Const SQL_BP_OTHER_HSTMT As Long = &H20& Const SQL_BP_SCROLL As Long = &H40& ' Static sensitivity Const SQL_SS_ADDITIONS As Long = &H1& Const SQL_SS_DELETIONS As Long = &H2& Const SQL_SS_UPDATES As Long = &H4& ' Lock types masks Const SQL_LCK_NO_CHANGE As Long = &H1& Const SQL_LCK_EXCLUSIVE As Long = &H2& Const SQL_LCK_UNLOCK As Long = &H4& ' Positioned operations masks Const SQL_POS_POSITION As Long = &H1& Const SQL_POS_REFRESH As Long = &H2& Const SQL_POS_UPDATE As Long = &H4& Const SQL_POS_DELETE As Long = &H8& Const SQL_POS_ADD As Long = &H10& ' Qualifier location Const SQL_QL_START As Long = 1 Const SQL_QL_END As Long = 2 ' Options for SQLGetStmtOption/SQLSetStmtOption Const SQL_QUERY_TIMEOUT As Long = 0 Const SQL_MAX_ROWS As Long = 1 Const SQL_NOSCAN As Long = 2 Const SQL_MAX_LENGTH As Long = 3 Const SQL_ASYNC_ENABLE As Long = 4 Const SQL_BIND_TYPE As Long = 5 Const SQL_CURSOR_TYPE As Long = 6 Const SQL_CONCURRENCY As Long = 7 Const SQL_KEYSET_SIZE As Long = 8 Const SQL_ROWSET_SIZE As Long = 9 Const SQL_SIMULATE_CURSOR As Long = 10 Const SQL_RETRIEVE_DATA As Long = 11 Const SQL_USE_BOOKMARKS As Long = 12 Const SQL_GET_BOOKMARK As Long = 13 Const SQL_ROW_NUMBER As Long = 14 Const SQL_STMT_OPT_MAX As Long = SQL_ROW_NUMBER ' Statement option values & defaults Const SQL_QUERY_TIMEOUT_DEFAULT As Long = 0 Const SQL_MAX_ROWS_DEFAULT As Long = 0 Const SQL_NOSCAN_OFF As Long = 0 Const SQL_NOSCAN_ON As Long = 1 Const SQL_NOSCAN_DEFAULT As Long = SQL_NOSCAN_OFF Const SQL_MAX_LENGTH_DEFAULT As Long = 0 Const SQL_ASYNC_ENABLE_OFF As Long = 0 Const SQL_ASYNC_ENABLE_ON As Long = 1 Const SQL_ASYNC_ENABLE_DEFAULT As Long = SQL_ASYNC_ENABLE_OFF Const SQL_BIND_BY_COLUMN As Long = 0 Const SQL_CONCUR_READ_ONLY As Long = 1 Const SQL_CONCUR_LOCK As Long = 2 Const SQL_CONCUR_ROWVER As Long = 3 Const SQL_CONCUR_VALUES As Long = 4 Const SQL_CURSOR_FORWARD_ONLY As Long = 0 Const SQL_CURSOR_KEYSET_DRIVEN As Long = 1 Const SQL_CURSOR_DYNAMIC As Long = 2 Const SQL_CURSOR_STATIC As Long = 3 Const SQL_ROWSET_SIZE_DEFAULT As Long = 1 Const SQL_KEYSET_SIZE_DEFAULT As Long = 0 Const SQL_SC_NON_UNIQUE As Long = 0 Const SQL_SC_TRY_UNIQUE As Long = 1 Const SQL_SC_UNIQUE As Long = 2 Const SQL_RD_OFF As Long = 0 Const SQL_RD_ON As Long = 1 Const SQL_RD_DEFAULT As Long = SQL_RD_ON Const SQL_UB_OFF As Long = 0 Const SQL_UB_ON As Long = 1 Const SQL_UB_DEFAULT As Long = SQL_UB_ON ' Options for SQLSetConnectOption/SQLGetConnectOption Const SQL_ACCESS_MODE As Long = 101 Const SQL_AUTOCOMMIT As Long = 102 Const SQL_LOGIN_TIMEOUT As Long = 103 Const SQL_OPT_TRACE As Long = 104 Const SQL_OPT_TRACEFILE As Long = 105 Const SQL_TRANSLATE_DLL As Long = 106 Const SQL_TRANSLATE_OPTION As Long = 107 Const SQL_TXN_ISOLATION As Long = 108 Const SQL_CURRENT_QUALIFIER As Long = 109 Const SQL_CONNECT_OPT_DRVR_START As Long = 1000 Const SQL_ODBC_CURSORS As Long = 110 Const SQL_QUIET_MODE As Long = 111 Const SQL_PACKET_SIZE As Long = 112 Const SQL_CONN_OPT_MAX As Long = SQL_PACKET_SIZE Const SQL_CONN_OPT_MIN As Long = SQL_ACCESS_MODE ' Access mode options Const SQL_MODE_READ_WRITE As Long = 0 Const SQL_MODE_READ_ONLY As Long = 1 Const SQL_MODE_DEFAULT As Long = SQL_MODE_READ_WRITE ' Autocommit options Const SQL_AUTOCOMMIT_OFF As Long = 0 Const SQL_AUTOCOMMIT_ON As Long = 1 Const SQL_AUTOCOMMIT_DEFAULT As Long = SQL_AUTOCOMMIT_ON ' Login timeout options Const SQL_LOGIN_TIMEOUT_DEFAULT As Long = 15 ' Trace options Const SQL_OPT_TRACE_OFF As Long = 0 Const SQL_OPT_TRACE_ON As Long = 1 Const SQL_OPT_TRACE_DEFAULT As Long = SQL_OPT_TRACE_OFF Const SQL_OPT_TRACE_FILE_DEFAULT = "\\SQL.LOG" ' Cursor options Const SQL_CUR_USE_IF_NEEDED As Long = 0 Const SQL_CUR_USE_ODBC As Long = 1 Const SQL_CUR_USE_DRIVER As Long = 2 Const SQL_CUR_DEFAULT As Long = SQL_CUR_USE_DRIVER ' Column types and scopes in SQLSpecialColumns. Const SQL_BEST_ROWID As Long = 1 Const SQL_ROWVER As Long = 2 Const SQL_SCOPE_CURROW As Long = 0 Const SQL_SCOPE_TRANSACTION As Long = 1 Const SQL_SCOPE_SESSION As Long = 2 ' Level 2 Functions ' ' SQLExtendedFetch "fFetchType" values Const SQL_FETCH_NEXT As Long = 1 Const SQL_FETCH_FIRST As Long = 2 Const SQL_FETCH_LAST As Long = 3 Const SQL_FETCH_PRIOR As Long = 4 Const SQL_FETCH_ABSOLUTE As Long = 5 Const SQL_FETCH_RELATIVE As Long = 6 Const SQL_FETCH_BOOKMARK As Long = 8 ' SQLExtendedFetch "rgfRowStatus" element values Const SQL_ROW_SUCCESS As Long = 0 Const SQL_ROW_DELETED As Long = 1 Const SQL_ROW_UPDATED As Long = 2 Const SQL_ROW_NOROW As Long = 3 Const SQL_ROW_ADDED As Long = 4 Const SQL_ROW_ERROR As Long = 5 ' Defines for SQLForeignKeys (returned in result set) Const SQL_CASCADE As Long = 0 Const SQL_RESTRICT As Long = 1 Const SQL_SET_NULL As Long = 2 ' Defines for SQLProcedureColumns (returned in the result set) Const SQL_PARAM_TYPE_UNKNOWN As Long = 0 Const SQL_PARAM_INPUT As Long = 1 Const SQL_PARAM_INPUT_OUTPUT As Long = 2 Const SQL_RESULT_COL As Long = 3 Const SQL_PARAM_OUTPUT As Long = 4 ' Defines for SQLStatistics Const SQL_INDEX_UNIQUE As Long = 0 Const SQL_INDEX_ALL As Long = 1 Const SQL_ENSURE As Long = 1 Const SQL_QUICK As Long = 0 ' Defines for SQLStatistics (returned in the result set) Const SQL_TABLE_STAT As Long = 0 Const SQL_INDEX_CLUSTERED As Long = 1 Const SQL_INDEX_HASHED As Long = 2 Const SQL_INDEX_OTHER As Long = 3 ' Procedures Const SQL_PT_UNKNOWN As Long = 0 Const SQL_PT_PROCEDURE As Long = 1 Const SQL_PT_FUNCTION As Long = 2 ' Procedure columns Const SQL_PC_UNKNOWN As Long = 0 Const SQL_PC_NON_PSEUDO As Long = 1 Const SQL_PC_PSEUDO As Long = 2 ' Defines for SQLSetPos Const SQL_ENTIRE_ROWSET As Long = 0 Const SQL_POSITION As Long = 0 Const SQL_REFRESH As Long = 1 Const SQL_UPDATE As Long = 2 Const SQL_DELETE As Long = 3 Const SQL_ADD As Long = 4 ' Lock options Const SQL_LOCK_NO_CHANGE As Long = 0 Const SQL_LOCK_EXCLUSIVE As Long = 1 Const SQL_LOCK_UNLOCK As Long = 2 ' Deprecated constants Const SQL_DATABASE_NAME As Long = 16 Const SQL_FD_FETCH_PREV As Long = SQL_FD_FETCH_PRIOR Const SQL_FETCH_PREV As Long = SQL_FETCH_PRIOR Const SQL_CONCUR_TIMESTAMP As Long = SQL_CONCUR_ROWVER Const SQL_SCCO_OPT_TIMESTAMP As Long = SQL_SCCO_OPT_ROWVER Const SQL_CC_DELETE As Long = SQL_CB_DELETE Const SQL_CR_DELETE As Long = SQL_CB_DELETE Const SQL_CC_CLOSE As Long = SQL_CB_CLOSE Const SQL_CR_CLOSE As Long = SQL_CB_CLOSE Const SQL_CC_PRESERVE As Long = SQL_CB_PRESERVE Const SQL_CR_PRESERVE As Long = SQL_CB_PRESERVE Const SQL_FETCH_RESUME As Long = 7 Const SQL_SCROLL_FORWARD_ONLY As Long = 0 Const SQL_SCROLL_KEYSET_DRIVEN As Long = -1 Const SQL_SCROLL_DYNAMIC As Long = -2 Const SQL_SCROLL_STATIC As Long = -3 ' -- Declares for PDH (Performance Helper Data) Type PDH_COUNTER_PATH_ELEMENTS szMachineName As String szObjectName As String szInstanceName As String szParentInstance As String dwInstanceIndex As Long szCounterName As String End Type ' Duplicates Const ERROR_SUCCESS = 0 ' Pdh Error status return values Const PDH_CSTATUS_VALID_DATA = &H20000000 Const PDH_CSTATUS_NEW_DATA = &H20000001 Const PDH_CSTATUS_NO_MACHINE = &HA00007D0 Const PDH_CSTATUS_NO_INSTANCE = &HA00007D1 Const PDH_MORE_DATA = &HA00007D2 Const PDH_CSTATUS_ITEM_NOT_VALIDATED = &HA00007D3 Const PDH_RETRY = &HA00007D4 Const PDH_NO_DATA = &HA00007D5 Const PDH_CALC_NEGATIVE_DENOMINATOR = &HA00007D6 Const PDH_CALC_NEGATIVE_TIMEBASE = &HA00007D7 Const PDH_CALC_NEGATIVE_VALUE = &HA00007D8 Const PDH_DIALOG_CANCELLED = &HA00007D9 Const PDH_CSTATUS_NO_OBJECT = &HE0000BB8 Const PDH_CSTATUS_NO_COUNTER = &HE0000BB9 Const PDH_CSTATUS_INVALID_DATA = &HE0000BBA Const PDH_MEMORY_ALLOCATION_FAILURE = &HE0000BBB Const PDH_INVALID_HANDLE = &HE0000BBC Const PDH_INVALID_ARGUMENT = &HE0000BBD Const PDH_FUNCTION_NOT_FOUND = &HE0000BBE Const PDH_CSTATUS_NO_COUNTERNAME = &HE0000BBF Const PDH_CSTATUS_BAD_COUNTERNAME = &HE0000BC0 Const PDH_INVALID_BUFFER = &HE0000BC1 Const PDH_INSUFFICIENT_BUFFER = &HE0000BC2 Const PDH_CANNOT_CONNECT_MACHINE = &HE0000BC3 Const PDH_INVALID_PATH = &HE0000BC4 Const PDH_INVALID_INSTANCE = &HE0000BC5 Const PDH_INVALID_DATA = &HE0000BC6 Const PDH_NO_DIALOG_DATA = &HE0000BC7 Const PDH_CANNOT_READ_NAME_STRINGS = &HE0000BC8 ' Duplicates Const PERF_DETAIL_NOVICE = 100 'Counter Browser Detail Level Definitions ' Duplicates Const PERF_DETAIL_ADVANCED = 200 ' Duplicates Const PERF_DETAIL_EXPERT = 300 ' Duplicates Const PERF_DETAIL_WIZARD = 400 Declare Function PdhMakeCounterPath Lib "pdh.dll" Alias "PdhMakeCounterPathA" (pe As PDH_COUNTER_PATH_ELEMENTS, ByVal szFullPathBuffer As String, pcchBufferSize As Long, ByVal dwFlags As Long) As Long Declare Function PdhOpenQuery Lib "pdh.dll" Alias "PdhVbOpenQuery" (ByRef QueryHandle As Long) As Long Declare Function PdhAddCounter Lib "pdh.dll" Alias "PdhVbAddCounter" (ByVal QueryHandle As Long, ByVal CounterPath As String, ByRef CounterHandle As Long) As Long Declare Function PdhRemoveCounter Lib "pdh.dll" (ByVal CounterHandle As Long) As Long Declare Function PdhCollectQueryData Lib "pdh.dll" (ByVal QueryHandle As Long) As Long Declare Function PdhCloseQuery Lib "pdh.dll" (ByVal QueryHandle As Long) As Long Declare Function PdhGetDoubleCounterValue Lib "pdh.dll" Alias "PdhVbGetDoubleCounterValue" (ByVal CounterHandle As Long, ByRef CounterStatus As Long) As Double Declare Function PdhGetOneCounterPath Lib "pdh.dll" Alias "PdhVbGetOneCounterPath" (ByVal PathString As String, ByVal PathLength As Long, ByVal DetailLevel As Long, ByVal CaptionString As String) As Long Declare Function PdhCreateCounterPathList Lib "pdh.dll" Alias "PdhVbCreateCounterPathList" (ByVal DetailLevel As Long, ByVal CaptionString As String) As Long Declare Function PdhGetCounterPathFromList Lib "pdh.dll" Alias "PdhVbGetCounterPathFromList" (ByVal Index As Long, ByVal Buffer As String, ByVal BufferLength As Long) As Long Declare Function PdhGetCounterPathElements Lib "pdh.dll" Alias "PdhVbGetCounterPathElements" (ByVal PathString As String, ByVal MachineName As String, ByVal ObjectName As String, ByVal InstanceName As String, ByVal ParentInstance As String, ByVal CounterName As String, ByVal BufferSize As Long) As Long Declare Function PdhIsGoodStatus Lib "pdh.dll" Alias "PdhVbIsGoodStatus" (ByVal StatusValue As Long) As Long