Следующая функция определяет цвет пиксела на рабочем столе. В качестве параметров передаются координаты курсора. Для начала необходимо поместить на форму два компонента: TTimer и TPanel (панель будет окрашиваться цветом под курсором мыши).
function DesktopColor(const x,y: integer): TColor;
var
c:TCanvas;
begin
c:= TCanvas.Create;
c.Handle:= GetWindowDC(GetDesktopWindow);
result:= GetPixel(c.Handle, x, y);
c.Free;
end;
{ значение Interval таймера установим в значение 10,
с какой частотой будет обновляться информация. }
procedure TForm1.Timer1Timer(Sender: TObject);
var
pos: TPoint;
begin
GetCursorPos(Pos);
Panel1.Color:= DesktopColor(pos.x, pos.y);
end;
Комментарии