Experimentei aqui, e no IE não retornou nada. Mas no Firefox, retornou
uma string com três ítems entre aspas e separados por vírgula:
O primeiro é a url, o segundo o título da página e o terceiro veio em branco.
Procure a primeira vírgula e exclua da string tudo que vem após.
2008/10/31 Onjahyr - GMAIL <[EMAIL PROTECTED]>:
> E aí pessoal....
>
> A função abaixo captura a url segundo o navegador informado, porém, vem
> a URL com o caption da janela e outras parafernalhas :)
> Será que há uma opção no "RequestData" que me traga somente a URL e nada
> mais? (Quanto a vir com as aspas tudo bem).
>
> function GetURL(Service: string): String;
> var
> ClDDE : TDDEClientConv;
> temp : PChar;
> begin
> Result := '';
> //create a new DDE Client object
> ClDDE := TDDEClientConv.Create( nil );
> with ClDDE do
> begin
> SetLink(Service,'WWW_GetWindowInfo');
> temp := RequestData(',,1'); //'0xFFFFFFFF' (mesma coisa)
> Result := StrPas(temp);
> StrDispose(temp);
> CloseLink;
> end;
>
> ClDDE.Free;
> end;
>
> Edit1.Text := GetURL('Firefox');
> ou
> Edit1.Text := GetURL('IExplore');
> ou
> Edit1.Text := GetURL(' Mosaic');
> ...
>
> Agradeço
>
>
--
Timeo hominem unius libri
Cogito ergo sum - Carpe diem
[]s
Guionardo Furlan
http://guionardo.blogspot.com
