В следуещем примере используется функция Windows API FindWindow(). Обратите внимание, что WndClass консольного окна отличаются для Windows 95 и Window NT и заголовок окна может содержать полный путь под Windows NT.
Пример:
procedureTForm1.Button1Click(Sender: TObject); var
info : TOSVersionInfo; ClassName : string
; Title : string
; begin
{Проверяем - Win95 или NT.} info.dwOSVersionInfoSize := sizeof(info); GetVersionEx(info); if
(info.dwPlatformId = VER_PLATFORM_WIN32_NT) then
begin
ClassName := 'ConsoleWindowClass'; Title := 'Command Prompt'; end
else
begin
ClassName := 'tty'; Title := 'MS-DOS Prompt'; end
; ShowMessage(IntToStr(FindWindow(PChar(ClassName), PChar(Title)))); end
;