EnableExplicit

Define EventID
Define Result

If OpenWindow(0,0,0,500,400,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  
  Result = IsWindowUnicode_(WindowID(0))
  If Result=1
    MessageRequester("","Die Anwendung wurde im Unicode-Format kompiliert.",0)
  Else
    MessageRequester("","Die Anwendung wurde nicht im Unicode-Format kompiliert.",0)
  EndIf
  
  Repeat
    EventID=WaitWindowEvent()
    If EventID = #PB_Event_CloseWindow
      End
    EndIf
  ForEver
EndIf