Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Мультимедиа
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 10.04.2009, 19:55
Аватар для Ar4ers
Ar4ers Ar4ers вне форума
Прохожий
 
Регистрация: 10.04.2009
Сообщения: 9
Репутация: 10
Вопрос воспроизведение звука (автозапуск)

дарова всем!!!
Как воспроизвести звук при запуске проги
Ответить с цитированием
  #2  
Старый 10.04.2009, 20:11
Аватар для :S.p.a.m.
:S.p.a.m. :S.p.a.m. вне форума
Активный
 
Регистрация: 04.05.2008
Сообщения: 260
Репутация: 15
По умолчанию

в событии onCreate можно попробовать или еще лучше после создания всех форм воспроизводить.

вот тебе 2 варианта воспроизведения, выбирай:
первый
Второй
Ответить с цитированием
  #3  
Старый 11.04.2009, 00:13
Аватар для Ar4ers
Ar4ers Ar4ers вне форума
Прохожий
 
Регистрация: 10.04.2009
Сообщения: 9
Репутация: 10
По умолчанию

ок спс попробую
Ответить с цитированием
  #4  
Старый 12.04.2009, 00:25
Аватар для Ar4ers
Ar4ers Ar4ers вне форума
Прохожий
 
Регистрация: 10.04.2009
Сообщения: 9
Репутация: 10
По умолчанию

не 4е то не то воспроизводить как нажимаем на кнопку а надо было при запуске программы
Ответить с цитированием
  #5  
Старый 12.04.2009, 18:12
SERЖant SERЖant вне форума
Начинающий
 
Регистрация: 22.03.2008
Адрес: г.Елец , Липецкой области , Россия
Сообщения: 104
Репутация: 7
По умолчанию

Код:
procedure TForm1.FormShow(Sender: TObject);
begin
MediaPlayer1.FileName := 'имя твоего файла';
MediaPlayer1.Open;
MediaPlayer1.Play
end;
Ответить с цитированием
  #6  
Старый 12.04.2009, 19:14
Аватар для Ar4ers
Ar4ers Ar4ers вне форума
Прохожий
 
Регистрация: 10.04.2009
Сообщения: 9
Репутация: 10
По умолчанию

4ерез OnCreate пробывал PlaySound('c:\1.wav', 0, 0); работает, только с перво звук идет потом только прога запускается
Ответить с цитированием
  #7  
Старый 12.04.2009, 19:15
Аватар для Ar4ers
Ar4ers Ar4ers вне форума
Прохожий
 
Регистрация: 10.04.2009
Сообщения: 9
Репутация: 10
По умолчанию

Цитата:
Сообщение от SERЖant
Код:
procedure TForm1.FormShow(Sender: TObject);
begin
MediaPlayer1.FileName := 'имя твоего файла';
MediaPlayer1.Open;
MediaPlayer1.Play
end;

Спасибо все норм работает
Ответить с цитированием
Ответ


Delphi Sources

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

Расширенный поиск
Опции просмотра
Комбинированный вид Комбинированный вид

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 11:09.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025