Обновлено: 01 декабря, 2018

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

В следующем примере используется функция Windows API FindWindow().

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;

Рейтинг автора

Автор статьи

Юрий

Программист Delphi, MySQL. Образование: высшее. Специальность: программное обеспечение информационных технологий.

Написано статей

439