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

Delphi , ОС и Железо , 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;

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

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: DOS и Консоль ::