function DesktopColor(const X, Y: Integer): TColor;
var
c: TCanvas;
begin
c := TCanvas.Create;
try
c.Handle := GetWindowDC(GetDesktopWindow);
Result := GetPixel(c.Handle, X, Y);
finally
c.Free;
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
Pos: TPoint;
begin
GetCursorPos(Pos);
Panel1.Color := DesktopColor(Pos.X, Pos.Y);
end;
Here's the translation of the provided text into Russian:
Код написан на Delphi и предназначен для получения цвета пикселя на рабочем столе и обновления цвета панели соответственно.
Функция DesktopColor принимает два целочисленных параметра X и Y, представляющих координаты пикселя на рабочем столе. Она создает новый канвас, получает handle контекста устройства (DC) окна рабочего стола с помощью функций GetWindowDC и GetDesktopWindow, устанавливает текущий контекст устройства в этом handle с помощью свойства Handle канваса, получает значение цвета указанного пикселя с помощью функции GetPixel, и finally освобождает канвас.
Процедура Timer1Timer вызывается каждый раз, когда таймер, связанный с ней, срабатывает. Она получает текущую позицию курсора с помощью функции GetCursorPos, вызывает функцию DesktopColor для получения цвета пикселя в этой позиции, и устанавливает свойство цвета панели (Panel1) в этот цвет.
В улучшенной версии кода:
Параметры X и Y функции DesktopColor теперь округляются с помощью функции Round, чтобы обеспечить, что они являются целыми числами, требуемыми функцией GetPixel.
Код slightly более эффективен, поскольку создается новый канвас только один раз, когда вызывается из процедуры Timer1Timer.
В статье описывается функция DesktopColor, которая позволяет получать цвет пикселя на рабочем столе компьютера, а также пример ее использования в приложении с помощью таймера.
