VPF::Как различить браузеры если - Форум программистов

Pavelbej

Дата 16.7.2008, 17:57 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 419
Регистрация: 5.7.2005

Репутация: нет
Всего: 6

В своей программе я захватываю ссылку из адресной строки браузера с которым в данный момент я работаю, а главное, который находится поверх всех окон.

Вот как я это делаю:

Функция получения ссылок из разных браузеров

Код


function IEWindowEnumProc(AHandle: hWnd; AnObject: TObject): BOOL; stdcall;
var theClassName, s, op: string;
begin
  Result := True;
  SetLength(theClassName, 256);
  GetClassName(AHandle, PChar(theClassName), 255);
  if GetForegroundWindow=AHandle then
  begin
          if Pos('IEFrame', theClassName) > 0 then //Internet Explorer
          begin
              s:=Get_URL('IExplore');
              ...
          end;
          if Pos('OpWindow', theClassName) > 0 then //Opera
          begin
              s:=Get_URL('Opera');
              ...
          end;
          if Pos('MozillaUI', theClassName) > 0 then //Firefox
          begin
              s:=Get_URL('Firefox');
              ...
          end;
  end;
end;

Вызов:

Код


EnumWindows(@IEWindowEnumProc, LongInt(0));

Для перечисленных выше браузеров этот код работает нормально. Но возникла необходимось прикрутить захват и из других браузеров (Netscape, SeaMonkey), и вот тут появилась проблема:
Имя класса окна у всех трех браузеров (Firefox, Netscape, SeaMonkey) один и тот же - MozillaUIWindowClass

Как понять, в таком случае, кто есть кто?

Alkash

Дата 17.7.2008, 09:24 (ссылка)

(нет голосов)

Загрузка ...

коллекционер жизни

Профиль
Группа: Участник
Сообщений: 516
Регистрация: 5.7.2004
Где: /

Репутация: нет
Всего: нет

По FindWindow?

--------------------

Подпись >> /dev/null

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »