LUA调用Windows下的DLL

require 'alien'
local user = alien.load 'user32.dll'
 
-- these are the API calls needed. Note two NB things:
-- (1) functions dealing with text ending with 'A' are for ASCII
-- (2) need to specify abi to get proper __stdcall
user.FindWindowA:types {"string","string",abi="stdcall"}
user.GetWindowTextA:types {"int","string","int",abi="stdcall"}
user.GetClassNameA:types{"int","string","int",abi="stdcall"}
 
find = user.FindWindowA
gettext = user.GetWindowTextA
getclass = user.GetClassNameA
 
local mydll = alien.load "MyLuaDLL.dll"
mydll.callme:types{"int","string","int",abi="stdcall"}
callme = mydll.callme
 
t1 = alien.buffer(50)
callme(2, t1, 50);
print("callme=".. t1:tostring());

extern "C"
{
#include "lua.h"
#include "lualib.h"
#include "lauxlib.h"
}
 
//不需要参数
extern "C" int lua_Nokia_Open(lua_State* L)
{
double dRet = Nokia_Open();
lua_pushnumber(L, dRet);
return 1;
}
 
struct luaL_reg lrLibs[] =
{
{ "lua_Nokia_Open", lua_Nokia_Open },
{ NULL, NULL }  /* sentinel */
};
 
 
 
extern "C" __declspec(dllexport) int  luaopen_luaNokiaSMS(lua_State* L)
{
 
luaL_register( L, "luaNokiaSMS", lrLibs );
return 0;
}