Delphi. Помогите вставить в программу звук\плейлист.

[r._15]

нужно, чтоб было 2-3 звук. файла и каждый воспроизводился...хелп

[moris]

А MediaPlayer-а у тебя в палитре компонентов разве нет?

[r._15]

moris

он в какой закладке лежит?

Добавлено спустя 1 минуту 14 секунд:

и как добавлять файлы в него?

[moris]

System

procedure TForm1.Button1Click(Sender: TObject);

begin

MediaPlayer1.FileName:='c:\бла-бла.wav';

MediaPlayer1.Open;

MediaPlayer1.Play;

end;

[sp1rt1ksn]

а как сделать так чтоб файл открывалься не с c:\бла-бла.wav'; а так чтобы он воспроизводился с ресурс файла. Чтобы когда на другой комп перетащив тока один файл бла-бла.ехе все работало то естьзвук был в самом .ехе файле.Я в ресурс добавил, а сделать так чтобы оттуда воспроизводился не получается.

ПОМОГИТЕ ПОЖАЛУЙСТА!

[bayarookie]

Компилишь чем-нибyдь в *.RES

Далее в тексте:
Code:

{$R полное_имя_файла_с_ресурсом}

var WaveHandle: THandle;
WavePointer: pointer;
...
WaveHandle := FindResource(hInstance, 'MY_WAV', RT_RCDATA);
if WaveHandle <> 0 then
begin
WaveHandle := LoadResource(hInstance, WaveHandle);
if WaveHandle <> 0 then
begin;
WavePointer := LockResource(WaveHandle);

PlayResourceWave := sndPlaySound(WavePointer, snd_Memory or
SND_ASYNC);
UnlockResource(WaveHandle);
FreeResource(WaveHandle);
end;
end;

Serg Vostrikov
(2:5053/15.3)

©Drkb::03597

Взято с сайта http://blackman.wp-club.net/

Сначала делаешь файл SOUND.RC, в нем строка вида: MY_WAV RCDATA TEST.WAV

[nidom]

А как скомпилировать файл *.res из *.rc?

И откуда взять функцию sndPlaySound()?

[bayarookie]

brcc32.exe file.rc

MMSystem.sndPlaySound()