+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : تصوير سطح المكتب (/showthread.php?tid=3650)
تصوير سطح المكتب - daskme - 28-11-2011
كيف يمكن تصوير سطج مكنب
ويظهر شكل مثلا
كود :
http://www.tntscreencapture.com/images/tn_tnt_sparkle.gifتصوير سطح المكتب - mobile - 29-11-2011
جرب هذا الكود لم اجلابه
كود :
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;