shirin71
08-06-2011, 09:20 AM
چطور می توان 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
روی فرمتون یک 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