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