Автоматическое открытие новой вкладки в Internet Explorer без создания нового процесса

Delphi , Интернет и Сети , Компоненты и Интернет

Вопрос, поднятый в контексте, заключается в том, как программно запустить Internet Explorer (IE) и выполнить навигацию в уже запущенном экземпляре браузера (открыв новую вкладку или заменив текульный URL), вместо создания нового экземпляра. Разработчик столкнулся с проблемой, что не может найти подходящую команду для запуска IE с параметром -single_instance, а попытки использовать InternetExplorer.Application также оказались неудачными.

Подробное описание решения проблемы:

Для решения задачи можно использовать функцию EnumChildWindows, которая позволяет перебрать все дочерние окна указанного родительского окна. Это необходимо, так как прямое обращение к дочернему окну Shell DocObject View может не работать, особенно в разных версиях IE. Код должен быть изменен так, чтобы использовать EnumChildWindows для нахождения нужного дочернего окна.

Пример кода на Object Pascal для Delphi, который использует EnumChildWindows для нахождения окна Internet Explorer_Server:

function EnumChilds(hwnd: HWND; lParam: LPARAM): BOOL; stdcall;
var
  ClassName: array[0..24] of Char;
begin
  GetClassName(hwnd, ClassName, Length(ClassName));
  Result := ClassName <> 'Internet Explorer_Server'; // Убедитесь, что это правильное название класса окна
  if not Result then
    PLongWord(lParam)^ := hwnd;
end;

function GetActiveIEServerWindow(const Activate: Boolean = True): HWND;
var
  Wnd, WndChild: HWND;
begin
  Result := 0;
  Wnd := FindWindow('IEFrame', nil); // Верхний уровень IE
  if Wnd <> 0 then
  begin
    WndChild := 0;
    EnumChildWindows(Wnd, @EnumChilds, LongWord(@WndChild));
    if WndChild <> 0 then
    begin
      Result := WndChild;
      if Activate then
      begin
        if IsIconic(Wnd) then
          ShowWindow(Wnd, SW_RESTORE)
        else
          SetForegroundWindow(Wnd);
      end;
    end;
  end;
end;

После того как окно найдено, можно использовать функцию GetIEFromHWND для получения интерфейса IWebBrowser2, который позволит выполнить навигацию в уже открытом окне IE.

Пример использования кода:

procedure TForm1.Button1Click(Sender: TObject);
var
  IEServerWnd: HWND;
  IE: IWebBrowser2;
  navOpenInNewTab: LongInt = $800; // Не используйте этот флаг для IE6, так как там нет вкладок
begin
  IEServerWnd := GetActiveIEServerWindow;
  if (IEServerWnd <> 0) and GetIEFromHWND(IEServerWnd, IE) then
  begin
    OleVariant(IE).Navigate('http://www.yahoo.com', navOpenInNewTab);
  end
  else
  begin
    // Если активное окно IE не найдено, можно выполнить обычный запуск IE
    ShellExecute(Handle, 'open', 'iexplore.exe', '"http://google.com"', nil, SW_RESTORE);
  end;
end;

Заключение:

Использование EnumChildWindows позволяет надежно найти нужное окно IE, даже если структура окон изменилась в разных версиях браузера. Приведенный выше код является рабочим решением для автоматического открытия новой вкладки в Internet Explorer без создания нового процесса.

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

Разработчик столкнулся с задачей программного запуска Internet Explorer и выполнения навигации в уже открытом экземпляре браузера, используя параметр `-single_instance` и интерфейс `InternetExplorer.Application`, что не привело к успеху, и для решения пр

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

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

:: Главная :: Компоненты и Интернет ::