[Rokuell]

Программа отличная. Автор молодец!

Несколько замечаний:

1. При попытке открыть *.flv файл выводит сообщение об ошибке
"Не удаётся воспроизвести файл. Формат не поддерживается. ($80040265)

2. При попытке прокрутить некоторые DVD фильмы ( *.VOB ) выводит сообщение об ошибке
"Division by zero"

Предложения по доработке:

1. При двойном щелчке левой кнопкой мыши на иконке восстанавливать окно программы ( а то лень жать правой а потом выбирать пункт меню "восстановить" )

2. Стоит добавить возможность скрывать иконки на рабочем столе, чтобы можно было нормально смотреть видео.
Делается это легко:

Код:

// скрыть
ShowWindow(GetWindow(FindWindow('ProgMan', nil), GW_CHILD), SW_HIDE);
// показать
ShowWindow(GetWindow(FindWindow('ProgMan', nil), GW_CHILD), SW_SHOW)

3. Сделать прилипание формы к краям экрана ( В D7 делается с помощь свойств формы ScreenSnap и SnapBuffer )