Сыграть звуковой файл без компонентов
Если Вам не нужен компонент MediaPlayer, а сыграть звук, например, при нажатии на кнопку , нужно , воспользуйтесь функцией PLAYSOUND . Одна из ее возможностей - сыграть wav-файл. (На форму нужно кинуть компонент OpenDialog1 из вкладки Dialogs и кнопку Button из вкладки Standart) uses MMsystem; procedure TForm1.Button1Click(Sender: TObject);begin
if OpenDialog1.Execute then
PlaySound(PChar(OpenDialog1.FileName), 0, SND_FILENAME);
end;
