![](../004.gif)
Кранты соседям, или ТВОЙ собственный мега-плеер
Horrific (smirnandr@mail.ru)
Спецвыпуск Хакер, номер #004, стр. 004-094-1
Сначала пишем CD-Player
Если ты еще не установил Delphi, пока я тут распинался, то принимайся за это немедленно. Я буду считать, что ты достал 5-ю версию этой проги. Возможны и другие варианты, но никак не меньше 3-й. Как устанавливать Delphi, я тебя учить не буду - в этом номере про инсталляцию языков вообще отдельная статья есть. Если установил, то смело запускай, и мы рванем в бой. Когда Delphi загрузится, перед твоими глазами откроется новый проект.
Вообще-то, мы уже рассказывали о Delphi, но я все же постараюсь рассказать все подробно, чтобы поняли и те, кто не смог с первого раза пролезть в танкетку. Для тех, кто видит это в первый раз, сообщаю, что находящееся посередине окно с заголовком "Form1" - это твоя форма. Слева расположено окно "ObjectInspector" (рисунок 1), с которым ты будешь очень много работать и менять различные свойства.
Вот с "ObjectInspector" мы и начнем. Сейчас в нем находятся свойства твоего окна (будущего плеера). Щелкни по строке "Caption" и напиши там название своего будущего произведения. Это название ты увидишь в заголовке формы и будущей проги. Теперь щелкни по строке "Icon", и перед тобой появится окно выбора иконки для проги (рисунок 2). Нажми кнопку "Load" и найди какую-нибудь подходящую иконку. Когда найдёшь, жми "ОК" и читай статью дальше.
Найди сверху окно, похожее на рисунок 3. У меня немного отличается, в связи с моими извращенными пристрастиями, но что-то похожее есть у тебя.
В этом окне под строкой меню справа есть куча закладок - это палитра компонентов. Выдели на ней закладку "System" и найди там "MediaPlayer" (он должен быть третьим слева). Теперь щелкни по нему, а потом щелкни по форме. У тебя должно получиться нечто похожее на рисунок 4. Если не получилось, то стоит обработать руки напильником и зубилом или, по крайней мере, попробовать еще раз :).
На твоей форме теперь появился компонент с названием MediaPlayer1. На этом компоненте ты можешь увидеть 9 кнопок: воспроизведение, пауза, стоп, перемотки, перескоки на следующий и предыдущий трек, запись и вытаскивание CD.
Теперь нажми клавишу "F9" и вставляй музыкальный компакт диск. Ты можешь запросто его слушать. Круто? Ни одной строчки кода, только легкие движения мауса и IBM - совместимые ручки :). Хотя моей задачей было только это, я решил продвинуться немного дальше. Закрой прогу и возвращайся в Delphi.
А потом делаем суперплеер
Сейчас мы сделаем универсальный плеер. Не пугайся, много времени и мозгов это не отнимет.
Щелкни по закладке "Standart" на палитре компонентов и найди там "Button". Установи его где-нибудь на форме, так же как и "MediaPlayer". Зачем это нужно, поймешь чуть позже, а пока... Делай :)! Теперь найди "Panel" и повтори операцию. Теперь найди закладку "Dialogs" на палитре компонентов и найди там "OpenDialog" (он должен быть первым). Установи его на форму.
После всего этого у тебя должно получиться нечто похожее на рисунок 5. Можешь оформить все это покрасивее. Для этого тебе нужно просто перетаскивать или растягивать созданные на форме объекты.