28-11-2011, 06:42 PM
29-11-2011, 04:30 AM
جرب هذا الكود لم اجلابه
كود :
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;