取屏幕点的颜色值
var
Str: TPoint;
BarHand: THandle;
begin
GetCursorPos(Str);
BarHand := GetDC(0);
Panel1.Color := GetPixel(BarHand, Str.X, Str.Y);
Caption := IntToStr(Panel1.Color);
Str: TPoint;
BarHand: THandle;
begin
GetCursorPos(Str);
BarHand := GetDC(0);
Panel1.Color := GetPixel(BarHand, Str.X, Str.Y);
Caption := IntToStr(Panel1.Color);