function GetColorByCursorPos: TColor;
var
DesktopCanvas: TCanvas;
CursorPos: TPoint;
begin
GetCursorPos(CursorPos);
DesktopCanvas := TCanvas.Create;
try
DesktopCanvas.Handle := GetWindowDC(GetDesktopWindow);
Result := DesktopCanvas.Pixels[CursorPos.x, CursorPos.y];
finally
DesktopCanvas.Free;
end;
end;