基于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 老湿亚洲永久精品ww47香蕉图片_日韩欧美中文字幕北美法律_国产AV永久无码天堂影院_久久婷婷综合色丁香五月

<ruby id="5koa6"></ruby>

<ruby id="5koa6"><option id="5koa6"><thead id="5koa6"></thead></option></ruby>