Музыка при открытии формы

[dimok5]

Можно ли сделать так, что бы при запуске программы автоматически начинала играть музыка??? Если можно , то как?

[Leo08]

Конечно можно. Можешь компонентом TMediaPlayer, а можешь через PlaySound.
Из ресурсов: http://delphiworld.narod.ru/base/loa...ound_file.html
И из файла: http://delphiworld.narod.ru/base/pla...diaplayer.html

[dimok5]

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

Но вот тут появилась проблемка. Делаю через PlaySound.

PlaySound('D:\1.wav', 0, SND_ASYNC);

Здесь указывается путь. А если мне нужно перенести программу на другой компьютер, то пути не совпадут. Может можно как то сделать, чтобы шёл поиск только в папке с программой?

[denisbrain]

Сообщение от dimok5

Но вот тут появилась проблемка. Делаю через PlaySound.

PlaySound('D:\1.wav', 0, SND_ASYNC);

Здесь указывается путь. А если мне нужно перенести программу на другой компьютер, то пути не совпадут. Может можно как то сделать, чтобы шёл поиск только в папке с программой?

var dir:string;
begin
  getdir(0,dir);
dir - директория к программе

[Leo08]

Если файл лежит в папке с программой, то указывай просто имя файла.
Пример:
PlaySound('1.wav',0,SND_ASYNC);

[dimok5]

Спасибо, работает.

[ZuBy]

Сообщение от Leo08

Если файл лежит в папке с программой, то указывай просто имя файла.
Пример:
PlaySound('1.wav',0,SND_ASYNC);

никогда не делай так!
если ты откроешь например TOpenDialog, то текущая папка изменится и 1.wav не будет найден

PlaySound(extractfilepath(paramstr(0))+'\1.wav',0,SND_ASYNC);