barra de endereço

Delphi

06/11/2006

como eu faço para copiar da barra de endereço do internet explorer para um edit


Wann_net

Wann_net

Curtidas 0

Respostas

Campsoft

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

Campsoft

06/11/2006

ah sim... é necessario declarar ddeman na clausula uses.


GOSTEI 0
POSTAR