[Decoding]

Непосредственно с такой ситуацией я не сталкивался, но нечто похожее делать приходилось. Мне нужно было получить цвет пикселя под курсором мыши. Я это сделал так:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var 
  DC: HDC;
  Cur: TPoint;
  ColorValue: Cardinal;
begin
   DC := GetDC( 0 );
   // Получаю координаты курсора
  GetCursorPos( Cur );
   // Узнаю цвет пикселя в полученных координатах
  ColorValue := GetPixel( DC, Cur.X, Cur.Y );
   // Показываю полученный цвет
  PanelMonitor.Color := ColorValue;
   // Показываю красную составляющую цвета
  TrackRValue.Position := GetRValue( ColorValue );
   // Показываю зеленую составляющую цвета
  TrackGValue.Position := GetGValue( ColorValue );
   // Показываю синюю составляющую цвета
   TrackBValue.Position := GetBValue( ColorValue );
   ReleaseDC( 0, DC );
end;