Changeset 170
- Timestamp:
- Mar 16, 2007, 10:01:14 AM (18 years ago)
- Location:
- Include
- Files:
-
- 5 added
- 10 edited
Legend:
- Unmodified
- Added
- Removed
-
Include/api_gdi.sbp
r160 r170 45 45 46 46 TypeDef BCHAR = TBYTE 47 48 Type _System_DeclareHandle_HPALETTE:unused As DWord:End Type49 TypeDef HPALETTE = *_System_DeclareHandle_HPALETTE50 51 ' Point/Rectangle/Size struct52 Type POINTAPI53 x As Long54 y As Long55 End Type56 57 Type RECT58 left As Long59 top As Long60 right As Long61 bottom As Long62 End Type63 64 Type SIZE65 cx As Long66 cy As Long67 End Type68 47 69 48 ' Metafile and EnhancedMetafile … … 1237 1216 1238 1217 /* OpenGL Support */ 1239 Type _System_DeclareHandle_HGLRC:unused As DWord:End Type1240 TypeDef HGLRC = *_System_DeclareHandle_HGLRC1241 1218 1242 1219 Declare Function wglCopyContext Lib "opengl32" (hglrcSource As HGLRC, hglrcDest As HGLRC, mask As DWord) As BOOL -
Include/api_reg.sbp
r141 r170 38 38 #endif 39 39 40 41 Const READ_CONTROL = &H0002000042 Const STANDARD_RIGHTS_ALL = &H001F000043 44 45 ' Security Mask46 Const KEY_QUERY_VALUE = &H000147 Const KEY_SET_VALUE = &H000248 Const KEY_CREATE_SUB_KEY = &H000449 Const KEY_ENUMERATE_SUB_KEYS = &H000850 Const KEY_NOTIFY = &H001051 Const KEY_CREATE_LINK = &H002052 Const KEY_READ = (READ_CONTROL Or KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) And (Not SYNCHRONIZE)53 Const KEY_WRITE = (READ_CONTROL Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY) And (Not SYNCHRONIZE)54 Const KEY_EXECUTE = KEY_READ55 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)56 57 58 40 ' Options 59 41 Const REG_OPTION_NON_VOLATILE = &H00000000 60 Const REG_OPTION_VOLATILE = &H0000000161 Const REG_OPTION_BACKUP_RESTORE = &H0000000442 'Const REG_OPTION_VOLATILE = &H00000001 43 'Const REG_OPTION_BACKUP_RESTORE = &H00000004 62 44 63 45 … … 70 52 Const HKEY_CURRENT_CONFIG = &H80000005 71 53 Const HKEY_DYN_DATA = &H80000006 72 73 74 ' Key Create/Open Disposition75 Const REG_CREATED_NEW_KEY = &H0000000176 Const REG_OPENED_EXISTING_KEY = &H0000000277 78 79 ' Data Type80 Const REG_NONE = 081 Const REG_SZ = 182 Const REG_EXPAND_SZ = 283 Const REG_BINARY = 384 Const REG_DWORD = 485 Const REG_DWORD_LITTLE_ENDIAN = 486 Const REG_DWORD_BIG_ENDIAN = 587 Const REG_LINK = 688 Const REG_MULTI_SZ = 789 Const REG_RESOURCE_LIST = 890 54 91 55 Type VALENTW -
Include/api_shell.sbp
r160 r170 43 43 #endif 44 44 45 Type _System_DeclareHandle_HDROP:unused As DWord:End Type 46 TypeDef HDROP = *_System_DeclareHandle_HDROP 47 45 48 Interface IEnumIDList 49 Inherits IUnknown 46 50 End Interface 47 51 -
Include/api_system.sbp
r160 r170 143 143 '------------------- 144 144 ' default constants 145 Const NULL = 0146 Const TRUE = 1147 Const FALSE = 0148 149 Const _System_TRUE = -1150 Const _System_FALSE = 0151 152 Const MAX_PATH = 260153 145 Const INVALID_HANDLE_VALUE = -1 As HANDLE 154 146 Const INVALID_SET_FILE_POINTER = &HFFFFFFFF 155 147 156 Const SYNCHRONIZE = &H00100000157 Const STANDARD_RIGHTS_REQUIRED = &H000F0000158 159 Const MAXIMUM_WAIT_OBJECTS = 64160 161 148 '----------------- 162 149 ' 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 152 TypeDef HFILE = Long 153 Type _System_DeclareHandle_HANDLE:unused As DWord:End Type 154 TypeDef HRSRC = *_System_DeclareHandle_HANDLE 180 155 181 156 ' File structure … … 192 167 OffsetHigh As DWord 193 168 hEvent As HANDLE 194 End Type195 196 Type FILETIME197 dwLowDateTime As DWord198 dwHighDateTime As DWord199 169 End Type 200 170 … … 210 180 wMilliseconds As Word 211 181 End Type 212 213 #ifdef _WIN64214 Const CONTEXT_AMD64 = &h100000215 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) M128227 Low As QWord228 High As Int64229 End Type230 231 Type LEGACY_SAVE_AREA 'Winnt.h232 ControlWord As Word233 Reserved0 As Word234 StatusWord As Word235 Reserved1 As Word236 TagWord As Word237 Reserved2 As Word238 ErrorOffset As DWord239 ErrorSelector As Word240 ErrorOpcode As Word241 DataOffset As DWord242 DataSelector As Word243 Reserved3 As Word244 FloatRegisters[ELM(8 * 10)] As Byte245 End Type246 247 Type Align(16) CONTEXT 'Winnt.h248 'Register parameter home addresses.249 P1Home As QWord250 P2Home As QWord251 P3Home As QWord252 P4Home As QWord253 P5Home As QWord254 P6Home As QWord255 'Control flags.256 ContextFlags As DWord257 MxCsr As DWord258 'Segment Registers and processor flags.259 SegCs As Word260 SegDs As Word261 SegEs As Word262 SegFs As Word263 SegGs As Word264 SegSs As Word265 EFlags As DWord266 'Debug registers267 Dr0 As QWord268 Dr1 As QWord269 Dr2 As QWord270 Dr3 As QWord271 Dr6 As QWord272 Dr7 As QWord273 'Integer registers.274 Rax As QWord275 Rcx As QWord276 Rdx As QWord277 Rbx As QWord278 Rsp As QWord279 Rbp As QWord280 Rsi As QWord281 Rdi As QWord282 R8 As QWord283 R9 As QWord284 R10 As QWord285 R11 As QWord286 R12 As QWord287 R13 As QWord288 R14 As QWord289 R15 As QWord290 'Program counter.291 Rip As QWord292 'MMX/floating point state.293 Header[ELM(2)] As M128294 Legacy[ELM(8)] As M128295 Xmm0 As M128296 Xmm1 As M128297 Xmm2 As M128298 Xmm3 As M128299 Xmm4 As M128300 Xmm5 As M128301 Xmm6 As M128302 Xmm7 As M128303 Xmm8 As M128304 Xmm9 As M128305 Xmm10 As M128306 Xmm11 As M128307 Xmm12 As M128308 Xmm13 As M128309 Xmm14 As M128310 Xmm15 As M128311 Reserve[ELM(96)] As Byte312 'Vector registers313 VectorRegisters[ELM(26)] As M128314 VectorControl As QWord315 'Special debug control registers.316 DebugControl As QWord317 LastBranchToRip As QWord318 LastBranchFromRip As QWord319 LastExceptionToRip As QWord320 LastExceptionFromRip As QWord321 End Type322 323 #else324 325 Const SIZE_OF_80387_REGISTERS = 80326 Const MAXIMUM_SUPPORTED_EXTENSION = 512327 328 Type FLOATING_SAVE_AREA329 ControlWord As DWord330 StatusWord As DWord331 TagWord As DWord332 ErrorOffset As DWord333 ErrorSelector As DWord334 DataOffset As DWord335 DataSelector As DWord336 RegisterArea[ELM(SIZE_OF_80387_REGISTERS)] As Byte337 Cr0NpxState As DWord338 End Type339 340 Const CONTEXT_i386 = &h00010000341 Const CONTEXT_i486 = &h00010000342 343 Const CONTEXT_CONTROL = (CONTEXT_i386 Or &h00000001) 'SS:SP, CS:IP, FLAGS, BP344 Const CONTEXT_INTEGER = (CONTEXT_i386 Or &h00000002) 'AX, BX, CX, DX, SI, DI345 Const CONTEXT_SEGMENTS = (CONTEXT_i386 Or &h00000004) 'DS, ES, FS, GS346 Const CONTEXT_FLOATING_POINT = (CONTEXT_i386 Or &h00000008) '387 state347 Const CONTEXT_DEBUG_REGISTERS = (CONTEXT_i386 Or &h00000010) 'DB 0-3,6,7348 Const CONTEXT_EXTENDED_REGISTERS = (CONTEXT_i386 Or &h0000002) 'cpu specific extensions349 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 CONTEXT355 ContextFlags As DWord356 357 Dr0 As DWord358 Dr1 As DWord359 Dr2 As DWord360 Dr3 As DWord361 Dr6 As DWord362 Dr7 As DWord363 364 FloatSave As FLOATING_SAVE_AREA365 366 SegGs As DWord367 SegFs As DWord368 SegEs As DWord369 SegDs As DWord370 371 Edi As DWord372 Esi As DWord373 Ebx As DWord374 Edx As DWord375 Ecx As DWord376 Eax As DWord377 378 Ebp As DWord379 Eip As DWord380 SegCs As DWord381 EFlags As DWord382 Esp As DWord383 SegSs As DWord384 385 ExtendedRegisters[ELM(MAXIMUM_SUPPORTED_EXTENSION)] As Byte386 End Type387 388 #endif389 182 390 183 ' Global Memory Flags … … 404 197 Const GMEM_DISCARDED = &H4000 405 198 406 407 ' Heap408 Const HEAP_NO_SERIALIZE = &H00000001409 Const HEAP_GROWABLE = &H00000002410 Const HEAP_GENERATE_EXCEPTIONS = &H00000004411 Const HEAP_ZERO_MEMORY = &H00000008412 Const HEAP_REALLOC_IN_PLACE_ONLY = &H00000010413 414 415 ' Locale416 Const LOCALE_SYSTEM_DEFAULT = &H400 'Standard Systemsprache417 Const LOCALE_USER_DEFAULT = &H800 'Standard Benutzersprache418 419 420 199 ' Locale flag 421 200 Const LOCALE_NOUSEROVERRIDE = &H80000000 422 423 201 424 202 'Critical Section … … 432 210 End Type 433 211 434 435 'DllMain436 Const DLL_PROCESS_ATTACH = 1437 Const DLL_THREAD_ATTACH = 2438 Const DLL_THREAD_DETACH = 3439 Const DLL_PROCESS_DETACH = 0440 441 'Event442 Const EVENT_MODIFY_STATE = &H0002443 Const EVENT_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &H3)444 445 212 'Mutex 446 Const MUTANT_QUERY_STATE = &H0001447 Const MUTANT_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or MUTANT_QUERY_STATE)448 213 Const MUTEX_ALL_ACCESS = MUTANT_ALL_ACCESS 449 450 'Semaphore451 Const SEMAPHORE_MODIFY_STATE = &H0002452 Const SEMAPHORE_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &H3)453 454 'Timer455 Const TIMER_QUERY_STATE = &H0001456 Const TIMER_MODIFY_STATE = &H0002457 Const TIMER_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or TIMER_QUERY_STATE Or TIMER_MODIFY_STATE)458 214 459 215 '---------------------- … … 506 262 Declare Function CancelWaitableTimer Lib "kernel32" (hTimer As HANDLE) As BOOL 507 263 508 Const GENERIC_READ = &H80000000509 Const GENERIC_WRITE = &H40000000510 Const FILE_SHARE_READ = &H00000001511 Const FILE_SHARE_WRITE = &H00000002512 Const FILE_SHARE_DELETE = &H00000004513 264 Const CREATE_NEW = 1 514 265 Const CREATE_ALWAYS = 2 … … 516 267 Const OPEN_ALWAYS = 4 517 268 Const TRUNCATE_EXISTING = 5 518 Const FILE_ATTRIBUTE_READONLY = &H00000001519 Const FILE_ATTRIBUTE_HIDDEN = &H00000002520 Const FILE_ATTRIBUTE_SYSTEM = &H00000004521 Const FILE_ATTRIBUTE_DIRECTORY = &H00000010522 Const FILE_ATTRIBUTE_ARCHIVE = &H00000020523 Const FILE_ATTRIBUTE_ENCRYPTED = &H00000040524 Const FILE_ATTRIBUTE_NORMAL = &H00000080525 Const FILE_ATTRIBUTE_TEMPORARY = &H00000100526 Const FILE_ATTRIBUTE_SPARSE_FILE = &H00000200527 Const FILE_ATTRIBUTE_REPARSE_POINT = &H00000400528 Const FILE_ATTRIBUTE_COMPRESSED = &H00000800529 Const FILE_ATTRIBUTE_OFFLINE = &H00001000530 269 Const FILE_FLAG_WRITE_THROUGH = &H80000000 531 270 Const FILE_FLAG_OVERLAPPED = &H40000000 … … 540 279 Declare 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 541 280 542 Const SECTION_QUERY = &H0001543 Const SECTION_MAP_WRITE = &H0002544 Const SECTION_MAP_READ = &H0004545 Const SECTION_MAP_EXECUTE = &H0008546 Const SECTION_EXTEND_SIZE = &H0010547 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 549 281 Const FILE_MAP_COPY = SECTION_QUERY 550 282 Const FILE_MAP_WRITE = SECTION_MAP_WRITE … … 557 289 Declare Function FlushViewOfFile Lib "kernel32" (lpBaseAddress As VoidPtr, dwNumberOfBytesToFlush As DWord) As BOOL 558 290 Declare Function UnmapViewOfFile Lib "kernel32" (lpBaseAddress As VoidPtr) As BOOL 559 560 Const MAILSLOT_WAIT_FOREVER = &HFFFFFFFF561 291 Declare Function CreateMailslot Lib "kernel32" Alias _FuncName_CreateMailslot (pName As PCTSTR, nMaxMessageSize As DWord, lReadTimeout As DWord, pSecurityAttributes As *SECURITY_ATTRIBUTES) As HANDLE 562 292 … … 662 392 Declare Function DisableThreadLibraryCalls Lib "kernel32" (hLibModule As HINSTANCE) As BOOL 663 393 Declare Function DosDateTimeToFileTime Lib "kernel32" (wFatDate As Word, wFatTime As Word, ByRef FileTime As FILETIME) As BOOL 664 665 Const DUPLICATE_CLOSE_SOURCE = 1666 Const DUPLICATE_SAME_ACCESS = 2667 394 Declare 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 669 395 Declare Sub EnterCriticalSection Lib "kernel32" (ByRef lpCriticalSection As CRITICAL_SECTION) 670 396 Declare Sub ExitProcess Lib "kernel32" (dwExitCode As DWord) … … 869 595 Declare Function GetTempPath Lib "kernel32" Alias _FuncName_GetTempPath (nBufferLength As DWord, lpBuffer As PTSTR) As DWord 870 596 Declare 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 /* 876 598 Const THREAD_PRIORITY_LOWEST = THREAD_BASE_PRIORITY_MIN 877 599 Const THREAD_PRIORITY_BELOW_NORMAL = THREAD_PRIORITY_LOWEST+1 … … 882 604 Const THREAD_PRIORITY_TIME_CRITICAL = THREAD_BASE_PRIORITY_LOWRT 883 605 Const THREAD_PRIORITY_IDLE = THREAD_BASE_PRIORITY_IDLE 606 */ 884 607 Declare Function GetThreadPriority Lib "kernel32" (hThread As HANDLE) As Long 885 608 Declare Function GetThreadPriorityBoost Lib "kernel32" ( … … 895 618 Declare Function GetUserDefaultLCID Lib "kernel32" () As LCID 896 619 Declare Function GetUserName Lib "advapi32" Alias _FuncName_GetUserName (pBuffer As PTSTR, ByRef nSize As DWord) As BOOL 897 898 Const VER_PLATFORM_WIN32s = 0899 Const VER_PLATFORM_WIN32_WINDOWS = 1900 Const VER_PLATFORM_WIN32_NT = 2901 Const VER_PLATFORM_WIN32_CE = 3902 Type OSVERSIONINFOW903 dwOSVersionInfoSize As DWord904 dwMajorVersion As DWord905 dwMinorVersion As DWord906 dwBuildNumber As DWord907 dwPlatformId As DWord908 szCSDVersion[ELM(128)] As WCHAR909 End Type910 Type OSVERSIONINFOA911 dwOSVersionInfoSize As DWord912 dwMajorVersion As DWord913 dwMinorVersion As DWord914 dwBuildNumber As DWord915 dwPlatformId As DWord916 szCSDVersion[ELM(128)] As SByte917 End Type918 #ifdef UNICODE919 TypeDef OSVERSIONINFO = OSVERSIONINFOW920 #else921 TypeDef OSVERSIONINFO = OSVERSIONINFOA922 #endif923 620 Declare Function GetVersionEx Lib "kernel32" Alias _FuncName_GetVersionEx (ByRef VersionInformation As OSVERSIONINFO) As BOOL 924 925 621 Declare Function GetWindowsDirectory Lib "kernel32" Alias _FuncName_GetWindowsDirectory (pBuffer As PTSTR, uSize As DWord) As DWord 926 622 Declare Function GlobalAlloc Lib "kernel32" (uFlags As DWord, dwBytes As SIZE_T) As HGLOBAL … … 1022 718 1023 719 Declare 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 1025 720 Declare Function OpenEvent Lib "kernel32" Alias _FuncName_OpenEvent (dwDesiredAccess As DWord, bInheritHandle As BOOL, lpName As LPCTSTR) As HANDLE 1026 721 Declare Function OpenMutex Lib "kernel32" Alias _FuncName_OpenMutex (dwDesiredAccess As DWord, bInheritHandle As BOOL, lpName As LPCTSTR) As HANDLE 1027 722 Declare Function OpenSemaphore Lib "kernel32" Alias _FuncName_OpenSemaphore (dwDesiredAccess As DWord, bInheritHandle As BOOL, lpName As LPCTSTR) As HANDLE 1028 1029 Const PROCESS_TERMINATE = &H00011030 Const PROCESS_CREATE_THREAD = &H00021031 Const PROCESS_SET_SESSIONID = &H00041032 Const PROCESS_VM_OPERATION = &H00081033 Const PROCESS_VM_READ = &H00101034 Const PROCESS_VM_WRITE = &H00201035 Const PROCESS_DUP_HANDLE = &H00401036 Const PROCESS_CREATE_PROCESS = &H00801037 Const PROCESS_SET_QUOTA = &H01001038 Const PROCESS_SET_INFORMATION = &H02001039 Const PROCESS_QUERY_INFORMATION = &H04001040 Const PROCESS_ALL_ACCESS = STANDARD_RIGHTS_REQUIRED or SYNCHRONIZE or &HFFF1041 723 Declare Function OpenProcess Lib "kernel32" (dwDesiredAccess As DWord, bInheritHandle As Long, dwProcessId As DWord) As HANDLE 1042 1043 724 Declare Sub OutputDebugStringA Lib "kernel32" (pOutputString As PCSTR) 1044 725 Declare Sub OutputDebugStringW Lib "kernel32" (pOutputString As PCWSTR) … … 1092 773 ) As BOOL 1093 774 1094 Const EXCEPTION_MAXIMUM_PARAMETERS = 151095 1096 Type EXCEPTION_RECORD1097 ExceptionCode As DWord1098 ExceptionFlags As DWord1099 ExceptionRecord As *EXCEPTION_RECORD1100 ExceptionAddress As VoidPtr1101 NumberParameters As DWord1102 ExceptionInformation[ELM(EXCEPTION_MAXIMUM_PARAMETERS)] As ULONG_PTR1103 End Type1104 1105 Type EXCEPTION_POINTERS1106 ExceptionRecord As *EXCEPTION_RECORD1107 ContextRecord As *CONTEXT1108 End Type1109 1110 775 TypeDef PTOP_LEVEL_EXCEPTION_FILTER = *Function(ByRef ExceptionInfo As EXCEPTION_POINTERS) As Long 1111 776 … … 1126 791 Declare Function UnlockFile Lib "kernel32" (hFile As HANDLE, dwFileOffsetLow As DWord, dwFileOffsetHigh As DWord, nNumberOfBytesToUnlockLow As DWord, nNumberOfBytesToUnlockHigh As DWord) As BOOL 1127 792 Declare Function UnhandledExceptionFilter Lib "kernel32" (ByRef ExceptionInfo As EXCEPTION_POINTERS) As Long 1128 1129 Const PAGE_NOACCESS = &H011130 Const PAGE_READONLY = &H021131 Const PAGE_READWRITE = &H041132 Const PAGE_WRITECOPY = &H081133 Const PAGE_EXECUTE = &H101134 Const PAGE_EXECUTE_READ = &H201135 Const PAGE_EXECUTE_READWRITE = &H401136 Const PAGE_EXECUTE_WRITECOPY = &H801137 Const PAGE_GUARD = &H1001138 Const PAGE_NOCACHE = &H2001139 Const PAGE_WRITECOMBINE = &H4001140 Const MEM_COMMIT = &H10001141 Const MEM_RESERVE = &H20001142 Const MEM_DECOMMIT = &H40001143 Const MEM_RELEASE = &H80001144 Const MEM_FREE = &H100001145 Const MEM_PRIVATE = &H200001146 Const MEM_MAPPED = &H400001147 Const MEM_RESET = &H800001148 Const MEM_TOP_DOWN = &H1000001149 Const MEM_4MB_PAGES = &H800000001150 793 Declare Function VirtualAlloc Lib "kernel32" (lpAddress As VoidPtr, dwSize As SIZE_T, flAllocationType As DWord, flProtect As DWord) As VoidPtr 1151 794 Declare Function VirtualFree Lib "kernel32" (lpAddress As VoidPtr, dwSize As SIZE_T, dwFreeType As DWord) As BOOL … … 1164 807 ByRef flOldProtect As DWord 1165 808 ) As BOOL 1166 Type MEMORY_BASIC_INFORMATION1167 BaseAddress As VoidPtr1168 AllocationBase As VoidPtr1169 AllocationProtect As DWord1170 RegionSize As SIZE_T1171 State As DWord1172 Protect As DWord1173 MBIType As DWord1174 End Type1175 809 Declare Function VirtualQuery Lib "kernel32" ( 1176 810 pAddress As VoidPtr, … … 1209 843 Declare Sub ZeroMemory Lib "kernel32" Alias "RtlZeroMemory" (Destination As VoidPtr, dwLength As DWord) 1210 844 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 = &H001222 Const LANG_INVARIANT = &H7f1223 1224 Const LANG_AFRIKAANS = &H361225 Const LANG_ALBANIAN = &H1c1226 Const LANG_ARABIC = &H011227 Const LANG_ARMENIAN = &H2b1228 Const LANG_ASSAMESE = &H4d1229 Const LANG_AZERI = &H2c1230 Const LANG_BASQUE = &H2d1231 Const LANG_BELARUSIAN = &H231232 Const LANG_BENGALI = &H451233 Const LANG_BULGARIAN = &H021234 Const LANG_CATALAN = &H031235 Const LANG_CHINESE = &H041236 Const LANG_CROATIAN = &H1a1237 Const LANG_CZECH = &H051238 Const LANG_DANISH = &H061239 Const LANG_DIVEHI = &H651240 Const LANG_DUTCH = &H131241 Const LANG_ENGLISH = &H091242 Const LANG_ESTONIAN = &H251243 Const LANG_FAEROESE = &H381244 Const LANG_FARSI = &H291245 Const LANG_FINNISH = &H0b1246 Const LANG_FRENCH = &H0c1247 Const LANG_GALICIAN = &H561248 Const LANG_GEORGIAN = &H371249 Const LANG_GERMAN = &H071250 Const LANG_GREEK = &H081251 Const LANG_GUJARATI = &H471252 Const LANG_HEBREW = &H0d1253 Const LANG_HINDI = &H391254 Const LANG_HUNGARIAN = &H0e1255 Const LANG_ICELANDIC = &H0f1256 Const LANG_INDONESIAN = &H211257 Const LANG_ITALIAN = &H101258 Const LANG_JAPANESE = &H111259 Const LANG_KANNADA = &H4b1260 Const LANG_KASHMIRI = &H601261 Const LANG_KAZAK = &H3f1262 Const LANG_KONKANI = &H571263 Const LANG_KOREAN = &H121264 Const LANG_KYRGYZ = &H401265 Const LANG_LATVIAN = &H261266 Const LANG_LITHUANIAN = &H271267 Const LANG_MACEDONIAN = &H2f ' the Former Yugoslav Republic of Macedonia1268 Const LANG_MALAY = &H3e1269 Const LANG_MALAYALAM = &H4c1270 Const LANG_MANIPURI = &H581271 Const LANG_MARATHI = &H4e1272 Const LANG_MONGOLIAN = &H501273 Const LANG_NEPALI = &H611274 Const LANG_NORWEGIAN = &H141275 Const LANG_ORIYA = &H481276 Const LANG_POLISH = &H151277 Const LANG_PORTUGUESE = &H161278 Const LANG_PUNJABI = &H461279 Const LANG_ROMANIAN = &H181280 Const LANG_RUSSIAN = &H191281 Const LANG_SANSKRIT = &H4f1282 Const LANG_SERBIAN = &H1a1283 Const LANG_SINDHI = &H591284 Const LANG_SLOVAK = &H1b1285 Const LANG_SLOVENIAN = &H241286 Const LANG_SPANISH = &H0a1287 Const LANG_SWAHILI = &H411288 Const LANG_SWEDISH = &H1d1289 Const LANG_SYRIAC = &H5a1290 Const LANG_TAMIL = &H491291 Const LANG_TATAR = &H441292 Const LANG_TELUGU = &H4a1293 Const LANG_THAI = &H1e1294 Const LANG_TURKISH = &H1f1295 Const LANG_UKRAINIAN = &H221296 Const LANG_URDU = &H201297 Const LANG_UZBEK = &H431298 Const LANG_VIETNAMESE = &H2a1299 1300 '1301 ' Sublanguage IDs.1302 '1303 ' The name immediately following SUBLANG_ dictates which primary1304 ' language ID that sublanguage ID can be combined with to form a1305 ' valid language ID.1306 '1307 1308 Const SUBLANG_NEUTRAL = &H00 ' language neutral1309 Const SUBLANG_DEFAULT = &H01 ' user default1310 Const SUBLANG_SYS_DEFAULT = &H02 ' system default1311 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 ' Dutch1336 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 ' French1351 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 ' German1357 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 ' Italian1362 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 ' Lithuanian1366 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 ' Portuguese1372 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 ' Swedish1396 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 default1412 1413 Const SORT_JAPANESE_XJIS = &H0 ' Japanese XJIS order1414 Const SORT_JAPANESE_UNICODE = &H1 ' Japanese Unicode order1415 1416 Const SORT_CHINESE_BIG5 = &H0 ' Chinese BIG5 order1417 Const SORT_CHINESE_PRCP = &H0 ' PRC Chinese Phonetic order1418 Const SORT_CHINESE_UNICODE = &H1 ' Chinese Unicode order1419 Const SORT_CHINESE_PRC = &H2 ' PRC Chinese Stroke Count order1420 Const SORT_CHINESE_BOPOMOFO = &H3 ' Traditional Chinese Bopomofo order1421 1422 Const SORT_KOREAN_KSC = &H0 ' Korean KSC order1423 Const SORT_KOREAN_UNICODE = &H1 ' Korean Unicode order1424 1425 Const SORT_GERMAN_PHONE_BOOK = &H1 ' German Phone Book order1426 1427 Const SORT_HUNGARIAN_DEFAULT = &H0 ' Hungarian Default order1428 Const SORT_HUNGARIAN_TECHNICAL = &H1 ' Hungarian Technical order1429 1430 Const SORT_GEORGIAN_TRADITIONAL = &H0 ' Georgian Traditional order1431 Const SORT_GEORGIAN_MODERN = &H1 ' Georgian Modern order1432 1433 845 ' 1434 846 ' Wait functions' results. 1435 847 ' 1436 848 Const 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_APC849 Const WAIT_OBJECT_0 = ((STATUS_WAIT_0 ) + 0) 850 851 Const WAIT_ABANDONED = ((STATUS_ABANDONED_WAIT_0 ) + 0) 852 Const WAIT_ABANDONED_0 = ((STATUS_ABANDONED_WAIT_0 ) + 0) 853 854 Const WAIT_IO_COMPLETION = STATUS_USER_APC 1443 855 1444 856 Declare Function FindResource Lib "kernel32" Alias _FuncName_FindResource (hInstance As HINSTANCE, lpName As LPCTSTR, lpType As LPCTSTR) As HRSRC … … 1488 900 Declare Function WaitCommEvent Lib "kernel32" (hFile As HANDLE, ByRef EvtMask As DWord, lpOverlapped As *OVERLAPPED) As BOOL 1489 901 1490 Const ANYSIZE_ARRAY = 11491 Type LUID1492 LowPart As DWord1493 HighPart As Long1494 End Type1495 Type LUID_AND_ATTRIBUTES1496 Luid As LUID1497 Attributes As DWord1498 End Type1499 TypeDef PLUID_AND_ATTRIBUTES = *LUID_AND_ATTRIBUTES1500 'TypeDef LUID_AND_ATTRIBUTES_ARRAY = LUID_AND_ATTRIBUTES[ANYSIZE_ARRAY]1501 'TypeDef PLUID_AND_ATTRIBUTES_ARRAY = *LUID_AND_ATTRIBUTES_ARRAY1502 1503 Type TOKEN_PRIVILEGES1504 PrivilegeCount As DWord1505 Privileges[ELM(ANYSIZE_ARRAY)] As LUID_AND_ATTRIBUTES1506 End Type1507 1508 902 Declare Function OpenProcessToken Lib "advapi32" (ProcessHandle As HANDLE, DesiredAccess As DWord, ByRef TokenHandle As HANDLE) As BOOL 1509 903 Declare Function LookupPrivilegeValue Lib "advapi32" Alias _FuncName_LookupPrivilegeValue (lpSystemName As LPCTSTR, lpName As LPCTSTR, ByRef Luid As LUID) As Long -
Include/api_window.sbp
r160 r170 432 432 End Type 433 433 Declare Function BeginPaint Lib "user32" (hWnd As HWND, ByRef Paint As PAINTSTRUCT) As HDC 434 435 434 Declare Function BringWindowToTop Lib "user32" (hWnd As HWND) As Long 436 435 Declare Function CallNextHookEx Lib "user32" (hHook As HHOOK, nCode As Long, wParam As WPARAM, lParam As LPARAM) As LRESULT -
Include/basic.sbp
r168 r170 38 38 TypeDef Int8 = SByte 39 39 40 TypeDef BOOL = Long 41 42 ' Boolena型の定数 40 ' Boolean型の定数 43 41 Const True = 1 As Boolean 44 42 Const False = 0 As Boolean 43 44 ' BOOL型の定数(Booleanへの移行を推奨) 45 Const _System_TRUE = -1 46 Const _System_FALSE = 0 45 47 46 48 ' 文字型 … … 50 52 TypeDef Char = SByte 51 53 #endif 52 53 54 54 55 … … 61 62 TypeDef SinglePtr = *Single 62 63 TypeDef DoublePtr = *Double 63 64 #ifdef _WIN6465 TypeDef LONG_PTR = Int6466 TypeDef ULONG_PTR = QWord67 TypeDef HALF_PTR = Long68 TypeDef UHALF_PTR = DWord69 #else70 TypeDef LONG_PTR = Long71 TypeDef ULONG_PTR = DWord72 TypeDef HALF_PTR = Integer73 TypeDef UHALF_PTR = Word74 #endif75 TypeDef DWORD_PTR = ULONG_PTR76 64 77 65 Sub SetPointer(pPtr As VoidPtr, p As VoidPtr) … … 106 94 GetChar = p[0] 107 95 End Function 108 109 TypeDef SIZE_T = ULONG_PTR110 TypeDef SSIZE_T = LONG_PTR111 112 113 96 114 97 '-------------------------- -
Include/basic/function.sbp
r167 r170 330 330 End Function 331 331 332 Const HIBYTE(w) = (((w As Word) >> 8) And &HFF) As Byte333 Const LOBYTE(w) = ((w As Word) And &HFF) As Byte334 Const HIWORD(dw) = (((dw As DWord) >> 16) And &HFFFF) As Word335 Const LOWORD(dw) = ((dw As DWord) And &HFFFF) As Word336 332 Const HIDWORD(qw) = (((qw As QWord) >> 32) And &HFFFFFFFF) As DWord 337 333 Const LODWORD(qw) = ((qw As QWord) And &HFFFFFFFF) As DWord 338 334 339 Const MAKEWORD(l, h) = (((l As Word) And &HFF) Or (((h As Word) And &HFF) << 8)) As Word340 335 Const MAKEDWORD(l, h) = (((l As DWord) And &HFFFF) Or (((h As DWord) And &HFFFF) << 16)) As DWord 341 336 Const MAKEQWORD(l, h) = (((l As QWord) And &HFFFFFFFF) Or (((h As QWord) And &HFFFFFFFF) << 32)) As QWord 342 Const MAKELONG(l, h) = MAKEDWORD(l, h) As Long343 337 344 338 '------------ -
Include/objbase.sbp
r160 r170 22 22 TypeDef RPC_AUTH_IDENTITY_HANDLE = VoidPtr 'Declared in Rpcdce.sbp; include Rpc.sbp. 23 23 TypeDef RPC_AUTHZ_HANDLE = VoidPtr 'Declared in Rpcdce.sbp; include Rpc.sbp. 24 25 TypeDef IID = GUID26 TypeDef CLSID = GUID27 24 28 25 Sub LISet32(ByRef li As LARGE_INTEGER, v As Long) … … 193 190 'Declare Sub DebugCoSetRpcFault Lib "" (ul As DWord) 194 191 '#endif 195 196 Dim GUID_NULL = [0, 0, 0, [0, 0, 0, 0, 0, 0, 0, 0]] As GUID197 198 Function IsEqualGUID(ByRef rguid1 As GUID, ByRef rguid2 As GUID) As BOOL199 IsEqualGUID = Not memcmp(VarPtr(rguid1),VarPtr(rguid2),SizeOf(GUID))200 End Function201 Function IsEqualIID(ByRef riid1 As GUID, ByRef riid2 As GUID) As BOOL202 IsEqualIID=IsEqualGUID(riid1,riid2)203 End Function204 Function IsEqualCLSID(ByRef rclsid1 As CLSID, ByRef rclsid2 As CLSID) As BOOL205 IsEqualCLSID=IsEqualGUID(rclsid1,rclsid2)206 End Function207 192 208 193 '#if (_WIN32_WINNT >= 0x0500) -
Include/system/gc.sbp
r144 r170 19 19 Const _System_GC_FLAG_INITZERO = 4 20 20 Const _System_GC_FLAG_OBJECT = 8 21 22 Const THREAD_GET_CONTEXT = &H000823 21 24 22 Class _System_CGarbageCollection … … 122 120 End Sub 123 121 124 Sub add(new_ptr As VoidPtr, size As SIZE_T, flags As DWord)122 Sub add(new_ptr As VoidPtr, size As SIZE_T, flags As DWord) 125 123 iAllSize+=size 126 124 … … 239 237 If pbMark[index]=0 Then 240 238 pbMark[index]=1 241 239 242 240 If (pdwFlags[index] and _System_GC_FLAG_ATOMIC)=0 Then 243 241 'ヒープ領域がポインタ値を含む可能性があるとき 244 242 If ppPtr[index] = 0 Then 245 243 'エラー 246 244 247 245 End If 248 246 Scan(ppPtr[index] As *LONG_PTR,pSize[index],pbMark) … … 426 424 OutputDebugString( Ex"Object dump complete.\r\n" ) 427 425 End If 428 426 429 427 End Sub 430 428 -
Include/windows.sbp
r168 r170 4 4 #ifndef _INC_WINDOWS 5 5 #define _INC_WINDOWS 6 7 8 TypeDef HANDLE = VoidPtr9 10 'variable type - System11 TypeDef HGLOBAL = HANDLE12 TypeDef HLOCAL = HANDLE13 Type _System_DeclareHandle_HINSTANCE:unused As DWord:End Type14 TypeDef HINSTANCE = *_System_DeclareHandle_HINSTANCE15 TypeDef HMODULE = HINSTANCE16 Type _System_DeclareHandle_HKEY:unused As DWord:End Type17 TypeDef HKEY = *_System_DeclareHandle_HKEY18 TypeDef HFILE = Long19 Type _System_DeclareHandle_HANDLE:unused As DWord:End Type20 TypeDef HRSRC = *_System_DeclareHandle_HANDLE21 22 'variable type - User23 Type _System_DeclareHandle_HMENU:unused As DWord:End Type24 TypeDef HMENU = *_System_DeclareHandle_HMENU25 Type _System_DeclareHandle_HWND:unused As DWord:End Type26 TypeDef HWND = *_System_DeclareHandle_HWND27 Type _System_DeclareHandle_HACCEL:unused As DWord:End Type28 TypeDef HACCEL = *_System_DeclareHandle_HACCEL29 30 'variable type - GDI31 Type _System_DeclareHandle_HBITMAP:unused As DWord:End Type32 TypeDef HBITMAP = *_System_DeclareHandle_HBITMAP33 Type _System_DeclareHandle_HBRUSH:unused As DWord:End Type34 TypeDef HBRUSH = *_System_DeclareHandle_HBRUSH35 Type _System_DeclareHandle_HCURSOR:unused As DWord:End Type36 TypeDef HCURSOR = *_System_DeclareHandle_HCURSOR37 Type _System_DeclareHandle_HDC:unused As DWord:End Type38 TypeDef HDC = *_System_DeclareHandle_HDC39 Type _System_DeclareHandle_HFONT:unused As DWord:End Type40 TypeDef HFONT = *_System_DeclareHandle_HFONT41 Type _System_DeclareHandle_HGDIOBJ:unused As DWord:End Type42 TypeDef HGDIOBJ = *_System_DeclareHandle_HGDIOBJ43 Type _System_DeclareHandle_HICON:unused As DWord:End Type44 TypeDef HICON = *_System_DeclareHandle_HICON45 Type _System_DeclareHandle_HPEN:unused As DWord:End Type46 TypeDef HPEN = *_System_DeclareHandle_HPEN47 Type _System_DeclareHandle_HRGN:unused As DWord:End Type48 TypeDef HRGN = *_System_DeclareHandle_HRGN49 Type _System_DeclareHandle_HMETAFILE:unused As DWord:End Type50 TypeDef HMETAFILE = *_System_DeclareHandle_HMETAFILE51 Type _System_DeclareHandle_HENHMETAFILE:unused As DWord:End Type52 TypeDef HENHMETAFILE = *_System_DeclareHandle_HENHMETAFILE53 Type _System_DeclareHandle_HTASK:unused As DWord:End Type54 TypeDef HTASK = *_System_DeclareHandle_HTASK55 Type _System_DeclareHandle_HHOOK:unused As DWord:End Type56 TypeDef HHOOK = *_System_DeclareHandle_HHOOK57 Type _System_DeclareHandle_HMONITOR:unused As DWord:End Type58 TypeDef HMONITOR = *_System_DeclareHandle_HMONITOR59 60 'variable type - Shell61 Type _System_DeclareHandle_HDROP:unused As DWord:End Type62 TypeDef HDROP = *_System_DeclareHandle_HDROP63 64 65 TypeDef LRESULT = LONG_PTR66 67 TypeDef WPARAM = ULONG_PTR68 TypeDef LPARAM = LONG_PTR69 70 TypeDef CHAR = SByte71 TypeDef WCHAR = Word72 TypeDef TCHAR = Char73 74 #ifdef UNICODE75 TypeDef TBYTE = Char76 77 TypeDef PSTR = *SByte78 TypeDef PCSTR = *SByte79 80 TypeDef PWSTR = *Char81 TypeDef PCWSTR = *Char82 83 TypeDef PTSTR = PWSTR84 TypeDef PCTSTR = PCWSTR85 #else86 TypeDef TBYTE = Byte87 88 TypeDef PSTR = *Char89 TypeDef PCSTR = *Char90 91 TypeDef PWSTR = *WCHAR92 TypeDef PCWSTR = *WCHAR93 94 TypeDef PTSTR = PSTR95 TypeDef PCTSTR = PCSTR96 #endif97 98 TypeDef LPSTR = PSTR99 TypeDef LPCSTR = PCSTR100 101 TypeDef LPWSTR = PWSTR102 TypeDef LPCWSTR = PCWSTR103 104 TypeDef LPTSTR = PTSTR105 TypeDef LPCTSTR = PCTSTR106 6 107 7 TypeDef OLECHAR = WCHAR … … 111 11 TypeDef BSTR = LPOLESTR 112 12 113 TypeDef UCSCHAR = DWord114 115 Const UCSCHAR_INVALID_CHARACTER = &hffffffff As UCSCHAR116 Const MIN_UCSCHAR = 0 As UCSCHAR117 Const MAX_UCSCHAR = &h0010ffff As UCSCHAR118 119 13 TypeDef LANGID = Word 120 14 TypeDef LCID = DWord … … 122 16 TypeDef LGRPID = DWord 123 17 124 TypeDef HRESULT = Long125 TypeDef ATOM = Word126 TypeDef COLORREF = DWord127 128 18 TypeDef PROPID = DWord 129 19 130 TypeDef RECTL = RECT131 TypeDef SIZEL = SIZE132 133 TypeDef PVOID = VoidPtr134 TypeDef LPVOID = VoidPtr135 TypeDef LPCVOID = VoidPtr136 137 TypeDef FARPROC = *Function() As LONG_PTR138 TypeDef NEARPROC = FARPROC139 TypeDef PROC = FARPROC140 20 TypeDef WNDPROC = *Function(hwnd As HWND, msg As DWord, wParam As WPARAM, lParam As LPARAM) As LRESULT 141 21 TypeDef DLGPROC = *Function(hwnd As HWND, msg As DWord, wParam As WPARAM, lParam As LPARAM) As LONG_PTR 142 22 23 #require <windef.ab> 143 24 #require <api_winerror.sbp> 144 25 #require <api_system.sbp>
Note:
See TracChangeset
for help on using the changeset viewer.