Wie Schirm mit Delphi

Erstellen Sie zunächst ein neues Projekt. (Ich nehme an, Sie haben bereits Erfahrungen mit Delphi-Programmierung, damit ich nicht ins Detail gehen, wie man ein Delphi-Projekt.) Speichern, zum Beispiel, wie ScrnCap. Umbenennen wichtigsten Form frmCapture. Fügen Sie einen TButton und ein TSaveDialog. Schaltfläche Umbenennen, wie btnStartCapture und seine Caption Eigenschaften auf "Capture". Benennen Sie sparen Dialog dlgSaveCapture.

Erstellen Sie ein neues Gerät und umbenennen ist uscreencap.pas. Fügen Sie den folgenden Code ein:

Verfahren CaptureScreenShot (acapture: TBitMap);
var c: TCanvas;
R: TRect;
beginnen
c: = TCanvas.Create;
c.Handle: = GetWindowDC (GetDesktopWindow);
versuchen
r: = Rect (0,0, screen.width, screen.height);
acapture.Width: = screen.width;
acapture.Height: = screen.height;
acapture.Canvas.CopyRect (r, c, r);
Schließlich
ReleaseDC (0, c.handle);
c.Free;
end;
end;

Verfahren CaptureScreenShotJPEG (ajpeg: TJPEGImage);
var abmp: TBitmap;
beginnen
abmp: = TBitmap.Create;
versuchen
CaptureScreenShot (abmp);
ajpeg.Assign (abmp);
Schließlich
abmp.Free;
end;
end;

Bitte vergessen Sie nicht, jpeg.pas in der Einheit verwendet Klausel Schnittstelle Teil. Dies ist, wo TJPEGImage Klasse deklariert wird. Speichern Sie es, wenn Sie fertig sind.

Jetzt in Ihrer Anwendung, wo die wichtigste Form wohnt, Schaltfläche "Hinzufügen" OnClick Event-Handler. Füllen Sie den Code genau wie es unter:

Verfahren TfrmCapture.btnStartCaptureClick (Sender: TObject);
var ajpeg: TJPEGImage;
beginnen
ajpeg: = TJPEGImage.Create;
versuchen
CaptureScreenShotJPEG (ajpeg);
dlgSaveCapture.Execute, wenn die
beginnen
ajpeg.SaveToFile (dlgSaveCapture.Filename);
end;
Schließlich
ajpeg.Free;
end;
end;

Vergessen Sie bitte nicht, uscreencap.pas und jpeg.pas Einheit in Ihrem Klausel verwendet. Build-Projekt, und führen Sie. Jedes Mal, wenn Sie clickcapture-Taste, wird Ihr Bildschirm JPEG-Datei gespeichert.