Hintergrundfarbe einer anderen Anwendung

[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;