|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
воспроизведение звука (автозапуск)
дарова всем!!!
Как воспроизвести звук при запуске проги |
#3
|
||||
|
||||
ок спс попробую
|
#4
|
||||
|
||||
не 4е то не то воспроизводить как нажимаем на кнопку а надо было при запуске программы
|
#5
|
|||
|
|||
Код:
procedure TForm1.FormShow(Sender: TObject); begin MediaPlayer1.FileName := 'имя твоего файла'; MediaPlayer1.Open; MediaPlayer1.Play end; |
#6
|
||||
|
||||
4ерез OnCreate пробывал PlaySound('c:\1.wav', 0, 0); работает, только с перво звук идет потом только прога запускается
|
#7
|
||||
|
||||
Цитата:
Спасибо все норм работает |
#8
|
||||
|
||||
Цитата:
Надо в параметрах указать что файл должен проигрываться асинхронно, если не ошибаюсь, тогда все норм будет. |
#9
|
||||
|
||||
А лучше не в форме это делать, а в главной программе (Project1.dpr), после Application.Run;. Тогда звук будет проигрываться после отрисовки форм (ы), что собственно и требуется.
Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#10
|
||||
|
||||
Цитата:
Код:
PlaySound('tada.wav', 0, SND_ASYNC); Начинающий программист уверен, что в 1 килобайте 1000 байт.
Законченный программист уверен, что в 1 километре 1024 метра. |