>>677
mciSendString(PChar('open ' + 'Hoge.mid' + ' type sequencer alias midifile'), nil, 0, 0);
mciSendString(PChar('play midifile'), nil, 0, 0);
mciSendString(PChar('stop midifile'), nil, 0, 0);
mciSendString(PChar('close midifile'), nil, 0, 0);

MediaPlayer1.FileName := 'Hoge.mp3';
MediaPlayer1.Open;
Mediaplayer1.Play;
MediaPlayer1.Stop;
MediaPlayer1.Notify := False;
MediaPlayer1.Close;