музыка

[wolf950]

Как мне сделать что бы при нажатии воспроизводилась какая-нибудь музыка? например та которая лежит в папке с программой ?

[Terran]

Сообщение от wolf950

Как мне сделать что бы при нажатии воспроизводилась какая-нибудь музыка? например та которая лежит в папке с программой ?

Вы можете воспользоваться компонентом MediaPlayer с вкладки System. Кидаете его на форму и пишете такой код:

Procedure TForm1.Button1Click(Sender: TObject);
Begin
MediaPlayer1.FileName:='000.mp3';
MediaPlayer1.Open;
MediaPlayer1.Play;
End;

Так же музыку можно проигрывать из самого файла. Для этого музыку надо добавить в ресурсы программы и потом обращаться к ней.

[SERG1980]

uses MMSystem;
sndPlaySound('mymusic.wav', SDN_ASYNC)

[wolf950]

Сообщение от Terran

Вы можете воспользоваться компонентом MediaPlayer с вкладки System. Кидаете его на форму и пишете такой код:

Procedure TForm1.Button1Click(Sender: TObject);
Begin
MediaPlayer1.FileName:='000.mp3';
MediaPlayer1.Open;
MediaPlayer1.Play;
End;

Так же музыку можно проигрывать из самого файла. Для этого музыку надо добавить в ресурсы программы и потом обращаться к ней.

TERRAN большое спасибо!