Сыграть звуковой файл без компонентов

Материал из DRKB

Сыграть звуковой файл без компонентов[править | править код]

Если Вам не нужен компонент MediaPlayer, а сыграть звук, например, при нажатии на кнопку, нужно, воспользуйтесь функцией PlaySound. Одна из ее возможностей - сыграть wav-файл.

uses MMsystem;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    PlaySound(PChar(OpenDialog1.FileName), 0, SND_FILENAME);
end;


Автор советов: Даниил Карапетян
e-mail: delphi4all@narod.ru

Автор справки: Алексей Денисов
e-mail: aleksey@sch103.krasnoyarsk.su


ID: 02263