Pixelfarbe aus anderem Programm auslesen

[carknue]

Wie kann man aus einem anderen Programm die Farbe eines Pixels seiner Oberfläche auslesen. Hintergrund ist, das andere Programm hat eine Statusanzeige, welche rot oder grün ist und ich möchte gerne protokollieren, wann und wie oft sie grün oder rot ist.

[bitsetter]

Hallo,

ich glaube du meinst sowas hier:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  CurPos: TPoint;
  lDC: HDC;
begin
  //sleep(2000);
  lDC:= GetDC(0);
  if lDC> 0 then
  try
    GetCursorPos(CurPos);//Beispiel
    Color:= GetPixel(lDC, CurPos.X, CurPos.Y);
  finally
    ReleaseDC(0, lDC);
  end;
end;

[carknue]

Zitat von bitsetter:

ich glaube du meinst sowas hier:

Ja, aber wie stelle ich den Pixel fest auf eine bestimmte koordinate in der anderen Anwendung. Ich will da nicht mit der Maus draufzeigen müßen. Muß das andere Programm dazu zwingend im Vordergrund sein oder ginge es auch, wenn andere Fenster darüber wären? In den Vordergrund könnte ich es ja noch z.B mit sendkeys holen aber wie lege ich fest, dass immer der Pixel 100,120 in der anderen Anwendung kontrolliert wird, egal wo diese Anwendung auf dem Bildschirm ist.

[bitsetter]

Hi,

wenn du das Handle des Fensters kennst, dann geht es auch so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  CurPos: TPoint;
  lDC: HDC;
  h: HWND;
begin
  h:= findwindow();//oder auch was anderes
  SetForegroundWindow(h);
  lDC:= GetDC(h);
  if lDC> 0 then
  try
    Color:= GetPixel(lDC, 100, 120);
  finally
    ReleaseDC(h, lDC);
  end;
end;

Oder du musst das Handle mit EnumWindows herausfinden.
EDIT: Ich glaube das Fenster muss sich trotzdem im Vordergrund befinden.