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

 

 

Code:

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;

 

При поиске окон, как отмечалось, нужен класс и имя, так вот - если Вы ищите DOS-окно, то его класс всегда = 'tty'.

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить