if SUCCEEDED(spDisp.QueryInterface(IHTMLInputElement ,HtmlInputEle))then //须ie5支持
with HtmlInputEle do
begin
s1:=HtmlInputEle.name; //名字
S2:=Type_; //类型
S2:=UpperCase(S2);
if (StrComp(PChar(S2),'TEXT')=0) or (StrComp(PChar(S2),'PASSWORD')=0) then
begin
if s1='subject' then HtmlInputEle.values:='主题'; //这就是填写网页,当网页上的编辑框为subject 时。
end;
end;