Guionardo, eu já havia feito. Esqueci de avisar...
Eu fiz diferente, recebo a URL direto assim (que dá no mesmo que vc fez):
function GetURL(Browser : String): String;
var
Client_DDE : TDDEClientConv;
temp : PChar;
begin
Result := '';
Client_DDE := TDDEClientConv.Create( nil );
with Client_DDE do
begin
SetLink(Browser, 'WWW_GetWindowInfo');
temp := RequestData('0xFFFFFFFF');
Result := StrPas(temp);
Delete(Result, Pos(',', Result), Length(Result) - Pos(',', Result)
+ 1);
Delete(Result, 1, 1);
Delete(Result, Length(Result), 1);
StrDispose(temp);
CloseLink;
end;
Client_DDE.Free;
end;
Agradecido.
Guionardo Furlan escreveu:
>
> Uso o IE7.
> Não sei onde está a sua dúvida.
> Faça o seguinte.
>
> function obtemurl(texto: string): string;
> var p : integer;
> begin
> delete(texto,1,1); // exclui a primeira aspa
> p:=Pos('"',texto); // localiza a segunda aspa
> if p>0 then
> Result:=Copy(texto,1,p-1)
> else
> Result:='';
> end;
>
>
