Ignore:
Timestamp:
Feb 25, 2008, 2:35:43 AM (17 years ago)
Author:
NoWest
Message:

構造体を追加

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Include/api_window.sbp

    r324 r418  
    446446Declare Function BeginPaint Lib "user32" (hWnd As HWND, ByRef Paint As PAINTSTRUCT) As HDC
    447447Declare Function BringWindowToTop Lib "user32" (hWnd As HWND) As Long
     448
    448449Declare Function CallNextHookEx Lib "user32" (hHook As HHOOK, nCode As Long, wParam As WPARAM, lParam As LPARAM) As LRESULT
     450Function DefHookProc(ByVal nCode As Long, ByVal wParam As WPARAM, ByVal lParam As LPARAM, ByVal phhk As *HHOOK) As LRESULT
     451    Return CallNextHookEx(phhk[0], nCode, wParam, lParam)
     452End Function
     453
    449454Declare Function CallWindowProc Lib "user32" Alias _FuncName_CallWindowProc (lpPrevWndFunc As WNDPROC, hWnd As HWND, Msg As DWord, wParam As WPARAM, lParam As LPARAM) As LRESULT
    450455Declare Function ChangeClipboardChain Lib "user32" (hwndRemove As HWND, hwndNewNext As HWND) As BOOL
    … …  
    486491Declare Function CreateCursor Lib "user32" (hInst As HINSTANCE, xHotSpot As Long, yHotSpot As Long, nWidth As Long, nHeight As Long, pvANDPlane As VoidPtr, pvXORPlane As VoidPtr) As HCURSOR
    487492Declare Function CreateIcon Lib "user32" (hInst As HINSTANCE, nWidth As Long, nHeight As Long, cPlanes As Byte, cBitsPixel As Byte, lpbANDbits As VoidPtr, lpbXORbits As VoidPtr) As HICON
     493Declare Function LookupIconIdFromDirectory Lib "user32" (ByVal presbits As *BYTE, ByVal fIcon As BOOL) As Long
     494Declare Function LookupIconIdFromDirectoryEx Lib "user32" (ByVal presbits As *BYTE, ByVal fIcon As BOOL, ByVal cxDesired As Long, ByVal cyDesired As Long, ByVal Flags As DWord) As Long
    488495
    489496Type ICONINFO
    … …  
    502509Declare Function CreateWindowEx Lib "user32" Alias _FuncName_CreateWindowEx (dwExStyle As DWord, pClassName As PCTSTR, lpWindowName As PCTSTR, dwStyle As DWord, x As Long, y As Long, nWidth As Long, nHeight As Long, hwndParent As HWND, hmenu As HMENU, hInstance As HINSTANCE, pParm As VoidPtr) As HWND
    503510
     511Declare Function CreateMDIWindowA Lib "user32" (ByVal lpClassName As LPCSTR, ByVal lpWindowName As LPCSTR, ByVal dwStyle As DWord, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As HWND, ByVal hInstance As HINSTANCE, ByVal lParam As LPARAM) As HWND
     512Declare Function CreateMDIWindowW Lib "user32" (ByVal lpClassName As LPCWSTR, ByVal lpWindowName As LPCWSTR, ByVal dwStyle As DWord, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As HWND, ByVal hInstance As HINSTANCE, ByVal lParam As LPARAM) As HWND
     513#ifdef UNICODE
     514Declare Function CreateMDIWindow Lib "user32" Alias "CreateMDIWindowW" (ByVal lpClassName As LPCWSTR, ByVal lpWindowName As LPCWSTR, ByVal dwStyle As DWord, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As HWND, ByVal hInstance As HINSTANCE, ByVal lParam As LPARAM) As HWND
     515#else
     516Declare Function CreateMDIWindow Lib "user32" Alias "CreateMDIWindowA" (ByVal lpClassName As LPCSTR, ByVal lpWindowName As LPCSTR, ByVal dwStyle As DWord, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As HWND, ByVal hInstance As HINSTANCE, ByVal lParam As LPARAM) As HWND
     517#endif ' !UNICODE
     518
    504519Declare Function DefDlgProc Lib "user32" Alias _FuncName_DefWindowProc (hDlg As HWND, Msg As DWord, wParam As WPARAM, lParam As LPARAM) As LRESULT
    505520Declare Function DefWindowProc Lib "user32" Alias _FuncName_DefWindowProc (hWnd As HWND, wMsg As DWord, wParam As WPARAM, lParam As LPARAM) As LRESULT
     521
     522Declare Function DefFrameProcA Lib "user32" (ByRef hWnd As HWND, ByRef hWndMDIClient As HWND, ByVal uMsg As DWord, ByVal wParam As WPARAM, ByVal lParam As LPARAM) As LRESULT
     523Declare Function DefFrameProcW Lib "user32" (ByRef hWnd As HWND, ByRef hWndMDIClient As HWND, ByVal uMsg As DWord, ByVal wParam As WPARAM, ByVal lParam As LPARAM) As LRESULT
     524#ifdef UNICODE
     525Declare Function DefFrameProc Lib "user32" Alias "DefFrameProcW" (ByRef hWnd As HWND, ByRef hWndMDIClient As HWND, ByVal uMsg As DWord, ByVal wParam As WPARAM, ByVal lParam As LPARAM) As LRESULT
     526#else
     527Declare Function DefFrameProc Lib "user32" Alias "DefFrameProcA" (ByRef hWnd As HWND, ByRef hWndMDIClient As HWND, ByVal uMsg As DWord, ByVal wParam As WPARAM, ByVal lParam As LPARAM) As LRESULT
     528#endif ' !UNICODE
     529
     530Declare Function DefMDIChildProcA Lib "user32" (ByVal hWnd As HWND, ByVal uMsg As DWord, ByVal wParam As WPARAM, ByVal lParam As LPARAM) As LRESULT
     531Declare Function DefMDIChildProcW Lib "user32" (ByVal hWnd As HWND, ByVal uMsg As DWord, ByVal wParam As WPARAM, ByVal lParam As LPARAM) As LRESULT
     532#ifdef UNICODE
     533Declare Function DefMDIChildProc Lib "user32" Alias "DefMDIChildProcW" (ByVal hWnd As HWND, ByVal uMsg As DWord, ByVal wParam As WPARAM, ByVal lParam As LPARAM) As LRESULT
     534#else
     535Declare Function DefMDIChildProc Lib "user32" Alias "DefMDIChildProcA" (ByVal hWnd As HWND, ByVal uMsg As DWord, ByVal wParam As WPARAM, ByVal lParam As LPARAM) As LRESULT
     536#endif ' !UNICODE
     537
    506538Declare Function DeleteMenu Lib "user32" (hMenu As HMENU, uPosition As DWord, uFlags As DWord) As BOOL
    507539Declare Function DestroyAcceleratorTable Lib "user32" (hAccel As HACCEL) As BOOL
     540
     541Declare Function TranslateMDISysAccel Lib "user32" (ByVal hWndClient As HWND, ByRef lpMsg As MSG) As BOOL
     542Declare Function ArrangeIconicWindows Lib "user32" (ByVal hWnd As HWND) As DWord
     543Declare Function TileWindows Lib "user32" (ByVal hwndParent As HWND, ByVal wHow As DWord, ByRef lpRect As RECT, ByVal cKids As DWord, ByVal lpKids As *HWND) As Word
     544Declare Function CascadeWindows Lib "user32" (ByVal hwndParent As HWND, ByVal wHow As DWord, ByRef lpRect As RECT, ByVal cKids As DWord, ByVal lpKids As *HWND) As Word
     545
    508546Declare Function DestroyCaret Lib "user32" () As BOOL
    509547Declare Function DestroyCursor Lib "user32" (hCursor As HCURSOR) As BOOL
    … …  
    530568End Type
    531569Declare Function DialogBoxIndirectParam Lib "user32" Alias _FuncName_DialogBoxIndirectParam (hInstance As HINSTANCE, DialogTemplate As *DLGTEMPLATE, hwndParent As HWND, pDialogFunc As DLGPROC, InitParam As LPARAM) As LONG_PTR
     570Declare Function MapDialogRect Lib "user32" (ByVal hDlg As HWND, ByRef lpRect As RECT) As BOOL
    532571Declare Function DispatchMessage Lib "user32" Alias _FuncName_DispatchMessage (ByRef Msg As MSG) As LRESULT
    533572Declare Function DlgDirList Lib "user32" Alias _FuncName_DlgDirList (hDlg As HWND, lpPathSpec As LPTSTR, nIDListBox As Long, nIDStaticPath As Long, uFileType As DWord) As Long
    … …  
    614653Declare Function DrawMenuBar Lib "user32" (hwnd As HWND) As BOOL
    615654
     655Type DROPSTRUCT
     656    hwndSource As HWND
     657    hwndSink As HWND
     658    wFmt As DWord
     659    dwData As ULONG_PTR
     660    ptDrop As POINTAPI
     661    dwControlData As DWord
     662End Type
     663TypeDef PDROPSTRUCT= *DROPSTRUCT
     664TypeDef LPDROPSTRUCT= *DROPSTRUCT
     665
     666Const DOF_EXECUTABLE = &H8001
     667Const DOF_DOCUMENT = &H8002
     668Const DOF_DIRECTORY = &H8003
     669Const DOF_MULTIPLE = &H8004
     670Const DOF_PROGMAN = &H0001
     671Const DOF_SHELLDATA = &H0002
     672
     673Const DO_DROPFILE = &H454C4946
     674Const DO_PRINTFILE = &H544E5250
     675
     676Declare Function DragObject Lib "user32" (ByVal hwndParent As HWND, ByVal hwndFrom As HWND, ByVal fmt As DWord, ByVal data As ULONG_PTR, ByVal hcur As HCURSOR) As DWord
     677Declare Function DragDetect Lib "user32" (ByVal hwnd As HWND, ByRef pt As POINTAPI) As BOOL
     678
     679
    616680Const DT_TOP =            &H00000000
    617681Const DT_LEFT =           &H00000000
    … …  
    646710Declare Function DrawTextEx Lib "user32" Alias _FuncName_DrawTextEx (hdc As HDC, pchText As PCTSTR, cchText As Long, ByRef Rect As RECT, dwDTFormat As DWord, ByRef DTParams As DRAWTEXTPARAMS) As BOOL
    647711
     712TypeDef GRAYSTRINGPROC = *Function(hDC As HDC, lParam As LPARAM, l As Long) As BOOL
     713
     714Declare Function GrayStringA Lib "user32" (ByVal hDC As HDC, ByVal hBrush As HBRUSH, ByVal lpOutputFunc As GRAYSTRINGPROC, ByVal lpData As LPARAM, ByVal nCount As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long) As BOOL
     715Declare Function GrayStringW Lib "user32" (ByVal hDC As HDC, ByVal hBrush As HBRUSH, ByVal lpOutputFunc As GRAYSTRINGPROC, ByVal lpData As LPARAM, ByVal nCount As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long) As BOOL
     716#ifdef UNICODE
     717Declare Function GrayString Lib "user32" Alias "GrayStringW" (ByVal hDC As HDC, ByVal hBrush As HBRUSH, ByVal lpOutputFunc As GRAYSTRINGPROC, ByVal lpData As LPARAM, ByVal nCount As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long) As BOOL
     718#else
     719Declare Function GrayString Lib "user32" Alias "GrayStringA" (ByVal hDC As HDC, ByVal hBrush As HBRUSH, ByVal lpOutputFunc As GRAYSTRINGPROC, ByVal lpData As LPARAM, ByVal nCount As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long) As BOOL
     720#endif ' !UNICODE
     721
     722Const DST_COMPLEX = &H0000
     723Const DST_TEXT = &H0001
     724Const DST_PREFIXTEXT = &H0002
     725Const DST_ICON = &H0003
     726Const DST_BITMAP = &H0004
     727
     728Const DSS_NORMAL = &H0000
     729Const DSS_UNION = &H0010
     730Const DSS_DISABLED = &H0020
     731Const DSS_MONO = &H0080
     732Const DSS_HIDEPREFIX = &H0200
     733Const DSS_PREFIXONLY = &H0400
     734Const DSS_RIGHT = &H8000
     735
     736TypeDef DRAWSTATEPROC = *Function(hdc As HDC, lData As LPARAM, wData As WPARAM, cx As Long, cy As Long) As BOOL
     737
     738Declare Function DrawStateA Lib "user32" (ByVal hdc As HDC, ByVal hbrFore As HBRUSH, ByVal qfnCallBack As DRAWSTATEPROC, ByVal lData As LPARAM, ByVal wData As WPARAM, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal uFlags As DWord) As BOOL
     739Declare Function DrawStateW Lib "user32" (ByVal hdc As HDC, ByVal hbrFore As HBRUSH, ByVal qfnCallBack As DRAWSTATEPROC, ByVal lData As LPARAM, ByVal wData As WPARAM, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal uFlags As DWord) As BOOL
     740#ifdef UNICODE
     741Declare Function DrawState Lib "user32" Alias "DrawStateW" (ByVal hdc As HDC, ByVal hbrFore As HBRUSH, ByVal qfnCallBack As DRAWSTATEPROC, ByVal lData As LPARAM, ByVal wData As WPARAM, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal uFlags As DWord) As BOOL
     742#else
     743Declare Function DrawState Lib "user32" Alias "DrawStateA" (ByVal hdc As HDC, ByVal hbrFore As HBRUSH, ByVal qfnCallBack As DRAWSTATEPROC, ByVal lData As LPARAM, ByVal wData As WPARAM, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal uFlags As DWord) As BOOL
     744#endif ' !UNICODE
     745
     746Declare Function TabbedTextOutA Lib "user32" (ByVal hdc As HDC, ByVal x As Long, ByVal y As Long, ByVal lpString As LPCSTR, ByVal chCount As Long, ByVal nTabPositions As Long, ByVal lpnTabStopPositions As *Long, ByVal nTabOrigin As Long) As Long
     747Declare Function TabbedTextOutW Lib "user32" (ByVal hdc As HDC, ByVal x As Long, ByVal y As Long, ByVal lpString As LPCWSTR, ByVal chCount As Long, ByVal nTabPositions As Long, ByVal lpnTabStopPositions As *Long, ByVal nTabOrigin As Long) As Long
     748#ifdef UNICODE
     749Declare Function TabbedTextOut Lib "user32" Alias "TabbedTextOutW" (ByVal hdc As HDC, ByVal x As Long, ByVal y As Long, ByVal lpString As LPCWSTR, ByVal chCount As Long, ByVal nTabPositions As Long, ByVal lpnTabStopPositions As *Long, ByVal nTabOrigin As Long) As Long
     750#else
     751Declare Function TabbedTextOut Lib "user32" Alias "TabbedTextOutA" (ByVal hdc As HDC, ByVal x As Long, ByVal y As Long, ByVal lpString As LPCSTR, ByVal chCount As Long, ByVal nTabPositions As Long, ByVal lpnTabStopPositions As *Long, ByVal nTabOrigin As Long) As Long
     752#endif ' !UNICODE
     753
     754Declare Function GetTabbedTextExtentA Lib "user32" (ByVal hdc As HDC, ByVal lpString As LPCSTR, ByVal chCount As Long, ByVal nTabPositions As Long, ByVal lpnTabStopPositions As *Long) As DWord
     755Declare Function GetTabbedTextExtentW Lib "user32" (ByVal hdc As HDC, ByVal lpString As LPCWSTR, ByVal chCount As Long, ByVal nTabPositions As Long, ByVal lpnTabStopPositions As *Long) As DWord
     756#ifdef UNICODE
     757Declare Function GetTabbedTextExtent Lib "user32" Alias "GetTabbedTextExtentW" (ByVal hdc As HDC, ByVal lpString As LPCWSTR, ByVal chCount As Long, ByVal nTabPositions As Long, ByVal lpnTabStopPositions As *Long) As DWord
     758#else
     759Declare Function GetTabbedTextExtent Lib "user32" Alias "GetTabbedTextExtentA" (ByVal hdc As HDC, ByVal lpString As LPCSTR, ByVal chCount As Long, ByVal nTabPositions As Long, ByVal lpnTabStopPositions As *Long) As DWord
     760#endif ' !UNICODE
     761
    648762Declare Function EmptyClipboard Lib "user32" () As BOOL
    649763Declare Function EnableMenuItem Lib "user32" (hMenu As HMENU, uIDEnableItem As DWord, uEnable As DWord) As BOOL
    … …  
    669783Declare Function ExitWindowsEx Lib "user32" (uFlags As DWord, dwReserved As DWord) As BOOL
    670784Declare Function FillRect Lib "user32" (hdc As HDC, ByRef lpRect As RECT, hBrush As HBRUSH) As BOOL
     785
     786Declare Function DrawFocusRect Lib "user32" (ByVal hDC As HDC, ByRef lprc As RECT) As BOOL
     787
    671788Declare Function FindWindow Lib "user32" Alias _FuncName_FindWindow (pClassName As PCTSTR, lpWindowName As PCTSTR) As HWND
    672789Declare Function FindWindowEx Lib "user32" Alias _FuncName_FindWindowEx (hwndParent As HWND, hwndChildAfter As HWND, pszClass As PCTSTR, pszWindow As PCTSTR) As HWND
    … …  
    790907Declare Function GetProp Lib "user32" Alias _FuncName_GetProp (hWnd As HWND, pString As PCTSTR) As HANDLE
    791908Declare Function GetScrollInfo Lib "user32" (hWnd As HWND, fnBar As Long, ByRef lpsi As SCROLLINFO) As BOOL
     909
    792910Declare Function GetSubMenu Lib "user32" (hMenu As HMENU, nPos As Long) As HMENU
    793911
    … …  
    9211039Declare Function GetWindow Lib "user32" (hWnd As HWND, uCmd As DWord) As HWND
    9221040
     1041Declare Function GetTopWindow Lib "user32" (ByVal hWnd As HWND) As HWND
     1042
     1043Function GetNextWindow(ByVal hWnd As HWND, ByVal wCmd As DWord) As HWND
     1044    Return GetWindow(hWnd, wCmd) As HWND
     1045End Function
     1046Function GetSysModalWindow() As HWND
     1047    Return (NULL) As HWND
     1048End Function
     1049Function SetSysModalWindow(ByVal hWnd As HWND) As HWND
     1050    Return (NULL) As HWND
     1051End Function
     1052
     1053Function GetWindowTask(hWnd As HWND) As HANDLE
     1054    Return GetWindowThreadProcessId(hWnd, NULL) As HANDLE
     1055End Function
     1056
     1057Declare Function GetLastActivePopup Lib "user32" (ByVal hWnd As HWND) As HWND
     1058
     1059
    9231060Declare Function GetWindowContextHelpId Lib "user32" (hwnd As HWND) As DWord
    9241061
    … …  
    9651102
    9661103Declare Function GetWindowRect Lib "user32" (hWnd As HWND, ByRef lpRect As RECT) As BOOL
     1104
    9671105Declare Function GetWindowRgn Lib "user32" (hWnd As HWND, hRgn As HRGN) As Long
     1106Declare Function ExcludeUpdateRgn Lib "user32" (ByVal hDC As HDC, ByVal hWnd As HWND) As Long
     1107
    9681108Declare Function GetWindowText Lib "user32" Alias _FuncName_GetWindowText (hWnd As HWND, lpString As PTSTR, nMaxCount As Long) As Long
    9691109Declare Function GetWindowTextLength Lib "user32" Alias _FuncName_GetWindowTextLength (hWnd As HWND) As Long
    … …  
    11421282Declare Function ScrollDC Lib "user32" (hdc As HDC, dx As Long, dy As Long, ByRef rcScroll As RECT, ByRef rcClip As RECT, hrgnUpdate As HRGN, ByRef rcUpdate As RECT) As BOOL
    11431283
     1284Declare Function SetScrollPos Lib "user32" (ByVal hWnd As HWND, ByVal nBar As Long, ByVal nPos As Long, ByVal bRedraw As BOOL) As Long
     1285Declare Function GetScrollPos Lib "user32" (ByVal hWnd As HWND, ByVal nBar As Long) As Long
     1286Declare Function SetScrollRange Lib "user32" (ByVal hWnd As HWND, ByVal nBar As Long, ByVal nMinPos As Long, ByVal nMaxPos As Long, ByVal bRedraw As BOOL) As BOOL
     1287Declare Function GetScrollRange Lib "user32" (ByVal hWnd As HWND, ByVal nBar As Long, ByRef lpMinPos As Long, ByRef lpMaxPos As Long) As BOOL
     1288
    11441289Const SW_SCROLLCHILDREN = &H0001
    11451290Const SW_INVALIDATE =     &H0002
    … …  
    11721317Declare Function SetForegroundWindow Lib "user32" (hWnd As HWND) As BOOL
    11731318Declare Function SetKeyboardState Lib "user32" (lpKeyState As *Byte) As BOOL
     1319
     1320Declare Function GetKeyNameTextA Lib "user32" (ByVal lParam As Long, ByVal lpString As LPSTR, ByVal cchSize As Long) As Long
     1321Declare Function GetKeyNameTextW Lib "user32" (ByVal lParam As Long, ByVal lpString As LPWSTR, ByVal cchSize As Long) As Long
     1322#ifdef UNICODE
     1323Declare Function GetKeyNameText Lib "user32" Alias "GetKeyNameTextW" (ByVal lParam As Long, ByVal lpString As LPWSTR, ByVal cchSize As Long) As Long
     1324#else
     1325Declare Function GetKeyNameText Lib "user32" Alias "GetKeyNameTextA" (ByVal lParam As Long, ByVal lpString As LPSTR, ByVal cchSize As Long) As Long
     1326#endif ' !UNICODE
     1327Declare Function GetKeyboardType Lib "user32" (ByVal nTypeFlag As Long) As Long
     1328
     1329Declare Function ToAscii Lib "user32" (ByVal uVirtKey As DWord, ByVal uScanCode As DWord, ByVal lpKeyState As *Byte, ByVal lpChar As *WORD, ByVal uFlags As DWord) As Long
     1330Declare Function ToAsciiEx Lib "user32" (ByVal uVirtKey As DWord, ByVal uScanCode As DWord, ByVal lpKeyState As *Byte, ByVal lpChar As *WORD, ByVal uFlags As DWord, ByVal dwhkl As HKL) As Long
     1331
     1332Declare Function ToUnicode Lib "user32" (ByVal uVirtKey As DWord, ByVal uScanCode As DWord, ByVal lpKeyState As *Byte, ByVal pwszBuff As LPWSTR, ByVal cchBuff As Long, ByVal wFlags As DWord) As Long
     1333
     1334Declare Function OemKeyScan Lib "user32" (ByVal wOemChar As Word) As DWord
     1335
     1336Declare Function VkKeyScanA Lib "user32" (ByVal ch As SByte) As Integer
     1337Declare Function VkKeyScanW Lib "user32" (ByVal ch As Word) As Integer
     1338#ifdef UNICODE
     1339Declare Function VkKeyScan Lib "user32" Alias "VkKeyScanW" (ByVal ch As Word) As Integer
     1340#else
     1341Declare Function VkKeyScan Lib "user32" Alias "VkKeyScanA" (ByVal ch As SByte) As Integer
     1342#endif ' !UNICODE
     1343
     1344Declare Function VkKeyScanExA Lib "user32" (ByVal ch As SByte, ByVal dwhkl As HKL) As Integer
     1345Declare Function VkKeyScanExW Lib "user32" (ByVal ch As Word, ByVal dwhkl As HKL) As Integer
     1346#ifdef UNICODE
     1347Declare Function VkKeyScanEx Lib "user32" Alias "VkKeyScanW" (ByVal ch As Word, ByVal dwhkl As HKL) As Integer
     1348#else
     1349Declare Function VkKeyScanEx Lib "user32" Alias "VkKeyScanA" (ByVal ch As SByte, ByVal dwhkl As HKL) As Integer
     1350#endif ' !UNICODE
     1351
     1352Type MOUSEINPUT
     1353    dx As Long
     1354    dy As Long
     1355    mouseData As DWord
     1356    dwFlags As DWord
     1357    time As DWord
     1358    dwExtraInfo As ULONG_PTR
     1359End Type
     1360TypeDef PMOUSEINPUT = *MOUSEINPUT
     1361TypeDef LPMOUSEINPUT = *MOUSEINPUT
     1362
     1363Type KEYBDINPUT
     1364    wVk As Word
     1365    wScan As Word
     1366    dwFlags As DWord
     1367    time As DWord
     1368    dwExtraInfo As ULONG_PTR
     1369End Type
     1370TypeDef PKEYBDINPUT = *KEYBDINPUT
     1371TypeDef LPKEYBDINPUT = *KEYBDINPUT
     1372
     1373Type HARDWAREINPUT
     1374    uMsg As DWord
     1375    wParamL As Word
     1376    wParamH As Word
     1377End Type
     1378TypeDef PHARDWAREINPUT = *HARDWAREINPUT
     1379TypeDef LPHARDWAREINPUT = *HARDWAREINPUT
     1380
     1381Const INPUT_MOUSE = 0
     1382Const INPUT_KEYBOARD = 1
     1383Const INPUT_HARDWARE = 2
     1384
     1385Type INPUT
     1386    types As DWord
     1387#ifdef _WIN64
     1388    union[6] As DWord
     1389#else
     1390    union[5] As DWord
     1391#endif
     1392/*  Union
     1393        mi As MOUSEINPUT
     1394        ki As KEYBDINPUT
     1395        hi As HARDWAREINPUT
     1396    End Union*/
     1397End Type
     1398TypeDef PINPUT = *INPUT
     1399TypeDef LPINPUT = *INPUT
     1400
     1401Declare Function SendInput Lib "user32" (ByVal cInputs As DWord, ByVal pInputs As *INPUT, ByVal cbSize As Long) As DWord
     1402
     1403Declare Function MapVirtualKeyA Lib "user32" (ByVal uCode As DWord, ByVal uMapType As DWord) As DWord
     1404Declare Function MapVirtualKeyW Lib "user32" (ByVal uCode As DWord, ByVal uMapType As DWord) As DWord
     1405#ifdef UNICODE
     1406Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyW" (ByVal uCode As DWord, ByVal uMapType As DWord) As DWord
     1407#else
     1408Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal uCode As DWord, ByVal uMapType As DWord) As DWord
     1409#endif ' !UNICODE
     1410
     1411Declare Function MapVirtualKeyExA Lib "user32" (ByVal uCode As DWord, ByVal uMapType As DWord, ByVal dwhkl As HKL) As DWord
     1412Declare Function MapVirtualKeyExW Lib "user32" (ByVal uCode As DWord, ByVal uMapType As DWord, ByVal dwhkl As HKL) As DWord
     1413#ifdef UNICODE
     1414Declare Function MapVirtualKeyEx Lib "user32" Alias "MapVirtualKeyExW" (ByVal uCode As DWord, ByVal uMapType As DWord, ByVal dwhkl As HKL) As DWord
     1415#else
     1416Declare Function MapVirtualKeyEx Lib "user32" Alias "MapVirtualKeyExA" (ByVal uCode As DWord, ByVal uMapType As DWord, ByVal dwhkl As HKL) As DWord
     1417#endif ' !UNICODE
     1418
     1419Declare Function GetInputState Lib "user32" () As BOOL
     1420Declare Function GetQueueStatus Lib "user32" (ByVal flags As DWord) As DWord
     1421
     1422Const QS_KEY = &H0001
     1423Const QS_MOUSEMOVE = &H0002
     1424Const QS_MOUSEBUTTON = &H0004
     1425Const QS_POSTMESSAGE = &H0008
     1426Const QS_TIMER = &H0010
     1427Const QS_PAINT = &H0020
     1428Const QS_SENDMESSAGE = &H0040
     1429Const QS_HOTKEY = &H0080
     1430Const QS_ALLPOSTMESSAGE = &H0100
     1431'Const QS_RAWINPUT = &H0400
     1432
     1433Const QS_MOUSE = (QS_MOUSEMOVE or QS_MOUSEBUTTON)
     1434Const QS_INPUT = (QS_MOUSE or QS_KEY /* or QS_RAWINPUT*/)
     1435Const QS_ALLEVENTS = (QS_INPUT or QS_POSTMESSAGE or QS_TIMER or QS_PAINT or QS_HOTKEY)
     1436Const QS_ALLINPUT = (QS_INPUT or QS_POSTMESSAGE or QS_TIMER or QS_PAINT or QS_HOTKEY or QS_SENDMESSAGE)
     1437
     1438Declare Function MsgWaitForMultipleObjects Lib "user32" (ByVal nCount As DWord, ByVal pHandles As *HANDLE, ByVal fWaitAll As BOOL, ByVal dwMilliseconds As DWord, ByVal dwWakeMask As DWord) As DWord
     1439Declare Function MsgWaitForMultipleObjectsEx Lib "user32" (ByVal nCount As DWord, ByVal pHandles As *HANDLE, ByVal dwMilliseconds As DWord, ByVal dwWakeMask As DWord, ByVal dwFlags As DWord) As DWord
     1440
     1441Const MWMO_WAITALL = &H0001
     1442Const MWMO_ALERTABLE = &H0002
     1443Const MWMO_INPUTAVAILABLE = &H0004
     1444
     1445
    11741446Declare Function SetMenu Lib "user32" (hWnd As HWND, hMenu As HMENU) As BOOL
     1447
     1448Declare Function ChangeMenuA Lib "user32" (ByVal hMenu As HMENU, ByVal cmd As DWord, ByVal lpszNewItem As LPCSTR, ByVal cmdInsert As DWord, ByVal flags As DWord) As BOOL
     1449Declare Function ChangeMenuW Lib "user32" (ByVal hMenu As HMENU, ByVal cmd As DWord, ByVal lpszNewItem As LPCWSTR, ByVal cmdInsert As DWord, ByVal flags As DWord) As BOOL
     1450#ifdef UNICODE
     1451Declare Function ChangeMenu Lib "user32" Alias "ChangeMenuW" (ByVal hMenu As HMENU, ByVal cmd As DWord, ByVal lpszNewItem As LPCWSTR, ByVal cmdInsert As DWord, ByVal flags As DWord) As BOOL
     1452#else
     1453Declare Function ChangeMenu Lib "user32" Alias "ChangeMenuA" (ByVal hMenu As HMENU, ByVal cmd As DWord, ByVal lpszNewItem As LPCSTR, ByVal cmdInsert As DWord, ByVal flags As DWord) As BOOL
     1454#endif ' !UNICODE
     1455
     1456Declare Function HiliteMenuItem Lib "user32" (ByVal hWnd As HWND, ByVal hMenu As HMENU, ByVal uIDHiliteItem As DWord, ByVal uHilite As DWord) As BOOL
     1457
     1458Declare Function GetMenuStringA Lib "user32" (ByVal hMenu As HMENU, ByVal uIDItem As DWord, ByVal lpString As LPSTR, ByVal cchMax As Long, ByVal flags As DWord) As Long
     1459Declare Function GetMenuStringW Lib "user32" (ByVal hMenu As HMENU, ByVal uIDItem As DWord, ByVal lpString As LPWSTR, ByVal cchMax As Long, ByVal flags As DWord) As Long
     1460#ifdef UNICODE
     1461Declare Function GetMenuString Lib "user32" Alias "GetMenuStringW" (ByVal hMenu As HMENU, ByVal uIDItem As DWord, ByVal lpString As LPWSTR, ByVal cchMax As Long, ByVal flags As DWord) As Long
     1462#else
     1463Declare Function GetMenuString Lib "user32" Alias "GetMenuStringA" (ByVal hMenu As HMENU, ByVal uIDItem As DWord, ByVal lpString As LPSTR, ByVal cchMax As Long, ByVal flags As DWord) As Long
     1464#endif ' !UNICODE
     1465
     1466Declare Function GetMenuState Lib "user32" (ByVal hMenu As HMENU, ByVal uId As DWord, ByVal uFlags As DWord) As DWord
     1467
     1468Declare Function AppendMenuA Lib "user32" (ByVal hMenu As HMENU, ByVal uFlags As DWord, ByVal uIDNewItem As ULONG_PTR, ByVal lpNewItem As LPCSTR) As BOOL
     1469Declare Function AppendMenuW Lib "user32" (ByVal hMenu As HMENU, ByVal uFlags As DWord, ByVal uIDNewItem As ULONG_PTR, ByVal lpNewItem As LPCWSTR) As BOOL
     1470#ifdef UNICODE
     1471Declare Function AppendMenu Lib "user32" Alias "AppendMenuW" (ByVal hMenu As HMENU, ByVal uFlags As DWord, ByVal uIDNewItem As ULONG_PTR, ByVal lpNewItem As LPCWSTR) As BOOL
     1472#else
     1473Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu As HMENU, ByVal uFlags As DWord, ByVal uIDNewItem As ULONG_PTR, ByVal lpNewItem As LPCSTR) As BOOL
     1474#endif ' !UNICODE
     1475
     1476Declare Function ModifyMenuA Lib "user32" (ByVal hMnu As HMENU, ByVal uPosition As DWord, ByVal uFlags As DWord, ByVal uIDNewItem As ULONG_PTR, ByVal lpNewItem As LPCSTR) As BOOL
     1477Declare Function ModifyMenuW Lib "user32" (ByVal hMnu As HMENU, ByVal uPosition As DWord, ByVal uFlags As DWord, ByVal uIDNewItem As ULONG_PTR, ByVal lpNewItem As LPCWSTR) As BOOL
     1478#ifdef UNICODE
     1479Declare Function ModifyMenu Lib "user32" Alias "ModifyMenuW" (ByVal hMnu As HMENU, ByVal uPosition As DWord, ByVal uFlags As DWord, ByVal uIDNewItem As ULONG_PTR, ByVal lpNewItem As LPCWSTR) As BOOL
     1480#else
     1481Declare Function ModifyMenu Lib "user32" Alias "ModifyMenuA" (ByVal hMnu As HMENU, ByVal uPosition As DWord, ByVal uFlags As DWord, ByVal uIDNewItem As ULONG_PTR, ByVal lpNewItem As LPCSTR) As BOOL
     1482#endif ' !UNICODE
     1483
     1484Declare Function SetMenuItemBitmaps Lib "user32" (ByVal hMenu As HMENU, ByVal uPosition As DWord, ByVal uFlags As DWord, ByVal hBitmapUnchecked As HBITMAP, ByVal hBitmapChecked As HBITMAP) As BOOL
     1485
     1486Declare Function GetMenuCheckMarkDimensions Lib "user32" () As Long
     1487
     1488Type TPMPARAMS
     1489    cbSize As DWord
     1490    rcExclude As RECT
     1491End Type
     1492TypeDef LPTPMPARAMS = *TPMPARAMS
     1493
     1494Declare Function TrackPopupMenuEx Lib "user32" (ByVal hMenu As HMENU, ByVal fuFlags As DWord, ByVal x As Long, ByVal y As Long, ByVal hwnd As HWND, ByVal lptpm As *TPMPARAMS) As BOOL
     1495Declare Function GetMenuItemRect Lib "user32" (ByVal hWnd As HWND, ByVal hMenu As HMENU, ByVal uItem As DWord, ByRef lprcItem As RECT) As BOOL
     1496Declare Function MenuItemFromPoint Lib "user32" (ByVal hWnd As HWND, ByVal hMenu As HMENU, ByRef ptScreen As POINTAPI) As Long
     1497
    11751498Declare Function SetMenuContextHelpId Lib "user32" (hmenu As HMENU, dwContextHelpId As DWord) As BOOL
    11761499Declare Function SetMenuDefaultItem Lib "user32" (hMenu As HMENU, uItem As DWord, fByPos As DWord) As BOOL
    … …  
    11781501Declare Function SetParent Lib "user32" (hWndChild As HWND, hWndNewParent As HWND) As HWND
    11791502Declare Function SetProp Lib "user32" Alias _FuncName_SetProp (hWnd As HWND, pString As PCTSTR, hData As HANDLE) As BOOL
     1503
     1504TypeDef PROPENUMPROCEXA = *Function(ByVal hwnd As HWND, ByVal lpszString As LPSTR, ByVal hData As HANDLE, ByVal dwData As ULONG_PTR) As BOOL
     1505TypeDef PROPENUMPROCEXW = *Function(ByVal hwnd As HWND, ByVal lpszString As LPWSTR, ByVal hData As HANDLE, ByVal dwData As ULONG_PTR) As BOOL
     1506#ifdef UNICODE
     1507TypeDef PROPENUMPROCEX = PROPENUMPROCEXW
     1508#else
     1509TypeDef PROPENUMPROCEX = PROPENUMPROCEXA
     1510#endif ' !UNICODE
     1511
     1512Declare Function EnumPropsExA Lib "user32" (ByVal hWnd As HWND, ByVal lpEnumFunc As PROPENUMPROCEXA, ByVal lParam As LPARAM) As Long
     1513Declare Function EnumPropsExW Lib "user32" (ByVal hWnd As HWND, ByVal lpEnumFunc As PROPENUMPROCEXW, ByVal lParam As LPARAM) As Long
     1514#ifdef UNICODE
     1515Declare Function EnumPropsEx Lib "user32" Alias "EnumPropsExW" (ByVal hWnd As HWND, ByVal lpEnumFunc As PROPENUMPROCEXW, ByVal lParam As LPARAM) As Long
     1516#else
     1517Declare Function EnumPropsEx Lib "user32" Alias "EnumPropsExA" (ByVal hWnd As HWND, ByVal lpEnumFunc As PROPENUMPROCEXA, ByVal lParam As LPARAM) As Long
     1518#endif ' !UNICODE
     1519
     1520
     1521TypeDef PROPENUMPROCA = *Function(ByVal hwnd As HWND, ByVal lpszString As LPCSTR, ByVal hData As HANDLE) As BOOL
     1522TypeDef PROPENUMPROCW = *Function(ByVal hwnd As HWND, ByVal lpszString As LPCWSTR, ByVal hData As HANDLE) As BOOL
     1523#ifdef UNICODE
     1524TypeDef PROPENUMPROC = PROPENUMPROCW
     1525#else
     1526TypeDef PROPENUMPROC = PROPENUMPROCA
     1527#endif ' !UNICODE
     1528
     1529Declare Function EnumPropsA Lib "user32" (ByVal hWnd As HWND, ByVal lpEnumFunc As PROPENUMPROCA) As Long
     1530Declare Function EnumPropsW Lib "user32" (ByVal hWnd As HWND, ByVal lpEnumFunc As PROPENUMPROCW) As Long
     1531#ifdef UNICODE
     1532Declare Function EnumProps Lib "user32" Alias "EnumPropsW" (ByVal hWnd As HWND, ByVal lpEnumFunc As PROPENUMPROCW) As Long
     1533#else
     1534Declare Function EnumProps Lib "user32" Alias "EnumPropsA" (ByVal hWnd As HWND, ByVal lpEnumFunc As PROPENUMPROCA) As Long
     1535#endif ' !UNICODE
     1536
    11801537Declare Function SetRect Lib "User32" (ByRef rc As RECT, xLeft As Long, yTop As Long, xRight As Long, yBottom As Long) As Long
     1538Declare Function SetRectEmpty Lib "user32" (ByRef lprc As RECT) As BOOL
     1539Declare Function CopyRect Lib "user32" (ByRef lprcDst As RECT, ByRef lprcSrc As RECT) As BOOL
     1540Declare Function InflateRect Lib "user32" (ByRef lprc As RECT, ByVal dx As Long, ByVal dy As Long) As BOOL
     1541Declare Function IntersectRect Lib "user32" (ByRef lprcDst As RECT, ByRef lprcSrc1 As RECT, ByRef lprcSrc2 As RECT) As BOOL
     1542Declare Function UnionRect Lib "user32" (ByRef lprcDst As RECT, ByRef lprcSrc1 As RECT, ByRef lprcSrc2 As RECT) As BOOL
     1543Declare Function SubtractRect Lib "user32" (ByRef lprcDst As RECT, ByRef lprcSrc1 As RECT, ByRef lprcSrc2 As RECT) As BOOL
     1544Declare Function OffsetRect Lib "user32" (ByRef lprc As RECT, ByVal dx As Long, ByVal dy As Long) As BOOL
     1545Declare Function IsRectEmpty Lib "user32" (ByRef lprc As RECT) As BOOL
     1546Declare Function EqualRect Lib "user32" (ByRef lprc1 As RECT, ByRef lprc2 As RECT) As BOOL
     1547Declare Function PtInRect Lib "user32" (ByRef lprc As RECT, ByRef pt As POINTAPI) As BOOL
    11811548Declare Function SetScrollInfo Lib "user32" (hWnd As HWND, fnBar As Long, ByRef lpsi As SCROLLINFO, bRedraw As Long) As BOOL
    11821549Declare Function SetSysColors Lib "user32" (cElements As Long, lpaElements As *DWord, lpaRgbValues As *DWord) As BOOL
     1550Declare Function SetSystemCursor Lib "user32" (ByVal hcur As HCURSOR, ByVal id As DWord) As BOOL
     1551
     1552Const USER_TIMER_MAXIMUM = &H7FFFFFFF
     1553Const USER_TIMER_MINIMUM = &H0000000A
    11831554
    11841555TypeDef TIMERPROC = *Sub(hwnd As HWND, msg As DWord, idEvent As ULONG_PTR, dwTime As DWord)
    … …  
    15191890Declare Function WindowFromDC Lib "user32" (hDC As HDC) As HWND
    15201891Declare Function WindowFromPoint Lib "user32" (ptX As Long, ptY As Long) As HWND
     1892
     1893TypeDef HELPPOLY = DWord
     1894
     1895Type MULTIKEYHELPA
     1896    mkSize As DWord
     1897    mkKeylist As SByte
     1898    szKeyphrase[ELM(1)] As SByte
     1899End Type
     1900TypeDef PMULTIKEYHELPA=*MULTIKEYHELPA
     1901TypeDef LPMULTIKEYHELPA=*MULTIKEYHELPA
     1902Type MULTIKEYHELPW
     1903    mkSize As DWord
     1904    mkKeylist As Word
     1905    szKeyphrase[ELM(1)] As Word
     1906End Type
     1907TypeDef PMULTIKEYHELPW=*MULTIKEYHELPW
     1908TypeDef LPMULTIKEYHELPW=*MULTIKEYHELPW
     1909
     1910#ifdef UNICODE
     1911TypeDef MULTIKEYHELP = MULTIKEYHELPW
     1912TypeDef PMULTIKEYHELP = PMULTIKEYHELPW
     1913TypeDef LPMULTIKEYHELP = LPMULTIKEYHELPW
     1914#else
     1915TypeDef MULTIKEYHELP = MULTIKEYHELPA
     1916TypeDef PMULTIKEYHELP = PMULTIKEYHELPA
     1917TypeDef LPMULTIKEYHELP = LPMULTIKEYHELPA
     1918#endif ' UNICODE
     1919
     1920Type HELPWININFOA
     1921    wStructSize As Long
     1922    x As Long
     1923    y As Long
     1924    dx As Long
     1925    dy As Long
     1926    wMax As Long
     1927    rgchMember[ELM(2)] As SByte
     1928End Type
     1929TypeDef PHELPWININFOA=*HELPWININFOA
     1930TypeDef LPHELPWININFOA=*HELPWININFOA
     1931Type HELPWININFOW
     1932    wStructSize As Long
     1933    x As Long
     1934    y As Long
     1935    dx As Long
     1936    dy As Long
     1937    wMax As Long
     1938    rgchMember[ELM(2)] As Word
     1939End Type
     1940TypeDef PHELPWININFOW=*HELPWININFOW
     1941TypeDef LPHELPWININFOW=*HELPWININFOW
     1942
     1943#ifdef UNICODE
     1944TypeDef HELPWININFO = HELPWININFOW
     1945TypeDef PHELPWININFO = PHELPWININFOW
     1946TypeDef LPHELPWININFO = LPHELPWININFOW
     1947#else
     1948TypeDef HELPWININFO = HELPWININFOA
     1949TypeDef PHELPWININFO = PHELPWININFOA
     1950TypeDef LPHELPWININFO = LPHELPWININFOA
     1951#endif ' UNICODE
     1952
     1953Const HELP_CONTEXT = &H0001
     1954Const HELP_QUIT = &H0002
     1955Const HELP_INDEX = &H0003
     1956Const HELP_CONTENTS = &H0003
     1957Const HELP_HELPONHELP = &H0004
     1958Const HELP_SETINDEX = &H0005
     1959Const HELP_SETCONTENTS = &H0005
     1960Const HELP_CONTEXTPOPUP = &H0008
     1961Const HELP_FORCEFILE = &H0009
     1962Const HELP_KEY = &H0101
     1963Const HELP_COMMAND = &H0102
     1964Const HELP_PARTIALKEY = &H0105
     1965Const HELP_MULTIKEY = &H0201
     1966Const HELP_SETWINPOS = &H0203
     1967Const HELP_CONTEXTMENU = &H000a
     1968Const HELP_FINDER = &H000b
     1969Const HELP_WM_HELP = &H000c
     1970Const HELP_SETPOPUP_POS = &H000d
     1971Const HELP_TCARD = &H8000
     1972Const HELP_TCARD_DATA = &H0010
     1973Const HELP_TCARD_OTHER_CALLER = &H0011
     1974
     1975Const IDH_NO_HELP = 28440
     1976Const IDH_MISSING_CONTEXT = 28441
     1977Const IDH_GENERIC_HELP_BUTTON = 28442
     1978Const IDH_OK = 28443
     1979Const IDH_CANCEL = 28444
     1980Const IDH_HELP = 28445
     1981
     1982Declare Function WinHelpA Lib "user32" (ByVal hWndMain As HWND, ByVal lpszHelp As LPCSTR, ByVal uCommand As DWord, ByVal dwData As ULONG_PTR) As BOOL
     1983Declare Function WinHelpW Lib "user32" (ByVal hWndMain As HWND, ByVal lpszHelp As LPCWSTR, ByVal uCommand As DWord, ByVal dwData As ULONG_PTR) As BOOL
     1984#ifdef UNICODE
     1985Declare Function WinHelp Lib "user32" Alias "WinHelpW" (ByVal hWndMain As HWND, ByVal lpszHelp As LPCWSTR, ByVal uCommand As DWord, ByVal dwData As ULONG_PTR) As BOOL
     1986#else
     1987Declare Function WinHelp Lib "user32" Alias "WinHelpA" (ByVal hWndMain As HWND, ByVal lpszHelp As LPCSTR, ByVal uCommand As DWord, ByVal dwData As ULONG_PTR) As BOOL
     1988#endif ' !UNICODE
     1989
    15211990Declare Function wsprintf cdecl Lib "user32" Alias _FuncName_wsprintf (pText As PTSTR, pFormat As PCTSTR, ...) As Long
    15221991Declare Function wvsprintf Lib "user32" Alias _FuncName_wvsprintf (pOutput As PTSTR, pFormat As PCTSTR, arglist As DWordPtr) As Long
    15231992
    1524 
     1993Type GUITHREADINFO
     1994    cbSize As DWord
     1995    flags As DWord
     1996    hwndActive As HWND
     1997    hwndFocus As HWND
     1998    hwndCapture As HWND
     1999    hwndMenuOwner As HWND
     2000    hwndMoveSize As HWND
     2001    hwndCaret As HWND
     2002    rcCaret As RECT
     2003End Type
     2004TypeDef PGUITHREADINFO = *GUITHREADINFO
     2005TypeDef LPGUITHREADINFO = *GUITHREADINFO
     2006
     2007Const GUI_CARETBLINKING = &H00000001
     2008Const GUI_INMOVESIZE = &H00000002
     2009Const GUI_INMENUMODE = &H00000004
     2010Const GUI_SYSTEMMENUMODE = &H00000008
     2011Const GUI_POPUPMENUMODE = &H00000010
     2012Const GUI_16BITTASK = &H00000020
     2013
     2014Declare Function GetGUIThreadInfo Lib "user32" (ByVal idThread As DWord, ByRef pgui As GUITHREADINFO) As BOOL
     2015
     2016Const STATE_SYSTEM_UNAVAILABLE = &H00000001
     2017Const STATE_SYSTEM_SELECTED = &H00000002
     2018Const STATE_SYSTEM_FOCUSED = &H00000004
     2019Const STATE_SYSTEM_PRESSED = &H00000008
     2020Const STATE_SYSTEM_CHECKED = &H00000010
     2021Const STATE_SYSTEM_MIXED = &H00000020
     2022Const STATE_SYSTEM_INDETERMINATE = STATE_SYSTEM_MIXED
     2023Const STATE_SYSTEM_READONLY = &H00000040
     2024Const STATE_SYSTEM_HOTTRACKED = &H00000080
     2025Const STATE_SYSTEM_DEFAULT = &H00000100
     2026Const STATE_SYSTEM_EXPANDED = &H00000200
     2027Const STATE_SYSTEM_COLLAPSED = &H00000400
     2028Const STATE_SYSTEM_BUSY = &H00000800
     2029Const STATE_SYSTEM_FLOATING = &H00001000
     2030Const STATE_SYSTEM_MARQUEED = &H00002000
     2031Const STATE_SYSTEM_ANIMATED = &H00004000
     2032Const STATE_SYSTEM_INVISIBLE = &H00008000
     2033Const STATE_SYSTEM_OFFSCREEN = &H00010000
     2034Const STATE_SYSTEM_SIZEABLE = &H00020000
     2035Const STATE_SYSTEM_MOVEABLE = &H00040000
     2036Const STATE_SYSTEM_SELFVOICING = &H00080000
     2037Const STATE_SYSTEM_FOCUSABLE = &H00100000
     2038Const STATE_SYSTEM_SELECTABLE = &H00200000
     2039Const STATE_SYSTEM_LINKED = &H00400000
     2040Const STATE_SYSTEM_TRAVERSED = &H00800000
     2041Const STATE_SYSTEM_MULTISELECTABLE = &H01000000
     2042Const STATE_SYSTEM_EXTSELECTABLE = &H02000000
     2043Const STATE_SYSTEM_ALERT_LOW = &H04000000
     2044Const STATE_SYSTEM_ALERT_MEDIUM = &H08000000
     2045Const STATE_SYSTEM_ALERT_HIGH = &H10000000
     2046Const STATE_SYSTEM_PROTECTED = &H20000000
     2047Const STATE_SYSTEM_VALID = &H3FFFFFFF
     2048
     2049Const CCHILDREN_TITLEBAR = 5
     2050Const CCHILDREN_SCROLLBAR = 5
     2051
     2052
     2053Type CURSORINFO
     2054    cbSize As DWord
     2055    flags As DWord
     2056    hCursor As HCURSOR
     2057    ptScreenPos As POINTAPI
     2058End Type
     2059TypeDef PCURSORINFO=*CURSORINFO
     2060TypeDef LPCURSORINFO=*CURSORINFO
     2061
     2062Const CURSOR_SHOWING = &H00000001
     2063
     2064Declare Function GetCursorInfo Lib "user32" (ByRef pci As CURSORINFO) As BOOL
     2065
     2066
     2067Type MENUBARINFO
     2068    cbSize As DWord
     2069    rcBar As RECT
     2070    hMenu As HMENU
     2071    hwndMenu As HWND
     2072    fields As BOOL
     2073/*  fBarFocused As BOOL
     2074    fFocused As BOOL*/
     2075End Type
     2076TypeDef PMENUBARINFO=*MENUBARINFO
     2077TypeDef LPMENUBARINFO=*MENUBARINFO
     2078
     2079Declare Function GetMenuBarInfo Lib "user32" (ByVal hwnd As HWND, ByVal idObject As Long, ByVal idItem As Long, ByRef pmbi As MENUBARINFO) As BOOL
     2080
     2081Type COMBOBOXINFO
     2082    cbSize As DWord
     2083    rcItem As RECT
     2084    rcButton As RECT
     2085    stateButton As DWord
     2086    hwndCombo As HWND
     2087    hwndItem As HWND
     2088    hwndList As HWND
     2089End Type
     2090TypeDef PCOMBOBOXINFO=*COMBOBOXINFO
     2091TypeDef LPCOMBOBOXINFO=*COMBOBOXINFO
     2092
     2093Declare Function GetComboBoxInfo Lib "user32" (ByVal hwndCombo As HWND, ByRef pcbi As COMBOBOXINFO) As BOOL
     2094
     2095
     2096Const GA_PARENT = 1
     2097Const GA_ROOT = 2
     2098Const GA_ROOTOWNER = 3
     2099
     2100Declare Function GetAncestor Lib "user32" (ByVal hwnd As HWND, ByVal gaFlags As DWord) As HWND
     2101
     2102
     2103Declare Function RealGetWindowClassA Lib "user32" (ByVal hwnd As HWND, ByVal ptszClassName As LPSTR, ByVal cchClassNameMax As DWord) As DWord
     2104Declare Function RealGetWindowClassW Lib "user32" (ByVal hwnd As HWND, ByVal ptszClassName As LPWSTR, ByVal cchClassNameMax As DWord) As DWord
     2105#ifdef UNICODE
     2106Declare Function RealGetWindowClass Lib "user32" Alias "RealGetWindowClassW" (ByVal hwnd As HWND, ByVal ptszClassName As LPWSTR, ByVal cchClassNameMax As DWord) As DWord
     2107#else
     2108Declare Function RealGetWindowClass Lib "user32" Alias "RealGetWindowClassA" (ByVal hwnd As HWND, ByVal ptszClassName As LPSTR, ByVal cchClassNameMax As DWord) As DWord
     2109#endif ' !UNICODE
     2110
     2111
     2112Type ALTTABINFO
     2113    cbSize As DWord
     2114    cItems As Long
     2115    cColumns As Long
     2116    cRows As Long
     2117    iColFocus As Long
     2118    iRowFocus As Long
     2119    cxItem As Long
     2120    cyItem As Long
     2121    ptStart As POINTAPI
     2122End Type
     2123TypeDef PALTTABINFO=*ALTTABINFO
     2124TypeDef LPALTTABINFO=*ALTTABINFO
     2125
     2126Declare Function GetAltTabInfoA Lib "user32" (ByVal hwnd As HWND, ByVal iItem As Long, ByRef pati As ALTTABINFO, ByVal pszItemText As LPSTR, ByVal cchItemText As DWord) As BOOL
     2127Declare Function GetAltTabInfoW Lib "user32" (ByVal hwnd As HWND, ByVal iItem As Long, ByRef pati As ALTTABINFO, ByVal pszItemText As LPWSTR, ByVal cchItemText As DWord) As BOOL
     2128#ifdef UNICODE
     2129Declare Function GetAltTabInfo Lib "user32" Alias "GetAltTabInfoW" (ByVal hwnd As HWND, ByVal iItem As Long, ByRef pati As ALTTABINFO, ByVal pszItemText As LPWSTR, ByVal cchItemText As DWord) As BOOL
     2130#else
     2131Declare Function GetAltTabInfo Lib "user32" Alias "GetAltTabInfoA" (ByVal hwnd As HWND, ByVal iItem As Long, ByRef pati As ALTTABINFO, ByVal pszItemText As LPSTR, ByVal cchItemText As DWord) As BOOL
     2132#endif ' !UNICODE
    15252133#endif '_INC_WINDOW
Note: See TracChangeset for help on using the changeset viewer.