Показать сообщение отдельно
  #15  
Старый 02.11.2016, 14:14
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Извнс, увж. кол., но всёже bass это искуситель, таскать с собой чужой байткод - это зло, а чем обычный MAPI MCI провинился, какова задача, может можно простыми оськиными прибамбасасми обойтись, типа
Код:
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 "C:\1.wav"'); 
SendMCICommand('play "C:\2.wav"'); 
SendMCICommand('close waveaudio'); 
end;
крутятся два звука одновременно
Ответить с цитированием