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 :gruebel:
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 :thuimb:

[Computerbabalulu]

Hey Hboy

Hast du den Code getestet :gruebel:

Funktionier bei mir irgendwie nicht!

Gruß Baba

[Computerbabalulu]

Alles klar..... :thuimb:

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;

Delphi-Quellcode:

if hnd <> 0 then GetColor(hnd)

Gruß und Danke

Baba