Comment faire pour capturer l'écran avec Delphi

Tout d'abord créer un nouveau projet. (Je suppose que vous avez déjà une expérience de programmation avec Delphi je ne vais pas entrer dans les détails sur la façon de créer un projet de Delphes.) Enregistrez-le, par exemple, comme ScrnCap. Renommer la principale forme que frmCapture. Ajouter un TButton et un contrôle TSaveDialog. Renommez le bouton de contrôle btnStartCapture Légende et de changer ses propriétés de «Capture». Renommer la boîte de dialogue d'enregistrement en tant que dlgSaveCapture.

Créer une nouvelle unité et les renommer comme uscreencap.pas. Ajoutez le code suivant:

procédure CaptureScreenShot (acapture: TBitMap);
var c: TCanvas;
r: TRect;
commencer
c: = TCanvas.Create;
c.Handle: = GetWindowDC (GetDesktopWindow);
essayer
r: = Rect (0,0, screen.width, screen.height);
acapture.Width: = screen.Width;
acapture.Height: = screen.Height;
acapture.Canvas.CopyRect (r, c, r);
enfin
ReleaseDC (0, c.handle);
c.Free;
fin;
fin;

procédure CaptureScreenShotJPEG (ajpeg: TJPEGImage);
var ABMP: TBitmap;
commencer
ABMP: = TBitmap.Create;
essayer
CaptureScreenShot (ABMP);
ajpeg.Assign (ABMP);
enfin
abmp.Free;
fin;
fin;

N'oubliez pas d'ajouter jpeg.pas clause unité utilise une partie de l'unité d'interface. C'est là que TJPEGImage classe est déclarée. Enregistrez-le lorsque vous avez terminé.

Maintenant dans votre application principale unité où réside le formulaire principal, ajoutez le bouton OnClick événement. Remplissez le code exactement comme il est ci-dessous:

procédure TfrmCapture.btnStartCaptureClick (Sender: TObject);
var ajpeg: TJPEGImage;
commencer
ajpeg: = TJPEGImage.Create;
essayer
CaptureScreenShotJPEG (ajpeg);
si la dlgSaveCapture.Execute
commencer
ajpeg.SaveToFile (dlgSaveCapture.Filename);
fin;
enfin
ajpeg.Free;
fin;
fin;

N'oubliez pas d'inclure uscreencap.pas et jpeg.pas utilise l'unité dans votre clause. Construire et exécuter des projets. Chaque fois que vous clickcapture bouton, l'écran est sauvegardée dans un fichier JPEG.