Программирование на Delphi и не только Как узнать текущий URL и заголовок окна Opera или Netscape? | Программирование на Delphi и не только

Delphi FAQ >> Интернет

Данная функция, написанная на языке программирования Delphi, возвращает URL активной страницы, открытой в web-браузере Opera или Netscape, а также заголовок окна браузера.

Uses DdeMan;

function GetOperaURLandTitle: String;
var   DDE: TDdeClientConv;

begin

  DDE := TDdeClientConv.Create(Application);

  if DDE.SetLink( 'Netscape', 'WWW_GetWindowInfo' ) then

    result := DDE.RequestData( '0xFFFFFFFF, sURL, sTitle' )

  else

    result := '';   DDE.Free;

end;

На просторах СНГ качается олько бесплатная музыка, за музыку мы пока не готовы платить.