#include <windows.h>
#include <mmsystem.h>
/*
 // #include <stdbool.h>
 #define bool   _Bool
 #define true   1
 #define false   0
*/
#include "lua.h"
#include "lualib.h"
#include "lauxlib.h"

/*
// Стандартная точка входа для DLL
bool APIENTRY DllMain(HANDLE hModule, DWORD  ul_reason_for_call, LPVOID lpReserved)
{ return true;
}
*/

static int forLua_mciSendString(lua_State *L)
{ mciSendString("CLOSE QUIK_MP3", NULL, 0, NULL);
  mciSendString(lua_tostring(L, 1), NULL, 0, NULL);
  mciSendString("PLAY QUIK_MP3", NULL, 0, NULL);
  return 0;
}

static int forLua_MessageBeep(lua_State *L)
{ MessageBeep(lua_tointeger(L, 1));
  return 0;
}
   
// список реализованных в dll пользовательских функций
static struct luaL_Reg ls_lib[] =
{ {"mciSendString", forLua_mciSendString},
  {"MessageBeep", forLua_MessageBeep},
  {NULL, NULL}
};

// Имя dll должно быть playsnddll, как написано ниже!
__declspec(dllexport) int luaopen_playsnddll(lua_State *L)
{ luaL_newlib(L, ls_lib);
  return 1;
}

-- Предполагается, что эта dll лежит в подпапке "скрипты" папки Quik
package.cpath =  package.cpath .. ';' .. getWorkingFolder() .. '\\скрипты' .. '\\playsnddll.dll'
local playsnddll = require('playsnddll')

-- Эту функцию можно удалить и вызывать напрямую playsnddll.mciSendString
local function PlaySoundFile(file_name)
 playsnddll.mciSendString('OPEN "' .. file_name .. '" TYPE MpegVideo ALIAS QUIK_MP3')
end

function main()
 playsnddll.MessageBeep(0x10)
-- playsnddll.MessageBeep(0)
 PlaySoundFile('C:\\Windows\\Media\\chord.wav')
 playsnddll.mciSendString('OPEN "' .. 'C:\\Windows\\Media\\ringout.wav' .. '" TYPE MpegVideo ALIAS QUIK_MP3')
-- PlaySoundFile('C:\\Windows\\Media\\Windows Hardware Fail.wav')
-- PlaySoundFile('C:\\Windows\\Media\\Windows Hardware Insert.wav')
-- PlaySoundFile('C:\\Windows\\Media\\Windows Error.wav')
-- PlaySoundFile('C:\\Windows\\Media\\Windows Message Nudge.wav')
end