Este artigo descreve o método de fazer capturas de tela e salvá-las em disco no Delphi. Compartilhe com todos para sua referência. A análise específica é a seguinte:
Este exemplo pode capturar a tela e salvá-la no formato de arquivo JPEG.
procedimento TForm1.ScreenCap(LeftPos,TopPos,RightPos,BottomPos:integer);var RectWidth,RectHeight:integer;begin MyJpeg:= TJpegImage.Create; ; RectWidth:=RightPos-LeftPos:=BottomPos-TopPos; SourceDC:=CreateDC('DISPLAY','','',nil); );SelectObject(DestDC,Bhandle); BitBlt(DestDC,0,0,RectWidth,RectHeight,SourceDC, LeftPos,TopPos,SRCCOPY Bitmap:=TBitmap.Create:=BHandle Stream := TMemoryStream.Create; .Grátis; experimente MyJpeg.Assign(Bitmap); MyJpeg.CompressionQuality:=70;Espero que este artigo seja útil para a programação Delphi de todos.