|
IE提供了开放的接口，所以用户在IE程序的外部可以控制IE的运行，本实例将演示如何列举系统中正在运行的IE(包括“资源管理器”)，并且能够根据用户的选择关闭指定的IE。
向窗体上添加两个TLabel组件、两个TListBox组件和两个TButton组件，设计完成的主界面.
首先需要向程序的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] 下一页 |
