Delphi. Разрешение экрана и TWebBrowser

Question

Нужно, просматривая сайты с помощью TWebBrowser, передавать сайту не свое разрешение экрана, а введенное руками. Как это сделать?

Ну, что "MSHTML" нужно подключить это я догадался. 
Но все равно ругается на "GetBodyElement". Что делать?

Ольга Баранова · Accepted Answer

//----------------------------------------------------------------------------
function WB_GetScrollHeight(WB: TWebbrowser): Integer; 
var 
 Element: IHTMLElement2; 
begin 
 Result := 0; 
 try 
 Element := GetBodyElement(WB); 
 if Assigned(Element) then 
 Result := Element.ScrollHeight; 
 except 
 MsgError('Cannot get scroll state in WebBrowser control.'); 
 end; 
end; 
 
procedure WB_SetScrollTop(WB: TWebbrowser; Value: Integer); 
var 
 Element: IHTMLElement2; 
begin 
 try 
 Element := GetBodyElement(WB); 
 if Assigned(Element) then 
 Element.ScrollTop := Value; 
 except 
 MsgError('Cannot scroll in WebBrowser control.'); 
 end; 
end;