全局探色器-函数

var
  pt: TPoint;
  c: TColor;
begin
  GetCursorPos(pt);
  c := GetPixel(GetDC(0), pt.X, pt.Y);
  edtColor.Text := Format('$%.6x', [c]);
end;