如何把正在浏览的网页用图片的形式保存下来(100分)

[?]
这是我在猛料看到的
网页只能被看见一部分， 同时我不希望我的程序的界面（诸如菜单条等）和网页一起保存下来。
如果网页的垂直方向上大于屏幕的高，则只保存网页第一行开始的第一屏。

procedure TForm1.Button1Click(Sender: TObject);

var

ViewObject: IViewObject;

sourceDrawRect: TRect;

begin

if Webbrowser1.Document <> nil then

try

webbrowser1.Document.QueryInterface(IViewObject, ViewObject);

if ViewObject <> nil then

try

sourceDrawRect := Rect(0, 0, Image1.Width, Image1.Height);

ViewObject.Draw(DVASPECT_CONTENT, 1, nil, nil, Self.Handle,

image1.Canvas.Handle, @sourceDrawRect, nil, nil, 0);

finally

ViewObject._Release;

end;

except

end;

end;

这个程序把IE页面中滚动条也截下来了！
我想问如何把整个页面包括不可见的部分截下来而且不包括滚动条！

[?]

看来我的问题太难了，没人回

3

只能抓到当前可见的部分

先把滚动条去掉就行了。
WebBrowser.oleobject.Document.body.Scroll := 'no';

多人接受答案了。