Delphi实现截屏存盘的方法
本文实例讲述了Delphi实现截屏存盘的方法。分享给大家供大家参考。具体分析如下：
该实例可实现截取屏幕，并保存为JPEG文件格式的功能。
procedureTForm1.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;
try
MyJpeg.Assign(Bitmap);
MyJpeg.CompressionQuality:=70;
MyJpeg.Compress;
MyJpeg.SaveToFile('C:MyJPEGImage.JPG');
finally
MyJpeg.Free;
Bitmap.Free;
DeleteDC(DestDC);
ReleaseDC(Bhandle,SourceDC);
end;
end;
希望本文所述对大家的Delphi程序设计有所帮助。
热门推荐
10 高考前放松祝福语简短
11 送祝福语给别人简短
12 生气祝福语给长辈简短
13 媳妇出院蛋糕祝福语简短
14 小姨看孩子祝福语简短
15 儿童励志寄语简短祝福语
16 虎年祝福语 诗句唯美简短
17 换工作简短特别祝福语
18 送同事出院祝福语简短