Artikel ini menjelaskan metode mengambil tangkapan layar dan menyimpannya ke disk di Delphi. Bagikan dengan semua orang untuk referensi Anda. Analisis spesifiknya adalah sebagai berikut:
Contoh ini dapat menangkap layar dan menyimpannya dalam format file JPEG.
procedure TForm1.ScreenCap(LeftPos,TopPos,RightPos,BottomPos:integer);var RectWidth,RectHeight:integer; SourceDC,DestDC,Bhandle:integer; ; RectWidth:=Pos Kanan-Pos Kiri; ); SelectObject(DestDC,Bhandle); BitBlt(DestDC,0,0,RectWidth,RectHeight,SourceDC, LeftPos,TopPos,SRCCOPY); .Gratis; coba MyJpeg.Assign(Bitmap); MyJpeg.CompressionQuality:=70; MyJpeg.Compress; MyJpeg.SaveToFile('C:MyJPEGImage.JPG'); akhirnya MyJpeg.Free;Saya harap artikel ini bermanfaat untuk pemrograman Delphi semua orang.