Функция на Delphi для определения текущего количества цветов у экрана:
//в битах
function NumOfColors: Byte;
var
tHDC: hdc;
begin
tHDC := GetDC(0);
result := GetDeviceCaps(tHDC, 12) * GetDeviceCaps(tHDC, 14);
ReleaseDC(0, tHDC);
end;
Чтобы смотреть фильмы онлайн в браузере должна быть установлена поддержка технологии flash.