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

[Volk]

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

[Volk]

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

[Allen]

Volk
В справке есть инфа.
А ты сам озвучивай , типа нажал и КРИЧИ "ААААА Я НАЖАЛ!!! ОЙ ой ой Я нажал!! КАРАУЛ!! Она жметься!1 уй уй уй фу фу згинь!! ой ой во во во ой"
Прикольно.

[Utochka]

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

[Volk]

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

[Микрон Семенович]

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

[EvL]

Элементари:

uses
mmsystem;

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

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

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

[EST a1ien]

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;
я так делал

[Volk]

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

[EST a1ien]

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

[W!z@rD]

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

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