请教一下这个过程，关于bho的问题，谢谢(50分)

procedure DoDocumentComplete(IEHELP: TIEBrowserHelper; const pDisp: IDispatch;
var URL: OleVariant);
var
we: IWebBrowser2;
doc: OleVariant;
i: Integer;
obj: IHTMLObjectElement;
em2: IHTMLElement2;
begin
we := pDisp as IWebBrowser2;
if we = nil then
exit;
doc := we.Document as IHTMLDocument2;
//判断Flash对象
for i := 0 to doc.all.length - 1 do
begin
if Supports(doc.all.item(i), IID_IHTMLObjectElement, obj) then
begin
if sametext(obj.classid, 'clsid27CDB6E-AE6D-11cf-96B8-444553540000')
then
begin
em2 := obj as IHTMLElement2;
em2.attachEvent('onmouseout', IEHELP.MouseOutSink);
em2.attachEvent('onmouseover', IEHELP.MouseOverSink);
end;
end;
end;

end;

上面这个过程是用在网页上的flas对象上的，请问如何把它用在网页图片上？网页图片不是对象，没有clsid，我应该怎么修改呢？
谢了

http://www.codesearch.com.cn
中国最大得源代码搜索引擎