Screenshot Frage

[Schuby]

Guten morgen, ich habe mir einen Code besorgt wo ich von meinen Monitor ein Screen mache und nur
links oben einen kleinen teil kopiere und abspeichern kann. (Das haut auch hin)

Nun versuche ich einen ganz kleinen Teil unten rechts von meinen Monitor einen Screen zu kopieren.
Und ich komme nicht weiter,

Hier mal mein Code

Delphi-Quellcode:

//******************************************************************************
//             Monitor ist 1920 x 1080
//             x = 1720
//             y =  400
//
//******************************************************************************
procedure ScreenShot(Bild: TBitMap);
var
  c: TCanvas;
  r: TRect;
begin
  c := TCanvas.Create;
  c.Handle := GetWindowDC(GetDesktopWindow);
  try
    r := Rect(0, 0, (Screen.Width ), (Screen.Height));
    Bild.Width := (Screen.Width -x );    //-x
    Bild.Height := (Screen.Height -y);  //-y
    Bild.Canvas.CopyRect(r, c, r);
  finally
    ReleaseDC(0, c.Handle);
    c.Free;
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.Visible := False;
  Sleep(STime); // some delay, ein wenig Zeit geben
  ScreenShot(Char1_1.Picture.BitMap);
  Form1.Visible := True;
end;

mfg