Changeset 170 for Include/api_system.sbp


Ignore:
Timestamp:
Mar 16, 2007, 10:01:14 AM (18 years ago)
Author:
イグトランス (egtra)
Message:

winnt.ab, windef.ab, guiddef.abを導入

File:
1 edited

Legend:

Unmodified
Added
Removed

  • Include/api_system.sbp

    r160 r170  
    143143'-------------------
    144144' default constants
    145 Const NULL = 0
    146 Const TRUE = 1
    147 Const FALSE = 0
    148 
    149 Const _System_TRUE = -1
    150 Const _System_FALSE = 0
    151 
    152 Const MAX_PATH = 260
    153145Const INVALID_HANDLE_VALUE = -1 As HANDLE
    154146Const INVALID_SET_FILE_POINTER = &HFFFFFFFF
    155147
    156 Const SYNCHRONIZE = &H00100000
    157 Const STANDARD_RIGHTS_REQUIRED = &H000F0000
    158 
    159 Const MAXIMUM_WAIT_OBJECTS = 64
    160 
    161148'-----------------
    162149' data structs
    163 Type LARGE_INTEGER
    164     LowPart As DWord
    165     HighPart As Long
    166 End Type
    167 Type ULARGE_INTEGER
    168     LowPart As DWord
    169     HighPart As DWord
    170 End Type
    171 
    172 
    173 'Globally Unique Identifier 128 bit(16 byte)
    174 Type GUID
    175     Data1 As DWord
    176     Data2 As Word
    177     Data3 As Word
    178     Data4[7] As Byte
    179 End Type
     150
     151'variable type - System
     152TypeDef HFILE = Long
     153Type _System_DeclareHandle_HANDLE:unused As DWord:End Type
     154TypeDef HRSRC = *_System_DeclareHandle_HANDLE
    180155
    181156' File structure
    … …  
    192167    OffsetHigh As DWord
    193168    hEvent As HANDLE
    194 End Type
    195 
    196 Type FILETIME
    197     dwLowDateTime As DWord
    198     dwHighDateTime As DWord
    199169End Type
    200170
    … …  
    210180    wMilliseconds As Word
    211181End Type
    212 
    213 #ifdef _WIN64
    214 Const CONTEXT_AMD64 = &h100000
    215 
    216 Const CONTEXT_CONTROL = (CONTEXT_AMD64 Or &h1)
    217 Const CONTEXT_INTEGER = (CONTEXT_AMD64 Or &h2)
    218 Const CONTEXT_SEGMENTS = (CONTEXT_AMD64 Or &h4)
    219 Const CONTEXT_FLOATING_POINT = (CONTEXT_AMD64 Or &h8)
    220 Const CONTEXT_DEBUG_REGISTERS = (CONTEXT_AMD64 Or &h10)
    221 
    222 Const CONTEXT_FULL = (CONTEXT_CONTROL Or CONTEXT_INTEGER Or CONTEXT_FLOATING_POINT)
    223 
    224 Const CONTEXT_ALL = (CONTEXT_CONTROL Or CONTEXT_INTEGER Or CONTEXT_SEGMENTS Or CONTEXT_FLOATING_POINT Or CONTEXT_DEBUG_REGISTERS)
    225 
    226 Type Align(16) M128
    227     Low As QWord
    228     High As Int64
    229 End Type
    230 
    231 Type LEGACY_SAVE_AREA 'Winnt.h
    232     ControlWord As Word
    233     Reserved0 As Word
    234     StatusWord As Word
    235     Reserved1 As Word
    236     TagWord As Word
    237     Reserved2 As Word
    238     ErrorOffset As DWord
    239     ErrorSelector As Word
    240     ErrorOpcode As Word
    241     DataOffset As DWord
    242     DataSelector As Word
    243     Reserved3 As Word
    244     FloatRegisters[ELM(8 * 10)] As Byte
    245 End Type
    246 
    247 Type Align(16) CONTEXT 'Winnt.h
    248     'Register parameter home addresses.
    249     P1Home As QWord
    250     P2Home As QWord
    251     P3Home As QWord
    252     P4Home As QWord
    253     P5Home As QWord
    254     P6Home As QWord
    255     'Control flags.
    256     ContextFlags As DWord
    257     MxCsr As DWord
    258     'Segment Registers and processor flags.
    259     SegCs As Word
    260     SegDs As Word
    261     SegEs As Word
    262     SegFs As Word
    263     SegGs As Word
    264     SegSs As Word
    265     EFlags As DWord
    266     'Debug registers
    267     Dr0 As QWord
    268     Dr1 As QWord
    269     Dr2 As QWord
    270     Dr3 As QWord
    271     Dr6 As QWord
    272     Dr7 As QWord
    273     'Integer registers.
    274     Rax As QWord
    275     Rcx As QWord
    276     Rdx As QWord
    277     Rbx As QWord
    278     Rsp As QWord
    279     Rbp As QWord
    280     Rsi As QWord
    281     Rdi As QWord
    282     R8 As QWord
    283     R9 As QWord
    284     R10 As QWord
    285     R11 As QWord
    286     R12 As QWord
    287     R13 As QWord
    288     R14 As QWord
    289     R15 As QWord
    290     'Program counter.
    291     Rip As QWord
    292     'MMX/floating point state.
    293     Header[ELM(2)] As M128
    294     Legacy[ELM(8)] As M128
    295     Xmm0 As M128
    296     Xmm1 As M128
    297     Xmm2 As M128
    298     Xmm3 As M128
    299     Xmm4 As M128
    300     Xmm5 As M128
    301     Xmm6 As M128
    302     Xmm7 As M128
    303     Xmm8 As M128
    304     Xmm9 As M128
    305     Xmm10 As M128
    306     Xmm11 As M128
    307     Xmm12 As M128
    308     Xmm13 As M128
    309     Xmm14 As M128
    310     Xmm15 As M128
    311     Reserve[ELM(96)] As Byte
    312     'Vector registers
    313     VectorRegisters[ELM(26)] As M128
    314     VectorControl As QWord
    315     'Special debug control registers.
    316     DebugControl As QWord
    317     LastBranchToRip As QWord
    318     LastBranchFromRip As QWord
    319     LastExceptionToRip As QWord
    320     LastExceptionFromRip As QWord
    321 End Type
    322 
    323 #else
    324 
    325 Const SIZE_OF_80387_REGISTERS = 80
    326 Const MAXIMUM_SUPPORTED_EXTENSION = 512
    327 
    328 Type FLOATING_SAVE_AREA
    329     ControlWord As DWord
    330     StatusWord As DWord
    331     TagWord As DWord
    332     ErrorOffset As DWord
    333     ErrorSelector As DWord
    334     DataOffset As DWord
    335     DataSelector As DWord
    336     RegisterArea[ELM(SIZE_OF_80387_REGISTERS)] As Byte
    337     Cr0NpxState As DWord
    338 End Type
    339 
    340 Const CONTEXT_i386 = &h00010000
    341 Const CONTEXT_i486 = &h00010000
    342 
    343 Const CONTEXT_CONTROL = (CONTEXT_i386 Or &h00000001) 'SS:SP, CS:IP, FLAGS, BP
    344 Const CONTEXT_INTEGER = (CONTEXT_i386 Or &h00000002) 'AX, BX, CX, DX, SI, DI
    345 Const CONTEXT_SEGMENTS = (CONTEXT_i386 Or &h00000004) 'DS, ES, FS, GS
    346 Const CONTEXT_FLOATING_POINT = (CONTEXT_i386 Or &h00000008) '387 state
    347 Const CONTEXT_DEBUG_REGISTERS = (CONTEXT_i386 Or &h00000010) 'DB 0-3,6,7
    348 Const CONTEXT_EXTENDED_REGISTERS = (CONTEXT_i386 Or &h0000002) 'cpu specific extensions
    349 
    350 Const CONTEXT_FULL = (CONTEXT_CONTROL Or CONTEXT_INTEGER Or CONTEXT_SEGMENTS)
    351 
    352 Const CONTEXT_ALL = (CONTEXT_CONTROL Or CONTEXT_INTEGER Or CONTEXT_SEGMENTS Or CONTEXT_FLOATING_POINT Or CONTEXT_DEBUG_REGISTERS Or CONTEXT_EXTENDED_REGISTERS)
    353 
    354 Type CONTEXT
    355     ContextFlags As DWord
    356 
    357     Dr0 As DWord
    358     Dr1 As DWord
    359     Dr2 As DWord
    360     Dr3 As DWord
    361     Dr6 As DWord
    362     Dr7 As DWord
    363 
    364     FloatSave As FLOATING_SAVE_AREA
    365 
    366     SegGs As DWord
    367     SegFs As DWord
    368     SegEs As DWord
    369     SegDs As DWord
    370 
    371     Edi As DWord
    372     Esi As DWord
    373     Ebx As DWord
    374     Edx As DWord
    375     Ecx As DWord
    376     Eax As DWord
    377 
    378     Ebp As DWord
    379     Eip As DWord
    380     SegCs As DWord
    381     EFlags As DWord
    382     Esp As DWord
    383     SegSs As DWord
    384 
    385     ExtendedRegisters[ELM(MAXIMUM_SUPPORTED_EXTENSION)] As Byte
    386 End Type
    387 
    388 #endif
    389182
    390183' Global Memory Flags
    … …  
    404197Const GMEM_DISCARDED =      &H4000
    405198
    406 
    407 ' Heap
    408 Const HEAP_NO_SERIALIZE =             &H00000001
    409 Const HEAP_GROWABLE =                 &H00000002
    410 Const HEAP_GENERATE_EXCEPTIONS =      &H00000004
    411 Const HEAP_ZERO_MEMORY =              &H00000008
    412 Const HEAP_REALLOC_IN_PLACE_ONLY =    &H00000010
    413 
    414 
    415 ' Locale
    416 Const LOCALE_SYSTEM_DEFAULT = &H400 'Standard Systemsprache
    417 Const LOCALE_USER_DEFAULT =   &H800 'Standard Benutzersprache
    418 
    419 
    420199' Locale flag
    421200Const LOCALE_NOUSEROVERRIDE = &H80000000
    422 
    423201
    424202'Critical Section
    … …  
    432210End Type
    433211
    434 
    435 'DllMain
    436 Const DLL_PROCESS_ATTACH = 1
    437 Const DLL_THREAD_ATTACH =  2
    438 Const DLL_THREAD_DETACH =  3
    439 Const DLL_PROCESS_DETACH = 0
    440 
    441 'Event
    442 Const EVENT_MODIFY_STATE = &H0002
    443 Const EVENT_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &H3)
    444 
    445212'Mutex
    446 Const MUTANT_QUERY_STATE = &H0001
    447 Const MUTANT_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or MUTANT_QUERY_STATE)
    448213Const MUTEX_ALL_ACCESS = MUTANT_ALL_ACCESS
    449 
    450 'Semaphore
    451 Const SEMAPHORE_MODIFY_STATE = &H0002
    452 Const SEMAPHORE_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &H3)
    453 
    454 'Timer
    455 Const TIMER_QUERY_STATE = &H0001
    456 Const TIMER_MODIFY_STATE = &H0002
    457 Const TIMER_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or TIMER_QUERY_STATE Or TIMER_MODIFY_STATE)
    458214
    459215'----------------------
    … …  
    506262Declare Function CancelWaitableTimer Lib "kernel32" (hTimer As HANDLE) As BOOL
    507263
    508 Const GENERIC_READ =  &H80000000
    509 Const GENERIC_WRITE = &H40000000
    510 Const FILE_SHARE_READ =               &H00000001
    511 Const FILE_SHARE_WRITE =              &H00000002
    512 Const FILE_SHARE_DELETE =             &H00000004
    513264Const CREATE_NEW =        1
    514265Const CREATE_ALWAYS =     2
    … …  
    516267Const OPEN_ALWAYS =       4
    517268Const TRUNCATE_EXISTING = 5
    518 Const FILE_ATTRIBUTE_READONLY =            &H00000001
    519 Const FILE_ATTRIBUTE_HIDDEN =              &H00000002
    520 Const FILE_ATTRIBUTE_SYSTEM =              &H00000004
    521 Const FILE_ATTRIBUTE_DIRECTORY =           &H00000010
    522 Const FILE_ATTRIBUTE_ARCHIVE =             &H00000020
    523 Const FILE_ATTRIBUTE_ENCRYPTED =           &H00000040
    524 Const FILE_ATTRIBUTE_NORMAL =              &H00000080
    525 Const FILE_ATTRIBUTE_TEMPORARY =           &H00000100
    526 Const FILE_ATTRIBUTE_SPARSE_FILE =         &H00000200
    527 Const FILE_ATTRIBUTE_REPARSE_POINT =       &H00000400
    528 Const FILE_ATTRIBUTE_COMPRESSED =          &H00000800
    529 Const FILE_ATTRIBUTE_OFFLINE =             &H00001000
    530269Const FILE_FLAG_WRITE_THROUGH =       &H80000000
    531270Const FILE_FLAG_OVERLAPPED =          &H40000000
    … …  
    540279Declare Function CreateFile Lib "kernel32" Alias _FuncName_CreateFile (pFileName As PCTSTR, dwDesiredAccess As DWord, dwShareMode As DWord, ByRef lpSecurityAttributes As SECURITY_ATTRIBUTES, dwCreationDisposition As DWord, dwFlagsAndAttributes As DWord, hTemplateFile As HANDLE) As HANDLE
    541280
    542 Const SECTION_QUERY = &H0001
    543 Const SECTION_MAP_WRITE = &H0002
    544 Const SECTION_MAP_READ = &H0004
    545 Const SECTION_MAP_EXECUTE = &H0008
    546 Const SECTION_EXTEND_SIZE = &H0010
    547 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)
    548 
    549281Const FILE_MAP_COPY   = SECTION_QUERY
    550282Const FILE_MAP_WRITE   = SECTION_MAP_WRITE
    … …  
    557289Declare Function FlushViewOfFile Lib "kernel32" (lpBaseAddress As VoidPtr, dwNumberOfBytesToFlush As DWord) As BOOL
    558290Declare Function UnmapViewOfFile Lib "kernel32" (lpBaseAddress As VoidPtr) As BOOL
    559 
    560 Const MAILSLOT_WAIT_FOREVER = &HFFFFFFFF
    561291Declare Function CreateMailslot Lib "kernel32" Alias _FuncName_CreateMailslot (pName As PCTSTR, nMaxMessageSize As DWord, lReadTimeout As DWord, pSecurityAttributes As *SECURITY_ATTRIBUTES) As HANDLE
    562292
    … …  
    662392Declare Function DisableThreadLibraryCalls Lib "kernel32" (hLibModule As HINSTANCE) As BOOL
    663393Declare Function DosDateTimeToFileTime Lib "kernel32" (wFatDate As Word, wFatTime As Word, ByRef FileTime As FILETIME) As BOOL
    664 
    665 Const DUPLICATE_CLOSE_SOURCE = 1
    666 Const DUPLICATE_SAME_ACCESS  = 2
    667394Declare Function DuplicateHandle Lib "kernel32" (hSourceProcessHandle As HANDLE, hSourceHandle As HANDLE, hTargetProcessHandle As HANDLE, ByRef TargetHandle As HANDLE, dwDesiredAccess As DWord, bInheritHandle As BOOL, dwOptions As DWord) As BOOL
    668 
    669395Declare Sub EnterCriticalSection Lib "kernel32" (ByRef lpCriticalSection As CRITICAL_SECTION)
    670396Declare Sub ExitProcess Lib "kernel32" (dwExitCode As DWord)
    … …  
    869595Declare Function GetTempPath Lib "kernel32" Alias _FuncName_GetTempPath (nBufferLength As DWord, lpBuffer As PTSTR) As DWord
    870596Declare Function GetThreadContext Lib "kernel32" (hThread As HANDLE, ByRef Context As CONTEXT) As BOOL
    871 
    872 Const THREAD_BASE_PRIORITY_LOWRT =  15
    873 Const THREAD_BASE_PRIORITY_MAX =    2
    874 Const THREAD_BASE_PRIORITY_MIN =   -2
    875 Const THREAD_BASE_PRIORITY_IDLE =  -15
     597/*
    876598Const THREAD_PRIORITY_LOWEST =        THREAD_BASE_PRIORITY_MIN
    877599Const THREAD_PRIORITY_BELOW_NORMAL =  THREAD_PRIORITY_LOWEST+1
    … …  
    882604Const THREAD_PRIORITY_TIME_CRITICAL = THREAD_BASE_PRIORITY_LOWRT
    883605Const THREAD_PRIORITY_IDLE =          THREAD_BASE_PRIORITY_IDLE
     606*/
    884607Declare Function GetThreadPriority Lib "kernel32" (hThread As HANDLE) As Long
    885608Declare Function GetThreadPriorityBoost Lib "kernel32" (
    … …  
    895618Declare Function GetUserDefaultLCID Lib "kernel32" () As LCID
    896619Declare Function GetUserName Lib "advapi32" Alias _FuncName_GetUserName (pBuffer As PTSTR, ByRef nSize As DWord) As BOOL
    897 
    898 Const VER_PLATFORM_WIN32s        = 0
    899 Const VER_PLATFORM_WIN32_WINDOWS = 1
    900 Const VER_PLATFORM_WIN32_NT      = 2
    901 Const VER_PLATFORM_WIN32_CE      = 3
    902 Type OSVERSIONINFOW
    903     dwOSVersionInfoSize As DWord
    904     dwMajorVersion As DWord
    905     dwMinorVersion As DWord
    906     dwBuildNumber As DWord
    907     dwPlatformId As DWord
    908     szCSDVersion[ELM(128)] As WCHAR
    909 End Type
    910 Type OSVERSIONINFOA
    911     dwOSVersionInfoSize As DWord
    912     dwMajorVersion As DWord
    913     dwMinorVersion As DWord
    914     dwBuildNumber As DWord
    915     dwPlatformId As DWord
    916     szCSDVersion[ELM(128)] As SByte
    917 End Type
    918 #ifdef UNICODE
    919 TypeDef OSVERSIONINFO = OSVERSIONINFOW
    920 #else
    921 TypeDef OSVERSIONINFO = OSVERSIONINFOA
    922 #endif
    923620Declare Function GetVersionEx Lib "kernel32" Alias _FuncName_GetVersionEx (ByRef VersionInformation As OSVERSIONINFO) As BOOL
    924 
    925621Declare Function GetWindowsDirectory Lib "kernel32" Alias _FuncName_GetWindowsDirectory (pBuffer As PTSTR, uSize As DWord) As DWord
    926622Declare Function GlobalAlloc Lib "kernel32" (uFlags As DWord, dwBytes As SIZE_T) As HGLOBAL
    … …  
    1022718
    1023719Declare Function MultiByteToWideChar Lib "kernel32" (CodePage As DWord, dwFlags As DWord, pMultiByteStr As PCSTR, cchMultiByte As Long, pWideCharStr As PWSTR, cchWideChar As Long) As Long
    1024 
    1025720Declare Function OpenEvent Lib "kernel32" Alias _FuncName_OpenEvent (dwDesiredAccess As DWord, bInheritHandle As BOOL, lpName As LPCTSTR) As HANDLE
    1026721Declare Function OpenMutex Lib "kernel32" Alias _FuncName_OpenMutex (dwDesiredAccess As DWord, bInheritHandle As BOOL, lpName As LPCTSTR) As HANDLE
    1027722Declare Function OpenSemaphore Lib "kernel32" Alias _FuncName_OpenSemaphore (dwDesiredAccess As DWord, bInheritHandle As BOOL, lpName As LPCTSTR) As HANDLE
    1028 
    1029 Const PROCESS_TERMINATE =         &H0001
    1030 Const PROCESS_CREATE_THREAD =     &H0002
    1031 Const PROCESS_SET_SESSIONID =     &H0004
    1032 Const PROCESS_VM_OPERATION =      &H0008
    1033 Const PROCESS_VM_READ =           &H0010
    1034 Const PROCESS_VM_WRITE =          &H0020
    1035 Const PROCESS_DUP_HANDLE =        &H0040
    1036 Const PROCESS_CREATE_PROCESS =    &H0080
    1037 Const PROCESS_SET_QUOTA =         &H0100
    1038 Const PROCESS_SET_INFORMATION =   &H0200
    1039 Const PROCESS_QUERY_INFORMATION = &H0400
    1040 Const PROCESS_ALL_ACCESS =        STANDARD_RIGHTS_REQUIRED or SYNCHRONIZE or &HFFF
    1041723Declare Function OpenProcess Lib "kernel32" (dwDesiredAccess As DWord, bInheritHandle As Long, dwProcessId As DWord) As HANDLE
    1042 
    1043724Declare Sub OutputDebugStringA Lib "kernel32" (pOutputString As PCSTR)
    1044725Declare Sub OutputDebugStringW Lib "kernel32" (pOutputString As PCWSTR)
    … …  
    1092773) As BOOL
    1093774
    1094 Const EXCEPTION_MAXIMUM_PARAMETERS = 15
    1095 
    1096 Type EXCEPTION_RECORD
    1097     ExceptionCode As DWord
    1098     ExceptionFlags As DWord
    1099     ExceptionRecord As *EXCEPTION_RECORD
    1100     ExceptionAddress As VoidPtr
    1101     NumberParameters As DWord
    1102     ExceptionInformation[ELM(EXCEPTION_MAXIMUM_PARAMETERS)] As ULONG_PTR
    1103 End Type
    1104 
    1105 Type EXCEPTION_POINTERS
    1106     ExceptionRecord As *EXCEPTION_RECORD
    1107     ContextRecord As *CONTEXT
    1108 End Type
    1109 
    1110775TypeDef PTOP_LEVEL_EXCEPTION_FILTER = *Function(ByRef ExceptionInfo As EXCEPTION_POINTERS) As Long
    1111776
    … …  
    1126791Declare Function UnlockFile Lib "kernel32" (hFile As HANDLE, dwFileOffsetLow As DWord, dwFileOffsetHigh As DWord, nNumberOfBytesToUnlockLow As DWord, nNumberOfBytesToUnlockHigh As DWord) As BOOL
    1127792Declare Function UnhandledExceptionFilter Lib "kernel32" (ByRef ExceptionInfo As EXCEPTION_POINTERS) As Long
    1128 
    1129 Const PAGE_NOACCESS =          &H01
    1130 Const PAGE_READONLY =          &H02
    1131 Const PAGE_READWRITE =         &H04
    1132 Const PAGE_WRITECOPY =         &H08
    1133 Const PAGE_EXECUTE =           &H10
    1134 Const PAGE_EXECUTE_READ =      &H20
    1135 Const PAGE_EXECUTE_READWRITE = &H40
    1136 Const PAGE_EXECUTE_WRITECOPY = &H80
    1137 Const PAGE_GUARD =             &H100
    1138 Const PAGE_NOCACHE =           &H200
    1139 Const PAGE_WRITECOMBINE =      &H400
    1140 Const MEM_COMMIT =    &H1000
    1141 Const MEM_RESERVE =   &H2000
    1142 Const MEM_DECOMMIT =  &H4000
    1143 Const MEM_RELEASE =   &H8000
    1144 Const MEM_FREE =      &H10000
    1145 Const MEM_PRIVATE =   &H20000
    1146 Const MEM_MAPPED =    &H40000
    1147 Const MEM_RESET =     &H80000
    1148 Const MEM_TOP_DOWN =  &H100000
    1149 Const MEM_4MB_PAGES = &H80000000
    1150793Declare Function VirtualAlloc Lib "kernel32" (lpAddress As VoidPtr, dwSize As SIZE_T, flAllocationType As DWord, flProtect As DWord) As VoidPtr
    1151794Declare Function VirtualFree Lib "kernel32" (lpAddress As VoidPtr, dwSize As SIZE_T, dwFreeType As DWord) As BOOL
    … …  
    1164807    ByRef flOldProtect As DWord
    1165808) As BOOL
    1166 Type MEMORY_BASIC_INFORMATION
    1167     BaseAddress As VoidPtr
    1168     AllocationBase As VoidPtr
    1169     AllocationProtect As DWord
    1170     RegionSize As SIZE_T
    1171     State As DWord
    1172     Protect As DWord
    1173     MBIType As DWord
    1174 End Type
    1175809Declare Function VirtualQuery Lib "kernel32" (
    1176810    pAddress As VoidPtr,
    … …  
    1209843Declare Sub ZeroMemory Lib "kernel32" Alias "RtlZeroMemory" (Destination As VoidPtr, dwLength As DWord)
    1210844
    1211 Const MAKELCID(lgid, srtid) = ((((srtid As Word) As DWord)<<16) or ((lgid As Word) As DWord))
    1212 Const MAKELANGID(p, s)    =  (((s As Word) << 10) or (p As Word))
    1213 Const PRIMARYLANGID(lgid) =  ((lgid As Word) and &H3ff)
    1214 Const SUBLANGID(lgid)     =  ((lgid As Word) >> 10)
    1215 
    1216 
    1217 '
    1218 '  Primary language IDs.
    1219 '
    1220 
    1221 Const LANG_NEUTRAL                     = &H00
    1222 Const LANG_INVARIANT                   = &H7f
    1223 
    1224 Const LANG_AFRIKAANS                   = &H36
    1225 Const LANG_ALBANIAN                    = &H1c
    1226 Const LANG_ARABIC                      = &H01
    1227 Const LANG_ARMENIAN                    = &H2b
    1228 Const LANG_ASSAMESE                    = &H4d
    1229 Const LANG_AZERI                       = &H2c
    1230 Const LANG_BASQUE                      = &H2d
    1231 Const LANG_BELARUSIAN                  = &H23
    1232 Const LANG_BENGALI                     = &H45
    1233 Const LANG_BULGARIAN                   = &H02
    1234 Const LANG_CATALAN                     = &H03
    1235 Const LANG_CHINESE                     = &H04
    1236 Const LANG_CROATIAN                    = &H1a
    1237 Const LANG_CZECH                       = &H05
    1238 Const LANG_DANISH                      = &H06
    1239 Const LANG_DIVEHI                      = &H65
    1240 Const LANG_DUTCH                       = &H13
    1241 Const LANG_ENGLISH                     = &H09
    1242 Const LANG_ESTONIAN                    = &H25
    1243 Const LANG_FAEROESE                    = &H38
    1244 Const LANG_FARSI                       = &H29
    1245 Const LANG_FINNISH                     = &H0b
    1246 Const LANG_FRENCH                      = &H0c
    1247 Const LANG_GALICIAN                    = &H56
    1248 Const LANG_GEORGIAN                    = &H37
    1249 Const LANG_GERMAN                      = &H07
    1250 Const LANG_GREEK                       = &H08
    1251 Const LANG_GUJARATI                    = &H47
    1252 Const LANG_HEBREW                      = &H0d
    1253 Const LANG_HINDI                       = &H39
    1254 Const LANG_HUNGARIAN                   = &H0e
    1255 Const LANG_ICELANDIC                   = &H0f
    1256 Const LANG_INDONESIAN                  = &H21
    1257 Const LANG_ITALIAN                     = &H10
    1258 Const LANG_JAPANESE                    = &H11
    1259 Const LANG_KANNADA                     = &H4b
    1260 Const LANG_KASHMIRI                    = &H60
    1261 Const LANG_KAZAK                       = &H3f
    1262 Const LANG_KONKANI                     = &H57
    1263 Const LANG_KOREAN                      = &H12
    1264 Const LANG_KYRGYZ                      = &H40
    1265 Const LANG_LATVIAN                     = &H26
    1266 Const LANG_LITHUANIAN                  = &H27
    1267 Const LANG_MACEDONIAN                  = &H2f   ' the Former Yugoslav Republic of Macedonia
    1268 Const LANG_MALAY                       = &H3e
    1269 Const LANG_MALAYALAM                   = &H4c
    1270 Const LANG_MANIPURI                    = &H58
    1271 Const LANG_MARATHI                     = &H4e
    1272 Const LANG_MONGOLIAN                   = &H50
    1273 Const LANG_NEPALI                      = &H61
    1274 Const LANG_NORWEGIAN                   = &H14
    1275 Const LANG_ORIYA                       = &H48
    1276 Const LANG_POLISH                      = &H15
    1277 Const LANG_PORTUGUESE                  = &H16
    1278 Const LANG_PUNJABI                     = &H46
    1279 Const LANG_ROMANIAN                    = &H18
    1280 Const LANG_RUSSIAN                     = &H19
    1281 Const LANG_SANSKRIT                    = &H4f
    1282 Const LANG_SERBIAN                     = &H1a
    1283 Const LANG_SINDHI                      = &H59
    1284 Const LANG_SLOVAK                      = &H1b
    1285 Const LANG_SLOVENIAN                   = &H24
    1286 Const LANG_SPANISH                     = &H0a
    1287 Const LANG_SWAHILI                     = &H41
    1288 Const LANG_SWEDISH                     = &H1d
    1289 Const LANG_SYRIAC                      = &H5a
    1290 Const LANG_TAMIL                       = &H49
    1291 Const LANG_TATAR                       = &H44
    1292 Const LANG_TELUGU                      = &H4a
    1293 Const LANG_THAI                        = &H1e
    1294 Const LANG_TURKISH                     = &H1f
    1295 Const LANG_UKRAINIAN                   = &H22
    1296 Const LANG_URDU                        = &H20
    1297 Const LANG_UZBEK                       = &H43
    1298 Const LANG_VIETNAMESE                  = &H2a
    1299 
    1300 '
    1301 '  Sublanguage IDs.
    1302 '
    1303 '  The name immediately following SUBLANG_ dictates which primary
    1304 '  language ID that sublanguage ID can be combined with to form a
    1305 '  valid language ID.
    1306 '
    1307 
    1308 Const SUBLANG_NEUTRAL                  = &H00    ' language neutral
    1309 Const SUBLANG_DEFAULT                  = &H01    ' user default
    1310 Const SUBLANG_SYS_DEFAULT              = &H02    ' system default
    1311 
    1312 Const SUBLANG_ARABIC_SAUDI_ARABIA      = &H01    ' Arabic (Saudi Arabia)
    1313 Const SUBLANG_ARABIC_IRAQ              = &H02    ' Arabic (Iraq)
    1314 Const SUBLANG_ARABIC_EGYPT             = &H03    ' Arabic (Egypt)
    1315 Const SUBLANG_ARABIC_LIBYA             = &H04    ' Arabic (Libya)
    1316 Const SUBLANG_ARABIC_ALGERIA           = &H05    ' Arabic (Algeria)
    1317 Const SUBLANG_ARABIC_MOROCCO           = &H06    ' Arabic (Morocco)
    1318 Const SUBLANG_ARABIC_TUNISIA           = &H07    ' Arabic (Tunisia)
    1319 Const SUBLANG_ARABIC_OMAN              = &H08    ' Arabic (Oman)
    1320 Const SUBLANG_ARABIC_YEMEN             = &H09    ' Arabic (Yemen)
    1321 Const SUBLANG_ARABIC_SYRIA             = &H0a    ' Arabic (Syria)
    1322 Const SUBLANG_ARABIC_JORDAN            = &H0b    ' Arabic (Jordan)
    1323 Const SUBLANG_ARABIC_LEBANON           = &H0c    ' Arabic (Lebanon)
    1324 Const SUBLANG_ARABIC_KUWAIT            = &H0d    ' Arabic (Kuwait)
    1325 Const SUBLANG_ARABIC_UAE               = &H0e    ' Arabic (U.A.E)
    1326 Const SUBLANG_ARABIC_BAHRAIN           = &H0f    ' Arabic (Bahrain)
    1327 Const SUBLANG_ARABIC_QATAR             = &H10    ' Arabic (Qatar)
    1328 Const SUBLANG_AZERI_LATIN              = &H01    ' Azeri (Latin)
    1329 Const SUBLANG_AZERI_CYRILLIC           = &H02    ' Azeri (Cyrillic)
    1330 Const SUBLANG_CHINESE_TRADITIONAL      = &H01    ' Chinese (Taiwan)
    1331 Const SUBLANG_CHINESE_SIMPLIFIED       = &H02    ' Chinese (PR China)
    1332 Const SUBLANG_CHINESE_HONGKONG         = &H03    ' Chinese (Hong Kong S.A.R., P.R.C.)
    1333 Const SUBLANG_CHINESE_SINGAPORE        = &H04    ' Chinese (Singapore)
    1334 Const SUBLANG_CHINESE_MACAU            = &H05    ' Chinese (Macau S.A.R.)
    1335 Const SUBLANG_DUTCH                    = &H01    ' Dutch
    1336 Const SUBLANG_DUTCH_BELGIAN            = &H02    ' Dutch (Belgian)
    1337 Const SUBLANG_ENGLISH_US               = &H01    ' English (USA)
    1338 Const SUBLANG_ENGLISH_UK               = &H02    ' English (UK)
    1339 Const SUBLANG_ENGLISH_AUS              = &H03    ' English (Australian)
    1340 Const SUBLANG_ENGLISH_CAN              = &H04    ' English (Canadian)
    1341 Const SUBLANG_ENGLISH_NZ               = &H05    ' English (New Zealand)
    1342 Const SUBLANG_ENGLISH_EIRE             = &H06    ' English (Irish)
    1343 Const SUBLANG_ENGLISH_SOUTH_AFRICA     = &H07    ' English (South Africa)
    1344 Const SUBLANG_ENGLISH_JAMAICA          = &H08    ' English (Jamaica)
    1345 Const SUBLANG_ENGLISH_CARIBBEAN        = &H09    ' English (Caribbean)
    1346 Const SUBLANG_ENGLISH_BELIZE           = &H0a    ' English (Belize)
    1347 Const SUBLANG_ENGLISH_TRINIDAD         = &H0b    ' English (Trinidad)
    1348 Const SUBLANG_ENGLISH_ZIMBABWE         = &H0c    ' English (Zimbabwe)
    1349 Const SUBLANG_ENGLISH_PHILIPPINES      = &H0d    ' English (Philippines)
    1350 Const SUBLANG_FRENCH                   = &H01    ' French
    1351 Const SUBLANG_FRENCH_BELGIAN           = &H02    ' French (Belgian)
    1352 Const SUBLANG_FRENCH_CANADIAN          = &H03    ' French (Canadian)
    1353 Const SUBLANG_FRENCH_SWISS             = &H04    ' French (Swiss)
    1354 Const SUBLANG_FRENCH_LUXEMBOURG        = &H05    ' French (Luxembourg)
    1355 Const SUBLANG_FRENCH_MONACO            = &H06    ' French (Monaco)
    1356 Const SUBLANG_GERMAN                   = &H01    ' German
    1357 Const SUBLANG_GERMAN_SWISS             = &H02    ' German (Swiss)
    1358 Const SUBLANG_GERMAN_AUSTRIAN          = &H03    ' German (Austrian)
    1359 Const SUBLANG_GERMAN_LUXEMBOURG        = &H04    ' German (Luxembourg)
    1360 Const SUBLANG_GERMAN_LIECHTENSTEIN     = &H05    ' German (Liechtenstein)
    1361 Const SUBLANG_ITALIAN                  = &H01    ' Italian
    1362 Const SUBLANG_ITALIAN_SWISS            = &H02    ' Italian (Swiss)
    1363 Const SUBLANG_KASHMIRI_SASIA           = &H02    ' Kashmiri (South Asia)
    1364 Const SUBLANG_KOREAN                   = &H01    ' Korean (Extended Wansung)
    1365 Const SUBLANG_LITHUANIAN               = &H01    ' Lithuanian
    1366 Const SUBLANG_MALAY_MALAYSIA           = &H01    ' Malay (Malaysia)
    1367 Const SUBLANG_MALAY_BRUNEI_DARUSSALAM  = &H02    ' Malay (Brunei Darussalam)
    1368 Const SUBLANG_NEPALI_INDIA             = &H02    ' Nepali (India)
    1369 Const SUBLANG_NORWEGIAN_BOKMAL         = &H01    ' Norwegian (Bokmal)
    1370 Const SUBLANG_NORWEGIAN_NYNORSK        = &H02    ' Norwegian (Nynorsk)
    1371 Const SUBLANG_PORTUGUESE               = &H02    ' Portuguese
    1372 Const SUBLANG_PORTUGUESE_BRAZILIAN     = &H01    ' Portuguese (Brazilian)
    1373 Const SUBLANG_SERBIAN_LATIN            = &H02    ' Serbian (Latin)
    1374 Const SUBLANG_SERBIAN_CYRILLIC         = &H03    ' Serbian (Cyrillic)
    1375 Const SUBLANG_SPANISH                  = &H01    ' Spanish (Castilian)
    1376 Const SUBLANG_SPANISH_MEXICAN          = &H02    ' Spanish (Mexican)
    1377 Const SUBLANG_SPANISH_MODERN           = &H03    ' Spanish (Spain)
    1378 Const SUBLANG_SPANISH_GUATEMALA        = &H04    ' Spanish (Guatemala)
    1379 Const SUBLANG_SPANISH_COSTA_RICA       = &H05    ' Spanish (Costa Rica)
    1380 Const SUBLANG_SPANISH_PANAMA           = &H06    ' Spanish (Panama)
    1381 Const SUBLANG_SPANISH_DOMINICAN_REPUBLIC = &H07  ' Spanish (Dominican Republic)
    1382 Const SUBLANG_SPANISH_VENEZUELA        = &H08    ' Spanish (Venezuela)
    1383 Const SUBLANG_SPANISH_COLOMBIA         = &H09    ' Spanish (Colombia)
    1384 Const SUBLANG_SPANISH_PERU             = &H0a    ' Spanish (Peru)
    1385 Const SUBLANG_SPANISH_ARGENTINA        = &H0b    ' Spanish (Argentina)
    1386 Const SUBLANG_SPANISH_ECUADOR          = &H0c    ' Spanish (Ecuador)
    1387 Const SUBLANG_SPANISH_CHILE            = &H0d    ' Spanish (Chile)
    1388 Const SUBLANG_SPANISH_URUGUAY          = &H0e    ' Spanish (Uruguay)
    1389 Const SUBLANG_SPANISH_PARAGUAY         = &H0f    ' Spanish (Paraguay)
    1390 Const SUBLANG_SPANISH_BOLIVIA          = &H10    ' Spanish (Bolivia)
    1391 Const SUBLANG_SPANISH_EL_SALVADOR      = &H11    ' Spanish (El Salvador)
    1392 Const SUBLANG_SPANISH_HONDURAS         = &H12    ' Spanish (Honduras)
    1393 Const SUBLANG_SPANISH_NICARAGUA        = &H13    ' Spanish (Nicaragua)
    1394 Const SUBLANG_SPANISH_PUERTO_RICO      = &H14    ' Spanish (Puerto Rico)
    1395 Const SUBLANG_SWEDISH                  = &H01    ' Swedish
    1396 Const SUBLANG_SWEDISH_FINLAND          = &H02    ' Swedish (Finland)
    1397 Const SUBLANG_URDU_PAKISTAN            = &H01    ' Urdu (Pakistan)
    1398 Const SUBLANG_URDU_INDIA               = &H02    ' Urdu (India)
    1399 Const SUBLANG_UZBEK_LATIN              = &H01    ' Uzbek (Latin)
    1400 Const SUBLANG_UZBEK_CYRILLIC           = &H02    ' Uzbek (Cyrillic)
    1401 
    1402 
    1403 Const LANG_SYSTEM_DEFAULT = (MAKELANGID(LANG_NEUTRAL, SUBLANG_SYS_DEFAULT))
    1404 Const LANG_USER_DEFAULT   = (MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT))
    1405 
    1406 
    1407 '
    1408 '  Sorting IDs.
    1409 '
    1410 
    1411 Const SORT_DEFAULT                = &H0     ' sorting default
    1412 
    1413 Const SORT_JAPANESE_XJIS          = &H0     ' Japanese XJIS order
    1414 Const SORT_JAPANESE_UNICODE       = &H1     ' Japanese Unicode order
    1415 
    1416 Const SORT_CHINESE_BIG5           = &H0     ' Chinese BIG5 order
    1417 Const SORT_CHINESE_PRCP           = &H0     ' PRC Chinese Phonetic order
    1418 Const SORT_CHINESE_UNICODE        = &H1     ' Chinese Unicode order
    1419 Const SORT_CHINESE_PRC            = &H2     ' PRC Chinese Stroke Count order
    1420 Const SORT_CHINESE_BOPOMOFO       = &H3     ' Traditional Chinese Bopomofo order
    1421 
    1422 Const SORT_KOREAN_KSC             = &H0     ' Korean KSC order
    1423 Const SORT_KOREAN_UNICODE         = &H1     ' Korean Unicode order
    1424 
    1425 Const SORT_GERMAN_PHONE_BOOK      = &H1     ' German Phone Book order
    1426 
    1427 Const SORT_HUNGARIAN_DEFAULT      = &H0     ' Hungarian Default order
    1428 Const SORT_HUNGARIAN_TECHNICAL    = &H1     ' Hungarian Technical order
    1429 
    1430 Const SORT_GEORGIAN_TRADITIONAL   = &H0     ' Georgian Traditional order
    1431 Const SORT_GEORGIAN_MODERN        = &H1     ' Georgian Modern order
    1432 
    1433845'
    1434846'  Wait functions' results.
    1435847'
    1436848Const WAIT_FAILED = (&hFFFFFFFF As DWord)
    1437 Const WAIT_OBJECT_0 = 0 '((STATUS_WAIT_0 ) + 0)
    1438 
    1439 Const WAIT_ABANDONED = &h00000080 As DWord '((STATUS_ABANDONED_WAIT_0 ) + 0)
    1440 Const WAIT_ABANDONED_0 = WAIT_ABANDONED '((STATUS_ABANDONED_WAIT_0 ) + 0)
    1441 
    1442 Const WAIT_IO_COMPLETION = &h000000C0 'STATUS_USER_APC
     849Const WAIT_OBJECT_0 = ((STATUS_WAIT_0 ) + 0)
     850
     851Const WAIT_ABANDONED = ((STATUS_ABANDONED_WAIT_0 ) + 0)
     852Const WAIT_ABANDONED_0 = ((STATUS_ABANDONED_WAIT_0 ) + 0)
     853
     854Const WAIT_IO_COMPLETION = STATUS_USER_APC
    1443855
    1444856Declare Function FindResource Lib "kernel32" Alias _FuncName_FindResource (hInstance As HINSTANCE, lpName As LPCTSTR, lpType As LPCTSTR) As HRSRC
    … …  
    1488900Declare Function WaitCommEvent Lib "kernel32" (hFile As HANDLE, ByRef EvtMask As DWord, lpOverlapped As *OVERLAPPED)  As BOOL
    1489901
    1490 Const ANYSIZE_ARRAY = 1
    1491 Type LUID
    1492     LowPart As DWord
    1493     HighPart As Long
    1494 End Type
    1495 Type LUID_AND_ATTRIBUTES
    1496     Luid As LUID
    1497     Attributes As DWord
    1498 End Type
    1499 TypeDef PLUID_AND_ATTRIBUTES = *LUID_AND_ATTRIBUTES
    1500 'TypeDef LUID_AND_ATTRIBUTES_ARRAY = LUID_AND_ATTRIBUTES[ANYSIZE_ARRAY]
    1501 'TypeDef PLUID_AND_ATTRIBUTES_ARRAY = *LUID_AND_ATTRIBUTES_ARRAY
    1502 
    1503 Type TOKEN_PRIVILEGES
    1504     PrivilegeCount As DWord
    1505     Privileges[ELM(ANYSIZE_ARRAY)] As LUID_AND_ATTRIBUTES
    1506 End Type
    1507 
    1508902Declare Function OpenProcessToken Lib "advapi32" (ProcessHandle As HANDLE, DesiredAccess As DWord, ByRef TokenHandle As HANDLE) As BOOL
    1509903Declare Function LookupPrivilegeValue Lib "advapi32" Alias _FuncName_LookupPrivilegeValue (lpSystemName As LPCTSTR, lpName As LPCTSTR, ByRef Luid As LUID) As Long
Note: See TracChangeset for help on using the changeset viewer.