كيفية تنفيذ حفظ لقطة الشاشة في دلفي

توضح هذه المقالة طريقة التقاط لقطات الشاشة وحفظها على القرص في دلفي. شاركها مع الجميع لتكون مرجعا لك. التحليل المحدد هو كما يلي:

يمكن لهذا المثال التقاط الشاشة وحفظها بتنسيق ملف JPEG.

 الإجراء TForm1.ScreenCap(LeftPos,TopPos,RightPos,BottomPos:integer);var RectWidth,RectHeight:integer; ; RectWidth:=RightPos-LeftPos; SelectObject(DestDC,Bhandle); BitBlt(DestDC,0,0,RectWidth,RectHeight,SourceDC, LeftPos,TopPos,SRCCOPY); Bitmap:=TBitmap.Create; .مجاني؛ جرب MyJpeg.Assign(Bitmap); MyJpeg.CompressionQuality:=70; MyJpeg.SaveToFile('C:MyJPEGImage.JPG'); أخيرًا MyJpeg.Free;

آمل أن تكون هذه المقالة مفيدة لبرمجة دلفي للجميع.