Delphi黑客编程-启动一个新的IE并控制其运行

本实例演示如何启动一个新的IE，并且在程序运行过程中控制它，如移动位置、改变大小等。

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

图6-20  主界面

首先需要向程序的uses段中加入SHDocVw和Comobj，并且添加一个Variant类型的变量IEApp，该变量用于存储程序创建的IE，如果程序运行的过程中创建了多个IE，则IEApp变量对应于最后一个创建的IE。

在程序运行过程中，如果在“指定URL:”对应的文本框中输入一个有效的网址后，在键盘上按功能键【Enter】，程序就会自动打开一个新的IE，响应代码如下：

procedure TfrmMain.edtURLKeyPress(Sender: TObject; var Key: Char);

begin

    if Key=#13 then

    begin

        IEApp:=CreateOLEObject('InternetExplorer.Application') as IWebBrowser2;

        IEApp.Visible:=True;

        IEApp.Navigate(edtURL.Text);

    end;

end;

程序首先判断用户的按键，如果是#13(也就是功能键【Enter】)，程序通过调用CreateOLEObject函数来创建一个新的IE对象，然后设置这个IE对象的Visible为True，也就是处于可见状态，最后IE对象将通过IEApp.Navigate(edtURL.Text)语句去浏览用户指定的网页。

当然，在程序运行过程中，用户可以控制这个自己创建的IE对象，如移动位置、改变大小和停止加载网页等，它们的操作大同小异，其中将IE对象向左移动的代码如下：

procedure TfrmMain.btnLeftClick(Sender: TObject);

begin

    if IEApp.Left>0 then

    begin

        IEApp.Left:=IEApp.Left-1;

    end;

end;

[1] [2] 下一页