ScreenShot eines Fensters machen dessen Inhalt größer Formgröße ist

[zeras]

Zitat von Helmi:

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;