EnableExplicit Define ConsoleHandle #MONITOR_DEFAULTTONULL = 0 #MONITOR_DEFAULTTOPRIMARY = 1 #MONITOR_DEFAULTTONEAREST = 2 If OpenLibrary(0, "Kernel32.dll") Prototype GetConsoleWindow() Define GetConsoleWindow.GetConsoleWindow = GetFunction(0, "GetConsoleWindow") CloseLibrary(0) EndIf If OpenConsole("Meine Konsole") ConsoleHandle = GetConsoleWindow() Repeat PrintN("Monitor-Handle: " + MonitorFromWindow_(ConsoleHandle, #MONITOR_DEFAULTTONEAREST)) Input() ForEver CloseConsole() EndIf