求2010下抓图的方法或者控件
delphi 2010
系统vista
找到用AVICAP32.dll操作的示例。
但实际用起来，除了一片黑，就没有其它了。
到底怎么回事?
是否有需要额外注意的。

此外是否有其它适合的现成方案。
如果是从头学directx或者vfw那暂时不考虑。

[解决办法]
2.免控件ScreenCapture。。。

Delphi(Pascal) code

procedure TForm1.BtnStartClick(Sender：TObject)；begin　ScreenCapture1.start； //开始截图end；　//当截取屏幕成功时，此事件发生　procedure TForm1.ScreenCapture1Capture(Sender：TObject；Bitmap：TBitmap)；begin　//调整滚动窗口的大小以适应截获图像的大小　Scrollbox1.HorzScrollBar.Range：= Image1.width；　Scrollbox1.VertScrollBar.Range：= Image1.height；end；procedure TForm1.FormCreate(Sender：TObject)；begin　//载入entntacp.dll文件　BtnStart.enabled：= ScreenCapture1.dllavailable；　//显示版本信息　caption：= '屏幕抓图软件' + ScreenCapture1.version；end；//当没有足够的内存支持截取屏幕时，此事件发生procedure TForm1.ScreenCapture1Error(Sender：TObject)；begin　MessageDlg('屏幕截取时发生一个错误！请关闭其他应用程序以获得更多内存资源.'，　mtError，[mbOK]，0)；end；　//当用户按“Esc”键，即取消屏幕截取时，此事件发生procedure TForm1.ScreenCapture1UserCancelled(Sender：TObject)；begin　MessageDlg('用户取消屏幕截取。'，mtInformation，[mbOK]，0)；end；
[解决办法]
代码很全，mark
[解决办法]
来学习了
[解决办法]
1楼是强人...啥代码都有
[解决办法]
每天回帖即可获得10分可用分！
[解决办法]
upup
[解决办法]
真是好人 贴这么长的代码
[解决办法]
videocap7.bpl 这个控件也可以的
[解决办法]
楼主用printScreen键也无法抓图吗？