Автор: Mikel
WEB-сайт: http://forum.vingrad.ru

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