عکس گرفتن از decktop

چطور می توان Desktop از عکس گرفت ؟

روی فرمتون یک Button ، یک SaveDialog (از پالت Dialog) ، و یک Image بگذارید .

روی رویداد OnClick کلید خطوط زیر را بنویسید :

Image1.Width:=DesktopCanvas.ClipRect.Right;

Image1.Height:=DesktopCanvas.ClipRect.Bottom;

Image1.Canvas.CopyRect(Rect(0,0,1024,768),
DesktopCanvas,Rect(0,0,1024,768));

If SaveDialog1.Execute then
Image1.Picture.Bitmap.SaveToFile(SaveDialog1.FileN ame