Цитата:
|
Сообщение от Alegun
"...несколько команд из MMSystem...":
Код:
uses
MMSystem;
procedure TForm1.Button1Click(Sender: TObject);
begin
mciSendString(PChar('play "Звук1.wav"'), nil, 0, 0);
mciSendString(PChar('play "Звук2.wav"'), nil, 0, 0);
mciSendString(PChar('close waveaudio'), nil, 0, 0);
end; |
Оказывается работает. Но похоже что midi файлы он не может читать одновременно, я слышу только один midi. А mp3 файлы работают вместе. Можно ли воспроизводить несколько midi?