win32 去掉窗口邊框

參考：http://www.blitzbasic.com/Community/posts.php?topic=67222

Strict

Graphics 320, 200

SetClsColor 0,64,0

RemoveBorder()
DrawMsg("Press Key to flip once")
DrawMsg("Press Key to Exit")


Function RemoveBorder()

	Local hWnd:Long = GetActiveWindow()

	Local tmp:Long = GetWindowLongA( hWnd, GWL_STYLE )
	tmp :~ WS_CAPTION

	SetWindowLongA( hWnd, GWL_STYLE, tmp )

End Function


Function DrawMsg (msg$)

    Cls
    SetColor 255,255,255
    DrawText msg$, 50, 50
    Flip

    WaitKey()

EndFunction

SetWindowPos( hwnd, 0, 0,0, GraphicsWidth(),GraphicsHeight(), SWP_NOMOVE | SWP_NOZORDER | SWP_FRAMECHANGED)