Midi-Dateien abspielen (ohne MP)

[d3g]

Wichtig ist das Schlißen des Geräts:

Code:

uses 
  MMSystem; 

type
  TForm1 = class(TForm)
  private
    procedure MMMCINotify(var Msg: TMessage); message MM_MCINOTIFY;
  // ...
  end;

procedure TForm1.Button1Click; 
const 
  FileName = 'C:\YourFile.mid'; 
begin 
  MCISendString(PChar('play ' + FileName + ' notify alias sound'), nil, 0, Handle); 
end;

procedure TForm1.MMMCINotify(var Msg: TMessage);
begin
  MCISendString('close sound', nil, 0, 0);
end;

MfG,
d3g