EnableExplicit Define ConsoleHandle If OpenLibrary(0, "Kernel32.dll") Prototype GetConsoleWindow() Define GetConsoleWindow.GetConsoleWindow = GetFunction(0, "GetConsoleWindow") CloseLibrary(0) EndIf #CCHILDREN_TITLEBAR = 5 Structure TITLEBARINFO cbSize.l rcTitleBar.RECT rgstate.l[#CCHILDREN_TITLEBAR+1] EndStructure Define pti.TITLEBARINFO\cbSize = SizeOf(TITLEBARINFO) If OpenConsole("Meine Konsole") ConsoleHandle = GetConsoleWindow() GetTitleBarInfo_(ConsoleHandle, pti) PrintN("Höhe der Titelleiste: " + Str(pti\rcTitleBar\bottom-pti\rcTitleBar\top)) Input() CloseConsole() EndIf