noframe.bi

$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