Как получить дескриптора окна 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; 
Kwork.ru - услуги фрилансеров от 500 руб.
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (13 оценок, среднее: 5,00 из 5)
Загрузка...
Добавить комментарий