MIDI-Hintergrundmusik in Delphi-Anwendungen abspielen lassen

[hathor]

uses MMSystem...

Delphi-Quellcode:

procedure TForm1.ButtonClick(Sender: TObject);
var FN : String;
begin
FN:='D:\Info.mid'; // oder *.mp3
MCISendString(PChar('play ' + FN), nil, 0, 0);
end;