Screenshot eines anderen Programmes mit wm_print

[EWeiss]

warum schickst du nicht einfach einen SendKey auf die Drucktaste.
und holst dir dann das bild aus der ablage.

Kannst dir dann den ganzen Code da oben sparen.

gruss Emil

[zeras]

Danke für die Info.
Dann muss aber sichergestellt sein, dass der Viewer das aktive Fenster ist. Ansonsten hole ich mir irgendwas anderes in die Zwischenablage.
Vielleicht müßte ich dann erst den Viewer als aktives Fenster machen und dann könnte es klappen. Aber dazu fehlen mit wiederum die Windowsfunktionen. Jedenfalls kenne ich diese nicht.

[EWeiss]

Zitat von zeras:

Danke für die Info.
Dann muss aber sichergestellt sein, dass der Viewer das aktive Fenster ist. Ansonsten hole ich mir irgendwas anderes in die Zwischenablage.
Vielleicht müßte ich dann erst den Viewer als aktives Fenster machen und dann könnte es klappen. Aber dazu fehlen mit wiederum die Windowsfunktionen. Jedenfalls kenne ich diese nicht.

SetForegroundWindow könnte da helfen.
http://msdn.microsoft.com/de-de/library/bb979463.aspx

EDIT:
unter verwendung von SetActiveWindow.
Also erst Aktivieren.

Gruss Emil

[SirThornberry]

Der Vorteil von von wm_print etc. ist ja das es nicht wirklich sichtbar sein muss etc. Es würde also theoretich auch mit Fenstern funktionieren die im Hintergrund sind.
Wenn man jetzt anfängt und meint die Drucktaste zu simulieren welche letztendlich nur das aktive Fenster als Bild in die Zwischenablage speichert ist es doch um einiges eleganter selbst den Screenshot mit GetDC, BitBlt etc. zu machen da man dadurch wenigstens die Zwischenablage in Ruhe lässt.
Aber wie bereits erwähnt ist Drucktaste etc. nicht das gleiche wie wm_print.

[Garfield]

Wie man einen Screenshot von einem Window im Vordergrund macht sieht man zum Beispiel dort. Für ein inaktives Window benutzen sie allerdings auch PrintWindow, weil die davorliegenden Windows mit auf dem Bild sind.

[stoxx]

okay .. dann gebe ich mich geschlagen, dass Windows2000 noch so oft benutzt wird, wusste ich nicht.

Ich hätte ja mal einen etwas frechen Vorschlag, kannst Du ihn mal probieren? Würde mich auch interesieren, ob das geht.
Hol Dir doch mal eine user32.dll von einem XP System. Benenne Sie kurz um und kopiere sie Dir in Dein eigenes Projektverzeichnis.
Und probiere dann, ob Du die Funktion aus der DLL einfach so nutzen kannst, oder ob diese wiederum andere DLL'S benötigt

[mkinzler]

Diese Abhängigkeiten könnte man auch mit dem DependenyWalker vorher abchecken

[stoxx]

ich lerne immer gern dazu, aber ich kannte bisher nichtmal den Namen "Dependency Walker"
kurz gegoogelt .. eine Frage stellt sich da, bekommmt man da nur raus, welche Abhängigkeiten für die gesamte DLL bestehen, oder auch für einzelne Funktionen in dieser DLL?

[zeras]

Ich habe dies nun mit der angegebenen Funktion versucht, ein wenig umgebaut und zur Zeit funktioniert diese Funktion.
Ein Problem ist nur, dass, wenn ich die Zeit "sleep(5)" rausnehme, kommt nur ein schwarzes Fenster ohne Inhalt. Dies könnte Probleme bei anderen Rechnern bringen, denn es wird bestimmt nicht immer die Zeit reichen. Bei langsameren Rechner wird das wohl noch mehr sein.
Die Funktion holt erst die Info, welches Fenster genutzt werden soll und dann wird der Screenshot erzeugt. Man muss nur wissen, wie das Programm unter Windows heißt.
Jetzt fällt nur auf, dass das Fenster aktiv in den Vordergrund gebracht wird. Aber für meine Zwecke sollte es mehr oder weniger immer sichtbar sein.
Danke für die Tipps und eventuelle Verbesserungsmöglichkeiten.

Ergänzung: Wenn das Fenster teilweise über den rechten Rand hinausragt, wird es nicht mehr komplett kopiert, sondern es erscheint rechts ein weißer Streifen.

Delphi-Quellcode:

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

  begin
    SetActiveWindow(wnd);
    SetForegroundWindow(wnd);
    sleep(5);
    hWin := GetForegroundWindow;
    dc := GetWindowDC(hWin) ;
    GetWindowRect(hWin,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(hWin, DC) ;
    end;
  end;


//und Aufruf

  WinName:=Class4Screenshot; //hier den Namen des Programmes übnergeben

  wnd := FindWindow(PChar(WinName), nil);  //Handle vom  Viewer Fenster

  if wnd=0 then begin
    ShowMessage('Fenster nicht gefunden für Screenshot "'+WinName+'"');
  end
  else begin

    b := TBitmap.Create;
    try
      ScreenShot(wnd, b) ;
      Image1.Picture.Bitmap.Assign(b) ;
    finally
      b.FreeImage;
      FreeAndNil(b) ;
    end;

[Garfield]

Zitat von zeras:

Delphi-Quellcode:

    SetActiveWindow(wnd);
    SetForegroundWindow(wnd);
    sleep(5);
    hWin := GetForegroundWindow;

Zwei Variablen (wnd, hWin) für ein Handle?

Wenn das Fenster im Vorgergrund ist, braucht man nicht warten.

Delphi-Quellcode:

if GetForegroundWindow <> wnd
then begin
  SetForegroundWindow(wnd);
  sleep(5);
end;

Als Alternativen zum Fensterwechsel kannst Du Dir das mal ansehen: http://www.swissdelphicenter.ch/de/showcode.php?id=261

Zitat:

{
Manchmal funktioniert die SetForeGroundWindow Funktion
nicht so, wie sie sollte; besonders unter Windows 98/2000,
wenn ein anderes Fenster den Fokus hat.
ForceForegroundWindow ist eine "verbesserte" Version von
der SetForeGroundWindow API-Funktion, um ein Fenster in
den Vordergrund zu bringen.
}