EnableExplicit

Define lpConsoleTitle$ = Space(1024)

If OpenConsole()
  ConsoleTitle("Mein Titel")

  GetConsoleTitle_(@lpConsoleTitle$,1024)

  MessageRequester("","Titel der Konsole: "+lpConsoleTitle$,0)

  CloseConsole()
EndIf