Screenshot des aktiven Fenster genau wie Alt+Druck

[Alex_ITA01]

Hallo zusammen,
ich erstelle wie folgt ein Screenshot eines Fensters:

Delphi-Quellcode:

var
  aFormat  : Word;
  aBMP     : TBitMap;
  AData    : THandle;
  APalette : HPALETTE;

  procedure ScreenShot(Wnd: HWND; ATo: TBitmap);
  var
    hDCMem : HDC;
    DC     : HDC;
    rect   : TRect;
    bmp    : HBITMAP;
    hOld   : HGDIOBJ;
  begin
    hDCMem := CreateCompatibleDC(0);

    GetWindowRect(Wnd, rect);

    DC  := GetDC(Wnd);
    bmp := CreateCompatibleBitmap(DC, rect.Right-rect.Left, rect.Bottom-rect.Top);
    ReleaseDC(Wnd, DC);

    hOld := SelectObject(hDCMem, bmp);
    SendMessage(wnd, wm_Print, hDCMem, PRF_CHILDREN or PRF_CLIENT or PRF_ERASEBKGND or PRF_NONCLIENT or PRF_OWNED);

    SelectObject(hDCMem, hold);
    DeleteObject(hDCMem);

    ATo.FreeImage;
    ATo.Handle := bmp;
  end;

begin
  aBMP := TBitmap.Create;
  try
    ScreenShot(Self.Handle, aBMP);   //<- Self.Handle ist meine "Form1"

    // Bild in Zwischenablage
    aBMP.SaveToClipBoardFormat(aFormat, AData, APalette);
    ClipBoard.SetAsHandle(aFormat,AData);
  finally
    aBMP.Free;
  end;

Das funktioniert auch soweit.
Nur wenn ich eine zweite Form über diese Form1 lege und dann den Screenshot mache, dann wird nur von der Form1 der Screenshot erstellt aber das was von Form2 in dem sichtbaren Bereich der Form1 ist, wird nicht mitgenommen. Also die Funktion sollte so sein, wie Alt+PrintScreen. Da wird ja einfach das aktuelle Fenster ge-screenshot-et bis zum jeweiligen Rahmen. Auch wenn andere Fenster in dem sichtbaren Bereich rein ragen, wird eben deren Ausschnitt auch genommen.

Habt ihr eine Idee, wie man genau das macht? Oder kann ich einfach die Tastenkombination Alt+PrintScreen als Command abschicken, das würde mir auch reichen.

Grüße

[hathor]

To simulate the ALT-PRINTSCREEN keyboard combination use this line i.e. to capture the active window:

keybd_event(VK_SNAPSHOT, 1, 0, 0);


To simulate the PRINTSCREEN keyboard button press use this line i.e. to capture the entire screen:

keybd_event(VK_SNAPSHOT, 0, 0, 0);

[Alex_ITA01]

It works, fine.
Thanks

[Zacherl]

An alternative more "clean" solution is PrintWindow.

[hathor]

http://www.delphibasics.info/home/de...lphisourcecode

[HolgerX]

Oder nehme stat 'self.Handle' 'Screen.ActiveForm.Handle' dann wird immer der ScreenShot von dem aktuellen Fenster deiner App gemacht.

[Harry Stahl]

Zitat von Zacherl:

An alternative more "clean" solution is PrintWindow.

Bin gerade auch auf diese Frage gestoßen und habe den Thread hier gefunden, daher lasse ich ihn noch mal aufleben.

Denn: Den Hinweis mit Printwindow fand ich erst mal gut, denn der funktioniert auch über mehrere Monitore und bei Fenstern mit oder ohne Rahmen und z.B. bei mit der VCL benutzen Fensterstyles.

Allerdings:

Das Fenster wird immer im Windows-Basis Stil gemalt, nicht so wie es aktuell auf dem Monitor angezeigt wird (siehe anliegenden Screenshot).

Kann man das noch irgendwie beeinflussen?

[HolgerX]

Teste doch mal:

Delphi-Quellcode:

Type
  TScreenShotSource = (sssActiveForm,sssActiveFormClient,sssPrimaryScreen,sssDesktopScreen);

procedure MakeScreenShot(const ATarget: TBitmap;ASource : TScreenShotSource;ASourceHandle : HWND = 0);
var
  tmpHandel : HWND;
  SourceDC: HDC;
  Rec: TRect;
begin
  tmpHandel := 0;
  SourceDC := 0;

  try
    ATarget.PixelFormat := pfDevice;
    if ASourceHandle > 0 then begin
      tmpHandel := ASourceHandle;
      case ASource of
        sssActiveFormClient : begin
                                SourceDC := GetDc(tmpHandel);
                                GetClientRect(tmpHandel,Rec);
                              end;
        else begin
          SourceDC := GetWindowDc(tmpHandel);
          GetWindowRect(tmpHandel,Rec);
        end;
      end;
    end else begin
      case ASource of
        sssActiveForm       : begin
                                tmpHandel := GetForegroundWindow;
                                SourceDC := GetWindowDc(tmpHandel);
                                GetWindowRect(tmpHandel,Rec);
                              end;
        sssActiveFormClient : begin
                                tmpHandel := GetForegroundWindow;
                                SourceDC := GetDc(tmpHandel);
                                GetClientRect(tmpHandel,Rec);
                              end;
        sssPrimaryScreen    : begin
                                tmpHandel := GetDesktopWindow;
                                SourceDC := GetDc(tmpHandel);
                                GetWindowRect(tmpHandel,Rec);
                              end;
        sssDesktopScreen    : begin
                                tmpHandel := GetDesktopWindow;
                                SourceDC := GetDc(tmpHandel);
                                Rec.Left := 0;
                                Rec.Top  := 0;
                                Rec.Right := Screen.DesktopWidth;
                                Rec.Bottom := Screen.DesktopHeight;
                              end;
        else exit;
      end;
    end;

    ATarget.Width := Rec.Right - Rec.Left;
    ATarget.Height := Rec.Bottom - Rec.Top;

    BitBlt(ATarget.Canvas.Handle, 0, 0, ATarget.Width, ATarget.Height, SourceDC, 0, 0, SRCCOPY);
  finally
    ReleaseDC(tmpHandel, SourceDC);
  end;
end;

Aufruf z.B.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  tmpBitMap : TBitMap;
begin
  tmpBitMap := TBitMap.Create;
  try
    case RadioGroup1.ItemIndex of
     0 : MakeScreenShot(tmpBitMap, sssPrimaryScreen);
     1 : MakeScreenShot(tmpBitMap, sssDesktopScreen);
     2 : MakeScreenShot(tmpBitMap, sssActiveForm);
     3 : MakeScreenShot(tmpBitMap, sssActiveFormClient);
     else exit;
    end;
    Image1.Picture.Assign(tmpBitMap);
  finally
    tmpBitMap.Free;
  end;
end;

[Harry Stahl]

@HolgerX: Danke für den Source, jedoch brauch ich es gar nicht zu probieren, da ich es zuvor schon so versucht hatte (bringt ungenaue Ergebnisse, wenn Fenster ohne Rahmen sind, oder z.B. VCL-Windows mit Styles).

Habe es jetzt so gelöst, dass ich für das Sammeln der verfügbaren Fenster die PrintWindow-Funktion nutze, da es hier erst mal nur eine Vorschau ist (siehe anliegenden Screenshot).

Für die Durchführung des tatsächlichen Screnshots für das gewählte Fenster arbeite ich dann mit der simulierten Tastaturfolge Alt+Druck (nur das bringt in allen Fällen korrekte Ergebnisse). Das geht dann zwar über die Zwischenablage, ist aber verschmerzbar (kleiner Tipp: man muss danach etwas warten, bis das Bitmap in der Zwischenablage ist, Windows braucht je nach Fenstergröße ein paar Millisekungen dafür).

[HolgerX]

Hmm..

meine Funktion arbeitet doch garnicht mit PrintWindow!?

Hab hier kein Win10 zum testen..