Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
03.04.2006, 22:27
|
|
Новичок
Регистрация: 25.02.2006
Сообщений: 5
Провел на форуме:
3718
Репутация:
1
|
|
Озвучка кнопок.
Здравствуйте. подскажите как мне сделать так, чтоб при нажатии кнопки (SpeedBution1)проигрывался звук в формате wav (C:\S1.wav)??? И как куданибуть его поместить чтоб не таскать постоянно вместе с прогой???
---------------------------------------------
Заранее благодарен!!!
[Delphi 7, Win XP(SP2)]
|
|
|
03.04.2006, 22:36
|
|
Новичок
Регистрация: 25.02.2006
Сообщений: 5
Провел на форуме:
3718
Репутация:
1
|
|
|
|
|
|
03.04.2006, 22:39
|
|
Постоянный
Регистрация: 24.10.2005
Сообщений: 367
Провел на форуме:
686219
Репутация:
26
|
|
Volk
В справке есть инфа.
Сообщение от NeX
А ты сам озвучивай , типа нажал и КРИЧИ "ААААА Я НАЖАЛ!!! ОЙ ой ой Я нажал!! КАРАУЛ!! Она жметься!1 уй уй уй фу фу згинь!! ой ой во во во ой"
Прикольно.
|
|
|
|
03.04.2006, 22:41
|
|
Постоянный
Регистрация: 21.12.2005
Сообщений: 620
Провел на форуме:
1867718
Репутация:
268
|
|
Автор подключи модуль mmsystem или mmsound точно непомню.
|
|
|
|
03.04.2006, 22:49
|
|
Новичок
Регистрация: 25.02.2006
Сообщений: 5
Провел на форуме:
3718
Репутация:
1
|
|
Ну да. Теперь появилась. Я пишу procedure TForm1.Button1Click(Sender: TObject);
begin
PlaySound('C:\s1.wav');
end;
а он мне отвечает: Not enough actual parameters. Как там надо? Подскажите пожалуйсто кодом. Я вообше это ни разу не делал.
--------------------------------------------------------------------------
Заранее благодарен!!!
|
|
|
|
03.04.2006, 23:22
|
|
Познающий
Регистрация: 01.04.2006
Сообщений: 32
Провел на форуме:
71442
Репутация:
31
|
|
|
|
|
|
09.04.2006, 17:02
|
|
Новичок
Регистрация: 24.03.2006
Сообщений: 16
Провел на форуме:
9980
Репутация:
0
|
|
Элементари:
uses
mmsystem;
// Проиграть
sndPlaySound('C:\s.WAV', SND_ASYNC);
// Проигрывать всё время
sndPlaySound('C:\s.WAV', SND_ASYNC + SND_LOOP);
//Остановить
sndPlaySound(nil, SND_ASYNC);
|
|
|
|
09.04.2006, 17:07
|
|
Участник форума
Регистрация: 02.04.2006
Сообщений: 273
Провел на форуме:
1269624
Репутация:
114
|
|
function PlaySound(pszSound: PChar; hmod: HINST;
fdwSound:Cardinal): Boolean; stdcall; external 'winmm.dll';
procedure TForm1.SpeedBution1Click(Sender: TObject);
begin
PlaySound('Min.wav',0,1);
end;
я так делал
|
|
|
|
09.04.2006, 17:18
|
|
Новичок
Регистрация: 25.02.2006
Сообщений: 5
Провел на форуме:
3718
Репутация:
1
|
|
Понятно. А как мне этот wav файл куданибудь прикрепить, чтоб не таскать вместе с прогой? И как потом его проигрывать, если он будит прикреплён?
-------------------------------------------------------------
Заранее спасибо!!!
|
|
|
|
09.04.2006, 17:34
|
|
Участник форума
Регистрация: 02.04.2006
Сообщений: 273
Провел на форуме:
1269624
Репутация:
114
|
|
Да в роде бы некак.
Нужно всеегда ссобой таскать.
Хотя может кто и знает как звук запишнуть в .rc файлы
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
