Pegar conteúdo da barra de end. do IE

Delphi

30/04/2004

Galera,

Estou precisando pegar o que está digitado na barra de endereços de uma das janelas do IE.
Tem como?

Valeu


Adriano Santos

Adriano Santos

Curtidas 0

Respostas

Adriano Santos

Adriano Santos

30/04/2004

ae galera eu achei na net...tah ai.


declare ddeman na uses;

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;



GOSTEI 0
POSTAR