Screenshot ohne Hintergrundbild erzeugen

[etom291272]

Hallo Gemeinde

mit folgendem kurzen Code erzeuge ich einen aktuellen screenshot

Delphi-Quellcode:

procedure TMainFormClient.Schirmshot;
var
  H : THandle;
  
begin
  with prAktSchirm do //ist vom Typ TBitmap
  begin
    H := GetDC(GetDesktopWindow);
    FreeImage;
    BitBlt(Canvas.Handle,0,0,Width,Height,H,0,0,SRCCOPY);
    ReleaseDC(0,H);
  end;
end;

funktioniert auch wunderbar.

Hat jemand eine Idee wie ich den Screenshot ohne die Hintergrundgrafik erzeugen kann
also die Hintergrundgrafik die bei dem jeweiligen pc in den anzeigeeinstellungen hinterlegt ist.