Pixelfarbe aus anderem Programm auslesen

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