Farbe an der Mausposition ?!

[Capa]

Code:

function CursorColor : TColor;
var
  cv : TCanvas;
  p : TPoint;
begin
  GetCursorPos(p);
  cv:=TCanvas.Create;
  cv.Handle:=GetWindowDC(GetDesktopWindow);
  Result:=GetPixel(cv.Handle,p.x,p.y);
  cv.Free;
end;