以下程序调试成功,IE中打开Google,将搜索框中填上 'delphibbs.com'
uses
MSHTML, SHDocVw;
procedure TForm1.Button1Click(Sender: TObject);
var
Shell: TShellWindows;
i: Integer;
begin
Shell:=TShellWindows.Create(Nil);
try
for i:=0 to Shell.Count-1 do //遍历每一个Windows的IE窗口
begin
try
with (Shell.Item(i) as IWebBrowser2).Document as IHTMLDocument2 do
begin //不是IE窗口,将发生异常,否则进入下面的程序处理
if SameText(title,'Google') then //这里判断标题栏以选择具体的IE窗口
begin
parentWindow.execScript('document.f.q.value=''delphibbs.com'';','javascript'); //通过执行js的方法设置文本框的值,也可以遍历全部IHTMLDocument取得正确的值再给它赋值
//parentWindow.execScript('document.f.submit();','javascript'); //执行搜索
Exit;
end;
end;
except
end;
end;
finally
Shell.Free;
end;
end;