Сыграть звуковой файл без компонентов |
Previous Top Next |
Если Вам не нужен компонент MediaPlayer, а сыграть звук, например, при нажатии на кнопку, нужно, воспользуйтесь функцией PlaySound. Одна из ее возможностей – сыграть wav-файл.
Code: |
uses MMsystem;
procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then PlaySound(PChar(OpenDialog1.FileName), 0, SND_FILENAME); end; |
©Drkb::02263
Автор советов: Даниил Карапетян
e-mail: delphi4all@narod.ru
Автор справки: Алексей Денисов
e-mail: aleksey@sch103.krasnoyarsk.su