diff --git a/noframe.bi b/noframe.bi index 4bb9ac2..bae7e58 100644 --- a/noframe.bi +++ b/noframe.bi @@ -1,8 +1,3 @@ - -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) @@ -11,18 +6,21 @@ 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 +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 As Long winstyle, Style, a +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) -a = SetWindowLongA&(hwnd, GWL_STYLE, winstyle And Not Style) \ No newline at end of file + +if Not SetWindowLongA&(hwnd, GWL_STYLE, winstyle And Not Style) Then +End If