unit Unit1;

interface

uses

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

  Dialogs, StdCtrls, OleCtrls, IEBrowser, Mshtml;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Edit1: TEdit;

    Label2: TLabel;

    Edit2: TEdit;

    Button1: TButton;

    Web: TCppWebBrowser;

    procedure Button1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

  Doc: IHTMLDocument2;

  UserInputElement, PwdInputElement: IhtmlInputElement;

  SwitchElement, SubmitElement: IhtmlElement;

begin

  Doc := Web.Document as IHTMLDocument2;

  UserInputElement := (Doc.all.item('u', 0) as IHtmlInputElement);

  userInputElement.value := trim(Edit1.Text);

  PwdInputElement := (Doc.all.item('p', 0) as IHtmlInputElement);

  PwdInputElement.value := trim(Edit2.Text);

  Sleep(1000);

  SubmitElement := (Doc.all.item('login_button', 0) as IHtmlElement);

  SubmitElement.click;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

  Web.Navigate('http://ui.ptlogin2.qq.com/cgi-bin/login?appid=549000912&s_url=http://qun.qzone.qq.com/group&style=11');

end;

end.

PS:这里的TCppWebBrowser是我从新导出ShDocVW.dll后，在此基础上修改而来的，如果要测试，可以用Delphi自带的Webbrowser替代即可！

来源：http://www.lsworks.net/article/98.html