Delphi Найти Окно Dos Приложения Программы

В Delphi можно использовать функцию FindWindow для поиска окон различных приложений, включая DOS-приложения, по заголовку окна. Заголовок окна можно получить с помощью функции GetWindowText. Стоит учитывать, что для поиска окна DOS-приложения потребуется знать его класс-имя, которое может различаться для разных версий операционной системы.

Пример кода на Delphi:

var
  hWnd: HWND;
  sClassName, sCaption: string;
  iLen: Integer;
begin
  sClassName := 'ConsoleWindowClass'; // класс-имя окна DOS-приложения
  sCaption := 'My DOS App'; // заголовок окна DOS-приложения
  hWnd := FindWindow(PChar(sClassName), nil);
  while hWnd <> 0 do
  begin
    iLen := GetWindowTextLength(hWnd);
    if iLen > 0 then
    begin
      SetLength(sCaption, iLen);
      GetWindowText(hWnd, PChar(sCaption), iLen + 1);
      if sCaption = 'My DOS App' then // проверка заголовка окна DOS-приложения
      begin
        ShowWindow(hWnd, SW_RESTORE); // показать окно, если было свернуто
        SetForegroundWindow(hWnd); // установить фокус на окно
        Break;
      end;
    end;
    hWnd := GetWindow(hWnd, GW_HWNDNEXT);
  end;
end;