Nur leider wird da auch nur das sichtbare vom Fenster abfotographiert
Sorry.
Ich habe noch eine weitere Funktion gefunden, hatte dann aber drübergeschrieben, dass diese nur unter XP und Vista geht. Kannst ja nochmal probieren.
Delphi-Quellcode:
//geht nur mit Win XP oder Vista, jedenfalls Funktion "PRINTWINDOW"
function ScreenshotHidden(wnd: HWND;
const bmp: TBitmap): Boolean;
var
rec: TRect;
//zum Zwischenspeichern der Fenstergröße
dllh: THandle;
//Handle der user32.dll
PrintWindow:
function(sHandle: HWND; dHandle: HDC; nFlags: UINT): BOOL;
stdcall;
//Prototyp der verwendeten Funktion
begin
Result := False;
//Rückgabewert initialisieren
dllh := GetModuleHandle(user32);
//dll dynamisch laden...
if dllh <> 0
then
begin
@PrintWindow:= GetProcAddress(dllh , '
PrintWindow');
//die Funktionsadresse aus der Dll laden...
if @PrintWindow =
nil then begin
ShowMessage('
@PrintWindow = nil');
end
else begin
GetWindowRect(wnd, rec);
//Größe des Fensters auslesen...
ShowMessage(Format('
left "%d", right "%d", top "%d", bottom "%d"',[rec.Left, rec.Right, rec.Top, rec.Bottom]));
bmp.Width := rec.Right - rec.Left;
//...und die Bitmap-Größe anpassen
bmp.Height := rec.Bottom - rec.Top;
bmp.Canvas.Lock;
//Zugriff auf den Canvas für andere Threads blockieren
try
result := PrintWindow(wnd, bmp.Canvas.Handle, 0);
//Das Fenster zeichnet sich selbst in das HDC des Bitmaps
finally
bmp.Canvas.Unlock;
//Zugriff wieder erlauben
end;
end;
end;
end;