Продолжим нашу работу над медиа-проигрывателем, основанным на
Windows Media Player. Хочется подчеркнуть, что кардинально
изменить что-либо не удастся, поэтому в этой статье я просто расскажу о
небольших усовершенствованиях и на этом мы остановимся.
Обычно во время воспроизведения мы должны видеть название
файла, который проигрывается в данное время. Давайте снабдим проигрыватель этой
функцией. Для этого изменим обработчик пункта меню "Открыть" на
следующее:
if OpenDialog.Execute then
begin
MediaPlayer.URL:=OpenDialog.FileName;
Form1.Caption:='SMP - '+ExtractFileName(OpenDialog.FileName);
end;
Как работает добавленная строка? Функция
ExtractFileName() возвращает имя файла из указанного пути - то, что нам
нужно. "SMP" - это сокращённо "Simple Media Player" :-) Наконец,
значение присваивается заголовку формы.
Что ещё можно добавить? Да, действительно странный
проигрыватель... Можно сделать окошко "О программе". Для этого в меню
добавьте соответствующий пункт и назовите его "О программе..." По
правилам Windows любая надпись, приводящая к открытию диалогового окна, должна
заканчиваться многоточием - "..." Рекомендую запомнить это
правило и всегда и везде его использовать. Окно можно создать "с нуля":
File - New - Form (в разных версиях
Delphi названия пунктов меню могут отличаться). А ещё можно воспользоваться
окном, подготовленным разработчиками - открываем File -
New - Other, переходим на вкладку Forms,
выбираем "About box" и нажимаем "ОК". В результате
создаётся форма. В ней напишите название программы, своё имя, версию... Далее
создаём обработчик для созданного пункта меню
AboutBox.ShowModal;
Пытаемся запустить программу, но Delphi выдаёт предупреждение,
что второй модуль не связан с первым и предлагает это сделать. Соглашаемся, и
приложение запускается.
Вот и всё. Конечно, такому проигрывателю далеко до Winamp, Light Alloy и
даже до стандартного Windows Media Player, но основы, я думаю, понятны. Если
вы повнимательнее изучите список ActiveX-компонент, то найдёте там много
интересного.
|