Воспроизведение звука

[John_chek]

Здравствуйте! Имеется путь к звуковому файлу, подскажите, как его воспроизвести по нажитю кнопки, к примеру. Не используя программы типа winamp и др.?

[Трофимов Александр]

При помощи TMediaPlayer

[John_chek]

А поподробней? Что это за компонент, где находится?
Короче, мне нужно привязать к событию. Пишу прогу напоминалку

[OrdJONY]

//Это нужно выставить при создании формы или еще когда нибудь
MediaPlayer.DeviceType := dtAutoSelect;
MediaPlayer.AutoEnable := True;
MediaPlayer.AutoOpen := False;
MediaPlayer.FileName := //Присвоить путь к файлу
//Это ставиш непосредственно на уже проигрывание
MediaPlayer.Open;
MediaPlayer.Play;
З.Ы. Этот компонент находиться на вкладке System, но он немного тормозной

[John_chek]

Спасибо, попробую!

[Трофимов Александр]

procedure TForm1.Button1Click(Sender: TObject);
begin
MediaPlayer1.FileName :='D:\001 Akon - Shake that (feat. Eminem).mp3';
try
MediaPlayer1.Open;
except
on EMCIDeviceError do
begin
ShowMessage('Ошибка');
Exit;
end;
end;
MediaPlayer1.Play;
end;