delphi 取屏幕点颜色

 

var
  dc:HDC;
  p:TPoint;
   RGB:COLORREF ;

begin
  try
    dc:=GetDC(0);
     GetCursorPos(p);
     RGB:=GetPixel(dc,p.X,p.Y);
     edit1.Text := format('$%.6x', [RGB]);

  finally
    releaseDC(0,dc);
  end;
end;