Как получить активный URL из браузера

Как получить активный URL из браузера

Информационные технологии » Сетевые технологии » Как получить активный URL из браузера

Приводимая здесь функция показывает, как Ваше приложение может извлечь из браузера (IE или Netscape) URL , как, например, это делает аська. Не забудьте добавить DDEMan в Ваш проект!

Собственно сам исходничек функции:

uses windows, ddeman, ......

function Get_URL(Servicio: string): String;

var

Cliente_DDE: TDDEClientConv;

temp:PChar; //<<-------------------------This is new

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('Netscape'));

или

showmessage(Get_URL('IExplore'));

end;




http://www.sources.ru/

Отзывы (через аккаунты в социальных сетях Вконтакте, Facebook или Google+):

Оставить отзыв с помощью аккаунта ВКонтакте:

Оставить отзыв с помощью аккаунта FaceBook:

Оставить отзыв с помощью аккаунта Google+: