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)