Midi - tocando sem usar o midiaplayer

Top  Previous  Next

uses 

  MMSystem; 

 

procedure TForm1.Button1Click; 

const 

  FileName = 'C:\YourFile.mid'

begin 

  MCISendString(PChar('play ' + FileName), nil, 00); 

end