首页 / 软件开发 / Delphi / Delphi实现截屏存盘的方法

本文实例讲述了Delphi实现截屏存盘的方法。分享给大家供大家参考。具体分析如下：
该实例可实现截取屏幕，并保存为JPEG文件格式的功能。

procedure TForm1.ScreenCap（LeftPos,TopPos,RightPos,BottomPos:integer）;var RectWidth,RectHeight:integer; SourceDC,DestDC,Bhandle:integer; Bitmap:TBitmap; MyJpeg: TJpegImage; Stream:TMemoryStream;begin MyJpeg:= TJpegImage.Create; RectWidth:=RightPos-LeftPos; RectHeight:=BottomPos-TopPos; SourceDC:=CreateDC（"DISPLAY","","",nil）; DestDC:=CreateCompatibleDC（SourceDC）; Bhandle:=CreateCompatibleBitmap（SourceDC, RectWidth,RectHeight）; SelectObject（DestDC,Bhandle）; BitBlt（DestDC,0,0,RectWidth,RectHeight,SourceDC, LeftPos,TopPos,SRCCOPY）; Bitmap:=TBitmap.Create; Bitmap.Handle:=BHandle; Stream := TMemoryStream.Create; Bitmap.SaveToStream（Stream）; Stream.Free; tryMyJpeg.Assign（Bitmap）;MyJpeg.CompressionQuality:=70;MyJpeg.Compress;MyJpeg.SaveToFile（"C:MyJPEGImage.JPG"）; finallyMyJpeg.Free;Bitmap.Free;DeleteDC（DestDC）;ReleaseDC（Bhandle,SourceDC）; end;end;

希望本文所述对大家的Delphi程序设计有所帮助。