TMikMod/MainFmx.cpp at master · Crayon2000/TMikMod · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
//---------------------------------------------------------------------------
#include <fmx.h>
#pragma hdrstop

#include "MainFmx.h"
#include "MikMod.h"
//---------------------------------------------------------------------------
#if defined(_WINDOWS_)
#pragma comment(lib, "TMikModLib")
#define MODULEDRIVER TModuleDriver::Windows
#elif defined(__ANDROID__)
#define MODULEDRIVER TModuleDriver::OpenSLES
#else
#pragma comment(lib, "TMikModLib")
#define MODULEDRIVER TModuleDriver::MacOSX
#endif

#pragma package(smart_init)
#pragma resource "*.fmx"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner), FMikMod(NULL)
{
    try
    {
        FMikMod = new TMikMod(MODULEDRIVER);
        //FMikMod->LoadFromFile("E:\\Musique\\MOD\\A\\aaaahhh.mod", 32);
        FMikMod->LoadFromResourceName((NativeUInt)HInstance, "MOD_MUSIC", 32);
        FMikMod->Start();
    }
    catch(...)
    {
    }
}
//---------------------------------------------------------------------------
__fastcall TForm1::~TForm1()
{
    delete FMikMod;
}
//---------------------------------------------------------------------------