列举正在运行的IE(Delphi编程)

IE提供了开放的接口，所以用户在IE程序的外部可以控制IE的运行，本实例将演示如何列举系统中正在运行的IE(包括“资源管理器”)，并且能够根据用户的选择关闭指定的IE。

向窗体上添加两个TLabel组件、两个TListBox组件和两个TButton组件，设计完成的主界面如图6-14所示。

图6-14  主界面

首先需要向程序的uses段中加入SHDocVw。

在程序中添加一个自定义过程ViewList，该过程没有参数，它的作用就是显示系统中正在运行的IE，当用户需要刷新显示时，也可以调用该过程。ViewList过程的内容代码如下：

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;

在程序运行的初期中，就会调用ViewList过程。首先设置按钮的有效状态和清空列表框中显示的内容。然后创建一个TShellWindows类型的变量SW，SW变量的Count属性中存储了现在系统中运行的IE的数目(当然，也包括“资源管理器”的数目)。最后通过IWebBrowser2类型的Browser变量来取得IE的标题和URL等信息。

通过Browser变量可以控制IE浏览器，如果调用Quit方法，就会关闭IE。“关闭”按钮的响应过程中就用到了这个方法。

[1] [2] 下一页