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)