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