[DELPHI] - Using MIDI Files

[Madboy]

uses
MMSystem;

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

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