Farbpixel beim Mauszeiger feststellen?

[bitsetter]

Hi,
hier hast du etwas Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  CurPos: TPoint;
begin
  sleep(1000);//Zeit geben zum Maus bewegen
  GetCursorPos(CurPos);
  Color:= GetPixel(GetDC(0), CurPos.X, CurPos.Y);
end;