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

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