在很多项目中我们需要嵌入HTML页面来实现一些效果，在嵌入的HTML页面中访问浏览器外壳的扩展功能（Delphi代码）往往是通过window.external来调用，这时需要在浏览器容器中实现IDocHostUIHandler接口的GetExternal方法并返回一个实现了IDispatch接口的COM对象；在高版本的Delphi中TWebBrowser控件已经实现了这个接口，不过并没有返回可用的COM对象，代码类似下面：

function TWebBrowser.GetExternal(out ppDispatch: IDispatch): HRESULT;begin  ppDispatch := nil;  Result := E_FAIL;end;

该方法是TWebBrowser的私有方法并不能通过覆盖来修改，但是可以将TWebBrowser所在单元SHDocVw.pas复制到项目目录内，通过修改已有代码来实现，在编译时Delphi会优先使用项目目录内的SHDocVw.pas。

具体的操作方法是：

1、在TWebBrowser中添加一个属性：

property ExternalObject: IDispatch read FExternalObject write FExternalObject;

2、修改GetExternal方法的实现：

function TWebBrowser.GetExternal(out ppDispatch: IDispatch): HRESULT;begin  ppDispatch := nil;  Result := E_FAIL;  if Assigned(FExternalObject) then  begin    try      ppDispatch := FExternalObject;      Result := S_OK;    except    end;  end;end;

3、在TWebBrowser创建后给新添加的属性：ExternalObject赋值一个实现了IDispatch接口的COM对象即可调用该对象内的方法。