Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.06.2011, 12:21   #1
dimok5
Пользователь
 
Регистрация: 10.10.2010
Сообщений: 51
По умолчанию Музыка при открытии формы

Можно ли сделать так, что бы при запуске программы автоматически начинала играть музыка??? Если можно , то как?
dimok5 вне форума Ответить с цитированием
Старый 11.06.2011, 12:33   #2
Leo08
Delphi master
Пользователь
 
Аватар для Leo08
 
Регистрация: 28.05.2011
Сообщений: 96
По умолчанию

Конечно можно. Можешь компонентом TMediaPlayer, а можешь через PlaySound.
Из ресурсов: http://delphiworld.narod.ru/base/loa...ound_file.html
И из файла: http://delphiworld.narod.ru/base/pla...diaplayer.html
БЯЯЯГГАААААА
Leo08 вне форума Ответить с цитированием
Старый 11.06.2011, 13:24   #3
dimok5
Пользователь
 
Регистрация: 10.10.2010
Сообщений: 51
По умолчанию

Спасибо, очень помогло.

Но вот тут появилась проблемка. Делаю через PlaySound.
Код:
PlaySound('D:\1.wav', 0, SND_ASYNC);
Здесь указывается путь. А если мне нужно перенести программу на другой компьютер, то пути не совпадут. Может можно как то сделать, чтобы шёл поиск только в папке с программой?

Последний раз редактировалось Stilet; 11.06.2011 в 15:49.
dimok5 вне форума Ответить с цитированием
Старый 11.06.2011, 13:41   #4
denisbrain
Форумчанин
 
Регистрация: 29.05.2011
Сообщений: 449
По умолчанию

Цитата:
Сообщение от dimok5 Посмотреть сообщение
Но вот тут появилась проблемка. Делаю через PlaySound.
Код:
PlaySound('D:\1.wav', 0, SND_ASYNC);
Здесь указывается путь. А если мне нужно перенести программу на другой компьютер, то пути не совпадут. Может можно как то сделать, чтобы шёл поиск только в папке с программой?
Код:
var dir:string;
begin
  getdir(0,dir);
dir - директория к программе
задания на pascal/delphi ICQ 368254335
Tel +79177425326 mail denis-naymov1985(at)mail.ru login skype denis.new.skype
denisbrain вне форума Ответить с цитированием
Старый 11.06.2011, 14:01   #5
Leo08
Delphi master
Пользователь
 
Аватар для Leo08
 
Регистрация: 28.05.2011
Сообщений: 96
По умолчанию

Если файл лежит в папке с программой, то указывай просто имя файла.
Пример:
PlaySound('1.wav',0,SND_ASYNC);
БЯЯЯГГАААААА
Leo08 вне форума Ответить с цитированием
Старый 11.06.2011, 14:52   #6
dimok5
Пользователь
 
Регистрация: 10.10.2010
Сообщений: 51
По умолчанию

Спасибо, работает.
dimok5 вне форума Ответить с цитированием
Старый 11.06.2011, 16:09   #7
ZuBy
Участник клуба
 
Аватар для ZuBy
 
Регистрация: 29.09.2008
Сообщений: 1,234
По умолчанию

Цитата:
Сообщение от Leo08 Посмотреть сообщение
Если файл лежит в папке с программой, то указывай просто имя файла.
Пример:
PlaySound('1.wav',0,SND_ASYNC);
никогда не делай так!
если ты откроешь например TOpenDialog, то текущая папка изменится и 1.wav не будет найден

Код:
PlaySound(extractfilepath(paramstr(0))+'\1.wav',0,SND_ASYNC);
ZuBy вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Фильтр при открытии формы St_Student Microsoft Office Access 1 25.10.2010 15:09
Фоновая музыка при создании формы JNLYSk Мультимедиа в Delphi 3 13.09.2009 20:08
Переход на control при открытии формы. Skolot Microsoft Office Access 3 04.12.2008 10:57
Максимизация формы при открытии SerArtur Microsoft Office Access 1 13.11.2008 15:00