Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как захватить текущий URL из окна Internet Explorer. [D7, Win95/98, WinXP]

mefisto © (2004-12-10 16:35:00)
Такая проблема! Я зарегистрировал свою кнопку в 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, которое потеряло фокус!!!

DiamondShark (2004-12-10 19:38:00) [1]

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

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

8ung (2004-12-10 19:22:00) [2]
А тебе именно переделать надо?
Можно же свою написать. Находить окно IE, находить на нём окно адреса и считывать строку. Усё на WinApi.

mefisto (2004-12-10 17:25:00) [3]
Кто нибуть подскажет;:?

mefisto (2004-12-10 17:03:00) [4]
Очень уж замутная функция!!!

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »