; USERLIB ; bwin DLL by Eikon ;.lib "bwin.dll" ;win_Close%(hWnd%) ;.lib "user32.dll" ;GetActiveWindow%() ;SetWindowLong%(hWnd%,Val%,Long%):"SetWindowLongA" ;GetWindowLong%(hWnd%,Val%):"GetWindowLongA" ;SetWindowPos%(hWnd%,hAfter%,x%,y%,cx%,cy%,flags%) AppTitle "Proper Graphics window by Eikon" Graphics 640, 480, 16, 2 SetBuffer BackBuffer() Const GWL_STYLE = -16 Const WS_MINIMIZE = $00020000 Const WS_SYSMENU = $00080000 Const SWP_NOSIZE = $0001 Const SWP_NOMOVE = $0002 Const SWP_FRAMECHANGED = $0020 hWnd = GetActiveWindow() Style = GetWindowLong(hWnd, GWL_STYLE) SetWindowLong hWnd, GWL_STYLE, Style Or WS_MINIMIZE Or WS_SYSMENU SetWindowPos hWnd, 0, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE Or SWP_FRAMECHANGED c_Time = MilliSecs() Repeat If MilliSecs() >= c_Time + 100 Then ; Poll the close If win_Close(hWnd) Then End c_Time = MilliSecs() EndIf Until KeyDown(1) End