Jak zrobic liste z adresami aktualnie otwartych stron www ?
(Nie tylko tyczacych sie przegladarki Internet Explorer.)

Chodzi mi zeby w memo np wyswietlic wszystkie adresy stron www aktualnie otwartych przez programy, przegladarki itd/itp.
Czy ktos zna odpowiedz?

jezeli ktos sobie napisal wlasna przegladarke to nie masz szans znalezc wszyskich adresow.

Co do IE, to gdzieś dawałem kod na forum, a co do innych, to choćbyś się wściekł i tak wszystkich nie wyłapiesz.

Cos dla Internet explorer IE

oto kod:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ddeman;

type
TForm1 = class(TForm)
Button1: TButton;
Timer1: TTimer;
Memo1: TMemo;
DdeClientConv1: TDdeClientConv;
DdeClientItem1: TDdeClientItem;
DdeServerConv1: TDdeServerConv;
DdeServerItem1: TDdeServerItem;
Button2: TButton;
Timer2: TTimer;
Button3: TButton;
Button4: TButton;
Button5: TButton;
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
DDE: TDdeClientConv;

implementation

{$R *.dfm}

{
function GetURL:string;
var
//DDE: TDDEClientConv1;
DDE: TDdeClientConv;
begin
if DDE.SetLink('Iexplore','WWW_GetWindowInfo')then
begin
DDE.OpenLink;
Result:=DDE.RequestData('-1');
DDE.CloseLink;
end else Result:='';
end;
}

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.Timer1Timer(Sender: TObject);
begin
//ShowMessage(GetURL('IExplore'));
memo1.lines.add(GetURL('IExplore'));
//timer1.Enabled:=false;
//memo1.lines.add(geturl);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Enabled:=true;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
DDe.free;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
timer2.Enabled:=true;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
memo1.lines.add(GetURL('IExplore'));
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
timer1.Enabled:=false;
timer2.Enabled:=false;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
memo1.Clear;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
close();
end;

end.

================================================

Dziala na Przegladarke Internet Explorer

================================================

Co do innych programow nie wiem.
Pozdrawiam

A czy ktos ma program lub link do takiego programu ktory monitoruje inne proogramy i sprawfza ktory program z jaka strona chce sie laczyc i podaje adresy tych stron ?