CSDN问答：怎样程序控制IE窗口的左侧搜索栏是否打开

procedure TForm1.Button1Click(Sender: TObject);
var
  xWin:TShellWindows;
  i : integer;
  x1,x2,x3 : olevariant;
begin
  x1 := '{30D02401-6A81-11D0-8274-00C04FD5AE38}';
  x2 := True;
  x3 := 0;
  xWin := TShellWindows.Create(nil);
  for i := 0 to 1 do
  begin
    //showmessage(xWin.Item[i].LocaltionURL);
    (xwin.Item(i) as IWebbrowser2).ShowBrowserBar(x1,x2,x3);
  end;
  xwin.Free;
end;

上面的代码在当前系统中的第一和第二个IE打开搜索窗口。需要在代码中引用Shdocvw.pas。

下面是一些标准的IE工具栏的CLSID：

Favorites {EFA24E61-B078-11d0-89E4-00C04FC9E26E}
Folders {EFA24E64-B078-11d0-89E4-00C04FC9E26E}
History {EFA24E62-B078-11d0-89E4-00C04FC9E26E}
Search {30D02401-6A81-11d0-8274-00C04FD5AE38}