看看下面：
代码如下：
procedure TForm1.Timer1Timer(Sender: TObject);
var
p: TPoint;
ClD: DWOrd;
r, g, b: string;
MDC: HDC;
begin
MDC := GetDC(0);
GetCursorPos(p);
clD := GetPixel(MDC, p.x, p.y);
r := IntTostr(GetRValue(clD));
g := IntTostr(GetGValue(clD));
b := IntTostr(GetBValue(clD));
end;
