Озвучка кнопок.

Здравствуйте. подскажите как мне сделать так, чтоб при нажатии кнопки (SpeedBution1)проигрывался звук в формате wav (C:\S1.wav)??? И как куданибуть его поместить чтоб не таскать постоянно вместе с прогой???
---------------------------------------------
Заранее благодарен!!!
[Delphi 7, Win XP(SP2)]

 

Такого вообше нет!!!!

 

Volk
В справке есть инфа.

Прикольно.

 

Автор подключи модуль mmsystem или mmsound точно непомню.

 

Ну да. Теперь появилась. Я пишу procedure TForm1.Button1Click(Sender: TObject);
begin
PlaySound('C:\s1.wav');
end;
а он мне отвечает: Not enough actual parameters. Как там надо? Подскажите пожалуйсто кодом. Я вообше это ни разу не делал.
--------------------------------------------------------------------------
Заранее благодарен!!!

 

WinAPI PlaySound()
см. http://msdn.microsoft.com

 

Элементари:

uses
mmsystem;

// Проиграть
sndPlaySound('C:\s.WAV', SND_ASYNC);

// Проигрывать всё время
sndPlaySound('C:\s.WAV', SND_ASYNC + SND_LOOP);

//Остановить
sndPlaySound(nil, SND_ASYNC);

 

я так делал

 

Понятно. А как мне этот wav файл куданибудь прикрепить, чтоб не таскать вместе с прогой? И как потом его проигрывать, если он будит прикреплён?
-------------------------------------------------------------
Заранее спасибо!!!

 

Да в роде бы некак.
Нужно всеегда ссобой таскать.
Хотя может кто и знает как звук запишнуть в .rc файлы

 

вот тебе функция распаковки фаила из ресурса:

procedure ExtractRes;
var Res:TResourceStream;
begin
Res:=TResourceStream.Create(HInstance,'_SOUND',RT_RCDATA);
Res.SaveToFile('my_sound.wav');
Res.Free;
end;