Este artículo describe el método para tomar capturas de pantalla y guardarlas en el disco en Delphi. Compártelo con todos para tu referencia. El análisis específico es el siguiente:
Este ejemplo puede capturar la pantalla y guardarla en formato de archivo JPEG.
procedimiento TForm1.ScreenCap(LeftPos,TopPos,RightPos,BottomPos:integer);var RectWidth,RectHeight:integer; SourceDC,DestDC,Bhandle:integer:TJpegImage.Create; ; RectWidth:=RightPos-LeftPos; RectHeight:=BottomPos-TopPos; SourceDC:=CreateDC('DISPLAY','','',nil); ); SeleccionarObjeto(DestDC,Bhandle); BitBlt(DestDC,0,0,RectWidth,RectHeight,SourceDC, LeftPos,TopPos,SRCCOPY); .Gratis; prueba MyJpeg.Assign(Mapa de bits); MyJpeg.CompressionQuality:=70; MyJpeg.Compress; MyJpeg.SaveToFile('C:MyJPEGImage.JPG'); finalmente MyJpeg.Free; DeleteDC(DestDC(Bhandle,SourceDC);Espero que este artículo sea útil para la programación Delphi de todos.