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

程序代码如下：

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, SHDocVw, Comobj;

 

type

  TfrmMain = class(TForm)

    Label1: TLabel;

    edtURL: TEdit;

    GroupBox1: TGroupBox;

    btnLeft: TButton;

    btnUp: TButton;

    btnRight: TButton;

    btnDown: TButton;

    btnBack: TButton;

    btnForward: TButton;

    btnStop: TButton;

    btnHome: TButton;

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

    procedure btnUpClick(Sender: TObject);

    procedure btnLeftClick(Sender: TObject);

    procedure btnDownClick(Sender: TObject);

    procedure btnRightClick(Sender: TObject);

    procedure btnBackClick(Sender: TObject);

    procedure btnForwardClick(Sender: TObject);

    procedure btnStopClick(Sender: TObject);

    procedure btnHomeClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  frmMain: TfrmMain;

  IEApp: Variant;

 

implementation

{$R *.dfm}

 

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;

 

procedure TfrmMain.btnUpClick(Sender: TObject);

begin

    if IEApp.Top>0 then

    begin

        IEApp.Top:=IEApp.Top-1;

    end;

end;

 

procedure TfrmMain.btnLeftClick(Sender: TObject);

begin

    if IEApp.Left>0 then

    begin

        IEApp.Left:=IEApp.Left-1;

    end;

end;

 

procedure TfrmMain.btnDownClick(Sender: TObject);

begin

    IEApp.Height:=IEApp.Height+1;

end;

 

procedure TfrmMain.btnRightClick(Sender: TObject);

begin

    IEApp.Width:=IEApp.Width+1;

end;

 

procedure TfrmMain.btnBackClick(Sender: TObject);

begin

    IEApp.GoBack;

end;

 

procedure TfrmMain.btnForwardClick(Sender: TObject);

begin

    IEApp.GoForward;

end;

 

procedure TfrmMain.btnStopClick(Sender: TObject);

begin

    IEApp.Stop;

end;

 

procedure TfrmMain.btnHomeClick(Sender: TObject);

begin

    IEApp.GoHome;

end;

 

end.

保存文件，然后按F9键运行程序，程序运行的初始画面如图6-21所示。

在“指定URL:”对应的文本框中输入一个有效的网址后，在键盘上按功能键【Enter】，程序就会自动打开一个新的IE，并且可以在窗体下侧的“控制区”中对IE进行控制，如图6-22所示。

           

                图6-21  程序运行的初始画面                    图6-22  程序运行结果

上一页  [1] [2]