Delphi抓图截屏模块演示及完整代码，Delphi获取桌面的图像，将桌面图象复制到timage画布中。可扩展成抓图或截屏程序。抓图部分的核心代码如下：
procedureTFmCapture.BtCaptureClick(Sender:TObject);
var
ScreenDC:HDC;
begin
ScreenDC:=CreateDC('display',Nil,Nil,Nil);
//获取桌面环境
BitBlt(image1.Canvas.Handle,0,0,image1.Width,
image1.Height,
