Как играть MIDI без медиаплеера

Delphi , Мультимедиа , Видео

Автор: http://www.swissdelphicenter.ch

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;

Статья Как играть MIDI без медиаплеера раздела Мультимедиа Видео может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: Главная :: Видео ::