Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

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

01.01.2007

Автор: Ruslan Abu Zant

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

Совместимость: Delphi 4.x (или выше)

Не забудьте добавить 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;

Взято из https://forum.sources.ru