1-й способ
Подключаешь
#include <mmsystem.h>
В заголовочном файле:
HWND MCIHwnd;
=== Цитиpyю файл Windows Clipboard ===
void __fastcall TFMain::PlayMIDI()
{
if (MCIHwnd) return;
if (bNoMusic) return;
......................
//Play MIDI:
MCIHwnd = MCIWndCreate(Application->Handle, HInstance, NULL, "el.mid");
MCIWndPlay(MCIHwnd);
}
=== Конец цитаты ===
=== Цитиpyю файл Windows Clipboard ===
void __fastcall TFMain::FormClose(TObject *Sender, TCloseAction &Action)
{
//Destroy MIDI:
if (MCIHwnd) MCIWndDestroy(MCIHwnd); MCIHwnd = NULL;
}
=== Конец цитаты ===
Evgeniy Buyvis 2:5036/10.53
2-й способ
#include <mmsystem.h>
mciSendString("open anny.mid type sequencer alias MUSIC", NULL, 0, 0);
mciSendString("play MUSIC from 0", NULL, 0, 0);
Valeriy Filchenkov 2:5045/78.78
Предыдущий вопрос
|
|
Следующий вопрос
источник
by jenyok
|
