,, at den korte artikel vil forklare, hvordan du fanger skærmen indhold til et billede fil fra delphi - programmet., trin 1, skaber et nyt projekt.- jeg går ud fra, at du allerede har erfaring med delphi programmering, så jeg vil ikke gå i detaljer om, hvordan man skaber en delphi - projektet).   redde det, for eksempel, som scrncap.omdøbe vigtigste form, som frmcapture.tilføje en tbutton kontrol og en tsavedialog.omdøbe knap kontrol som btnstartcapture og ændre sin overskrift egenskaber "fange".omdøbe redde dialog som dlgsavecapture.,,, trin 2, skabe en ny enhed og omdøbe er som uscreencap. pas.Add the following code:, procedure CaptureScreenShot(acapture: TBitMap);,var c: TCanvas;,r: TRect;,begin,   c:= TCanvas.Create;,   c.Handle:= GetWindowDC (GetDesktopWindow);,   try,     r:= Rect(0,0,screen.width,screen.height);,     acapture.Width:=screen.Width;,     acapture.Height:=screen.Height;,     acapture.Canvas.CopyRect(r, c, r);, finally,     ReleaseDC(0, c.handle);,     c.Free;, end;,end;, , , procedure CaptureScreenShotJPEG(ajpeg:TJPEGImage);,var abmp:TBitmap;,begin,  abmp:=TBitmap.Create;,  try,    CaptureScreenShot(abmp);,    ajpeg.Assign(abmp);,  finally,    abmp.Free;,  end;,end;, , Do not forget to add jpeg.pas unit in uses clause of unit interface.det er, hvor tjpegimage klasse angives.gem det, når du er færdig, trin 3, nu i hovedsagen enhed, hvor den vigtigste form, er bosat, tilsættes knap onclick begivenhed kontaktperson.fyld den kode, præcis som det er følgende: procedure tfrmcapture. btnstartcaptureclick (afsender: tobject), var ajpeg: tjpegimage; begynder,   ajpeg: = tjpegimage. skabe;,   prøve,     capturescreenshotjpeg (ajpeg),    , hvis dlgsavecapture. udfører,     begynder,       ajpeg. savetofile (dlgsavecapture. filnavn),    ;,   endelig    ajpeg. gratis,  ;,;,, glem ikke at medtage uscreencap.pas og jpeg.pas enhed i deres anvendelsesformål - klausul.bygge - projektet og løb.hver gang du clickcapture knap din skærm er reddet til jpeg - fil.