source: Include/windows/WindowHandle.sbp@ 110

#ifndef __WINDOWSHANDLE_SBP__
#define __WINDOWSHANDLE_SBP__

#ifdef _WIN64
Declare Function _System_GetWindowLongPtr Lib "user32" Alias "GetWindowLongPtrA" (hWnd As HWND, nIndex As Long) As LONG_PTR
Declare Function _System_SetWindowLongPtr Lib "user32" Alias "SetWindowLongPtrA" (hWnd As HWND, nIndex As Long, l As LONG_PTR) As LONG_PTR
#else
Declare Function _System_GetWindowLongPtr Lib "user32" Alias "GetWindowLongA" (hWnd As HWND, nIndex As Long) As LONG_PTR
Declare Function _System_SetWindowLongPtr Lib "user32" Alias "SetWindowLongA" (hWnd As HWND, nIndex As Long, l As LONG_PTR) As LONG_PTR
#endif
Declare Function _System_GetParent Lib "user32" Alias "GetParent" (hWnd As HWND) As HWND
Declare Function _System_SetParent Lib "user32" Alias "SetParent" (hWnd As HWND) As HWND
Declare Function _System_GetMenu Lib "user32" Alias "GetMenu" (hWnd As HWND) As HMENU
Declare Function _System_SetMenu Lib "user32" Alias "SetMenu" (hWnd As HWND) As HMENU
Declare Function _System_InvalidateRect Lib "user32" Alias "InvalidateRect" (hWnd As HWND, ByRef Rect As RECT, bErase As BOOL) As BOOL
Declare Function _System_InvalidateRgn Lib "user32" Alias "InvalidateRgn" (hWnd As HWND, hRgn As HRGN, bErase As BOOL) As BOOL
Declare Function _System_ValidateRect Lib "user32" Alias "ValidateRect" (hWnd As HWND, ByRef Rect As RECT) As BOOL
Declare Function _System_ValidateRgn Lib "user32" Alias "ValidateRgn" (hWnd As HWND, hRgn As HRGN) As BOOL
Declare Function _System_BeginPaint Lib "user32" Alias "BeginPaint" (hWnd As HWND, ByRef ps As PAINTSTRUCT) As HDC
Declare Function _System_EndPaint Lib "user32" Alias "EndPaint" (hWnd As HWND, ByRef lpPaint As PAINTSTRUCT) As HDC
Declare Function _System_ClientToScreen Lib "user32" Alias "ClientToScreen" (hWnd As HWND, ByRef lpPoint As POINTAPI) As BOOL
Declare Function _System_ScreenToClient Lib "user32" Alias "ScreenToClient" (hWnd As HWND, ByRef lpPoint As POINTAPI) As BOOL
Declare Function _System_CreateCaret Lib "user32" Alias "CreateCaret" (hWnd As HWND, hBitmap As HBITMAP, nWidth As Long, nHeight As Long) As BOOL
Declare Function _System_HideCaret Lib "user32" Alias "HideCaret" (hWnd As HWND) As BOOL
Declare Function _System_ShowCaret Lib "user32" Alias "ShowCaret" (hWnd As HWND) As BOOL
Declare Function _System_DrawMenuBar Lib "user32" Alias "DrawMenuBar" (hwnd As HWND) As BOOL
Declare Function _System_GetWindowRect Lib "user32" Alias "DrawMenuBar" (hWnd As HWND, ByRef Rect As RECT) As BOOL
Declare Function _System_IsWindow Lib "user32" Alias "IsWindow" (hWnd As HWND) As BOOL
Declare Function _System_Isiconic Lib "user32" Alias "Isiconic" (hWnd As HWND) As BOOL
Declare Function _System_GetClientRect Lib "user32" Alias "GetClientRect" (hWnd As HWND, ByRef lpRect As RECT) As BOOL

Class WindowHandle
    hwnd As HWND
Public
    Sub WindowHandle()
        hwnd = 0
    End Sub

    Sub WindowHandle(hwndNew As HWND)
        hwnd = hwndNew
    End Sub

    Sub WindowHandle(ByRef wnd As WindowHandle)
        hwnd = wnd.hwnd
    End Sub

    Sub Operator =(hwndNew As HWND)
        hwnd = hwndNew
    End Sub

    Const Function HWnd() As HWND
        Return hwnd
    End Function

    Const Function Operator() As HWND
        Return hwnd
    End Function

    Function BringToTop() As BOOL
        Return BringWindowToTop(hwnd)
    End Function

    Function BeginPaint(ByRef ps As PAINTSTRUCT) As HDC
        Return _System_BeginPaint(hwnd, ps)
    End Function

    Const Function ChildFromPoint(x As Long, y As Long) As HWND
        Return ChildWindowFromPoint(hwnd, x, y)
    End Function

    Const Function ChildFromPointEx(x As Long, y As Long, flags As DWord) As HWND
        Return ChildWindowFromPointEx(hwnd, x, y, flags)
    End Function

    Const Function ClientToScreen(ByRef pt As POINTAPI) As BOOL
        Return _System_ClientToScreen(hwnd, pt)
    End Function

    Function Close() As BOOL
        Return CloseWindow(hwnd)
    End Function

    Function CreateCaret(hbmp As HBITMAP, width As Long, height As Long) As BOOL
        Return _System_CreateCaret(hwnd, hbmp, width, hegiht)
    End Function

    Function Destroy() As BOOL
        Return DestroyWindow(hwnd)
    End Function

    Function DrawMenuBar() As BOOL
        Return _System_DrawMenuBar(hwnd)
    End Function

    Function EnableScrollBar(SBFlags As DWord, arrows As DWord) As BOOL
        Return EnableScrollBar(hwnd, SBFlags, arrows)
    End Function

    Function Enable(enable As BOOL) As BOOL
        Return EnableWindow(hwnd, enable)
    End Function

    Function EndPaint(ByRef ps As PAINTSTRUCT) As BOOL
        Return _System_EndPaint(hwnd, ps)
    End Function

    Const Function EnumChilds(enumFunc As WNDENUMPROC, lp As LPARAM) As BOOL
        Return EnumChildWindows(hwnd, enumFunc, lp)
    End Function

    Function Flash(invert As BOOL) As BOOL
        Return FlashWindow(hwnd, invert)
    End Function

    Const Function GetClassLongPtr(index As Long) As LONG_PTR
        Return GetClassLongPtr(hwnd, index)
    End Function

    Const Function GetClassName(className As PSTR, maxCount As Long) As Long
        Return GetClassName(className, maxCount)
    End Function

    Const Function GetClientRect(ByRef rc As RECT) As BOOL
        Return _System_GetClientRect(hwnd, rc)
    End Function

    Const Function GetContextHelpId() As DWord
        Return GetWindowContextHelpId(hwnd)
    End Function

    Function GetDC() As HDC
        Return GetDC(hwnd)
    End Function

    Function GetDCEx(hrgnClip As HRGN, flags As DWord) As HDC
        Return GetDCEx(hwnd, hrgnClip, flags)
    End Function

    Const Function GetDlgCtrlID() As Long
        Return GetDlgCtrlID(hwnd)
    End Function

    Const Function GetDlgItem(idDlgItem As Long) As WindowHandle
        Return GetDlgItem(hwnd, idDlgItem)
    End Function

    Const Function GetDlgItemText(idDlgItem As Long, ps As PSTR, maxCount As Long) As Long
        Return GetDlgItemText(hwnd, idDlgItem, ps, maxCount)
    End Function

    Const Function GetMenu() As HMENU
        Return _System_GetMenu(hwnd)
    End Function

    Const Function GetParent() As WindowHandle
        Dim w As WindowHandle(_System_GetParent(hwnd))
        Return w
    End Function

    Const Function GetProp(psz As PCSTR) As HANDLE
        Return GetProp(hwnd, psz)
    End Function

    Const Function GetProp(atom As ATOM) As HANDLE
        Return GetProp(hwnd, atom As ULONG_PTR As PCSTR)
    End Function

    Const Function GetScrollInfo(fnBar As Long, ByRef si As SCROLLINFO) As BOOL
        Return GetScrollInfo(hwnd, fnBar, si)
    End Function

    Const Function GetSystemMenu(revert As BOOL) As HMENU
        Return GetSystemMenu(hwnd, revert)
    End Function

    Const Function GetUpdateRect(ByRef rc As RECT, erase As BOOL) As BOOL
        Return GetUpdateRact(hwnd, rc, erase)
    End Function

    Const Function GetUpdateRgn(hrgn As HRGN, erase As BOOL) As BOOL
        Return GetUpdateRgn(hwnd, hrgn, erase)
    End Function

    Const Function GetWindow(cmd As DWord) As WindowHandle
        Return GetWindow(hwnd, cmd)
    End Function

    Function GetWindowDC() As HDC
        Return GetWindowDC(hwnd)
    End Function

    Const Function GetWindowLongPtr(index As Long) As LONG_PTR
        Return _System_GetWindowLongPtr(hwnd, index)
    End Function

    Const Function GetWindowPlasement(ByRef wndpl As WINDOWPLACEMENT) As BOOL
        Return GetWindowPlasement(hwnd, wndpl)
    End Function

    Const Function GetWindowRect(ByRef rc As RECT) As BOOL
        Return _System_GetWindowRect(rc)
    End Function

    Const Function GetText(ps As PSTR, maxCount As Long) As BOOL
        Return GetWindowText(ps, maxCount)
    End Function

    Const Function GetTextLength() As Long
        Return GetWindowTextLength(hwnd)
    End Function

    Const Function GetWindowThreadId() As DWord
        Return GetWindowProcessThreadId(hwnd, 0)
    End Function

    Const Function GetWindowProcessThreadId(ByRef processId As DWord) As DWord
        Return GetWindowProcessThreadId(hwnd, processId)
    End Function

    Function HideCaret() As BOOL
        Return _System_HideCaret(hwnd)
    End Function

    Function InvalidateRect(ByRef rc As RECT, erace As BOOL) As BOOL
        Return _System_InvalidateRect(hwnd, rc, erace)
    End Function

    Function InvalidateRect(ByRef rc As RECT) As BOOL
        Return _System_InvalidateRect(hwnd, rc, TRUE)
    End Function

    Function InvalidateRgn(hrgn As HRGN, erace As BOOL) As BOOL
        Return _System_InvalidateRgn(hwnd, hrgn, erace)
    End Function

    Function InvalidateRgn(hrgn As HRGN) As BOOL
        Return _System_InvalidateRgn(hwnd, hrgn, TRUE)
    End Function

    Function Invalidate(erace As BOOL) As BOOL
        Return _System_InvalidateRect(hwnd, ByVal 0, erace)
    End Function

    Function Invalidate() As BOOL
        Return _System_InvalidateRect(hwnd, ByVal 0, TRUE)
    End Function

    Const Function IsChild(hwnd As HWND) As BOOL
        Return IsChild(This.hwnd, hwnd)
    End Function

    Const Function IsDialogMessage(ByRef msg As MSG) As BOOL
        Return IsDialogMessage(hwnd, msg)
    End Function

    Const Function IsIconic() As BOOL
        Return _System_IsIconic(hwnd)
    End Function

    Const Function IsWindow() As BOOL
        Return _System_IsWindow(hwnd)
    End Function

    Const Function IsEnabled() As BOOL
        Return IsWindowEnabled(hwnd)
    End Function

    Const Function IsUnicode() As BOOL
        Return IsWindowUnicode(hwnd)
    End Function

    Const Function IsVisible() As BOOL
        Return IsWindowVisible(hwnd)
    End Function

    Const Function IsZoomed() As BOOL
        Return IsZoomed(hwnd)
    End Function

    Function KillTimer(idEvent As ULONG_PTR) As BOOL
        Return KillTimer(idEvent)
    End Function

    Function LockUpdate() As BOOL
        Return LockWindowUpdate(hwnd)
    End Function

    Function MapPoints(hwndTo As HWND, pPoints As *POINTAPI, cPoints As DWord) As Long
        Return MapWindowPoints(hwnd, hwndTo, pPoints, cPoints)
    End Function

    Function MapPoints(hwndTo As HWND, ByRef rc As RECT) As Long
        Return MapWindowPoints(hwnd, hwndTo, VarPtr(rc) As *POINTAPI, 2)
    End Function

    Const Function MessageBox(text As PCSTR, caption As PCSTR, uType As DWord) As Long
        Return MessageBox(hwnd, text, caption, uType)
    End Function

    Const Function MessageBox(text As PCSTR, caption As PCSTR) As Long
        Return MessageBox(hwnd, text, caption, MB_OK)
    End Function

    Const Function MessageBox(text As PCSTR) As Long
        Return MessageBox(hwnd, text, 0, MB_OK)
    End Function

    Function Move(x As Long, y As Long, width As Long, height As Long, repaint As BOOL) As BOOL
        Return MoveWindow(hwnd, x, y, width, height, repaint)
    End Function

    Function Move(x As Long, y As Long, width As Long, height As Long) As BOOL
        Return MoveWindow(hwnd, x, y, width, height, TRUE)
    End Function

    Function Move(ByRef rc As RECT, repeaint As BOOL) As BOOL
        With rc
            Return MoveWindow(hwnd, .left, .top, .right - .left, .bottom - .top, repaint)
        End With
    End Function

    Function Move(ByRef rc As RECT) As BOOL
        With rc
            Return MoveWindow(hwnd, .left, .top, .right - .left, .bottom - .top, TRUE)
        End With
    End Function

    Function OpenClipboard() As BOOL
        Return OpenClipboard(hwnd)
    End Function

    Function OpenIcon() As BOOL
        Return OpenIcon(hwnd)
    End Function

    Function PostMessage(msg As DWord, wp As WPARAM, lp As LPARAM) As BOOL
        Return PostMessage(hwnd, msg, wp, lp)
    End Function

    Function PostMessage(msg As DWord) As BOOL
        Return PostMessage(hwnd, msg, 0, 0)
    End Function

    Function RedrawWindow(ByRef rcUpdate As RECT, hrgnUpdate As HRGN, flags As DWord) As BOOL
        Return RedrawWindow(hwnd, rcUpdatre, hrgnUpdate, flags)
    End Function

    Function ReleaseDC(hdc As HDC) As BOOL
        Return ReleaseDC(hwnd, hdc)
    End Function

    Function RemoveProp(psz As PCSTR) As HANDLE
        Return RemoveProp(hwnd, psz)
    End Function

    Function RemoveProp(atom As ATOM) As HANDLE
        Return RemoveProp(hwnd, atom As ULONG_PTR As PCSTR)
    End Function

    Const Function ScreenToClient(ByRef pt As POINTAPI) As BOOL
        Return _System_ScreenToClient(hwnd, pt)
    End Function

    Function Scroll(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
        Return ScrollWindowEx(hwnd, dx, dy, rcScroll, rcClip, hrgnUpdate, rcUpdate, flags)
    End Function

    Function SendDlgItemMessage(idDlgItem As Long, msg As DWord, wp As WPARAM, lp As LPARAM) As LRESULT
        Return SendDlgItemMessage(hwnd, idDlgItem, wp, lp)
    End Function

    Function SendDlgItemMessage(idDlgItem As Long, msg As DWord) As LRESULT
        Return SendDlgItemMessage(hwnd, idDlgItem, 0, 0)
    End Function

    Function SendMessage(msg As DWord, wp As WPARAM, lp As LPARAM) As LRESULT
        Return SendMessage(hwnd, msg, wp, lp)
    End Function

    Function SendMessage(msg As DWord) As LRESULT
        Return SendMessage(hwnd, msg, 0, 0)
    End Function

    Function SetActiveWindow() As HWND
        Return SetActiveWindow(hwnd)
    End Function

    Function SetDlgItemText(idDlgItem As Long, psz As PCSTR) As BOOL
        Return SetDlgItemText(hwnd, idDlgItem, psz)
    End Function

    Function SetCapture() As HWND
        Return SetCapture(hwnd) As HWND
    End Function

    Function SetClassLongPtr(index As Long, newLong As LONG_PTR) As LONG_PTR
        Return SetClassLongPtr(hwnd, index, newLong)
    End Function

    Function SetFocus() As HWND
        Return SetFocus(hwnd)
    End Function

    Function SetForeground() As BOOL
        Return SetForegroundWindow(hwnd)
    End Function

    Function SetMenu(hmenu As HMENU) As BOOL
        Return _System_SetMenu(hwnd, hmenu)
    End Function

    Function SetParent(hwndNewParent As HWND) As HWND
        Return _System_SetParent(hwnd, hwndNewParent)
    End Function

    Function SetProp(psz As PCSTR, hData As HANDLE) As BOOL
        Return SetProp(hwnd, psz, hData)
    End Function

    Function SetProp(atom As ATOM, hData As HANDLE) As BOOL
        Return SetProp(atom As ULONG_PTR As PCSTR, hData)
    End Function

    Function SetScrollInfo(fnBar As Long, ByRef si As SCROLLINFO, redraw As BOOL) As BOOL
        Return SetScrollInfo(hwnd, fnBar, si, redraw)
    End Function

    Function SetScrollInfo(fnBar As Long, ByRef si As SCROLLINFO) As BOOL
        Return SetScrollInfo(hwnd, fnBar, si, TRUE)
    End Function

    Function SetTimer(idEvent As ULONG_PTR, elapse As DWord, timerFunc As TIMERPROC) As ULONG_PTR
        Return SetTmer(hwnd, idEvent, elapse, timerFunc)
    End Function

    Function SetTimer(idEvent As ULONG_PTR, elapse As DWord) As ULONG_PTR
        Return SetTmer(hwnd, idEvent, elapse, 0)
    End Function

    Function SetContextHelpId(contextHelpId As DWord) As BOOL
        Return SetContextHelpId(hwnd, contextHelpId)
    End Function

    Function SetWindowLongPtr(index As Long, newLong As LONG_PTR) As LONG_PTR
        Return _System_SetWindowLongPtr(hwnd, index, newLong)
    End Function

    Function SetWindowPlacement(ByRef wndpl As WINDOWPLACEMENT) As BOOL
        Return SetWindowPlacement(hwnd, wndpl)
    End Function

    Function SetPos(hwndInsertAfter As HWND, x As Long, y As Long, cx As Long, cy As Long, flags As DWord) As BOOL
        Return SetWindowPos(hwnd, hwndInsertAfter, x, y, cx, cy, flags)
    End Function

    Function SetPos(hwndInsertAfter As HWND, ByRef rc As RECT, flags As DWord) As BOOL
        With rc
            Return SetWindowPos(hwnd, hwndInsertAfter, .left, .top, .right - .left, .bottom - .top, flags)
        End With
    End Function

    Function SetRgn(hrgn As HRGN, redraw As BOOL) As BOOL
        Return SetWindowRgn(hwnd, hrgn, redraw)
    End Function

    Function SetRgn(hrgn As HRGN) As BOOL
        Return SetWindowRgn(hwnd, hrgn, TRUE)
    End Function

    Function SetText(psz As PCSTR) As BOOL
        Return SetWindowText(hwnd, psz)
    End Function

    Function ShowCaret() As BOOL
        Return _System_ShowCaret(hwnd)
    End Function

    Function ShowScrollBar(bar As DWord, show As BOOL) As BOOL
        Return ShowScrollBar(hwnd, bar, show)
    End Function

    Function ShowScrollBar(bar As DWord) As BOOL
        Return ShowScrollBar(hwnd, bar, TRUE)
    End Function

    Function Show(cmdShow As DWord) As BOOL
        Return ShowWindow(hwnd, cmdShow)
    End Function

    Function ShowAsync(cmdShow As DWord) As BOOL
        Return ShowWindowAsync(hwnd, cmdShow)
    End Function

    Function Update() As BOOL
        Return UpdateWindow(hwnd)
    End Function

    Function ValidateRect(ByRef rc As RECT) As BOOL
        Return _System_ValidateRect(hwnd, rc)
    End Function

    Function ValidateRgn(hrgn As HRGN) As BOOL
        Return _System_ValidateRgn(hwnd, hrgn)
    End Function

    Function Validate() As BOOL
        Return _System_ValidateRect(hwnd, ByVal 0)
    End Function

    ' Get/SetWindowLongPtr Wrappers

    Const Function GetExStyle() As DWord
        Return _System_GetWindowLongPtr(hwnd, GWL_EXSTYLE) As DWord
    End Function

    Const Function GetStyle() As DWord
        Return _System_GetWindowLongPtr(hwnd, GWL_STYLE) As DWord
    End Function

    Const Function GetWndProc() As WNDPROC
        Return _System_GetWindowLongPtr(hwnd, GWLP_HINSTANCE) As WNDPROC
    End Function

    Const Function GetInstance() As HINSTANCE
        Return _System_GetWindowLongPtr(hwnd, GWLP_HINSTANCE) As HINSTANCE
    End Function

    Const Function GetUserData() As LONG_PTR
        Return _System_GetWindowLongPtr(hwnd, GWLP_USERDATA)
    End Function

    Function SetExStyle(style As DWord) As DWord
        Return _System_SetWindowLongPtr(hwnd, GWL_EXSTYLE, style) As DWord
    End Function

    Function SetStyle(style As DWord) As DWord
        Return _System_SetWindowLongPtr(hwnd, GWL_STYLE, style) As DWord
    End Function

    Function SetWndProc(wndProc As WNDPROC) As WNDPROC
        Return _System_SetWindowLongPtR(hwnd, GWLP_WNDPROC, wndProc As WNDPROC) As WNDPROC
    End Function

    Function SetUserData(value As LONG_PTR) As LONG_PTR
        Return _System_SetWindowLongPtr(value As LONG_PTR)
    End Function

    ' Propaties

    Const Function ClientRect() As RECT
        Dim rc As RECT
        _System_GetClientRect(hwnd, rc)
        Return rc
    End Function

    Sub ClientRect(ByRef rc As RECT)
        Dim hasMenu As BOOL
        If IsChild() = FALSE And IsMenu() <> FALSE Then
            hasMenu = TRUE
        Else
            hasMenu = FALSE
        EndIf
        AdjustWindowRectEx(rc, GetStyle(), hasMenu, GetExStyle())
        MoveWindow(rc) ' WindowRect = rc
    End Sub

    Const Function WindowRect() As RECT
        Dim rc As RECT
        _System_GetWindowRect(hwnd, rc)
        Return rc
    End Function

    Sub WindowRect(ByRef rc As RECT)
        MoveWindow(rc)
    End Sub

    Const Function ContextHelpID() As DWord
        Return GetContextHelpId(hwnd)
    End Function

    Sub ContextHelpID(newID As DWord)
        _System_SetContextHelpId(hwnd, newId)
    End Sub

    Const Function DlgCtrlID() As Long
        Return GetDlgCtrlID(hwnd)
    End Function

    Sub DlgCtrlId(newId As Long)
        _System_SetWindowLongPtr(hwnd, GWLP_ID, newId)
    End Sub

    Function DlgItem(idDlgItem As Long) As WindowHandle
        Dim w As WindowHandle(GetDlgItem(hwnd, idDlgItem))
        Return w
    End Function

    Const Function ExStyle() As DWord
        Return _System_GetWindowLongPtr(hwnd, GWL_EXSTYLE) As DWord
    End Function

    Sub ExStyle(newExStyle As DWord)
        _System_SetWindowLongPtr(hwnd, GWLP_EXSTYLE, newExStyle)
    End Sub

    Const Function Style() As DWord
        Return _System_GetWindowLongPtr(hwnd, GWL_STYLE) As DWord
    End Function

    Sub Style(newStyle As DWord) DWord
        _System_SetWindowLongPtr(hwnd, GWLP_STYLE, newStyle)
    End Sub

    Const Function Enabled() As BOOL
        Return IsWindowEnabled(hwnd)
    End Function

    Sub Enabled(enable As BOOL)
        EnableWindow(hwnd, enable)
    End Sub

    Const Function Font() As HFONT
        Return SendMessage(hwnd, WM_GETFONT, 0, 0) As HFONT
    End Function

    Sub Font(hfntNew As HFONT)
        SendMessage(hwnd, WM_SETFONT, hfntNew As WPARAM, TRUE)
    End Sub

    Const Function Maximized() As BOOL
        Return IsIconic(hwnd)
    End Function

    Sub Maximized(maximized As BOOL)
        If maximized <> FALSE Then
            ShowWindow(hwnd, SW_SHOWMAXIMIZED)
        Else
            ShowWindow(hwnd, SW_RESTORE)
        End If
    End Sub

    Const Function Minimized() As BOOL
        Return IsIconic(hwnd)
    End Function

    Sub Minimized(minimized As BOOL)
        If minimized <> FALSE Then
            CloseWindow(hwnd)
        Else
            OpenIcon(hwnd)
        End If
    End Sub

    Const Function Instance() As HINSTANCE
        Return _System_GetWindowLongPtr(hwnd, GWLP_HINSTANCE) As HINSTANCE
    End Function

    ' IsWindow, IsUnicodeはメソッドと同じ。

    Const Function Parent() As WindowHandle
        Return _System_GetParent(hwnd)
    End Function

    Sub Parent(hwndNewParent As HWND)
        _System_SetParent(hwnd, hwndNewParent)
    End Sub

    Const Function ProcessID() As DWord
        GetWindowProcessThreadId(ProcessID)
    End Function

    Const Function ThreadID() As DWord
        Return GetWindowProcessThreadId(ByVal 0)
    End Function

    Const Function Menu() As HMENU
        Return _System_GetMenu(hwnd)
    End Function

    Sub Menu(hmenuNew As HMENU)
        _System_SetMenu(hwnd, hmenuNew)
    End Sub

    Const Function Text() As String
        With Text
            .ReSize(GetWindowTextLength(hwnd))
            .ReSize(GetWindowText(hwnd, .Chars, .Length + 1))
        End With
    End Function

    Sub Text(newText As PCSTR)
        SetWindowText(hwnd, newText)
    End Sub

    Const Function TextLength() As Long
        Return GetWindowTextLength(hwnd)
    End Function

    Const Function UserData() As LONG_PTR
        Return _System_GetWindowLongPtr(hwnd, GWLP_USERDATA)
    End Function

    Sub UserData(newValue As LONG_PTR)
        _System_SetWindowLongPtr(hwnd, GWLP_USERDATA, newValue)
    End Sub

    Const Function Visible() As BOOL
        Return IsVisible(hwnd)
    End Function

    Sub Visible(visible As BOOL)
        If visible <> FALSE Then
            ShowWindow(hwnd, SW_SHOW)
        Else
            ShowWindow(hwnd, SW_HIDE)
        EndIf
    End Sub

    Const Function WindowPlacement() As WINDOWPLACEMENT
        WindowPlacement.length = Len(WindowPlacement)
        GetWindowPlacement(hwnd, WindowPlacement)
    End Function

    Sub WindowPlacement(ByRef wndpl As WINDOWPLACEMENT)
        SetWindowPlacement(wndpl)
    End Sub

    Const Function WndProc() As WNDPROC
        Return _System_GetWindowLongPtr(hwnd, GWLP_HINSTANCE) As WNDPROC
    End Function

    Sub WndProc(newWndProc As WNDPROC)
        _System_SetWindowLongPtr(hwnd, GWLP_WNDPROC, newWndProc As LONG_PTR)
    End Sub

Protected
    Sub SetHWnd(hwndNew As HWND)
        hwnd = hwndNew
    End Sub
End Class

#endif '__WINDOWSHANDLE_SBP__