Changeset 170


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

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

Location:
Include
Files:
5 added
10 edited

Legend:

Unmodified
Added
Removed

  • Include/api_gdi.sbp

    r160 r170  
    4545
    4646TypeDef BCHAR = TBYTE
    47 
    48 Type _System_DeclareHandle_HPALETTE:unused As DWord:End Type
    49 TypeDef HPALETTE = *_System_DeclareHandle_HPALETTE
    50 
    51 ' Point/Rectangle/Size struct
    52 Type POINTAPI
    53     x As Long
    54     y As Long
    55 End Type
    56 
    57 Type RECT
    58     left As Long
    59     top As Long
    60     right As Long
    61     bottom As Long
    62 End Type
    63 
    64 Type SIZE
    65     cx As Long
    66     cy As Long
    67 End Type
    6847
    6948' Metafile and EnhancedMetafile
    … …  
    12371216
    12381217/* OpenGL Support */
    1239 Type _System_DeclareHandle_HGLRC:unused As DWord:End Type
    1240 TypeDef HGLRC = *_System_DeclareHandle_HGLRC
    12411218
    12421219Declare Function wglCopyContext Lib "opengl32" (hglrcSource As HGLRC, hglrcDest As HGLRC, mask As DWord) As BOOL

  • Include/api_reg.sbp

    r141 r170  
    3838#endif
    3939
    40 
    41 Const READ_CONTROL =        &H00020000
    42 Const STANDARD_RIGHTS_ALL = &H001F0000
    43 
    44 
    45 ' Security Mask
    46 Const KEY_QUERY_VALUE =        &H0001
    47 Const KEY_SET_VALUE =          &H0002
    48 Const KEY_CREATE_SUB_KEY =     &H0004
    49 Const KEY_ENUMERATE_SUB_KEYS = &H0008
    50 Const KEY_NOTIFY =             &H0010
    51 Const KEY_CREATE_LINK =        &H0020
    52 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_READ
    55 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 
    5840' Options
    5941Const REG_OPTION_NON_VOLATILE =   &H00000000
    60 Const REG_OPTION_VOLATILE =       &H00000001
    61 Const REG_OPTION_BACKUP_RESTORE = &H00000004
     42'Const REG_OPTION_VOLATILE =       &H00000001
     43'Const REG_OPTION_BACKUP_RESTORE = &H00000004
    6244
    6345
    … …  
    7052Const HKEY_CURRENT_CONFIG =   &H80000005
    7153Const HKEY_DYN_DATA =         &H80000006
    72 
    73 
    74 ' Key Create/Open Disposition
    75 Const REG_CREATED_NEW_KEY =     &H00000001
    76 Const REG_OPENED_EXISTING_KEY = &H00000002
    77 
    78 
    79 ' Data Type
    80 Const REG_NONE =                0
    81 Const REG_SZ =                  1
    82 Const REG_EXPAND_SZ =           2
    83 Const REG_BINARY =              3
    84 Const REG_DWORD =               4
    85 Const REG_DWORD_LITTLE_ENDIAN = 4
    86 Const REG_DWORD_BIG_ENDIAN =    5
    87 Const REG_LINK =                6
    88 Const REG_MULTI_SZ =            7
    89 Const REG_RESOURCE_LIST =       8
    9054
    9155Type VALENTW

  • Include/api_shell.sbp

    r160 r170  
    4343#endif
    4444
     45Type _System_DeclareHandle_HDROP:unused As DWord:End Type
     46TypeDef HDROP     = *_System_DeclareHandle_HDROP
     47
    4548Interface IEnumIDList
     49    Inherits IUnknown
    4650End Interface
    4751

  • 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

  • Include/api_window.sbp

    r160 r170  
    432432End Type
    433433Declare Function BeginPaint Lib "user32" (hWnd As HWND, ByRef Paint As PAINTSTRUCT) As HDC
    434 
    435434Declare Function BringWindowToTop Lib "user32" (hWnd As HWND) As Long
    436435Declare Function CallNextHookEx Lib "user32" (hHook As HHOOK, nCode As Long, wParam As WPARAM, lParam As LPARAM) As LRESULT

  • Include/basic.sbp

    r168 r170  
    3838TypeDef Int8 = SByte
    3939
    40 TypeDef BOOL = Long
    41 
    42 ' Boolena型の定数
     40' Boolean型の定数
    4341Const True = 1 As Boolean
    4442Const False = 0 As Boolean
     43
     44' BOOL型の定数（Booleanへの移行を推奨）
     45Const _System_TRUE = -1
     46Const _System_FALSE = 0
    4547
    4648' 文字型
    … …  
    5052TypeDef Char = SByte
    5153#endif
    52 
    5354
    5455
    … …  
    6162TypeDef SinglePtr = *Single
    6263TypeDef DoublePtr = *Double
    63 
    64 #ifdef _WIN64
    65 TypeDef LONG_PTR =  Int64
    66 TypeDef ULONG_PTR = QWord
    67 TypeDef HALF_PTR = Long
    68 TypeDef UHALF_PTR = DWord
    69 #else
    70 TypeDef LONG_PTR = Long
    71 TypeDef ULONG_PTR = DWord
    72 TypeDef HALF_PTR = Integer
    73 TypeDef UHALF_PTR = Word
    74 #endif
    75 TypeDef DWORD_PTR = ULONG_PTR
    7664
    7765Sub SetPointer(pPtr As VoidPtr, p As VoidPtr)
    … …  
    10694    GetChar = p[0]
    10795End Function
    108 
    109 TypeDef SIZE_T = ULONG_PTR
    110 TypeDef SSIZE_T = LONG_PTR
    111 
    112 
    11396
    11497'--------------------------

  • Include/basic/function.sbp

    r167 r170  
    330330End Function
    331331
    332 Const HIBYTE(w) = (((w As Word) >> 8) And &HFF) As Byte
    333 Const LOBYTE(w) = ((w As Word) And &HFF) As Byte
    334 Const HIWORD(dw) = (((dw As DWord) >> 16) And &HFFFF) As Word
    335 Const LOWORD(dw) = ((dw As DWord) And &HFFFF) As Word
    336332Const HIDWORD(qw) = (((qw As QWord) >> 32) And &HFFFFFFFF) As DWord
    337333Const LODWORD(qw) = ((qw As QWord) And &HFFFFFFFF) As DWord
    338334
    339 Const MAKEWORD(l, h) = (((l As Word) And &HFF) Or (((h As Word) And &HFF) << 8)) As Word
    340335Const MAKEDWORD(l, h) = (((l As DWord) And &HFFFF) Or (((h As DWord) And &HFFFF) << 16)) As DWord
    341336Const 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 Long
    343337
    344338'------------

  • Include/objbase.sbp

    r160 r170  
    2222TypeDef RPC_AUTH_IDENTITY_HANDLE = VoidPtr 'Declared in Rpcdce.sbp; include Rpc.sbp.
    2323TypeDef RPC_AUTHZ_HANDLE = VoidPtr 'Declared in Rpcdce.sbp; include Rpc.sbp.
    24 
    25 TypeDef IID = GUID
    26 TypeDef CLSID = GUID
    2724
    2825Sub LISet32(ByRef li As LARGE_INTEGER, v As Long)
    … …  
    193190'Declare Sub DebugCoSetRpcFault Lib "" (ul As DWord)
    194191'#endif
    195 
    196 Dim GUID_NULL = [0, 0, 0, [0, 0, 0, 0, 0, 0, 0, 0]] As GUID
    197 
    198 Function IsEqualGUID(ByRef rguid1 As GUID, ByRef rguid2 As GUID) As BOOL
    199     IsEqualGUID = Not memcmp(VarPtr(rguid1),VarPtr(rguid2),SizeOf(GUID))
    200 End Function
    201 Function IsEqualIID(ByRef riid1 As GUID, ByRef riid2 As GUID) As BOOL
    202     IsEqualIID=IsEqualGUID(riid1,riid2)
    203 End Function
    204 Function IsEqualCLSID(ByRef rclsid1 As CLSID, ByRef rclsid2 As CLSID) As BOOL
    205     IsEqualCLSID=IsEqualGUID(rclsid1,rclsid2)
    206 End Function
    207192
    208193'#if (_WIN32_WINNT >= 0x0500)

  • Include/system/gc.sbp

    r144 r170  
    1919Const _System_GC_FLAG_INITZERO = 4
    2020Const _System_GC_FLAG_OBJECT = 8
    21 
    22 Const THREAD_GET_CONTEXT  = &H0008
    2321
    2422Class _System_CGarbageCollection
    … …  
    122120    End Sub
    123121
    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)
    125123        iAllSize+=size
    126124
    … …  
    239237                If pbMark[index]=0 Then
    240238                    pbMark[index]=1
    241                    
     239
    242240                    If (pdwFlags[index] and _System_GC_FLAG_ATOMIC)=0 Then
    243241                        'ヒープ領域がポインタ値を含む可能性があるとき
    244242                        If ppPtr[index] = 0 Then
    245243                            'エラー
    246                            
     244
    247245                        End If
    248246                        Scan(ppPtr[index] As *LONG_PTR,pSize[index],pbMark)
    … …  
    426424            OutputDebugString( Ex"Object dump complete.\r\n" )
    427425        End If
    428        
     426
    429427    End Sub
    430428

  • Include/windows.sbp

    r168 r170  
    44#ifndef _INC_WINDOWS
    55#define _INC_WINDOWS
    6 
    7 
    8 TypeDef HANDLE    = VoidPtr
    9 
    10 'variable type - System
    11 TypeDef HGLOBAL   = HANDLE
    12 TypeDef HLOCAL    = HANDLE
    13 Type _System_DeclareHandle_HINSTANCE:unused As DWord:End Type
    14 TypeDef HINSTANCE = *_System_DeclareHandle_HINSTANCE
    15 TypeDef HMODULE = HINSTANCE
    16 Type _System_DeclareHandle_HKEY:unused As DWord:End Type
    17 TypeDef HKEY      = *_System_DeclareHandle_HKEY
    18 TypeDef HFILE     = Long
    19 Type _System_DeclareHandle_HANDLE:unused As DWord:End Type
    20 TypeDef HRSRC = *_System_DeclareHandle_HANDLE
    21 
    22 'variable type - User
    23 Type _System_DeclareHandle_HMENU:unused As DWord:End Type
    24 TypeDef HMENU     = *_System_DeclareHandle_HMENU
    25 Type _System_DeclareHandle_HWND:unused As DWord:End Type
    26 TypeDef HWND      = *_System_DeclareHandle_HWND
    27 Type _System_DeclareHandle_HACCEL:unused As DWord:End Type
    28 TypeDef HACCEL      = *_System_DeclareHandle_HACCEL
    29 
    30 'variable type - GDI
    31 Type _System_DeclareHandle_HBITMAP:unused As DWord:End Type
    32 TypeDef HBITMAP   = *_System_DeclareHandle_HBITMAP
    33 Type _System_DeclareHandle_HBRUSH:unused As DWord:End Type
    34 TypeDef HBRUSH    = *_System_DeclareHandle_HBRUSH
    35 Type _System_DeclareHandle_HCURSOR:unused As DWord:End Type
    36 TypeDef HCURSOR   = *_System_DeclareHandle_HCURSOR
    37 Type _System_DeclareHandle_HDC:unused As DWord:End Type
    38 TypeDef HDC       = *_System_DeclareHandle_HDC
    39 Type _System_DeclareHandle_HFONT:unused As DWord:End Type
    40 TypeDef HFONT     = *_System_DeclareHandle_HFONT
    41 Type _System_DeclareHandle_HGDIOBJ:unused As DWord:End Type
    42 TypeDef HGDIOBJ   = *_System_DeclareHandle_HGDIOBJ
    43 Type _System_DeclareHandle_HICON:unused As DWord:End Type
    44 TypeDef HICON     = *_System_DeclareHandle_HICON
    45 Type _System_DeclareHandle_HPEN:unused As DWord:End Type
    46 TypeDef HPEN      = *_System_DeclareHandle_HPEN
    47 Type _System_DeclareHandle_HRGN:unused As DWord:End Type
    48 TypeDef HRGN      = *_System_DeclareHandle_HRGN
    49 Type _System_DeclareHandle_HMETAFILE:unused As DWord:End Type
    50 TypeDef HMETAFILE = *_System_DeclareHandle_HMETAFILE
    51 Type _System_DeclareHandle_HENHMETAFILE:unused As DWord:End Type
    52 TypeDef HENHMETAFILE = *_System_DeclareHandle_HENHMETAFILE
    53 Type _System_DeclareHandle_HTASK:unused As DWord:End Type
    54 TypeDef HTASK = *_System_DeclareHandle_HTASK
    55 Type _System_DeclareHandle_HHOOK:unused As DWord:End Type
    56 TypeDef HHOOK = *_System_DeclareHandle_HHOOK
    57 Type _System_DeclareHandle_HMONITOR:unused As DWord:End Type
    58 TypeDef HMONITOR = *_System_DeclareHandle_HMONITOR
    59 
    60 'variable type - Shell
    61 Type _System_DeclareHandle_HDROP:unused As DWord:End Type
    62 TypeDef HDROP     = *_System_DeclareHandle_HDROP
    63 
    64 
    65 TypeDef LRESULT = LONG_PTR
    66 
    67 TypeDef WPARAM = ULONG_PTR
    68 TypeDef LPARAM = LONG_PTR
    69 
    70 TypeDef CHAR = SByte
    71 TypeDef WCHAR = Word
    72 TypeDef TCHAR = Char
    73 
    74 #ifdef UNICODE
    75 TypeDef TBYTE = Char
    76 
    77 TypeDef PSTR = *SByte
    78 TypeDef PCSTR = *SByte
    79 
    80 TypeDef PWSTR = *Char
    81 TypeDef PCWSTR = *Char
    82 
    83 TypeDef PTSTR = PWSTR
    84 TypeDef PCTSTR = PCWSTR
    85 #else
    86 TypeDef TBYTE = Byte
    87 
    88 TypeDef PSTR = *Char
    89 TypeDef PCSTR = *Char
    90 
    91 TypeDef PWSTR = *WCHAR
    92 TypeDef PCWSTR = *WCHAR
    93 
    94 TypeDef PTSTR = PSTR
    95 TypeDef PCTSTR = PCSTR
    96 #endif
    97 
    98 TypeDef LPSTR = PSTR
    99 TypeDef LPCSTR = PCSTR
    100 
    101 TypeDef LPWSTR = PWSTR
    102 TypeDef LPCWSTR = PCWSTR
    103 
    104 TypeDef LPTSTR = PTSTR
    105 TypeDef LPCTSTR = PCTSTR
    1066
    1077TypeDef OLECHAR = WCHAR
    … …  
    11111TypeDef BSTR = LPOLESTR
    11212
    113 TypeDef UCSCHAR = DWord
    114 
    115 Const UCSCHAR_INVALID_CHARACTER = &hffffffff As UCSCHAR
    116 Const MIN_UCSCHAR = 0 As UCSCHAR
    117 Const MAX_UCSCHAR = &h0010ffff As UCSCHAR
    118 
    11913TypeDef LANGID = Word
    12014TypeDef LCID = DWord
    … …  
    12216TypeDef LGRPID = DWord
    12317
    124 TypeDef HRESULT = Long
    125 TypeDef ATOM = Word
    126 TypeDef COLORREF = DWord
    127 
    12818TypeDef PROPID = DWord
    12919
    130 TypeDef RECTL = RECT
    131 TypeDef SIZEL = SIZE
    132 
    133 TypeDef PVOID = VoidPtr
    134 TypeDef LPVOID = VoidPtr
    135 TypeDef LPCVOID = VoidPtr
    136 
    137 TypeDef FARPROC = *Function() As LONG_PTR
    138 TypeDef NEARPROC = FARPROC
    139 TypeDef PROC = FARPROC
    14020TypeDef WNDPROC = *Function(hwnd As HWND, msg As DWord, wParam As WPARAM, lParam As LPARAM) As LRESULT
    14121TypeDef DLGPROC = *Function(hwnd As HWND, msg As DWord, wParam As WPARAM, lParam As LPARAM) As LONG_PTR
    14222
     23#require <windef.ab>
    14324#require <api_winerror.sbp>
    14425#require <api_system.sbp>
Note: See TracChangeset for help on using the changeset viewer.