طریقه ذخیره کردن desktop در یک bitmap

امروز طریقه ذخیره کردن میزکار رو در یک bitmap توضیح میدم .برای این کار کافی است تابع زیر را کپی کرده و آن را در یک رویداد دلخواه فراخولنی نمایید.(برای نمایش یا ذخیره کردن میتوانید از image یا رویداد savetofile استفاده کنید)​

function CaptureScreen:TBitmap;
var
DC : HDC;
ABitmap:TBitmap;
begin
DC := GetDC (GetDesktopWindow);
ABitmap:=TBitmap.Create;
try
ABitmap.Width := GetDeviceCaps (DC, HORZRES);
ABitmap.Height := GetDeviceCaps (DC, VERTRES);
BitBlt(ABitmap.Canvas.Handle, 0, 0, ABitmap.Width,
ABitmap.Height,DC, 0, 0, SRCCOPY);
finally
ReleaseDC (GetDesktopWindow, DC);
end;
Result:=ABitmap;
end;​