;Autor: netmaestro

EnableExplicit

Define WindowClass.s
Define wc.WNDCLASSEX
Define screenx
Define screeny
Define hWndMain
Define msg.MSG

Procedure WindowCallback(Window, Message, wParam, lParam)
  Protected Result
  
  Select Message
    Case #WM_CLOSE
      DestroyWindow_(Window)
    Case #WM_DESTROY
      PostQuitMessage_(0)
      Result  = 0
    Default
      Result  = DefWindowProc_(Window, Message, wParam, lParam)
  EndSelect
  ProcedureReturn Result
EndProcedure

#Style  = #WS_VISIBLE | #WS_CAPTION | #WS_SYSMENU
WindowClass.s  = "WindowClass_227B";Klassenname selber bestimmbar!
wc.WNDCLASSEX
wc\cbSize  = SizeOf(WNDCLASSEX)
wc\hbrBackground = CreateSolidBrush_(GetSysColor_(#COLOR_BTNFACE))
wc\hCursor = LoadCursor_(0, #IDC_ARROW)
wc\lpfnWndProc  = @WindowCallback()
wc\lpszClassName  = @WindowClass
RegisterClassEx_(@wc)

screenx = GetSystemMetrics_(#SM_CXSCREEN)/2-320/2
screeny = GetSystemMetrics_(#SM_CYSCREEN)/2-240/2

hWndMain  = CreateWindow_( WindowClass, "Test Window", #Style, screenx, screeny, 320, 240, 0, 0, 0, 0)

While GetMessage_(msg.MSG, #Null, 0, 0 )
  TranslateMessage_(msg)
  DispatchMessage_(msg)
Wend