Согласно
http://www.rendelmann.info/blog/CommentView,guid,356fbe68-3ed6-4781-90a4-57070a0141da.aspx и http://msdn.microsoft.com/en-us/library/aa770056(v=vs.85).aspx
получение размещенного веб-браузера для увеличения с помощью управляющего ключа, и колесо мыши должно просто потребовать вызова IWebBrowser2.ExecWB(OLECMDID_OPTICAL_ZOOM, ...)
с pvaIn
значением 100
,
но после его вызова ctrl + mousewheel по-прежнему не увеличивает содержание
Код, который я использую с Delphi 2007:
const
OLECMDID_OPTICAL_ZOOM = 63;
var
pvaIn, pvaOut: OleVariant;
begin
pvaIn := 100;
pvaOut := NULL;
WebBrowser1.ControlInterface.ExecWB(OLECMDID_OPTICAL_ZOOM,
OLECMDEXECOPT_DONTPROMPTUSER, pvaIn, pvaOut);
end;