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.