Действительно ... как все запущено ...
чёрный цвет будет 0,0,0 ... кроме всего прочего
если без форм, то должно быть что-то вроде такого:
var _hdc:HDC;
var col:COLORREF;
begin
_hdc := GetDC(0);
col := GetPixel(_hdc, 100, 100);
Write(GetRValue(col), GetGValue(col), GetBValue(col));
ReleaseDC(0, _hdc);
end;
P.S. дельфи нету и забыл когда последний раз её видел
|