Fórum Pegar conteúdo da barra de end. do IE #229050

function GetURLIExplorer(Service: String): String;
var
  ClDDE : TDDEClientConv;
  Temp  : PChar;
  xTemp : String;
begin
  Result := ´´;
  {create a new DDE Client object}
  ClDDE := TDDEClientConv.Create(nil);
  with ClDDE do
  begin
    SetLink(Service, ´WWW_GetWindowInfo´);
    Temp  := RequestData(´0xFFFFFFFF´);
    xTemp := StrPas(Temp);
    xTemp := Copy(xTemp,2,Pos(´,´,xTemp)-3);
    Result := xTemp;
    StrDispose(Temp);
    CloseLink;
  end;
  ClDDE.Free;
end;