روی فرمتون یک 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.FileName);