基于Delphi的屏幕抓图技术的实现

领测软件测试网

0Y/P0M&S~:N@a)z
8B(s+rbu　Fullscreen.Canvas.CopyRect(Rect(0，0，screen.Width，screen.Height)，软件测试技术门户!|a&?.w p(T'q%T e/Few
　fullscreenCanvas，Rect(0，0，Screen.Width，Screen.Height))；
a3X5q8Vc"wY?,s　//把整个屏幕复制到BITMAP中软件测试技术门户?3AK,oo
　FullscreenCanvas.Free；
Uw\V^|~ P7ti　//释放CANVAS对象软件测试技术门户9q f(As)@
　ReleaseDC(0，DC)； //释放DC软件测试技术门户'g'D,ib.C6K
　//*******************************
fM'l@i'G　image1.picture.Bitmap：=fullscreen； //拷贝下的图象赋给IMAGE对象
:i$L H1Qt K　image1.Width：=fullscreen.Width；软件测试技术门户9c;@,Y8G,D8{
　image1.Height：=fullscreen.Height；
(^g1MS2L2dg　fullscreen.free； //释放bitmap软件测试技术门户$Y| V @ ~"I
　form1.WindowState：=wsNormal； //复原窗口状态软件测试技术门户
RT@q)t
　form1.show； //显示窗口软件测试技术门户xstB