Changeset 141 for Include/api_window.sbp


Ignore:
Timestamp:
Mar 8, 2007, 10:42:50 AM (18 years ago)
Author:
イグトランス (egtra)
Message:

#50 API宣言の変更完了

File:
1 edited

Legend:

Unmodified
Added
Removed
  • Include/api_window.sbp

    r137 r141  
    55#define _INC_WINDOW
    66
     7'-------------
     8' Window API Function Names
    79#ifdef UNICODE
    810Const _FuncName_CreateWindowEx = "CreateWindowExW"
     11Const _FuncName_CallWindowProc = "CallWindowProcW"
     12Const _FuncName_CharLower = "CharLowerW"
     13Const _FuncName_CharUpper = "CharUpperW"
     14Const _FuncName_DefWindowProc = "DefWindowProcW"
     15Const _FuncName_DispatchMessage = "DispatchMessageW"
     16Const _FuncName_DrawText = "DrawTextW"
     17Const _FuncName_DrawTextEx = "DrawTextExW"
     18Const _FuncName_FindWindow = "FindWindowW"
     19Const _FuncName_FindWindowEx = "FindWindowExW"
     20Const _FuncName_GetClassInfoEx = "GetClassInfoExW"
     21Const _FuncName_GetClassLong = "GetClassLongW"
     22Const _FuncName_GetClassLongPtr = "GetClassLongPtrW"
     23Const _FuncName_GetClassName = "GetClassNameW"
     24Const _FuncName_GetClipboardFormatName = "GetClipboardFormatNameW"
     25Const _FuncName_GetDlgItemText = "GetDlgItemTextW"
     26Const _FuncName_GetMenuItemInfo = "GetMenuItemInfoW"
     27Const _FuncName_GetMessage = "GetMessageW"
     28Const _FuncName_GetProp = "GetPropW"
     29Const _FuncName_GetWindowLong = "GetWindowLongW"
     30Const _FuncName_GetWindowLongPtr = "GetWindowLongPtrW"
     31Const _FuncName_GetWindowText = "GetWindowTextW"
     32Const _FuncName_GetWindowTextLength = "GetWindowTextLengthW"
     33Const _FuncName_InsertMenuItem = "InsertMenuItemW"
     34Const _FuncName_IsCharAlpha = "IsCharAlphaW"
     35Const _FuncName_IsCharAlphaNumeric = "IsCharAlphaNumericW"
     36Const _FuncName_IsCharLower = "IsCharLowerW"
     37Const _FuncName_IsCharUpper = "IsCharUpperW"
     38Const _FuncName_IsDialogMessage = "IsDialogMessageW"
     39Const _FuncName_LoadBitmap = "LoadBitmapW"
     40Const _FuncName_LoadCursor = "LoadCursorW"
     41Const _FuncName_LoadCursorFromFile = "LoadCursorFromFileW"
     42Const _FuncName_LoadIcon = "LoadIconW"
     43Const _FuncName_LoadImage = "LoadImageW"
     44Const _FuncName_PeekMessage = "PeekMessageW"
     45Const _FuncName_PostMessage = "PostMessageW"
     46Const _FuncName_PostThreadMessage = "PostThreadMessageW"
    947Const _FuncName_RegisterClassEx = "RegisterClassExW"
     48Const _FuncName_RegisterClipboardFormat = "RegisterClipboardFormatW"
     49Const _FuncName_RegisterWindowMessage = "RegisterWindowMessageW"
     50Const _FuncName_RemoveProp = "RemovePropW"
     51Const _FuncName_SendDlgItemMessage = "SendDlgItemMessageW"
     52Const _FuncName_SendMessage = "SendMessageW"
     53Const _FuncName_SendNotifyMessage = "SendNotifyMessageW"
     54Const _FuncName_SetDlgItemText = "SetDlgItemTextW"
     55Const _FuncName_SetClassLong = "SetClassLongW"
     56Const _FuncName_SetClassLong = "SetClassLongW"
     57Const _FuncName_SetMenuItemInfo = "SetMenuItemInfoW"
     58Const _FuncName_SetProp = "SetPropW"
     59Const _FuncName_SetWindowLong = "SetWindowLongW"
     60Const _FuncName_SetWindowLongPtr = "SetWindowLongPtrW"
     61Const _FuncName_SetWindowText = "SetWindowTextW"
     62Const _FuncName_SystemParametersInfo = "SystemParametersInfoW"
     63Const _FuncName_UnregisterClass = "UnregisterClassW"
     64Const _FuncName_wsprintf = "wsprintfW"
     65Const _FuncName_wvsprintf = "wvsprintfW"
    1066#else
    1167Const _FuncName_CreateWindowEx = "CreateWindowExA"
     68Const _FuncName_CallWindowProc = "CallWindowProcA"
     69Const _FuncName_CharLower = "CharLowerA"
     70Const _FuncName_CharUpper = "CharUpperA"
     71Const _FuncName_DefWindowProc = "DefWindowProcA"
     72Const _FuncName_DispatchMessage = "DispatchMessageA"
     73Const _FuncName_DrawText = "DrawTextA"
     74Const _FuncName_DrawTextEx = "DrawTextExA"
     75Const _FuncName_FindWindow = "FindWindowA"
     76Const _FuncName_FindWindowEx = "FindWindowExA"
     77Const _FuncName_GetClassInfoEx = "GetClassInfoExA"
     78Const _FuncName_GetClassLong = "GetClassLongA"
     79Const _FuncName_GetClassLongPtr = "GetClassLongPtrA"
     80Const _FuncName_GetClassName = "GetClassNameA"
     81Const _FuncName_GetClipboardFormatName = "GetClipboardFormatNameA"
     82Const _FuncName_GetDlgItemText = "GetDlgItemTextA"
     83Const _FuncName_GetMenuItemInfo = "GetMenuItemInfoA"
     84Const _FuncName_GetMessage = "GetMessageA"
     85Const _FuncName_GetProp = "GetPropA"
     86Const _FuncName_GetWindowLong = "GetWindowLongA"
     87Const _FuncName_GetWindowLongPtr = "GetWindowLongPtrA"
     88Const _FuncName_GetWindowText = "GetWindowTextA"
     89Const _FuncName_GetWindowTextLength = "GetWindowTextLengthA"
     90Const _FuncName_InsertMenuItem = "InsertMenuItemA"
     91Const _FuncName_IsCharAlpha = "IsCharAlphaA"
     92Const _FuncName_IsCharAlphaNumeric = "IsCharAlphaNumericA"
     93Const _FuncName_IsCharLower = "IsCharLowerA"
     94Const _FuncName_IsCharUpper = "IsCharUpperA"
     95Const _FuncName_IsDialogMessage = "IsDialogMessageA"
     96Const _FuncName_LoadBitmap = "LoadBitmapA"
     97Const _FuncName_LoadCursor = "LoadCursorA"
     98Const _FuncName_LoadCursorFromFile = "LoadCursorFromFileA"
     99Const _FuncName_LoadIcon = "LoadIconA"
     100Const _FuncName_LoadImage = "LoadImageA"
     101Const _FuncName_PeekMessage = "PeekMessageA"
     102Const _FuncName_PostMessage = "PostMessageA"
     103Const _FuncName_PostThreadMessage = "PostThreadMessageA"
    12104Const _FuncName_RegisterClassEx = "RegisterClassExA"
     105Const _FuncName_RegisterClipboardFormat = "RegisterClipboardFormatA"
     106Const _FuncName_RegisterWindowMessage = "RegisterWindowMessageA"
     107Const _FuncName_RemoveProp = "RemovePropA"
     108Const _FuncName_SendDlgItemMessage = "SendDlgItemMessageA"
     109Const _FuncName_SendMessage = "SendMessageA"
     110Const _FuncName_SendNotifyMessage = "SendNotifyMessageA"
     111Const _FuncName_SetDlgItemText = "SetDlgItemTextA"
     112Const _FuncName_SetClassLong = "SetClassLongA"
     113Const _FuncName_SetClassLongPtr = "SetClassLongPtrA"
     114Const _FuncName_SetMenuItemInfo = "SetMenuItemInfoA"
     115Const _FuncName_SetProp = "SetPropA"
     116Const _FuncName_SetWindowLong = "SetWindowLongA"
     117Const _FuncName_SetWindowLongPtr = "SetWindowLongPtrA"
     118Const _FuncName_SetWindowText = "SetWindowTextA"
     119Const _FuncName_SystemParametersInfo = "SystemParametersInfoA"
     120Const _FuncName_UnregisterClass = "UnregisterClassA"
     121Const _FuncName_wsprintf = "wsprintfA"
     122Const _FuncName_wvsprintf = "wvsprintfA"
    13123#endif
    14124
     
    26136
    27137
    28 Const MAKEINTRESOURCE(i) = i As PCSTR
     138Const MAKEINTRESOURCEW(i) = i As PCWSTR
     139Const MAKEINTRESOURCEA(i) = i As PCSTR
     140Const MAKEINTRESOURCE(i) = i As PCTSTR
    29141
    30142TypeDef WNDENUMPROC = *Function(ByVal hwnd As HWND, ByVal lParam As LPARAM) As BOOL
     
    152264Const MFT_RIGHTJUSTIFY =  MF_RIGHTJUSTIFY
    153265
    154 Type MENUITEMINFO
     266Type MENUITEMINFOW
     267    cbSize        As DWord
     268    fMask         As DWord
     269    fType         As DWord
     270    fState        As DWord
     271    wID           As DWord
     272    hSubMenu      As HMENU
     273    hbmpChecked   As HBITMAP
     274    hbmpUnchecked As HBITMAP
     275    dwItemData    As ULONG_PTR
     276    dwTypeData    As LPWSTR
     277    cch           As DWord
     278End Type
     279Type MENUITEMINFOA
    155280    cbSize        As DWord
    156281    fMask         As DWord
     
    165290    cch           As DWord
    166291End Type
    167 
     292#ifdef UNICODE
     293TypeDef MENUITEMINFO = MENUITEMINFOW
     294#else
     295TypeDef MENUITEMINFO = MENUITEMINFOA
     296#endif
    168297
    169298'------------
     
    226355
    227356'-------------
    228 ' Window API Function Names
    229 
    230 /*
    231 CreateWindowEx
    232 CallWindowProc
    233 DefWindowProc
    234 DispatchMessage
    235 DrawText
    236 DrawTextEx
    237 FindWindow
    238 FindWindowEx
    239 GetClassInfoEx
    240 GetClassLong
    241 GetClassLongPtr
    242 GetClassName
    243 GetClipboardFormatName
    244 GetDlgItemText
    245 GetMenuItemInfo
    246 GetMessage
    247 GetWindowLong
    248 GetWindowLongPtr
    249 GetWindowText
    250 GetWindowTextLength
    251 InsertMenuItem
    252 IsCharAlpha
    253 IsCharAlphaNumeric
    254 IsDialogMessage
    255 LoadBitmap
    256 LoadCursor
    257 LoadCursorFromFile
    258 LoadIcon
    259 LoadImage
    260 PeekMessage
    261 PostMessage
    262 PostThreadMessage
    263 RegisterClassEx
    264 RegisterClipboardFormat
    265 RegisterWindowMessage
    266 RemoveProp
    267 SendDlgItemMessage
    268 SendMessage
    269 SendNotifyMessage
    270 SetDlgItemText
    271 SetClassLong
    272 SetClassLong
    273 SetMenuItemInfo
    274 SetWindowLong
    275 SetWindowLongPtr
    276 SetWindowText
    277 SystemParametersInfo
    278 UnregisterClass
    279 wsprintf
    280 wvsprintf
    281 */
    282 
    283 '-------------
    284357' Window API
    285358
     
    295368    fRestore As BOOL
    296369    fIncUpdate As BOOL
    297     rgbReserved(31) As Byte
     370    rgbReserved[ELM(32)] As Byte
    298371End Type
    299372Declare Function BeginPaint Lib "user32" (hWnd As HWND, ByRef Paint As PAINTSTRUCT) As HDC
    300373
    301374Declare Function BringWindowToTop Lib "user32" (hWnd As HWND) As Long
    302 Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (lpPrevWndFunc As WNDPROC, hWnd As HWND, Msg As DWord, wParam As WPARAM, lParam As LPARAM) As LRESULT
    303 Declare Function CharLower Lib "user32" Alias "CharLowerA" (lpsz As BytePtr) As DWord
    304 Declare Function CharUpper Lib "user32" Alias "CharUpperA" (lpsz As BytePtr) As DWord
     375Declare Function CallWindowProc Lib "user32" Alias _FuncName_CallWindowProc (lpPrevWndFunc As WNDPROC, hWnd As HWND, Msg As DWord, wParam As WPARAM, lParam As LPARAM) As LRESULT
     376Declare Function CharLower Lib "user32" Alias _FuncName_CharLower (psz As PTSTR) As DWord
     377Declare Function CharUpper Lib "user32" Alias _FuncName_CharUpper (psz As PTSTR) As DWord
    305378Declare Function CheckMenuItem Lib "user32" (hMenu As HMENU, uIDCheckItem As DWord, uCheck As DWord) As DWord
    306379Declare Function CheckMenuRadioItem Lib "user32" (hMenu As HMENU, idFirst As DWord, idLast As DWord, idCheck As DWord, uFlags As DWord) As BOOL
     
    338411Declare 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
    339412
    340 Declare Function DefWindowProc Lib "user32" Alias "DefWindowProcA" (hWnd As HWND, wMsg As DWord, wParam As WPARAM, lParam As LPARAM) As LRESULT
     413Declare Function DefWindowProc Lib "user32" Alias _FuncName_DefWindowProc (hWnd As HWND, wMsg As DWord, wParam As WPARAM, lParam As LPARAM) As LRESULT
    341414Declare Function DeleteMenu Lib "user32" (hMenu As HMENU, uPosition As DWord, uFlags As DWord) As BOOL
    342415Declare Function DestroyCaret Lib "user32" () As BOOL
     
    345418Declare Function DestroyMenu Lib "user32" (hMenu As HMENU) As BOOL
    346419Declare Function DestroyWindow Lib "user32" (hWnd As HWND) As BOOL
    347 Declare Function DispatchMessage Lib "user32" Alias "DispatchMessageA" (ByRef lpMsg As MSG) As LRESULT
     420Declare Function DispatchMessage Lib "user32" Alias _FuncName_DispatchMessage (ByRef Msg As MSG) As LRESULT
    348421
    349422Const BDR_RAISEDOUTER = &H0001
     
    447520Const DT_RTLREADING =     &H00020000
    448521Const DT_WORD_ELLIPSIS =  &H00040000
    449 Declare Function DrawText Lib "user32" Alias "DrawTextA" (hdc As HDC, lpStr As PCSTR, nCount As Long, ByRef lpRect As RECT, dwFormat As DWord) As BOOL
     522Declare Function DrawText Lib "user32" Alias _FuncName_DrawText (hdc As HDC, lpStr As PCTSTR, nCount As Long, ByRef Rect As RECT, dwFormat As DWord) As BOOL
    450523
    451524Type DRAWTEXTPARAMS
     
    456529    uiLengthDrawn As DWord
    457530End Type
    458 Declare Function DrawTextEx Lib "user32" Alias "DrawTextExA" (hdc As HDC, lpchText As PCSTR, cchText As Long, ByRef lpRect As RECT, dwDTFormat As DWord, ByRef lpDTParams As DRAWTEXTPARAMS) As BOOL
     531Declare 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
    459532
    460533Declare Function EmptyClipboard Lib "user32" () As BOOL
     
    478551Declare Function EnumWindows Lib "user32" (pEnumFunc As WNDENUMPROC, lParam As LPARAM) As BOOL
    479552Declare Function FillRect Lib "user32" (hdc As HDC, ByRef lpRect As RECT, hBrush As HBRUSH) As BOOL
    480 Declare Function FindWindow Lib "user32" Alias "FindWindowA" (lpClassName As PCSTR, lpWindowName As PCSTR) As HWND
    481 Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (hwndParent As HWND, hwndChildAfter As HWND, pszClass As PCSTR, pszWindow As PCSTR) As HWND
     553Declare Function FindWindow Lib "user32" Alias _FuncName_FindWindow (pClassName As PCTSTR, lpWindowName As PCTSTR) As HWND
     554Declare Function FindWindowEx Lib "user32" Alias _FuncName_FindWindowEx (hwndParent As HWND, hwndChildAfter As HWND, pszClass As PCTSTR, pszWindow As PCTSTR) As HWND
    482555Declare Function FlashWindow Lib "user32" (hWnd As HWND, bInvert As BOOL) As BOOL
    483556Declare Function FrameRect Lib "user32" (hdc As HDC, ByRef lpRect As RECT, hBrush As HBRUSH) As Long
     
    486559Declare Function GetCapture Lib "user32" () As HWND
    487560Declare Function GetCaretPos Lib "user32" (ByRef lpPoint As POINTAPI) As BOOL
    488 Declare Function GetClassInfoEx Lib "user32" Alias "GetClassInfoExA" (hInst As HINSTANCE, lpszClass As PCSTR, ByRef lpwcx As WNDCLASSEX) As BOOL
     561Declare Function GetClassInfoEx Lib "user32" Alias _FuncName_GetClassInfoEx (hInst As HINSTANCE, pszClass As PCTSTR, ByRef lpwcx As WNDCLASSEX) As BOOL
    489562
    490563Const GCL_MENUNAME =      -8
     
    500573Const GCL_HICONSM =       -34
    501574#ifdef _WIN64
    502 Declare Function GetClassLong Lib "user32" Alias "GetClassLongPtrA" (hWnd As HWND, nIndex As Long) As LONG_PTR
    503 Declare Function GetClassLongPtr Lib "user32" Alias "GetClassLongPtrA" (hWnd As HWND, nIndex As Long) As LONG_PTR
     575Declare Function GetClassLong Lib "user32" Alias _FuncName_GetClassLongPtr (hWnd As HWND, nIndex As Long) As LONG_PTR
     576Declare Function GetClassLongPtr Lib "user32" Alias _FuncName_GetClassLongPtr (hWnd As HWND, nIndex As Long) As LONG_PTR
    504577#else
    505 Declare Function GetClassLong Lib "user32" Alias "GetClassLongA" (hWnd As HWND, nIndex As Long) As LONG_PTR
    506 Declare Function GetClassLongPtr Lib "user32" Alias "GetClassLongA" (hWnd As HWND, nIndex As Long) As LONG_PTR
     578Declare Function GetClassLong Lib "user32" Alias _FuncName_GetClassLong (hWnd As HWND, nIndex As Long) As LONG_PTR
     579Declare Function GetClassLongPtr Lib "user32" Alias _FuncName_GetClassLong (hWnd As HWND, nIndex As Long) As LONG_PTR
    507580#endif
    508581
    509 Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (hWnd As HWND, lpClassName As PSTR, nMaxCount As Long) As Long
     582Declare Function GetClassName Lib "user32" Alias _FuncName_GetClassName (hWnd As HWND, lpClassName As PTSTR, nMaxCount As Long) As Long
    510583Declare Function GetClientRect Lib "user32" (hWnd As HWND, ByRef lpRect As RECT) As BOOL
    511584Declare Function GetClipboardData Lib "user32" (uFormat As DWord) As HANDLE
    512 Declare Function GetClipboardFormatName Lib "user32" Alias "GetClipboardFormatNameA" (uFormat As DWord, lpszFormatName As BytePtr, cchMaxCount As Long) As BOOL
     585Declare Function GetClipboardFormatName Lib "user32" Alias _FuncName_GetClipboardFormatName (uFormat As DWord, pszFormatName As PTSTR, cchMaxCount As Long) As BOOL
    513586Declare Function GetClipCursor Lib "user32" (ByRef lpRect As RECT) As BOOL
    514587Declare Function GetCursor Lib "user32" () As HCURSOR
     
    533606Declare Function GetDlgCtrlID Lib "user32" (hWnd As HWND) As Long
    534607Declare Function GetDlgItem Lib "user32" (hDlg As HWND, nIDDlgItem As Long) As HWND
    535 Declare Function GetDlgItemText Lib "user32" Alias "GetDlgItemTextA" (hDlg As HWND, nIDDlgItem As Long, lpString As PSTR, nMaxCount As Long) As Long
     608Declare Function GetDlgItemText Lib "user32" Alias _FuncName_GetDlgItemText (hDlg As HWND, nIDDlgItem As Long, pString As PTSTR, nMaxCount As Long) As Long
    536609Declare Function GetDoubleClickTime Lib "user32" () As DWord
    537610Declare Function GetFocus Lib "user32" () As HWND
     
    549622Declare Function GetMenuItemID Lib "user32" (hMenu As HMENU, nPos As Long) As DWord
    550623Declare Function GetMenuItemCount Lib "user32" (hMenu As HMENU) As Long
    551 Declare Function GetMenuItemInfo Lib "user32" Alias "GetMenuItemInfoA" (hMenu As HMENU, uItem As DWord, fByPosition As DWord, ByRef lpmii As MENUITEMINFO) As BOOL
    552 Declare Function GetMessage Lib "user32" Alias "GetMessageA" (ByRef lpMsg As MSG, hWnd As HWND, wMsgFilterMin As DWord, wMsgFilterMax As DWord) As Long
     624Declare Function GetMenuItemInfo Lib "user32" Alias _FuncName_GetMenuItemInfo (hMenu As HMENU, uItem As DWord, fByPosition As DWord, ByRef mii As MENUITEMINFO) As BOOL
     625Declare Function GetMessage Lib "user32" Alias _FuncName_GetMessage (ByRef Msg As MSG, hWnd As HWND, wMsgFilterMin As DWord, wMsgFilterMax As DWord) As Long
    553626Declare Function GetParent Lib "user32" (hWnd As HWND) As HWND
    554 Declare Function GetProp Lib "user32" Alias "GetPropA" (hWnd As HWND, pString As PCSTR) As HANDLE
     627Declare Function GetProp Lib "user32" Alias _FuncName_GetProp (hWnd As HWND, pString As PCTSTR) As HANDLE
    555628Declare Function GetScrollInfo Lib "user32" (hWnd As HWND, fnBar As Long, ByRef lpsi As SCROLLINFO) As BOOL
    556629Declare Function GetSubMenu Lib "user32" (hMenu As HMENU, nPos As Long) As HMENU
     
    708781
    709782#ifdef _WIN64
    710 Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongPtrA" (hWnd As HWND, nIndex As Long) As LONG_PTR
    711 Declare Function GetWindowLongPtr Lib "user32" Alias "GetWindowLongPtrA" (hWnd As HWND, nIndex As Long) As LONG_PTR
     783Declare Function GetWindowLong Lib "user32" Alias _FuncName_GetWindowLongPtr (hWnd As HWND, nIndex As Long) As LONG_PTR
     784Declare Function GetWindowLongPtr Lib "user32" Alias _FuncName_GetWindowLongPtr (hWnd As HWND, nIndex As Long) As LONG_PTR
    712785#else
    713 Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (hWnd As HWND, nIndex As Long) As LONG_PTR
    714 Declare Function GetWindowLongPtr Lib "user32" Alias "GetWindowLongA" (hWnd As HWND, nIndex As Long) As LONG_PTR
     786Declare Function GetWindowLong Lib "user32" Alias _FuncName_GetWindowLong (hWnd As HWND, nIndex As Long) As LONG_PTR
     787Declare Function GetWindowLongPtr Lib "user32" Alias _FuncName_GetWindowLong (hWnd As HWND, nIndex As Long) As LONG_PTR
    715788#endif
    716789
     
    729802Declare Function GetWindowRect Lib "user32" (hWnd As HWND, ByRef lpRect As RECT) As BOOL
    730803Declare Function GetWindowRgn Lib "user32" (hWnd As HWND, hRgn As HRGN) As Long
    731 Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (hWnd As HWND, lpString As PSTR, nMaxCount As Long) As Long
    732 Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (hWnd As HWND) As Long
    733 Declare Function GetWindowThreadProcessId Lib "user32" (hWnd As HWND, lpdwProcessId As DWordPtr) As DWord
     804Declare Function GetWindowText Lib "user32" Alias _FuncName_GetWindowText (hWnd As HWND, lpString As PTSTR, nMaxCount As Long) As Long
     805Declare Function GetWindowTextLength Lib "user32" Alias _FuncName_GetWindowTextLength (hWnd As HWND) As Long
     806Declare Function GetWindowThreadProcessId Lib "user32" (hWnd As HWND, pdwProcessId As *DWord) As DWord
    734807Declare Function HideCaret Lib "user32" (hWnd As HWND) As BOOL
    735 Declare Function InsertMenuItem Lib "user32" Alias "InsertMenuItemA" (hMenu As HMENU, uItem As DWord, fByPosition As BOOL, ByRef lpmii As MENUITEMINFO) As BOOL
    736 Declare Function InvalidateRect Lib "user32" (hWnd As HWND, ByRef lpRect As RECT, bErase As BOOL) As BOOL
     808Declare Function InsertMenuItem Lib "user32" Alias _FuncName_InsertMenuItem (hMenu As HMENU, uItem As DWord, fByPosition As BOOL, ByRef mii As MENUITEMINFO) As BOOL
     809Declare Function InvalidateRect Lib "user32" (hWnd As HWND, ByRef Rect As RECT, bErase As BOOL) As BOOL
    737810Declare Function InvalidateRgn Lib "user32" (hWnd As HWND, hRgn As HRGN, bErase As BOOL) As BOOL
    738811Declare Function InvertRect Lib "user32" (hdc As HDC, ByRef lpRect As RECT) As BOOL
    739 Declare Function IsCharAlpha Lib "user32" Alias "IsCharAlphaA" (ch As Byte) As BOOL
    740 Declare Function IsCharAlphaNumeric Lib "user32" Alias "IsCharAlphaNumericA" (ch As Byte) As BOOL
    741 Declare Function IsCharLower Lib "user32" Alias "IsCharLowerA" (ch As Byte) As BOOL
    742 Declare Function IsCharUpper Lib "user32" Alias "IsCharUpperA" (ch As Byte) As BOOL
     812Declare Function IsCharAlpha Lib "user32" Alias _FuncName_IsCharAlpha (ch As TCHAR) As BOOL
     813Declare Function IsCharAlphaNumeric Lib "user32" Alias _FuncName_IsCharAlphaNumeric (ch As TCHAR) As BOOL
     814Declare Function IsCharLower Lib "user32" Alias _FuncName_IsCharLower (ch As TCHAR) As BOOL
     815Declare Function IsCharUpper Lib "user32" Alias _FuncName_IsCharUpper (ch As TCHAR) As BOOL
    743816Declare Function IsChild Lib "user32" (hWndParent As HWND, hWnd As HWND) As BOOL
    744 Declare Function IsDialogMessage Lib "user32" Alias "IsDialogMessageA" (hDlg As HWND, ByRef ref_msg As MSG) As BOOL
     817Declare Function IsDialogMessage Lib "user32" Alias _FuncName_IsDialogMessage (hDlg As HWND, ByRef msg As MSG) As BOOL
    745818Declare Function IsIconic Lib "user32" (hWnd As HWND) As BOOL
    746819Declare Function IsWindow Lib "user32" (hWnd As HWND) As BOOL
     
    755828
    756829Declare Function KillTimer Lib "user32" (hWnd As HWND, nIDEvent As ULONG_PTR) As BOOL
    757 Declare Function LoadBitmap Lib "user32" Alias "LoadBitmapA" (hInst As HINSTANCE, lpBitmapName As PCSTR) As HBITMAP
     830Declare Function LoadBitmap Lib "user32" Alias _FuncName_LoadBitmap (hInst As HINSTANCE, pBitmapName As PCTSTR) As HBITMAP
    758831
    759832Const IDC_ARROW =         32512
     
    773846Const IDC_APPSTARTING =   32650
    774847Const IDC_HELP =          32651
    775 Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (hInst As HINSTANCE, lpCursorName As PCSTR) As HCURSOR
    776 
    777 Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (lpFileName As PCSTR) As HCURSOR
     848Declare Function LoadCursor Lib "user32" Alias _FuncName_LoadCursor (hInst As HINSTANCE, pCursorName As PCTSTR) As HCURSOR
     849
     850Declare Function LoadCursorFromFile Lib "user32" Alias _FuncName_LoadCursorFromFile (pFileName As PCTSTR) As HCURSOR
    778851
    779852Const IDI_APPLICATION =   32512
     
    783856Const IDI_ASTERISK =      32516
    784857Const IDI_WINLOGO =       32517
    785 Declare Function LoadIcon Lib "user32" Alias "LoadIconA" (hInst As HINSTANCE, lpIconName As PCSTR) As HICON
     858Declare Function LoadIcon Lib "user32" Alias _FuncName_LoadIcon (hInst As HINSTANCE, pIconName As PCTSTR) As HICON
    786859
    787860Const IMAGE_BITMAP =      0
     
    802875Const LR_COPYFROMRESOURCE = &H4000
    803876Const LR_SHARED =           &H8000
    804 Declare Function LoadImage Lib "user32" Alias "LoadImageA" (hInst As HINSTANCE, lpszName As PCSTR, dwImageType As DWord, cxDesired As Long, cyDesired As Long, dwFlags As DWord) As HANDLE
     877Declare Function LoadImage Lib "user32" Alias _FuncName_LoadImage (hinst As HINSTANCE, pszName As PCTSTR, dwImageType As DWord, cxDesired As Long, cyDesired As Long, dwFlags As DWord) As HANDLE
    805878
    806879Declare Function LockWindowUpdate Lib "user32" (hWnd As HWND) As BOOL
     
    842915Const MB_RTLREADING =             &H00100000
    843916#ifdef UNICODE
    844 Declare Function MessageBox Lib "user32" Alias "MessageBoxW" (hWnd As HWND, pText As PCWSTR, pCaption As PCWSTR, uType As DWord) As Long
     917Declare Function MessageBox Lib "user32" Alias "MessageBoxW" (hwnd As HWND, pText As PCWSTR, pCaption As PCWSTR, uType As DWord) As Long
    845918#else
    846 Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (hWnd As HWND, pText As PCSTR, pCaption As PCSTR, uType As DWord) As Long
     919Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (hwnd As HWND, pText As PCSTR, pCaption As PCSTR, uType As DWord) As Long
    847920#endif
    848921Declare Function MessageBoxW Lib "user32" (hWnd As HWND, pText As PCWSTR, pCaption As PCWSTR, uType As DWord) As Long
     
    865938Const PM_NOREMOVE = &H0000
    866939Const PM_REMOVE =   &H0001
    867 Declare Function PeekMessage Lib "user32" Alias "PeekMessageA" (ByRef lpMsg As MSG, hWnd As HWND, wMsgFilterMin As DWord, wMsgFilterMax As DWord, wRemoveMsg As DWord) As BOOL
     940Declare Function PeekMessage Lib "user32" Alias _FuncName_PeekMessage (ByRef Msg As MSG, hWnd As HWND, wMsgFilterMin As DWord, wMsgFilterMax As DWord, wRemoveMsg As DWord) As BOOL
    868941
    869942Const HWND_BROADCAST = &HFFFF
    870 Declare Function PostMessage Lib "user32" Alias "PostMessageA" (hWnd As HWND, wMsg As DWord, wParam As WPARAM, lParam As LPARAM) As BOOL
     943Declare Function PostMessage Lib "user32" Alias _FuncName_PostMessage (hWnd As HWND, wMsg As DWord, wParam As WPARAM, lParam As LPARAM) As BOOL
    871944
    872945Declare Sub PostQuitMessage Lib "user32" (nExitCode As Long)
    873 Declare Function PostThreadMessage Lib "user32" Alias "PostThreadMessageA" (idThread As DWord, Msg As DWord, wParam As WPARAM, lParam As LPARAM) As BOOL
     946Declare Function PostThreadMessage Lib "user32" Alias _FuncName_PostThreadMessage (idThread As DWord, Msg As DWord, wParam As WPARAM, lParam As LPARAM) As BOOL
    874947
    875948Const RDW_INVALIDATE =        &H0001
     
    888961
    889962Declare Function RegisterClassEx Lib "user32" Alias _FuncName_RegisterClassEx (ByRef wcx As WNDCLASSEX) As ATOM
    890 Declare Function RegisterClipboardFormat Lib "user32" Alias "RegisterClipboardFormatA" (lpszFormat As PCSTR) As DWord
    891 Declare Function RegisterWindowMessage Lib "user32" Alias "RegisterWindowMessageA" (lpString As PCSTR) As DWord
     963Declare Function RegisterClipboardFormat Lib "user32" Alias _FuncName_RegisterClipboardFormat (pszFormat As PCTSTR) As DWord
     964Declare Function RegisterWindowMessage Lib "user32" Alias _FuncName_RegisterWindowMessage (pString As PCTSTR) As DWord
    892965Declare Function ReleaseCapture Lib "user32" () As BOOL
    893966Declare Function ReleaseDC Lib "user32" (hWnd As HWND, hdc As HDC) As BOOL
    894967Declare Function RemoveMenu Lib "user32" (hMenu As HMENU, uPosition As DWord, uFlags As DWord) As BOOL
    895 Declare Function RemoveProp Lib "user32" Alias "RemovePropA" (hWnd As HWND, lpString As PCSTR) As HANDLE
     968Declare Function RemoveProp Lib "user32" Alias _FuncName_RemoveProp (hWnd As HWND, pString As PCTSTR) As HANDLE
    896969Declare Function TranslateMessage Lib "user32" (ByRef lpMsg As MSG) As Long
    897970Declare Function ScreenToClient Lib "user32" (hWnd As HWND, ByRef lpPoint As POINTAPI) As BOOL
     
    903976Declare Function ScrollWindowEx Lib "user32" (hWnd As HWND, dx As Long, dy As Long, ByRef rcScroll As RECT, ByRef rcClip As RECT, hrgnUpdate As HRGN, ByRef rcUpdate As RECT, flags As DWord) As BOOL
    904977
    905 Declare Function SendDlgItemMessage Lib "user32" Alias "SendDlgItemMessageA" (hDlg As HWND, nIDDlgItem As Long, Msg As DWord, wParam As WPARAM, lParam As LPARAM) As LRESULT
    906 Declare Function SendMessage Lib "user32" Alias "SendMessageA" (hWnd As HWND, wMsg As DWord, wParam As WPARAM, lParam As LPARAM) As LRESULT
    907 Declare Function SendNotifyMessage Lib "user32" Alias "SendNotifyMessageA" (hWnd As HWND, wMsg As DWord, wParam As WPARAM, lParam As LPARAM) As LRESULT
     978Declare Function SendDlgItemMessage Lib "user32" Alias _FuncName_SendDlgItemMessage (hDlg As HWND, nIDDlgItem As Long, Msg As DWord, wParam As WPARAM, lParam As LPARAM) As LRESULT
     979Declare Function SendMessage Lib "user32" Alias _FuncName_SendMessage (hWnd As HWND, wMsg As DWord, wParam As WPARAM, lParam As LPARAM) As LRESULT
     980Declare Function SendNotifyMessage Lib "user32" Alias _FuncName_SendNotifyMessage (hWnd As HWND, wMsg As DWord, wParam As WPARAM, lParam As LPARAM) As LRESULT
    908981Declare Function SetActiveWindow Lib "user32" (hWnd As HWND) As HWND
    909 Declare Function SetDlgItemText Lib "user32" Alias "SetDlgItemTextA" (hDlg As HWND, nIDDlgItem As Long, lpString As PCSTR) As BOOL
     982Declare Function SetDlgItemText Lib "user32" Alias _FuncName_SetDlgItemText (hDlg As HWND, nIDDlgItem As Long, lpString As PCTSTR) As BOOL
    910983Declare Function SetCapture Lib "user32" (hWnd As HWND) As HWND
    911984Declare Function SetCaretPos Lib "user32" (x As Long, y As Long) As BOOL
    912985
    913986#ifdef _WIN64
    914 Declare Function SetClassLong Lib "user32" Alias "SetClassLongPtrA" (hWnd As HWND, nIndex As Long, NewLong As LONG_PTR) As LONG_PTR
    915 Declare Function SetClassLongPtr Lib "user32" Alias "SetClassLongPtrA" (hWnd As HWND, nIndex As Long, NewLong As LONG_PTR) As LONG_PTR
     987Declare Function SetClassLong Lib "user32" Alias _FuncName_SetClassLongPtr (hWnd As HWND, nIndex As Long, NewLong As LONG_PTR) As LONG_PTR
     988Declare Function SetClassLongPtr Lib "user32" Alias _FuncName_SetClassLongPtr (hWnd As HWND, nIndex As Long, NewLong As LONG_PTR) As LONG_PTR
    916989#else
    917 Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (hWnd As HWND, nIndex As Long, NewLong As LONG_PTR) As LONG_PTR
    918 Declare Function SetClassLongPtr Lib "user32" Alias "SetClassLongA" (hWnd As HWND, nIndex As Long, NewLong As LONG_PTR) As LONG_PTR
     990Declare Function SetClassLong Lib "user32" Alias _FuncName_SetClassLong (hWnd As HWND, nIndex As Long, NewLong As LONG_PTR) As LONG_PTR
     991Declare Function SetClassLongPtr Lib "user32" Alias _FuncName_SetClassLong (hWnd As HWND, nIndex As Long, NewLong As LONG_PTR) As LONG_PTR
    919992#endif
    920993
     
    9291002Declare Function SetMenuContextHelpId Lib "user32" (hmenu As HMENU, dwContextHelpId As DWord) As BOOL
    9301003Declare Function SetMenuDefaultItem Lib "user32" (hMenu As HMENU, uItem As DWord, fByPos As DWord) As BOOL
    931 Declare Function SetMenuItemInfo Lib "user32" Alias "SetMenuItemInfoA" (hMenu As HMENU, uItem As DWord, fByPosition As BOOL, ByRef lpmii As MENUITEMINFO) As BOOL
     1004Declare Function SetMenuItemInfo Lib "user32" Alias _FuncName_SetMenuItemInfo (hMenu As HMENU, uItem As DWord, fByPosition As BOOL, ByRef mii As MENUITEMINFO) As BOOL
    9321005Declare Function SetParent Lib "user32" (hWndChild As HWND, hWndNewParent As HWND) As HWND
    933 Declare Function SetProp Lib "user32" Alias "SetPropA" (hWnd As HWND, pString As PCSTR, hData As HANDLE) As BOOL
     1006Declare Function SetProp Lib "user32" Alias _FuncName_SetProp (hWnd As HWND, pString As PCTSTR, hData As HANDLE) As BOOL
    9341007Declare Function SetScrollInfo Lib "user32" (hWnd As HWND, fnBar As Long, ByRef lpsi As SCROLLINFO, bRedraw As Long) As BOOL
    9351008Declare Function SetSysColors Lib "user32" (cElements As Long, lpaElements As *DWord, lpaRgbValues As *DWord) As BOOL
     
    9411014
    9421015#ifdef _WIN64
    943 Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongPtrA" (hWnd As HWND, nIndex As Long, NewLong As LONG_PTR) As LONG_PTR
    944 Declare Function SetWindowLongPtr Lib "user32" Alias "SetWindowLongPtrA" (hWnd As HWND, nIndex As Long, NewLong As LONG_PTR) As LONG_PTR
     1016Declare Function SetWindowLong Lib "user32" Alias _FuncName_SetWindowLongPtr (hWnd As HWND, nIndex As Long, NewLong As LONG_PTR) As LONG_PTR
     1017Declare Function SetWindowLongPtr Lib "user32" Alias _FuncName_SetWindowLongPtr (hWnd As HWND, nIndex As Long, NewLong As LONG_PTR) As LONG_PTR
    9451018#else
    946 Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (hWnd As HWND, nIndex As Long, NewLong As LONG_PTR) As LONG_PTR
    947 Declare Function SetWindowLongPtr Lib "user32" Alias "SetWindowLongA" (hWnd As HWND, nIndex As Long, NewLong As LONG_PTR) As LONG_PTR
     1019Declare Function SetWindowLong Lib "user32" Alias _FuncName_SetWindowLong (hWnd As HWND, nIndex As Long, NewLong As LONG_PTR) As LONG_PTR
     1020Declare Function SetWindowLongPtr Lib "user32" Alias _FuncName_SetWindowLong (hWnd As HWND, nIndex As Long, NewLong As LONG_PTR) As LONG_PTR
    9481021#endif
    9491022
     
    9721045
    9731046Declare Function SetWindowRgn Lib "user32" (hWnd As HWND, hRgn As HRGN, bRedraw As BOOL) As BOOL
    974 Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (hWnd As HWND, pString As PCSTR) As BOOL
     1047Declare Function SetWindowText Lib "user32" Alias _FuncName_SetWindowText (hWnd As HWND, pString As PCTSTR) As BOOL
    9751048Declare Function ShowCaret Lib "user32" (hWnd As HWND) As BOOL
    9761049Declare Function ShowCursor Lib "user32" (bShow As Long) As BOOL
     
    9951068Declare Function ShowWindowAsync Lib "user32" (hWnd As HWND, nCmdShow As Long) As BOOL
    9961069
    997 Type NONCLIENTMETRICS
     1070Type NONCLIENTMETRICSW
    9981071    cbSize As DWord
    9991072    iBorderWidth As Long
     
    10021075    iCaptionWidth As Long
    10031076    iCaptionHeight As Long
    1004     lfCaptionFont As LOGFONT
     1077    lfCaptionFont As LOGFONTW
    10051078    iSmCaptionWidth As Long
    10061079    iSmCaptionHeight As Long
    1007     lfSmCaptionFont As LOGFONT
     1080    lfSmCaptionFont As LOGFONTW
    10081081    iMenuWidth As Long
    10091082    iMenuHeight As Long
    1010     lfMenuFont As LOGFONT
    1011     lfStatusFont As LOGFONT
    1012     lfMessageFont As LOGFONT
     1083    lfMenuFont As LOGFONTW
     1084    lfStatusFont As LOGFONTW
     1085    lfMessageFont As LOGFONTW
    10131086End Type
     1087Type NONCLIENTMETRICSA
     1088    cbSize As DWord
     1089    iBorderWidth As Long
     1090    iScrollWidth As Long
     1091    iScrollHeight As Long
     1092    iCaptionWidth As Long
     1093    iCaptionHeight As Long
     1094    lfCaptionFont As LOGFONTA
     1095    iSmCaptionWidth As Long
     1096    iSmCaptionHeight As Long
     1097    lfSmCaptionFont As LOGFONTA
     1098    iMenuWidth As Long
     1099    iMenuHeight As Long
     1100    lfMenuFont As LOGFONTA
     1101    lfStatusFont As LOGFONTA
     1102    lfMessageFont As LOGFONTA
     1103End Type
     1104#ifdef
     1105TypeDef NONCLIENTMETRICS = NONCLIENTMETRICSW
     1106#else
     1107TypeDef NONCLIENTMETRICS = NONCLIENTMETRICSA
     1108#endif
    10141109Const SPI_GETBEEP =               1
    10151110Const SPI_SETBEEP =               2
     
    11411236Const SPIF_SENDWININICHANGE = &H0002
    11421237Const SPIF_SENDCHANGE =       SPIF_SENDWININICHANGE
    1143 Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (uiAction As DWord, uiParam As DWord, pvParam As VoidPtr, fWinIni As DWord) As BOOL
     1238Declare Function SystemParametersInfo Lib "user32" Alias _FuncName_SystemParametersInfo (uiAction As DWord, uiParam As DWord, pvParam As VoidPtr, fWinIni As DWord) As BOOL
    11441239
    11451240Const TME_HOVER       = &H00000001
     
    11721267Declare Function TrackPopupMenu Lib "user32" (hMenu As HMENU, uFlags As DWord, x As Long, y As Long, nReserved As Long, hWnd As HWND, ByRef prcRect As RECT) As BOOL
    11731268
    1174 Declare Function UnregisterClass Lib "user32" Alias "UnregisterClassA" (lpClassName As BytePtr, hInst As HINSTANCE) As BOOL
     1269Declare Function UnregisterClass Lib "user32" Alias _FuncName_UnregisterClass (pClassName As PCTSTR, hinst As HINSTANCE) As BOOL
    11751270Declare Function UpdateWindow Lib "user32" (hWnd As HWND) As BOOL
    11761271Declare Function ValidateRect Lib "user32" (hWnd As HWND, ByRef lpRect As RECT) As BOOL
     
    11811276Declare Function WindowFromDC Lib "user32" (hDC As HDC) As HWND
    11821277Declare Function WindowFromPoint Lib "user32" (ptX As Long, ptY As Long) As HWND
    1183 Declare Function wsprintf cdecl Lib "user32" Alias "wsprintfA" (pText As PSTR, pFormat As PCSTR, ...) As Long
    1184 Declare Function wvsprintf Lib "user32" Alias "wvsprintfA" (pOutput As PSTR, pFormat As PCSTR, arglist As DWordPtr) As Long
     1278Declare Function wsprintf cdecl Lib "user32" Alias _FuncName_wsprintf (pText As PTSTR, pFormat As PCTSTR, ...) As Long
     1279Declare Function wvsprintf Lib "user32" Alias _FuncName_wvsprintf (pOutput As PTSTR, pFormat As PCTSTR, arglist As DWordPtr) As Long
    11851280
    11861281
Note: See TracChangeset for help on using the changeset viewer.