barra de endereço
como eu faço para copiar da barra de endereço do internet explorer para um edit
Wann_net
Curtidas 0
Respostas
Campsoft
06/11/2006
Tenta essa....
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(´0xFFFFFFFF´); Result := StrPas(temp); StrDispose(temp); CloseLink; end; ClDDE.Free; end; procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(GetURL(´IExplore´)); end;
GOSTEI 0
Campsoft
06/11/2006
ah sim... é necessario declarar ddeman na clausula uses.
GOSTEI 0