28 lines
No EOL
1 KiB
Text
28 lines
No EOL
1 KiB
Text
|
|
Declare CustomType Library
|
|
Function FindWindow& (ByVal ClassName As _Offset, WindowName$)
|
|
End Declare
|
|
|
|
Declare Dynamic Library "User32"
|
|
Function GetWindowLongA& (ByVal hWnd As _Offset, Byval nIndex As Long)
|
|
Function SetWindowLongA& (ByVal hWnd As _Offset, Byval nIndex As Long, Byval dwNewLong As Long)
|
|
Function SetWindowPos& (ByVal hWnd As _Offset, Byval hWndInsertAfter As Long, Byval x As Long, Byval y As Long, Byval cx As Long, Byval cy As Long, Byval wFlags As Long)
|
|
End Declare
|
|
|
|
Const GWL_STYLE = -16
|
|
Const WS_BORDER = &H800000
|
|
Const WS_CAPTION = &H00C00000
|
|
Const WS_THICKFRAME = &H00040000
|
|
Const WS_MINIMIZEBOX = &H00020000
|
|
Const WS_MAXIMIZEBOX = &H00010000
|
|
Const WS_SYSMENU = &H00080000
|
|
|
|
Do: Loop Until _ScreenExists
|
|
|
|
Dim hwnd As _Offset
|
|
Dim As Long winstyle, Style, a
|
|
|
|
hwnd = _WindowHandle
|
|
winstyle = GetWindowLongA(hwnd, GWL_STYLE)
|
|
Style = (WS_CAPTION Or WS_THICKFRAME Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX Or WS_SYSMENU)
|
|
a = SetWindowLongA&(hwnd, GWL_STYLE, winstyle And Not Style) |