delphi：webbrowser做浏览器时，获取当前网页缩放比率

[zhugeliangzhangfei]

如题，应该怎么做呢？
下面是我找到的一些代码：
[IE编程] WebBrowser控件中设置页面的缩放 收藏
如果你的程序中使用WebBrowser控件并且希望有和IE 一样的页面缩放功能（如下图），可以通过向IWebBrowser2 发送 OLECMDID_OPTICAL_GETZOOMRANGE，OLECMDID_OPTICAL_ZOOM 命令来实现。 示例代码如下：

获取当前缩放比例：
CComVariant varZoom;
spWebBrowser->ExecWB(OLECMDID_OPTICAL_ZOOM, OLECMDEXECOPT_DODEFAULT, NULL, &varZoom);
ASSERT(V_VT(&varZoom) == VT_I4);
ULONG ulZoom = V_I4(&varZoom); // 当前缩放比例， 100 表示100%，即原始尺寸

我改了代码，执行了，会显示：试图吊销一个为注册....
怎么把它改为正确的delphi代码？

分不多，帮帮忙

[simayidianwei]

MyTemWB.OleObject.Document.Body.Style.Zoom
可读可写

[amwdhqc]

楼上这个方法不能缩放flash
不知道有没有更高明的方法