Quite sure they've always been there. Anyway:
Graphics 800,600
disableMinimise(getactivewindow())
While Not AppTerminate()
Wend
End
Extern "win32"
Function GetActiveWindow%()
Function isZoomed%(hWnd%) = "IsZoomed@4"
Function SendMessage:Int(hWnd:Int,MSG:Int,wParam:Int,lParam:Int) = "SendMessageA@16"
End Extern
Function disableMinimise(hwnd:Long)
?Win32
Local tmp:Long = GetWindowLongA(hwnd, GWL_STYLE)
If tmp & WS_MINIMIZEBOX
tmp = tmp ~ WS_MINIMIZEBOX
EndIf
If tmp & WS_MAXIMIZEBOX
tmp = ~ WS_MAXIMIZEBOX
EndIf
SetWindowLongA( hwnd, GWL_STYLE, tmp )
DrawMenuBar( hwnd )
?
End Function
|