【delphi源码】delphi实现屏幕截图的代码

procedure TForm1.snapscreen;

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.