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

[zeras]

Ich meine, dass ich vor einiger Zeit das gleiche Problem hatte. Versuche es doch mal mit diesem Code.

Delphi-Quellcode:

  procedure ScreenShot(wnd: HWND; destBitmap : TBitmap) ;
  var
    w,h : integer;
    DC : HDC;
    r : TRect;
    DCProgr : HDC;

  begin
    SetActiveWindow(wnd);

    DCProgr:=GetForegroundWindow;

    if DCProgr <> wnd then begin
      SetForegroundWindow(wnd);
      sleep(Delay4ScreenShot);
    end;

    dc := GetWindowDC(wnd) ;
    GetWindowRect(wnd,r) ;
    w := r.Right - r.Left;
    h := r.Bottom - r.Top;
    try
      destBitmap.Width := w;
      destBitmap.Height := h;
      BitBlt(destBitmap.Canvas.Handle,
               0,
               0,
               destBitmap.Width,
               destBitmap.Height,
               DC,
               0,
               0,
               SRCCOPY) ;
    finally
      ReleaseDC(wnd, DC) ;
    end;

    SetForegroundWindow(DCProgr);
  end;