1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

procedure Screenshot(Bounds:TRect; Links, Rechts, Oben, Unten : Integer); inline;
var DeskCanvas: TCanvas;
    ShotTargetBitmap : TBitmap;
    Cut : TRect;
begin
  try
    TBmp:=TBitmap.Create;
    bounds.left:=bounds.Left+verschiebenx;
    bounds.right:=bounds.right+verschiebenx;
    bounds.top:=bounds.top+verschiebeny;
    bounds.bottom:=bounds.bottom+verschiebeny;
    try
      DeskCanvas := TCanvas.Create;
      DeskCanvas.Handle := GetDC(0);
      Shottargetbitmap:=TBitmap.create;
      ShotTargetbitmap.Width := Round((Bounds.Right - Bounds.left) * 1);
      ShotTargetbitmap.Height := Round((Bounds.Right - Bounds.Left) * 1);
      BitBlt(ShotTargetBitmap.Canvas.Handle, 0 ,0, bounds.Right-bounds.left, bounds.Bottom-bounds.top, DeskCanvas.handle, bounds.Left, bounds.Top, SRCCOPY);
      Cut.Left := Links;
      Cut.Top := Oben;
      Cut.Right := Rechts;
      Cut.Bottom := Unten;
      TBmp.Width := Cut.Right - Cut.Left;
      TBmp.Height := Cut.Bottom - Cut.Top;
      BitBlt(TBmp.Canvas.Handle, 0, 0, Cut.Right, Cut.Bottom, ShotTargetBitmap.Canvas.Handle, Cut.Left, Cut.Top, SRCCOPY);
    finally
      ReleaseDC(0,DeskCanvas.Handle);
      FreeAndNil(deskcanvas);
      FreeAndNil(ShotTargetBitmap);
    end;
  except
    FreeAndNil(TBmp);
  end;
end;