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

Previous  Top  Next

    
 

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

 

 

Code:

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;

 

©Drkb::02196

http://delphiworld.narod.ru/

DelphiWorld 6.0

 

 


 

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

 

 

©Drkb::02197

http://delphiworld.narod.ru/

DelphiWorld 6.0