17.05.2008, 22:51
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
С нами:
9655526
Репутация:
1821
|
|
Брось на форму компонент TMediaPlayer(Mediaplayer1)
И вот:
Код:
procedure TForm2.Button1Click(Sender: TObject);
begin
MediaPlayer1.Play;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
MediaPlayer1.Stop;
end;
|
|
|