Главная страницаОбратная связьКарта сайта

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

Автор: 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;

Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Как играть MIDI без медиаплеера", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info