Leer URL del Explorer.
Publicado por Heppy (3 intervenciones) el 06/07/2001 21:13:39
He conseguido leer la URL y el WindowCaption de una ventana de Explorer de la siguiente forma:
uses ddeman;
procedure TForm1.Button1Click(Sender: TObject);
var DDE: TDdeClientConv;
begin
DDE:=TDdeClientConv.Create(Self);
if DDE.SetLink( 'IExplore', 'WWW_GetWindowInfo' ) then
Edit1.Text := DDE.RequestData( '0xFFFFFFFF, sURL, sTitle' );
DDE.Free;
end;
Mi pregunta es: ¿Cómo puedo leer las URL's y WindowCaption de todos los explorer que estén abiertos?.
Os agradecería una respuesta, pues me encuentro atascado.
uses ddeman;
procedure TForm1.Button1Click(Sender: TObject);
var DDE: TDdeClientConv;
begin
DDE:=TDdeClientConv.Create(Self);
if DDE.SetLink( 'IExplore', 'WWW_GetWindowInfo' ) then
Edit1.Text := DDE.RequestData( '0xFFFFFFFF, sURL, sTitle' );
DDE.Free;
end;
Mi pregunta es: ¿Cómo puedo leer las URL's y WindowCaption de todos los explorer que estén abiertos?.
Os agradecería una respuesta, pues me encuentro atascado.
Valora esta pregunta
0