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

var
  DC: HDC;
  Color: Cardinal;
begin
  DC := CreateDC('MONITOR', nil, nil, nil);
  Color := GetPixel(DC, 300, 300);
  DeleteDC(DC);
end;