...play a MIDI file without using TMediaPlayer?

Author: Thomas Stutz

Category: Multimedia

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;

 

printed from
www.swissdelphicenter.ch
developers knowledge base