vangen en Delphi, scherm, dit artikel zal uitleggen hoe je het scherm op de inhoud van de programma 's van Delphi, foto' s, stap 1, in de eerste plaats het creëren van een nieuw project.(ik neem aan dat je al het gebruik van Delphi ervaring, dus ik zal niet ingaan op de details van het creëren van een project voor het behoud van Delphi.)  , bijvoorbeeld, voor de scrncap.Om hoofdzakelijk in de vorm van de frmcapture.De toevoeging van een druk op de knop van de controle en de controle tsavedialog.Om de controle en de wijziging van de titel btnstartcapture eigendom "gevangen".Om het behoud van de dialoog als dlgsavecapture.,,, stap 2, het creëren van een nieuwe eenheid, omgedoopt tot uscreencap. Pas.Toevoegen van de volgende code, de procedure CaptureScreenShot (acapture: TBitMap; c), var, tcanvas; O: TRect;, ik    , c:= TCanvas.Create;,     c.Handle:= GetWindowDC (GetDesktopWindow);  ,   proberen,         r:= juiste (0,0, screen.width, screen.height);  ,       acapture.Width:=screen.Width;  ,       acapture.Height:=screen.Height;,         acapture.Canvas.CopyRect (R, C, R); ten slotte,  ,         ReleaseDC (0, c.handle);  ,       c.Free;,   einde;,,,, aan het einde van de procedure; CaptureScreenShotJPEG (ajpeg:TJPEGImage); abmp:TBitmap, var;, de eerste,   abmp:=TBitmap.Create;,   proberen,       CaptureScreenShot (abmp);  ,     ajpeg.Assign (abmp); ten slotte,  ,       abmp.Free;,   einde;,,,,, doen vergeten - clausule in te voegen jpeg.pas gebruik van Eenheid interfACE.Dit is tjpegimage van dergelijke verklaringen.Bewaar het, als je klaar bent met de stappen 3.,,,, nu je de belangrijkste toepassing van de belangrijkste vorm van eenheden bestaan, toe te voegen aan de knop onclick gebeurtenis.Om precies dezelfde procedure als volgt: de code, tfrmcapture. Btnstartcaptureclick (afzender: TObject); var:tjpegimage, foto, foto, beginnen,  : = tjpegimage. De oprichting van een   proberen,  ;,     capturescreenshotjpeg (foto),  ;     als dlgsavecapture. De uitvoering van  ,     beginnen,           savetofile (foto. Dlgsavecapture. Het dossier); en, tot slot,      ;,   eindelijk     jpeg. Vrijheid,  ; aan het einde van het,,;; en, niet te vergeten, met inbegrip van de voorwaarden voor het gebruik van je uscreencap.pas en jpeg.pas Eenheid.Bouw en exploitatie van.Elke keer dat je clickcapture knop en het behoud van documenten, voor de foto.