Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Win Api / Как получить дескриптора окна Window, сожержащего DOS программу или программу консольного режима?

Как получить дескриптора окна Window, сожержащего DOS программу или программу консольного режима?

В следуещем примере используется функция 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;

Источник: Дельфи. Вокруг да около.

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru