is there a way of getting rid of the windows X

BlitzMax Forums/BlitzMax Programming/is there a way of getting rid of the windows X

Eikon
 #1
Here you go:
Extern "win32"
	Function FindWindow(lpClassName$z, lpWindowName$z) = "FindWindowA@8"
	Function GetSystemMenu(hwnd, bRevert)
	Function RemoveMenu(hMenu, nPosition, wFlags)
End Extern

AppTitle = "No Close"
SetGraphicsDriver D3D7Max2DDriver()
Graphics 640, 480, 0, 60
WindowMode

Repeat
Flip; Cls
Until KeyDown(KEY_ESCAPE)

Function WindowMode()

	Local hWnd% = FindWindow("BBDX7Device Window Class", "No Close")
	hMenu = GetSystemMenu(hWnd, 0)
	RemoveMenu hMenu, $F060, 0
	DrawMenuBar hWnd
	
End Function