Форум: "Начинающим";
Текущий архив: 2006.09.17;
Скачать: [xml.tar.bz2];
ВнизЗвук Найти похожие ветки
← →
batya17 © (2006-08-26 04:33) [0]Как воспроизвести звук wav, mp3 без команента MediaPlayer.
← →
PSPF2003 © (2006-08-26 11:11) [1]uses
mmsystem;
PlaySound("ClickSnd.wav",0,SND_ASYNC)
← →
DprYg © (2006-08-26 12:02) [2]У меня так mp3 не играет. А вот так играет
procedure SendMCICommand(Cmd: string);
var
RetVal: Integer;
ErrMsg: array[0..254] of char;
begin
RetVal := mciSendString(PChar(Cmd), nil, 0, 0);
if RetVal <> 0 then
begin
mciGetErrorString(RetVal, ErrMsg, 255);
MessageDlg(StrPas(ErrMsg), mtError, [mbOK], 0);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
SendMCICommand("open waveaudio shareable");
SendMCICommand("play "D:\cinematic_1.mp3"");
SendMCICommand("close waveaudio");
end;
А вообще посмотри MSDN. Может там что-то по этому поводу написано.
← →
DprYg © (2006-08-26 12:02) [3]Само собой, uses MMSystem
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.09.17;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.041 c