如何样获得当前屏幕某一坐标的RGB值 请指点阿

怎么样获得当前屏幕某一坐标的RGB值 请指点阿
我想问下这个问题   谢谢

[解决办法]
var
DC : HDC;
iRGB : integer;
R, G, B : byte;
begin
DC := GetDC(0);
iRGB := GetPixel(DC, 80, 90);
ReleaseDC(0, DC);
Self.Color := iRGB;
R := GetRValue(iRGB);
G := GetGValue(iRGB);
B := GetBValue(iRGB);
Caption := Format( '%d,%d,%d ',[R,G,B]);
end;