No AppTitle in Bmax?

BlitzMax Forums/BlitzMax Programming/No AppTitle in Bmax?

nawi
 #1
Extern "win32"
 Function SetWindowText(hwnd, lpString:Byte Ptr) = "SetWindowTextA@8"
 Function GetActiveWindow:Byte Ptr()
End Extern

Function WindowCaption(title:string)
	SetWindowText(Int(GetActiveWindow()),title.ToCString())
End Function

Graphics 800,600,0
WindowCaption "test"


While Not KeyHit(KEY_ESCAPE)
Wend


This can change the AppTitle after Graphics command.