unit1.pas

Delphi7应用编程150例附书源码.rar

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.