Как проверить стереоскопический режим 3D в Delphi

Question

Я использую Delphi для разработки приложения для управления сторонним проигрывателем, который может воспроизводить Blu-3D-фильмы на Windows 7. Есть ли способ определить, находится ли текущий дисплей в стереоскопическом режиме? Другими словами, мне нужно проверить, воспроизводит ли видеоплеер 3D-видео и включен ли стереоскопический режим.