unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, SHDocVw, StdCtrls;
type
TfrmMain = class(TForm)
ListBox1: TListBox;
btnKill: TButton;
btnRefresh: TButton;
Label1: TLabel;
Label2: TLabel;
ListBox2: TListBox;
procedure FormCreate(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
procedure ListBox2Click(Sender: TObject);
procedure btnRefreshClick(Sender: TObject);
procedure btnKillClick(Sender: TObject);
procedure ViewList;
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmMain: TfrmMain;
implementation
{$R *.dfm}
procedure TfrmMain.FormCreate(Sender: TObject);
begin
ViewList;
end;
procedure TfrmMain.ListBox1Click(Sender: TObject);
begin
btnKill.Enabled:=True;
ListBox2.ItemIndex:=ListBox1.ItemIndex;
end;
procedure TfrmMain.ListBox2Click(Sender: TObject);
begin
btnKill.Enabled:=True;
ListBox1.ItemIndex:=ListBox2.ItemIndex;
end;
procedure TfrmMain.btnRefreshClick(Sender: TObject);
begin
ViewList;
end;
procedure TfrmMain.btnKillClick(Sender: TObject);
var
i: Integer;
Browser: IWebBrowser2;
SW : TShellWindows ;
begin
if not ListBox1.ItemIndex<0 then
begin
SW := TShellWindows.Create(Application);
try
for i := 0 to SW.Count - 1 do
begin
Browser := SW.Item(i) as IWebBrowser2;
if Browser.LocationURL=ListBox2.Items[ListBox2.ItemIndex] then
begin
Browser.Quit;
break;
end;
end;
finally
SW.Free ;
end;
end;
ViewList;
end;
procedure TfrmMain.ViewList;
var
i: Integer;
Browser: IWebBrowser2;
SW : TShellWindows ;
begin
btnRefresh.Enabled:=True;
btnKill.Enabled:=False;
ListBox1.Clear;
ListBox2.Clear;
SW := TShellWindows.Create(Application);
try
for i := 0 to SW.Count - 1 do
begin
Browser := SW.Item(i) as IWebBrowser2;
ListBox1.Items.Add(Browser.LocationName);
ListBox2.Items.Add(Browser.LocationURL);
end;
finally
SW.Free ;
end;
end;
end.