helpme 如何pick屏幕中任一点的RGB？

Question

我用setcapture中hwnd该怎么赋值，getpiexl中的HDC又给如何取值呢？请多多指教！！
谢谢

Answer 1

如何取得当前光标处的颜色？请参考以下代码： 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var 
DC:HDC; 
X,Y:Integer; 
begin 
X:=Mouse.CursorPos.X; 
Y:=Mouse.CursorPos.Y; 
if Key<>VK_Return then Exit; 
DC:=GetDC(0); 
Color:=GetPixel(DC,X,Y); 
end; 

Answer 2

var
DC:HDC; 
begin
DC:=GetDC(0); 
Color:=GetPixel(DC,GetCursorPos.X,GetCursorPos.Y); 
end;

Answer 3

在窗体的上加入一个定时器，每100ms触发一次，在定时器事件里完成取点和分析的过程并且显示出来。GetRValue(),GetgValue(),GetbValue()可以提取各种颜色。
这样鼠标指到哪儿，就可以显示哪儿的颜色。