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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
|
#include "stdafx.h"
typedef int(__stdcall *MSGBOXAAPI)(IN HWND hWnd, IN LPCSTR lpText, IN LPCSTR lpCaption, IN UINT uType, IN WORD wLanguageId, IN DWORD dwMilliseconds);
typedef int(__stdcall *MSGBOXWAPI)(IN HWND hWnd, IN LPCWSTR lpText, IN LPCWSTR lpCaption, IN UINT uType, IN WORD wLanguageId, IN DWORD dwMilliseconds);
int MessageBoxTimeoutA(IN HWND hWnd, IN LPCSTR lpText, IN LPCSTR lpCaption, IN UINT uType, IN WORD wLanguageId, IN DWORD dwMilliseconds);
int MessageBoxTimeoutW(IN HWND hWnd, IN LPCWSTR lpText, IN LPCWSTR lpCaption, IN UINT uType, IN WORD wLanguageId, IN DWORD dwMilliseconds);
#ifdef UNICODE
#define MessageBoxTimeout MessageBoxTimeoutW
#else
#define MessageBoxTimeout MessageBoxTimeoutA
#endif
#define MB_TIMEDOUT 32000
int MessageBoxTimeoutA(HWND hWnd, LPCSTR lpText, LPCSTR lpCaption, UINT uType, WORD wLanguageId, DWORD dwMilliseconds)
{
static MSGBOXAAPI MsgBoxTOA = NULL;
if (!MsgBoxTOA)
{
if (HMODULE hUser32 = GetModuleHandle(_T("user32.dll")))
{
MsgBoxTOA = (MSGBOXAAPI)GetProcAddress(hUser32, "MessageBoxTimeoutA");
FreeLibrary(hUser32);
}
}
if (MsgBoxTOA)
{
return MsgBoxTOA(hWnd, lpText, lpCaption, uType, wLanguageId, dwMilliseconds);
}
return MessageBoxA(hWnd, lpText, lpCaption, uType);
}
int MessageBoxTimeoutW(HWND hWnd, LPCWSTR lpText, LPCWSTR lpCaption, UINT uType, WORD wLanguageId, DWORD dwMilliseconds)
{
static MSGBOXWAPI MsgBoxTOW = NULL;
if (!MsgBoxTOW)
{
if (HMODULE hUser32 = GetModuleHandle(_T("user32.dll")))
{
MsgBoxTOW = (MSGBOXWAPI)GetProcAddress(hUser32, "MessageBoxTimeoutW");
FreeLibrary(hUser32);
}
}
if (MsgBoxTOW)
{
return MsgBoxTOW(hWnd, lpText, lpCaption, uType, wLanguageId, dwMilliseconds);
}
return MessageBoxW(hWnd, lpText, lpCaption, uType);
}
static int lua_MessageBox(lua_State *L)
{
HWND hwnd = (HWND)lua_touserdata(L, 1);
ptrT text(mir_utf8decodeT(lua_tostring(L, 2)));
ptrT caption(mir_utf8decodeT(lua_tostring(L, 3)));
UINT flags = lua_tointeger(L, 4);
LANGID langId = GetUserDefaultUILanguage();
DWORD timeout = luaL_optinteger(L, 5, 0xFFFFFFFF);
int res = ::MessageBoxTimeout(hwnd, text, caption, flags, langId, timeout);
lua_pushinteger(L, res);
return 1;
}
static int lua_ShellExecute(lua_State *L)
{
ptrT command(mir_utf8decodeT(lua_tostring(L, 1)));
ptrT file(mir_utf8decodeT(lua_tostring(L, 2)));
ptrT args(mir_utf8decodeT(lua_tostring(L, 3)));
int flags = lua_tointeger(L, 4);
::ShellExecute(NULL, command, file, args, NULL, flags);
return 0;
}
static int lua_GetIniValue(lua_State *L)
{
ptrT path(mir_utf8decodeT(luaL_checkstring(L, 1)));
ptrT section(mir_utf8decodeT(luaL_checkstring(L, 2)));
ptrT key(mir_utf8decodeT(luaL_checkstring(L, 3)));
if (lua_isinteger(L, 4))
{
int default = lua_tointeger(L, 4);
UINT res = ::GetPrivateProfileInt(section, key, default, path);
lua_pushinteger(L, res);
return 1;
}
ptrT default(mir_utf8decodeT(lua_tostring(L, 4)));
TCHAR value[MAX_PATH] = { 0 };
if (!::GetPrivateProfileString(section, key, default, value, _countof(value), path))
{
lua_pushvalue(L, 4);
}
ptrA res(mir_utf8encodeT(value));
lua_pushstring(L, res);
return 1;
}
static int lua_SetIniValue(lua_State *L)
{
ptrT path(mir_utf8decodeT(luaL_checkstring(L, 1)));
ptrT section(mir_utf8decodeT(luaL_checkstring(L, 2)));
ptrT key(mir_utf8decodeT(luaL_checkstring(L, 3)));
ptrT value(mir_utf8decodeT(lua_tostring(L, 4)));
bool res = ::WritePrivateProfileString(section, key, value, path) != 0;
lua_pushboolean(L, res);
return 1;
}
static luaL_Reg winApi[] =
{
{ "MessageBox", lua_MessageBox },
{ "GetIniValue", lua_GetIniValue },
{ "SetIniValue", lua_SetIniValue },
{ "ShellExecute", lua_ShellExecute },
{ NULL, NULL }
};
LUAMOD_API int luaopen_m_windows(lua_State *L)
{
luaL_newlib(L, winApi);
return 1;
}
|
