Как запустить консольное приложение из GUI и управлять его окном в Delphi

Delphi , Синтаксис , Справочник по API-функциям

Как запустить консольное приложение из GUI и управлять его окном в Delphi

При разработке программ на Delphi часто возникает потребность запустить консольное приложение из графического интерфейса и получить контроль над его окном. Это может потребоваться для взаимодействия с консолью или для выполнения некоторых операций, требующих консольного ввода/вывода.

Задача

В вашем GUI приложении на Delphi вы запускаете консольное приложение и вам необходимо получить дескриптор (handle) его окна. Вы попытались использовать функцию EnumWindows(), но она не работала и в списке не отображалось ваше консольное приложение.

Решение

Проблема заключается в том, что консольное окно принадлежит процессу conhost.exe, а не процессу, который вы запустили (например, cmd.exe). Поэтому, попытка перечисления окон сразу после создания процесса не даст результата. Необходимо подождать, пока окно консоли полностью инициализируется.

Один из способов решения этой задачи - использование функции AttachConsole(), которая позволяет вашему процессу прикрепиться к уже существующему консольному окну. После прикрепления можно получить дескриптор окна с помощью функции GetConsoleWindow().

Пример кода

function GetConsoleWindow: HWND; stdcall;
  external kernel32 name 'GetConsoleWindow';
function AttachConsole(dwProcessId: DWORD): BOOL; stdcall;
  external kernel32 name 'AttachConsole';

function RunApp(const ACmdLine: string): HWND;
var
  CmdLine: string;
  Attempt: Integer;
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
begin
  Result := 0;
  FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
  FillChar(ProcessInfo, SizeOf(TProcessInformation), 0);
  StartupInfo.cb := SizeOf(TStartupInfo);
  StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow := SW_SHOWNORMAL;
  CmdLine := ACmdLine;
  UniqueString(CmdLine);
  if CreateProcess(nil, PChar(CmdLine), nil, nil, False,
    CREATE_NEW_CONSOLE, nil, nil, StartupInfo, ProcessInfo) then
  begin
    Attempt := 100;
    while (Attempt > 0) do
    begin
      if AttachConsole(ProcessInfo.dwProcessId) then
      begin
        Result := GetConsoleWindow;
        FreeConsole;
        Break;
      end;
      Sleep(10);
      Dec(Attempt);
    end;
    CloseHandle(ProcessInfo.hThread);
    CloseHandle(ProcessInfo.hProcess);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  S: string;
  ConsoleHandle: HWND;
begin
  ConsoleHandle := RunApp('cmd.exe');
  if ConsoleHandle <> 0 then
  begin
    S := 'Привет! Я твоя консоль, чем могу помочь?';
    SendMessage(ConsoleHandle, WM_SETTEXT, 0, PChar(S));
  end;
end;

Важные моменты

• Функция CreateProcess() возвращает управление немедленно, когда консоль еще не полностью инициализирована. Поэтому, перед попыткой прикрепления к консоли, необходимо подождать некоторое время.
• Использование функции Sleep() в цикле является одним из способов ожидания, но не является идеальным, так как время ожидания может быть разным в зависимости от системы.
• После выполнения всех операций с консолью, не забудьте освободить ресурсы с помощью FreeConsole().

Используя этот подход, вы сможете запускать консольные приложения из вашего GUI приложения на Delphi и управлять их окнами.

Создано по материалам из источника по ссылке.

Описание контекста: Вопрос связан с разработкой приложений на Delphi, где необходимо запустить консольное приложение из графического интерфейса и управлять его окном.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Справочник по API-функциям ::