Hintergrundfarbe einer anderen Anwendung

[Computerbabalulu]

Hallo zusammen

Wie kann ich die Hintergrundfarbe eines Fensters einer anderen Anwendung ermitteln?
Das muss doch irgenswie über GetPixelColor gehen
Aber da bekomme ich immer nur die Pixelfarbe vom Desktop....
Hier mal ein Beispielcode:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);

var
   hWnd: DWORD;
   begin
      hWnd := FindWindow('TForm1','Print Vorbereitung Digitalaufträge');
     if hWnd <> 0 then GetColor
   else
      Label1.Color:= clblack
end;

procedure TForm1.GetColor;
var
  dc: hDc;
  hWnd: DWORD;
begin
  dc := GetDC(0);
  Label1.Color :=GetPixel(dc, 30, 30);
  ReleaseDC(0, dc);
end;


procedure TForm1.Timer1Timer(Sender: TObject);
var
   hWnd: DWORD;
   begin
      hWnd := FindWindow('TForm1','Print Vorbereitung Digitalaufträge');
     if hWnd <> 0 then GetColor
   else
      Label1.Color:= clblack
end;

end.

**Print Vorbereitung Digitalaufträge ist das Fenster von dem ich die Hintergrundfarbe haben möchte.
Diese Hintergrundfarbe soll die Label1.color in meinem Formular sein.


Gruß Baba

[hboy]

du musst erst mit EnumWindows dein Fenster suchen und anstelle des getDC(0) getDC(zielhandle) machen. threads über EnumWindows gibts hier im Forum ja zu Hauf.
also:

EnumWindows machen, dann mit GetWindowText in der EnumWindowProc den Fenstertitel prüfen oder vielleicht mal FindWindow ausprobieren...

und dann mit diesem Handle den dc holen

[hboy]

Delphi-Quellcode:

procedure TForm1.GetColor(wnd:HWND);
var
  dc: hDc;
begin
  dc := GetDC(wnd);
  Label1.Color :=GetPixel(dc, 30, 30);
  ReleaseDC(wnd, dc);
end;


procedure TForm1.Timer1Timer(Sender: TObject);
var
   hnd: DWORD;
   begin
      hnd := FindWindow('TForm1','Print Vorbereitung Digitalaufträge');
     if hnd <> 0 then GetColor(hnd);
   else
      Label1.Color:= clblack
end;

[Computerbabalulu]

Danke euch! Werde es mal kurz testen.

Gruß Baba

[Computerbabalulu]

Hey Hboy

Hast du den Code getestet

Funktionier bei mir irgendwie nicht!

Gruß Baba

[Computerbabalulu]

Alles klar.....

Habe den Fehler gefunden:

Zitat:

procedure TForm1.Timer1Timer(Sender: TObject);
var
hnd: DWORD;
begin
hnd := FindWindow('TForm1','Print Vorbereitung Digitalaufträge');
if hnd <> 0 then GetColor(hnd);
else
Label1.Color:= clblack
end;

if hnd <> 0 then GetColor(hnd) Gruß und Danke

Baba