遍历即可实现,下列代码仅供参考: var i: integer; T: OleVariant; begin T := WebBrowser1.Document; do begin if T.all.item(i).tagName = 'INPUT' then begin if T.all.item(i).type = 'submit' then begin T.all.item(i).click; Exit; end; end; end; end; http://blog.csdn.net/ya