PrintWindow ist für mich DIE LÖSUNG!!! Vielen lieben Dank!
Habs bereits erfolgreich eingebaut und es knippst den TC ohne fehlenden Bildinhalt!
Frage: Funktioniert PrintWindow auch noch mit Windows 10?
Delphi-Quellcode:
function MyPrintWindow(const Win: HWND = 0; var Bmp: TBitmap; const FullWindow: Boolean = True): Boolean;
var
rect: TRect;
begin
Result := False;
if Win = 0 then Exit;
if FullWindow then
GetWindowRect(Win, rect)
else
Windows.GetClientRect(Win, rect);
bmp.Width := rect.Right - rect.Left;
bmp.Height := rect.Bottom - rect.Top;
Result := PrintWindow(Win, Bmp.Canvas.Handle, 0) ;
end;
Mini-Upgrade, so wirds bei Bedarf ohne Fenster-Rahmen geknippst.
Ps: Der erste Parameter sollte ein Prozess-
Handle sein was ein Window besitzt.