Получение текущего URL

[Artem]

Не как не могу получить текущий URL из IE. Может у кого есть рабочий код?

[Квэнди]

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;

Использовать
showmessage(Get_URL('Netscape'));
// или
showmessage(Get_URL('IExplore'));

[Artem]

Я это код уже видел, он почему то возвращает пустое значение (

[Квэнди]

это уже второй вопрос. У меня возвращает корректно

[zetrix]

Всё работает. Проверено.

[Artem]

Все работает, спасибо, просто в том коде, что я видел, ошибка была, а тут её нет. Ещё раз спасибо...