Главная страницаОбратная связьКарта сайта

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

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

Пример:


 procedure TForm1.Button1Click(Sender: TObject); 
 var 
   info : TOSVersionInfo; 
   ClassName : string; 
   Title : stringbegin 
  {Проверяем -  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;


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Как получить дескриптор окна Windows, содержащего DOS программу", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info