29 lines
No EOL
1,009 B
Text
29 lines
No EOL
1,009 B
Text
$if noframe = undefined then
|
|
$let noframe = defined
|
|
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 = &HC00000
|
|
Const WS_THICKFRAME = &H040000
|
|
Const WS_MINIMIZEBOX = &H020000
|
|
Const WS_MAXIMIZEBOX = &H010000
|
|
Const WS_SYSMENU = &H080000
|
|
|
|
Do: Loop Until _ScreenExists
|
|
|
|
Dim hwnd As _Offset
|
|
Dim winstyle As Long
|
|
Dim Style As Long
|
|
|
|
hwnd = _WindowHandle
|
|
winstyle = GetWindowLongA(hwnd, GWL_STYLE)
|
|
Style = (WS_CAPTION Or WS_THICKFRAME Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX Or WS_SYSMENU)
|
|
|
|
if Not SetWindowLongA&(hwnd, GWL_STYLE, winstyle And Not Style) Then
|
|
End If
|
|
$end if |