【delphi源码】delphi实现屏幕截图的代码
var
bmpscreen :Tbitmap;
jpegscreen:Tjpegimage;
FullscreenCanvas:Tcanvas;
dc:HDC;
sourceRect,destRect:TRect;
begin
dc:=getdc(0);
fullscreencanvas:=Tcanvas.Create;
fullscreencanvas.Handle:=dc;
bmpscreen:=Tbitmap.Create;
bmpscreen.Width:=screen.Width;
bmpscreen.height:=screen.Height;
sourcerect:=rect(0,0,screen.Width,screen.Height);
destrect:=rect(0,0,screen.Width,screen.Height);
bmpscreen.Canvas.CopyRect(sourcerect,fullscreencanvas,destrect);
jpegscreen:=Tjpegimage.Create;
jpegscreen.Assign(bmpscreen);
jpegscreen.CompressionQuality:=40;
jpegscreen.SaveToStream(jpegstream);
jpegstream.Position:=0;
Leftsize:=jpegstream.size;
fullscreencanvas.Free;
bmpscreen.Free;
jpegscreen.Free;
releaseDC(0,DC) ;
end;
end.
未经允许不得转载:亿券答案网 » 【delphi源码】delphi实现屏幕截图的代码