twebbrowser.document到底变成了什么？

Question

有没有朋友用过twebbrowser来浏览本地磁盘文件？如twebbrowser.navgate2('d:\');现在我这里有一个棘手的问题是？即：
当用twebbrowser来浏览本地文件以后？twebbrowser.document到底变成了什么？是ishellview还是ifolderview?目前打算用twebbrowser来做个简单的资源管理器，不知道如何从twebbrowser获取必要信息。有哪位仁兄知其一二的，望分享经验。万谢。

Answer 1

只能帮你倒这了。unit Unit1;interfaceuses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.OleCtrls, SHDocVw, Winapi.ActiveX, System.Win.ComObj, Winapi.ShlObj,
  Vcl.StdCtrls, Winapi.CommCtrl;type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  sb: IShellBrowser;
  sv: IShellView;
begin
  sb := IShellBrowser(SendMessage(WebBrowser1.Handle, WM_USER + 7, 0, 0));
  if Succeeded(sb.QueryActiveShellView(sv)) then
  begin
    sv.Refresh;
  end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  WebBrowser1.Navigate('c:\');
end;end.