Hintergrundfarbe einer anderen Anwendung

[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