Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Как получить дескриптор окна консоли?

01.01.2007
В следуещем примере используется функция Windows API FindWindow(). Обратите внимание, что WndClass консольного окна отличаются для Windows 95 и Window NT и заголовок окна может содержать полный путь под Windows NT.

 procedure TForm1.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;

https://delphiworld.narod.ru/

DelphiWorld 6.0


При поиске окон, как отмечалось, нужен класс и имя, так вот - если Вы ищите DOS-окно, то его класс всегда = 'tty'.

https://delphiworld.narod.ru/

DelphiWorld 6.0