انسخ الشاشة بأكملها

السلام عليكم و رحمة الله.

مرحبا، يمكنك إذا اردت أستخدام هذا الكود لنسخ كل محتويات الشاشة Copy all Screen وتستطيع تطوير الكود لنسخ اجزاء من الشاشة. (ربما ستحتاجها في تطوير برنامج تعليمي أو عمل أيقونات من أجزاء من الشاشة أو شي آخر اكثر متعة).

*** ( اضف الوحدة ExtCtrls من أجل TImage ) ***

procedure TForm1.Button1Click(Sender: TObject);

Var

DesktopHWnd,DesktopDC : Longint;

TempImage: TImage;

begin

TempImage := TImage.Create(Form1);

DesktopHWnd :=GetDesktopWindow;

DesktopDC :=GetDC(DesktopHWnd);

TempImage.Width := Screen.Width;

TempImage.Height := Screen.Height;

BitBlt(TempImage.Canvas.Handle,0,0,Screen.Width,Screen.Height,

DesktopDC,0,0,SRCCOPY);

TempImage.Picture.SaveToFile('C:windowsDesktopScreen.bmp');

TempImage.Free;

end;

------------------------------

كما تلاحظون فأن الصورة سوف تخزن على شكل BMP ولكن كيف يمكن تخزينها في صورة GIF.

وسلام عليكم ورحمة الله...اخوكم مازن