如何通过IWebBrowser2接口获取当前文档的类型？

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
  with WebBrowser1 do
  begin
    showmessage((Document as  IHTMLDocument2).mimeType);
  end;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  WebBrowser1.Navigate('http://www.applevb.com/image/main.gif');
end;点击 button2 可以获得文档类型。

Answer 1

上面返回的实际上是注册表中的文档类型
在MSDN中说document对象有一个doctype属性，可以获得符合W3C规范的文档的类型，但是我在Delphi中没有找到。

Answer 2

谢谢TechnoFantasy，我再找找看。