"Fensterfoto" unter Windows 7 klappt nicht so recht...

[turboPASCAL]

Hi,

nun muss ich doch mal nachfragen. Ich mochte von einem Fenster welches Subfenster enthält eins dieser Subfenster als Bild kopieren.
Das klappt bei den OS XP und Vista ohne Probleme, jedoch bei Win7 bekomme ich den kompletten Desktop in mein Bitmap kopiert.

Ich glaube mich zu erinnern, das schon mal so ein Thema gab nur leider finde ich es nicht mehr.

[mkinzler]

Wie versuchst du den Screenshot zu machen?

[turboPASCAL]

So:

Delphi-Quellcode:

if (hNotifierWnd <> 0) and (isWindowVisible(hNotifierWnd)) then
  begin
    hInetExpWnd := FindWindowByClasses(...);
    if hInetExpWnd <> 0 then
    begin
      GetClientRect(hInetExpWnd, cwcr);

      hINSWndDC := GetDC(hInetExpWnd);
      if hINSWndDC <> 0 then
      begin
        with cwcr do
          stretchblt(hBmpDC, 0, 37, clWndWidth, clWndHeight - 37, hINSWndDC, 0, 0, Right - Left,
            Bottom - Top, SRCCOPY);
        
        // ...
      end;
      ReleaseDC(hInetExpWnd, hINSWndDC);
    end;
  end;

[Luckie]

Wird das Fenster denn gefunden?

[sx2008]

Also ich würde versuchen den Code sauber in einer Prozedur zu verpacken.
(Stichwort: Wiederverwendbarkeit und Testbarkeit)
Als Übergabeparameter würde ich das Fensterhandle und ein TBitmap-Objekt übergeben:

Delphi-Quellcode:

procedure MakeWindowScreenshot(hWnd:THWND; bitmap:TBitmap);

Dann würde ich zunächst einmal mit einem Fenster der eigenen Anwendung testen.
Danach würde ich es mit einem fremden Fenster versuchen, dass mit FindWindowByClasses(...) gefunden wurde.
Und ausserdem würde ich eine Exception werfen, wenn FindWindowByClasses(...) kein gültiges Fensterhandle liefert.

[himitsu]

Vielleicht auch mal schauen ob und welche Fehlermeldung GetClientRect liefert.
Und stretchblt hätte auch noch ein Result zum Prüfen, aber da hier ein anscheinend Bild geliefert wird, scheint das ja zu gehn.

@Luckie: Der Desktop hat zwar das Pseudo-Handle 0, aber er prüft ja auf

Delphi-Quellcode:

<> 0

, also wird vermutlich das Fenster gefunden.

[turboPASCAL]

Zitat:

Zitat von Luckie (Beitrag 1037538)

Wird das Fenster denn gefunden?

Ja.

Zitat:

Zitat von sx2008 (Beitrag 1037552)

Also ich würde versuchen den Code sauber in einer Prozedur zu verpacken.
(Stichwort: Wiederverwendbarkeit und Testbarkeit)
Als Übergabeparameter würde ich das Fensterhandle und ein TBitmap-Objekt übergeben

Es ist ein Teil aus einer Procedure. ;)

Zitat:

Zitat von himitsu (Beitrag 1037558)

Vielleicht auch mal schauen ob und welche Fehlermeldung GetClientRect liefert.

Hm, mal gucken...

Zitat:

Zitat von himitsu (Beitrag 1037558)

Und stretchblt hätte auch noch ein Result zum Prüfen, aber da hier ein anscheinend Bild geliefert wird, scheint das ja zu gehn.

So ist es.