Delphi - база знаний

   врачи офтальмологического центра yourmed, it. | клей forbo универсальный дисперсионный клей 525 eurosafe basic 20кг, n. |       

Как играть MIDI без медиаплеера?


Как играть MIDI без медиаплеера?




uses 
  MMSystem; 

// Play Midi 
procedure TForm1.Button1Click; 
const 
  FileName = 'C:\YourFile.mid'; 
begin 
  MCISendString(PChar('play ' + FileName), nil, 0, 0); 


end

// Stop Midi 
procedure TForm1.Button1Click; 
const 
  FileName = 'C:\YourFile.mid'; 
begin 
  MCISendString(PChar('stop ' + FileName), nil, 0, 0); 
end

Взято с сайта



Содержание раздела