[angvelem]

Почему же, это рабочая функция. Скорее всего Wnd неверный. Попробуй сначала установить цвет, а потом запросить:

Код:

var
  aBrush, bBrush : HBRUSH;
  ...

  aBrush := CreateSolidBrush($DD2020);
  SetClassLong(Wnd, GCL_HBRBACKGROUND, aBrush);
  ...
  bBrush := GetClassLong(Wnd, GCL_HBRBACKGROUND);