Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.26;
Скачать: CL | DM;

Вниз

Как захватить текущий URL из окна Internet Explorer.   Найти похожие ветки 

 
mefisto   (2004-12-10 16:35) [0]

Такая проблема! Я зарегистрировал свою кнопку в IExploree,которая запускает мою программу и передаёт ей параметр через командную строку. После запуска выполняется функция которая захвативает текущий URL из окна Internet Explorer
(этот пример я нашел в  Delphi World © Выпуск 2002 - 2004 )---------
uses
 windows, ddeman, ...

function Get_URL(Servicio: string): string;
var
 Cliente_DDE: TDDEClientConv;
 temp: PChar;      
begin
 Result := "";
 Cliente_DDE:= TDDEClientConv.Create( nil );
 with Cliente_DDE do
 begin
   SetLink( Servicio,"WWW_GetWindowInfo");
   temp := RequestData("0xFFFFFFFF");
   Result := StrPas(temp);
   StrDispose(temp);  // <<-- Предотвращаем утечку памяти
   CloseLink;
 end;
 Cliente_DDE.Free;
end;

procedure TForm1.Button1Click(Sender);
begin
  showmessage(Get_URL("IExplore"));
end;

---------
Всё бы хорошо, НО когда у меня запущено несколько окон с страничками Internet Explorer я через кнопку запускаю прогу то она постоянно вывобит один и тотже URL. Как переписать функцию так, чтоб функция выводила URL того окна Explorera, которое потеряло фокус!!!  


 
mefisto   (2004-12-10 17:03) [1]

Очень уж замутная функция!!!


 
mefisto   (2004-12-10 17:25) [2]

Кто нибуть подскажет;:?


 
8ung   (2004-12-10 19:22) [3]

А тебе именно переделать надо?
Можно же свою написать. Находить окно IE, находить на нём окно адреса и считывать строку. Усё на WinApi.


 
DiamondShark ©   (2004-12-10 19:38) [4]


> запускает мою программу и передаёт ей параметр через командную
> строку

А URL через ту же командную строку передать не судьба?



Страницы: 1 вся ветка

Текущий архив: 2004.12.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.024 c
4-1099941230
FLEA_ZNTU
2004-11-08 22:13
2004.12.26
История запусков приложения


1-1102530469
pkm
2004-12-08 21:27
2004.12.26
Скрытие окна.


9-1093268794
Ландграф Павел
2004-08-23 17:46
2004.12.26
быстро заполнить 2-у мерный массив значениям


3-1101587768
Fedor
2004-11-27 23:36
2004.12.26
Сортировка IBTable


1-1102777296
VasRog
2004-12-11 18:01
2004.12.26
Ссылки