تصوير سطح المكتب

[daskme]

كيف يمكن تصوير سطج مكنب
ويظهر شكل مثلا

كود :

http://www.tntscreencapture.com/images/tn_tnt_sparkle.gif

[mobile]

جرب هذا الكود لم اجلابه

كود :

procedure ScreenShot(DestBitmap : TBitmap) ; var DC : HDC; begin DC := GetDC (GetDesktopWindow) ; try DestBitmap.Width := GetDeviceCaps (DC, HORZRES) ; DestBitmap.Height := GetDeviceCaps (DC, VERTRES) ; BitBlt(DestBitmap.Canvas.Handle,0,0,DestBitmap.Wid th,DestBitmap.Height, DC,0,0,SRCCOPY) ; finally ReleaseDC (GetDesktopWindow, DC) ; end; end;