Как определить код цвета произвольной точки экрана 2

Автор: Mikel

var
  DC: HDC;
  Color: Cardinal;
begin
  DC := GetDC(0);
  Color := GetPixel(DC, 300, 300);
  ReleaseDC(0, DC);
end;