diff options
| author | MikalaiR <nikolay.romanovich@narod.ru> | 2016-01-06 13:20:49 +0000 |
|---|---|---|
| committer | MikalaiR <nikolay.romanovich@narod.ru> | 2016-01-06 13:20:49 +0000 |
| commit | 31990269da1ceef57e7296c76a255ee664f0b2e1 (patch) | |
| tree | 19dd788bf4571ddcfaebda00a74a1d7f94b04344 /plugins/MirLua | |
| parent | df60eb962de667a47557efe76f7430b1c32eef5c (diff) | |
MirLua: winapi module extended part 2
git-svn-id: http://svn.miranda-ng.org/main/trunk@16033 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
Diffstat (limited to 'plugins/MirLua')
| -rw-r--r-- | plugins/MirLua/src/m_windows.cpp | 2403 |
1 files changed, 1289 insertions, 1114 deletions
diff --git a/plugins/MirLua/src/m_windows.cpp b/plugins/MirLua/src/m_windows.cpp index bd2b25aab5..5dc231cc6a 100644 --- a/plugins/MirLua/src/m_windows.cpp +++ b/plugins/MirLua/src/m_windows.cpp @@ -370,14 +370,13 @@ static int lua_DeleteRegValue(lua_State *L) -/************************************************/
-
/****h* Win32/luaw32.c [$Revision: 13 $]
* NAME
* luaw32
* COPYRIGHT
* (C) 2004-2007 Daniel Quintela. All rights reserved.
* http://www.soongsoft.com mailto:dq@soongsoft.com
+* (C) 2013 http://quik2dde.ru
* LICENSE
* Permission is hereby granted, free of charge, to any person obtaining
* a copy of this software and associated documentation files (the
@@ -411,21 +410,22 @@ static int lua_DeleteRegValue(lua_State *L) * 2004-09-01 12:20:00 Danilo Tuler GetTempPath added.
* 2006-08-25 08:20:00 Denis Povshedny QueryServiceConfig & StartService added.
* 2007-04-15 10:31:00 Daniel Quintela CreateMutex parameter list fixed.
+* 2013-10-27 00:00:15 www.quik2dde.ru Linking with qlia.dll
*
* NOTES
*
***/
-//#include <compat-5.1.h>
-
+#include <windows.h>
#include <stddef.h>
#include <process.h>
#include <direct.h>
-#include <shlwapi.h>
#undef Translate
+#include <shlwapi.h>
#include <shlobj.h>
+
#include <time.h>
#include <errno.h>
@@ -435,222 +435,296 @@ static int lua_DeleteRegValue(lua_State *L) #define MYP2HCAST (long)
-
/* Registered functions */
static int global_ShellOpen(lua_State *L) {
- long lrc;
- const char *fileref = luaL_checkstring( L, 1);
+ long lrc;
+ const char *fileref = luaL_checkstring(L, 1);
- lrc = ( long) ShellExecuteA( NULL, "open", fileref, NULL, NULL, SW_SHOW);
+ lrc = (long)ShellExecuteA(NULL, "open", fileref, NULL, NULL, SW_SHOW);
- if( lrc > 32)
- lrc = 0;
+ if (lrc > 32)
+ lrc = 0;
- lua_pushnumber( L, lrc);
+ lua_pushnumber(L, lrc);
- return( 1);
+ return(1);
}
static int global_FindWindow(lua_State *L) {
- long lrc;
- const char *cname = luaL_checkstring( L, 1);
- const char *wname = luaL_checkstring( L, 2);
+ long lrc;
+ const char *cname = luaL_checkstring(L, 1);
+ const char *wname = luaL_checkstring(L, 2);
+
+ lrc = (long)FindWindowA(cname[0] ? cname : NULL,
+ wname[0] ? wname : NULL);
+
+ lua_pushnumber(L, lrc);
+
+ return(1);
+}
+
+static int global_FindWindowEx(lua_State *L) {
+ const HWND parent = (HWND)(int)luaL_checknumber(L, 1);
+ const HWND childaft = (HWND)(int)luaL_checknumber(L, 2);
+ const char *cname = luaL_checkstring(L, 3);
+ const char *wname = luaL_checkstring(L, 4);
+
+ long lrc = (long)FindWindowExA(parent, childaft,
+ cname[0] ? cname : NULL,
+ wname[0] ? wname : NULL);
+
+ lua_pushnumber(L, lrc);
+
+ return(1);
+}
+
+static int global_SetWindowText(lua_State *L) {
+ const HWND hwnd = (HWND)(int)luaL_checknumber(L, 1);
+ const char *text = luaL_checkstring(L, 2);
+
+ BOOL rc = SetWindowTextA(hwnd, text);
+
+ lua_pushnumber(L, rc);
+
+ return(1);
+}
+
+static int global_SetFocus(lua_State *L) {
+ const HWND hwnd = (HWND)(int)luaL_checknumber(L, 1);
+ HWND rc = SetFocus(hwnd);
+ lua_pushinteger(L, (int)rc);
+
+ return(1);
+}
+
+// Lua: returns nil when error occurred
+static int global_GetWindowText(lua_State *L) {
+ const HWND hwnd = (HWND)(int)luaL_checknumber(L, 1);
+ char buf[2048];
- lrc = ( long) FindWindowA( cname[0] ? cname : NULL,
- wname[0] ? wname : NULL);
+ int rc = GetWindowTextA(hwnd, buf, sizeof(buf));
- lua_pushnumber( L, lrc);
+ if (rc > 0)
+ lua_pushstring(L, buf);
+ else if (GetLastError() == ERROR_SUCCESS)
+ lua_pushstring(L, "");
+ else
+ lua_pushnil(L);
- return( 1);
+ return(1);
+}
+
+// Lua: returns left,top,right,bottom when successfully
+// or
+// returns nil when error occurred
+static int global_GetWindowRect(lua_State *L) {
+ const HWND hwnd = (HWND)(int)luaL_checknumber(L, 1);
+ RECT rect;
+
+ BOOL rc = GetWindowRect(hwnd, &rect);
+
+ if (!rc) {
+ lua_pushnil(L);
+ return(1);
+ }
+ else {
+ lua_pushinteger(L, rect.left);
+ lua_pushinteger(L, rect.top);
+ lua_pushinteger(L, rect.right);
+ lua_pushinteger(L, rect.bottom);
+ return(4);
+ }
}
struct S_HKT {
- HWND hwnd;
- int id;
- UINT mdfs;
- UINT vk;
- UINT umsg;
- WPARAM wparam;
- LPARAM lparam;
+ HWND hwnd;
+ int id;
+ UINT mdfs;
+ UINT vk;
+ UINT umsg;
+ WPARAM wparam;
+ LPARAM lparam;
};
-static void HotKeyThread( void *v) {
- struct S_HKT *s = ( struct S_HKT *) v;
- MSG msg;
+static void HotKeyThread(void *v) {
+ struct S_HKT *s = (struct S_HKT *) v;
+ MSG msg;
- RegisterHotKey( NULL, s->id, s->mdfs, s->vk);
+ RegisterHotKey(NULL, s->id, s->mdfs, s->vk);
- while( GetMessage( &msg, NULL, 0, 0) > 0)
- if( msg.message == WM_HOTKEY)
- PostMessage( s->hwnd, s->umsg, s->wparam, s->lparam);
+ while (GetMessage(&msg, NULL, 0, 0) > 0)
+ if (msg.message == WM_HOTKEY)
+ PostMessage(s->hwnd, s->umsg, s->wparam, s->lparam);
}
static int global_RegisterHotKey(lua_State *L) {
- struct S_HKT *s;
-
- s = (S_HKT*)mir_alloc( sizeof( struct S_HKT));
- if( s == NULL)
- lua_pushnumber( L, -1);
- else {
- long hwnd = MYP2HCAST luaL_checknumber( L, 1);
- s->hwnd = ( HWND) hwnd;
- s->id = ( int) luaL_checknumber( L, 2);
- s->mdfs = ( UINT) luaL_checknumber( L, 3);
- s->vk = ( UINT) luaL_checknumber( L, 4);
- s->umsg = ( UINT) luaL_checknumber( L, 5);
- s->wparam = ( WPARAM) luaL_checknumber( L, 6);
- s->lparam = ( LPARAM) luaL_checknumber( L, 7);
-
- if( _beginthread( HotKeyThread, 0, s) < 0)
- lua_pushnumber( L, -2);
- else
- lua_pushnumber( L, 0);
- }
-
- return( 1);
+ struct S_HKT *s;
+
+ s = (S_HKT*)mir_alloc(sizeof(struct S_HKT));
+ if (s == NULL)
+ lua_pushnumber(L, -1);
+ else {
+ long hwnd = MYP2HCAST luaL_checknumber(L, 1);
+ s->hwnd = (HWND)hwnd;
+ s->id = (int)luaL_checknumber(L, 2);
+ s->mdfs = (UINT)luaL_checknumber(L, 3);
+ s->vk = (UINT)luaL_checknumber(L, 4);
+ s->umsg = (UINT)luaL_checknumber(L, 5);
+ s->wparam = (WPARAM)luaL_checknumber(L, 6);
+ s->lparam = (LPARAM)luaL_checknumber(L, 7);
+
+ if (_beginthread(HotKeyThread, 0, s) < 0)
+ lua_pushnumber(L, -2);
+ else
+ lua_pushnumber(L, 0);
+ }
+
+ return(1);
}
static int global_SetForegroundWindow(lua_State *L) {
- long hwnd = MYP2HCAST luaL_checknumber( L, 1);
+ long hwnd = MYP2HCAST luaL_checknumber(L, 1);
- lua_pushnumber( L, SetForegroundWindow( ( HWND) hwnd));
+ lua_pushnumber(L, SetForegroundWindow((HWND)hwnd));
- return( 1);
+ return(1);
}
static int global_PostMessage(lua_State *L) {
- BOOL rc;
- long hwnd = MYP2HCAST luaL_checknumber( L, 1);
- UINT msg = ( UINT) luaL_checknumber( L, 2);
- WPARAM wparam = ( WPARAM) luaL_checknumber( L, 3);
- LPARAM lparam = ( LPARAM) luaL_checknumber( L, 4);
+ BOOL rc;
+ long hwnd = MYP2HCAST luaL_checknumber(L, 1);
+ UINT msg = (UINT)luaL_checknumber(L, 2);
+ WPARAM wparam = (WPARAM)luaL_checknumber(L, 3);
+ LPARAM lparam = (LPARAM)luaL_checknumber(L, 4);
- rc = PostMessage( ( HWND) hwnd, msg, wparam, lparam);
+ rc = PostMessage((HWND)hwnd, msg, wparam, lparam);
- lua_pushnumber( L, rc);
+ lua_pushnumber(L, rc);
- return( 1);
+ return(1);
}
static int global_PostThreadMessage(lua_State *L) {
- BOOL rc;
- DWORD tid = ( DWORD) luaL_checknumber( L, 1);
- UINT msg = ( UINT) luaL_checknumber( L, 2);
- WPARAM wparam = ( WPARAM) luaL_checknumber( L, 3);
- LPARAM lparam = ( LPARAM) luaL_checknumber( L, 4);
+ BOOL rc;
+ DWORD tid = (DWORD)luaL_checknumber(L, 1);
+ UINT msg = (UINT)luaL_checknumber(L, 2);
+ WPARAM wparam = (WPARAM)luaL_checknumber(L, 3);
+ LPARAM lparam = (LPARAM)luaL_checknumber(L, 4);
- rc = PostThreadMessage( tid, msg, wparam, lparam);
+ rc = PostThreadMessage(tid, msg, wparam, lparam);
- lua_pushnumber( L, rc);
+ lua_pushnumber(L, rc);
- return( 1);
+ return(1);
}
static int global_GetMessage(lua_State *L) {
- MSG msg;
- BOOL rc;
- long lwnd = MYP2HCAST luaL_optinteger( L, 1, 0);
- UINT mfmin = ( UINT) luaL_optinteger( L, 2, 0);
- UINT mfmax = ( UINT) luaL_optinteger( L, 3, 0);
-
- rc = GetMessage( &msg, ( HWND) lwnd, mfmin, mfmax);
-
- lua_pushnumber( L, rc);
- if( rc) {
- lua_pushnumber( L, ( long) msg.hwnd);
- lua_pushnumber( L, msg.message);
- lua_pushnumber( L, msg.wParam);
- lua_pushnumber( L, msg.lParam);
- lua_pushnumber( L, msg.time);
- lua_pushnumber( L, msg.pt.x);
- lua_pushnumber( L, msg.pt.y);
- } else {
- lua_pushnil( L);
- lua_pushnil( L);
- lua_pushnil( L);
- lua_pushnil( L);
- lua_pushnil( L);
- lua_pushnil( L);
- lua_pushnil( L);
- }
-
- return( 8);
+ MSG msg;
+ BOOL rc;
+ long lwnd = MYP2HCAST luaL_optinteger(L, 1, 0);
+ UINT mfmin = (UINT)luaL_optinteger(L, 2, 0);
+ UINT mfmax = (UINT)luaL_optinteger(L, 3, 0);
+
+ rc = GetMessage(&msg, (HWND)lwnd, mfmin, mfmax);
+
+ lua_pushnumber(L, rc);
+ if (rc) {
+ lua_pushnumber(L, (long)msg.hwnd);
+ lua_pushnumber(L, msg.message);
+ lua_pushnumber(L, msg.wParam);
+ lua_pushnumber(L, msg.lParam);
+ lua_pushnumber(L, msg.time);
+ lua_pushnumber(L, msg.pt.x);
+ lua_pushnumber(L, msg.pt.y);
+ }
+ else {
+ lua_pushnil(L);
+ lua_pushnil(L);
+ lua_pushnil(L);
+ lua_pushnil(L);
+ lua_pushnil(L);
+ lua_pushnil(L);
+ lua_pushnil(L);
+ }
+
+ return(8);
}
static int global_PeekMessage(lua_State *L) {
- MSG msg;
- BOOL rc;
- long lwnd = MYP2HCAST luaL_optinteger( L, 1, 0);
- UINT mfmin = ( UINT) luaL_optinteger( L, 2, 0);
- UINT mfmax = ( UINT) luaL_optinteger( L, 3, 0);
- UINT rmmsg = ( UINT) luaL_optinteger( L, 4, PM_NOREMOVE);
-
- rc = PeekMessage( &msg, ( HWND) lwnd, mfmin, mfmax, rmmsg);
-
- lua_pushnumber( L, rc);
- if( rc) {
- lua_pushnumber( L, ( long) msg.hwnd);
- lua_pushnumber( L, msg.message);
- lua_pushnumber( L, msg.wParam);
- lua_pushnumber( L, msg.lParam);
- lua_pushnumber( L, msg.time);
- lua_pushnumber( L, msg.pt.x);
- lua_pushnumber( L, msg.pt.y);
- } else {
- lua_pushnil( L);
- lua_pushnil( L);
- lua_pushnil( L);
- lua_pushnil( L);
- lua_pushnil( L);
- lua_pushnil( L);
- lua_pushnil( L);
- }
-
- return( 8);
+ MSG msg;
+ BOOL rc;
+ long lwnd = MYP2HCAST luaL_optinteger(L, 1, 0);
+ UINT mfmin = (UINT)luaL_optinteger(L, 2, 0);
+ UINT mfmax = (UINT)luaL_optinteger(L, 3, 0);
+ UINT rmmsg = (UINT)luaL_optinteger(L, 4, PM_NOREMOVE);
+
+ rc = PeekMessage(&msg, (HWND)lwnd, mfmin, mfmax, rmmsg);
+
+ lua_pushnumber(L, rc);
+ if (rc) {
+ lua_pushnumber(L, (long)msg.hwnd);
+ lua_pushnumber(L, msg.message);
+ lua_pushnumber(L, msg.wParam);
+ lua_pushnumber(L, msg.lParam);
+ lua_pushnumber(L, msg.time);
+ lua_pushnumber(L, msg.pt.x);
+ lua_pushnumber(L, msg.pt.y);
+ }
+ else {
+ lua_pushnil(L);
+ lua_pushnil(L);
+ lua_pushnil(L);
+ lua_pushnil(L);
+ lua_pushnil(L);
+ lua_pushnil(L);
+ lua_pushnil(L);
+ }
+
+ return(8);
}
static int global_ReplyMessage(lua_State *L) {
- BOOL rc;
- LRESULT result = ( LRESULT) luaL_checknumber( L, 1);
+ BOOL rc;
+ LRESULT result = (LRESULT)luaL_checknumber(L, 1);
- rc = ReplyMessage( result);
+ rc = ReplyMessage(result);
- lua_pushboolean( L, rc);
+ lua_pushboolean(L, rc);
- return( 1);
+ return(1);
}
static int global_DispatchMessage(lua_State *L) {
- MSG msg;
- LRESULT rc;
- long hwnd = MYP2HCAST luaL_checknumber( L, 1);
+ MSG msg;
+ LRESULT rc;
+ long hwnd = MYP2HCAST luaL_checknumber(L, 1);
- msg.hwnd = ( HWND) hwnd;
- msg.message = ( UINT) luaL_checknumber( L, 2);
- msg.wParam = ( WPARAM) luaL_checknumber( L, 3);
- msg.lParam = ( LPARAM) luaL_checknumber( L, 4);
- msg.time = ( DWORD) luaL_checknumber( L, 5);
- msg.pt.x = ( LONG) luaL_checknumber( L, 6);
- msg.pt.y = ( LONG) luaL_checknumber( L, 7);
+ msg.hwnd = (HWND)hwnd;
+ msg.message = (UINT)luaL_checknumber(L, 2);
+ msg.wParam = (WPARAM)luaL_checknumber(L, 3);
+ msg.lParam = (LPARAM)luaL_checknumber(L, 4);
+ msg.time = (DWORD)luaL_checknumber(L, 5);
+ msg.pt.x = (LONG)luaL_checknumber(L, 6);
+ msg.pt.y = (LONG)luaL_checknumber(L, 7);
- rc = DispatchMessage( &msg);
+ rc = DispatchMessage(&msg);
- lua_pushnumber( L, rc);
+ lua_pushnumber(L, rc);
- return( 1);
+ return(1);
}
static int global_SetTopmost(lua_State *L) {
- BOOL rc;
- long hwnd = MYP2HCAST luaL_checknumber( L, 1);
+ BOOL rc;
+ long hwnd = MYP2HCAST luaL_checknumber(L, 1);
- rc = SetWindowPos( ( HWND) hwnd, HWND_TOPMOST, 0, 0, 0, 0,
- SWP_NOMOVE | SWP_NOSIZE);
+ rc = SetWindowPos((HWND)hwnd, HWND_TOPMOST, 0, 0, 0, 0,
+ SWP_NOMOVE | SWP_NOSIZE);
- lua_pushnumber( L, rc);
+ lua_pushnumber(L, rc);
- return( 1);
+ return(1);
}
/****if* luaw32/global_GetLastError
@@ -665,9 +739,9 @@ static int global_SetTopmost(lua_State *L) { static int global_GetLastError(lua_State *L) {
- lua_pushnumber( L, GetLastError());
+ lua_pushnumber(L, GetLastError());
- return( 1);
+ return(1);
}
/***/
@@ -685,300 +759,314 @@ static int global_GetLastError(lua_State *L) { */
static int global_CloseHandle(lua_State *L) {
- long h = MYP2HCAST luaL_checknumber( L, 1);
+ long h = MYP2HCAST luaL_checknumber(L, 1);
- lua_pushboolean( L, CloseHandle( ( HANDLE) h));
+ lua_pushboolean(L, CloseHandle((HANDLE)h));
- return( 1);
+ return(1);
}
/***/
static int global_CreateEvent(lua_State *L) {
- SECURITY_ATTRIBUTES sa;
- BOOL mr = ( BOOL) luaL_checknumber( L, 2);
- BOOL is = ( BOOL) luaL_checknumber( L, 3);
- const char *name;
- long h;
-
- sa.nLength = sizeof( sa);
- sa.lpSecurityDescriptor = NULL;
- sa.bInheritHandle = FALSE;
-
- if( lua_istable( L, 1)) {
- lua_pushstring( L, "bInheritHandle");
- lua_gettable( L, 1);
- if( !lua_isnil( L, -1))
- sa.bInheritHandle = ( BOOL) luaL_checknumber( L, -1);
- lua_pop( L, 1);
- }
- name = lua_tostring( L, 4);
+ SECURITY_ATTRIBUTES sa;
+ BOOL mr = (BOOL)luaL_checknumber(L, 2);
+ BOOL is = (BOOL)luaL_checknumber(L, 3);
+ const char *name;
+ long h;
+
+ sa.nLength = sizeof(sa);
+ sa.lpSecurityDescriptor = NULL;
+ sa.bInheritHandle = FALSE;
+
+ if (lua_istable(L, 1)) {
+ lua_pushstring(L, "bInheritHandle");
+ lua_gettable(L, 1);
+ if (!lua_isnil(L, -1))
+ sa.bInheritHandle = (BOOL)luaL_checknumber(L, -1);
+ lua_pop(L, 1);
+ }
+ name = lua_tostring(L, 4);
- h = ( long) CreateEventA( &sa, mr, is, name);
+ h = (long)CreateEventA(&sa, mr, is, name);
- if( h)
- lua_pushnumber( L, h);
- else
- lua_pushnil( L);
+ if (h)
+ lua_pushnumber(L, h);
+ else
+ lua_pushnil(L);
- return( 1);
+ return(1);
}
static int global_OpenEvent(lua_State *L) {
- long h;
- DWORD da = ( DWORD) luaL_checknumber( L, 1);
- BOOL ih = ( BOOL) luaL_checknumber( L, 2);
- const char *name = luaL_checkstring( L, 3);
+ long h;
+ DWORD da = (DWORD)luaL_checknumber(L, 1);
+ BOOL ih = (BOOL)luaL_checknumber(L, 2);
+ const char *name = luaL_checkstring(L, 3);
- h = ( long) OpenEventA( da, ih, name);
+ h = (long)OpenEventA(da, ih, name);
- if( h)
- lua_pushnumber( L, h);
- else
- lua_pushnil( L);
+ if (h)
+ lua_pushnumber(L, h);
+ else
+ lua_pushnil(L);
- return( 1);
+ return(1);
}
static int global_PulseEvent(lua_State *L) {
- long h = MYP2HCAST luaL_checknumber( L, 1);
+ long h = MYP2HCAST luaL_checknumber(L, 1);
- lua_pushnumber( L, PulseEvent( ( HANDLE) h));
+ lua_pushnumber(L, PulseEvent((HANDLE)h));
- return( 1);
+ return(1);
}
static int global_ResetEvent(lua_State *L) {
- long h = MYP2HCAST luaL_checknumber( L, 1);
+ long h = MYP2HCAST luaL_checknumber(L, 1);
- lua_pushnumber( L, ResetEvent( ( HANDLE) h));
+ lua_pushnumber(L, ResetEvent((HANDLE)h));
- return( 1);
+ return(1);
}
static int global_SetEvent(lua_State *L) {
- long h = MYP2HCAST luaL_checknumber( L, 1);
+ long h = MYP2HCAST luaL_checknumber(L, 1);
- lua_pushnumber( L, SetEvent( ( HANDLE) h));
+ lua_pushnumber(L, SetEvent((HANDLE)h));
- return( 1);
+ return(1);
}
static int global_CreateMutex(lua_State *L) {
- SECURITY_ATTRIBUTES sa;
- BOOL io = ( BOOL) luaL_checknumber( L, 2);
- const char *name;
- long h;
-
- sa.nLength = sizeof( sa);
- sa.lpSecurityDescriptor = NULL;
- sa.bInheritHandle = FALSE;
-
- if( lua_istable( L, 1)) {
- lua_pushstring( L, "bInheritHandle");
- lua_gettable( L, 1);
- if( !lua_isnil( L, -1))
- sa.bInheritHandle = ( BOOL) luaL_checknumber( L, -1);
- lua_pop( L, 1);
- }
- name = lua_tostring( L, 3);
+ SECURITY_ATTRIBUTES sa;
+ BOOL io = (BOOL)luaL_checknumber(L, 2);
+ const char *name;
+ long h;
+
+ sa.nLength = sizeof(sa);
+ sa.lpSecurityDescriptor = NULL;
+ sa.bInheritHandle = FALSE;
+
+ if (lua_istable(L, 1)) {
+ lua_pushstring(L, "bInheritHandle");
+ lua_gettable(L, 1);
+ if (!lua_isnil(L, -1))
+ sa.bInheritHandle = (BOOL)luaL_checknumber(L, -1);
+ lua_pop(L, 1);
+ }
+ name = lua_tostring(L, 3);
- h = ( long) CreateMutexA( &sa, io, name);
+ h = (long)CreateMutexA(&sa, io, name);
- if( h)
- lua_pushnumber( L, h);
- else
- lua_pushnil( L);
+ if (h)
+ lua_pushnumber(L, h);
+ else
+ lua_pushnil(L);
- return( 1);
+ return(1);
}
static int global_OpenMutex(lua_State *L) {
- long h;
- DWORD da = ( DWORD) luaL_checknumber( L, 1);
- BOOL ih = ( BOOL) luaL_checknumber( L, 2);
- const char *name = luaL_checkstring( L, 3);
+ long h;
+ DWORD da = (DWORD)luaL_checknumber(L, 1);
+ BOOL ih = (BOOL)luaL_checknumber(L, 2);
+ const char *name = luaL_checkstring(L, 3);
- h = ( long) OpenMutexA( da, ih, name);
+ h = (long)OpenMutexA(da, ih, name);
- if( h)
- lua_pushnumber( L, h);
- else
- lua_pushnil( L);
+ if (h)
+ lua_pushnumber(L, h);
+ else
+ lua_pushnil(L);
- return( 1);
+ return(1);
}
static int global_ReleaseMutex(lua_State *L) {
- long h = MYP2HCAST luaL_checknumber( L, 1);
+ long h = MYP2HCAST luaL_checknumber(L, 1);
- lua_pushnumber( L, ReleaseMutex( ( HANDLE) h));
+ lua_pushnumber(L, ReleaseMutex((HANDLE)h));
- return( 1);
+ return(1);
}
static int global_CreateSemaphore(lua_State *L) {
- SECURITY_ATTRIBUTES sa;
- long ic = ( long) luaL_checknumber( L, 2);
- long mc = ( long) luaL_checknumber( L, 3);
- const char *name;
- long h;
-
- sa.nLength = sizeof( sa);
- sa.lpSecurityDescriptor = NULL;
- sa.bInheritHandle = FALSE;
-
- if( lua_istable( L, 1)) {
- lua_pushstring( L, "bInheritHandle");
- lua_gettable( L, 1);
- if( !lua_isnil( L, -1))
- sa.bInheritHandle = ( BOOL) luaL_checknumber( L, -1);
- lua_pop( L, 1);
- }
- name = lua_tostring( L, 4);
+ SECURITY_ATTRIBUTES sa;
+ long ic = (long)luaL_checknumber(L, 2);
+ long mc = (long)luaL_checknumber(L, 3);
+ const char *name;
+ long h;
+
+ sa.nLength = sizeof(sa);
+ sa.lpSecurityDescriptor = NULL;
+ sa.bInheritHandle = FALSE;
+
+ if (lua_istable(L, 1)) {
+ lua_pushstring(L, "bInheritHandle");
+ lua_gettable(L, 1);
+ if (!lua_isnil(L, -1))
+ sa.bInheritHandle = (BOOL)luaL_checknumber(L, -1);
+ lua_pop(L, 1);
+ }
+ name = lua_tostring(L, 4);
- h = ( long) CreateSemaphoreA( &sa, ic, mc, name);
+ h = (long)CreateSemaphoreA(&sa, ic, mc, name);
- if( h)
- lua_pushnumber( L, h);
- else
- lua_pushnil( L);
+ if (h)
+ lua_pushnumber(L, h);
+ else
+ lua_pushnil(L);
- return( 1);
+ return(1);
}
static int global_OpenSemaphore(lua_State *L) {
- long h;
- DWORD da = ( DWORD) luaL_checknumber( L, 1);
- BOOL ih = ( BOOL) luaL_checknumber( L, 2);
- const char *name = luaL_checkstring( L, 3);
+ long h;
+ DWORD da = (DWORD)luaL_checknumber(L, 1);
+ BOOL ih = (BOOL)luaL_checknumber(L, 2);
+ const char *name = luaL_checkstring(L, 3);
- h = ( long) OpenSemaphoreA( da, ih, name);
+ h = (long)OpenSemaphoreA(da, ih, name);
- if( h)
- lua_pushnumber( L, h);
- else
- lua_pushnil( L);
+ if (h)
+ lua_pushnumber(L, h);
+ else
+ lua_pushnil(L);
- return( 1);
+ return(1);
}
static int global_ReleaseSemaphore(lua_State *L) {
- long pc;
- BOOL brc;
- long h = MYP2HCAST luaL_checknumber( L, 1);
- long rc = ( long) luaL_checknumber( L, 2);
-
- brc = ReleaseSemaphore( ( HANDLE) h, rc, &pc);
- lua_pushnumber( L, brc);
- if( brc)
- lua_pushnumber( L, pc);
- else
- lua_pushnil( L);
+ long pc;
+ BOOL brc;
+ long h = MYP2HCAST luaL_checknumber(L, 1);
+ long rc = (long)luaL_checknumber(L, 2);
+
+ brc = ReleaseSemaphore((HANDLE)h, rc, &pc);
+ lua_pushnumber(L, brc);
+ if (brc)
+ lua_pushnumber(L, pc);
+ else
+ lua_pushnil(L);
- return( 2);
+ return(2);
}
static int global_CreateProcess(lua_State *L) {
- SECURITY_ATTRIBUTES psa;
- SECURITY_ATTRIBUTES tsa;
- PROCESS_INFORMATION pi;
- STARTUPINFOA si;
- BOOL brc;
- char *env;
- const char *an = luaL_optstring( L, 1, NULL);
- const char *cl = luaL_optstring( L, 2, NULL);
- BOOL ih = ( BOOL) luaL_checknumber( L, 5);
- DWORD cf = ( DWORD) luaL_checknumber( L, 6);
- const char *cd = lua_tostring( L, 8);
-
- psa.nLength = sizeof( psa);
- psa.lpSecurityDescriptor = NULL;
- psa.bInheritHandle = FALSE;
- if( lua_istable( L, 3)) {
- lua_pushstring( L, "bInheritHandle");
- lua_gettable( L, 3);
- if( !lua_isnil( L, -1))
- psa.bInheritHandle = ( BOOL) luaL_checknumber( L, -1);
- lua_pop( L, 3);
- }
-
- tsa.nLength = sizeof( tsa);
- tsa.lpSecurityDescriptor = NULL;
- tsa.bInheritHandle = FALSE;
- if( lua_istable( L, 4)) {
- lua_pushstring( L, "bInheritHandle");
- lua_gettable( L, 4);
- if( !lua_isnil( L, -1))
- tsa.bInheritHandle = ( BOOL) luaL_checknumber( L, -1);
- lua_pop( L, 4);
- }
-
- env = NULL;
-
- memset( &si, 0, sizeof( si));
- si.cb = sizeof( si);
- if( lua_istable(L, 7)) {
- lua_pushnil(L);
- while( lua_next(L, 7) != 0) {
- const char *key = luaL_checkstring( L, -2);
- if( !strcmp( key, "lpDesktop")) {
- si.lpDesktop = _strdup( luaL_checkstring( L, -1));
- } else if( !strcmp( key, "lpTitle")) {
- si.lpTitle = _strdup( luaL_checkstring( L, -1));
- } else if( !strcmp( key, "dwX")) {
- si.dwX = ( DWORD) luaL_checknumber( L, -1);
- } else if( !strcmp( key, "dwY")) {
- si.dwY = ( DWORD) luaL_checknumber( L, -1);
- } else if( !strcmp( key, "dwXSize")) {
- si.dwXSize = ( DWORD) luaL_checknumber( L, -1);
- } else if( !strcmp( key, "dwYSize")) {
- si.dwYSize = ( DWORD) luaL_checknumber( L, -1);
- } else if( !strcmp( key, "dwXCountChars")) {
- si.dwXCountChars = ( DWORD) luaL_checknumber( L, -1);
- } else if( !strcmp( key, "dwYCountChars")) {
- si.dwYCountChars = ( DWORD) luaL_checknumber( L, -1);
- } else if( !strcmp( key, "dwFillAttribute")) {
- si.dwFillAttribute = ( DWORD) luaL_checknumber( L, -1);
- } else if( !strcmp( key, "dwFlags")) {
- si.dwFlags = ( DWORD) luaL_checknumber( L, -1);
- } else if( !strcmp( key, "wShowWindow")) {
- si.wShowWindow = ( WORD) luaL_checknumber( L, -1);
- } else if( !strcmp( key, "hStdInput")) {
- long h = ( long) luaL_checknumber( L, -1);
- si.hStdInput = ( HANDLE) h;
- } else if( !strcmp( key, "hStdOutput")) {
- long h = ( long) luaL_checknumber( L, -1);
- si.hStdOutput = ( HANDLE) h;
- } else if( !strcmp( key, "hStdError")) {
- long h = ( long) luaL_checknumber( L, -1);
- si.hStdError = ( HANDLE) h;
- }
- lua_pop(L, 1);
- }
- }
-
-
- brc = CreateProcessA( an, ( char *) cl, &psa, &tsa, ih, cf, env, cd, &si, &pi);
-
- if( si.lpDesktop != NULL)
- mir_free( si.lpDesktop);
- if( si.lpTitle != NULL)
- mir_free( si.lpTitle);
-
- lua_pushnumber( L, brc);
- if( brc) {
- lua_pushnumber( L, ( long) ( pi.hProcess));
- lua_pushnumber( L, ( long) ( pi.hThread));
- lua_pushnumber( L, pi.dwProcessId);
- lua_pushnumber( L, pi.dwThreadId);
- } else {
- lua_pushnil( L);
- lua_pushnil( L);
- lua_pushnil( L);
- lua_pushnil( L);
- }
-
- return( 5);
+ SECURITY_ATTRIBUTES psa;
+ SECURITY_ATTRIBUTES tsa;
+ PROCESS_INFORMATION pi;
+ STARTUPINFOA si;
+ BOOL brc;
+ char *env;
+ const char *an = luaL_optstring(L, 1, NULL);
+ const char *cl = luaL_optstring(L, 2, NULL);
+ BOOL ih = (BOOL)luaL_checknumber(L, 5);
+ DWORD cf = (DWORD)luaL_checknumber(L, 6);
+ const char *cd = lua_tostring(L, 8);
+
+ psa.nLength = sizeof(psa);
+ psa.lpSecurityDescriptor = NULL;
+ psa.bInheritHandle = FALSE;
+ if (lua_istable(L, 3)) {
+ lua_pushstring(L, "bInheritHandle");
+ lua_gettable(L, 3);
+ if (!lua_isnil(L, -1))
+ psa.bInheritHandle = (BOOL)luaL_checknumber(L, -1);
+ lua_pop(L, 3);
+ }
+
+ tsa.nLength = sizeof(tsa);
+ tsa.lpSecurityDescriptor = NULL;
+ tsa.bInheritHandle = FALSE;
+ if (lua_istable(L, 4)) {
+ lua_pushstring(L, "bInheritHandle");
+ lua_gettable(L, 4);
+ if (!lua_isnil(L, -1))
+ tsa.bInheritHandle = (BOOL)luaL_checknumber(L, -1);
+ lua_pop(L, 4);
+ }
+
+ env = NULL;
+
+ memset(&si, 0, sizeof(si));
+ si.cb = sizeof(si);
+ if (lua_istable(L, 7)) {
+ lua_pushnil(L);
+ while (lua_next(L, 7) != 0) {
+ const char *key = luaL_checkstring(L, -2);
+ if (!mir_strcmp(key, "lpDesktop")) {
+ si.lpDesktop = mir_strdup(luaL_checkstring(L, -1));
+ }
+ else if (!mir_strcmp(key, "lpTitle")) {
+ si.lpTitle = mir_strdup(luaL_checkstring(L, -1));
+ }
+ else if (!mir_strcmp(key, "dwX")) {
+ si.dwX = (DWORD)luaL_checknumber(L, -1);
+ }
+ else if (!mir_strcmp(key, "dwY")) {
+ si.dwY = (DWORD)luaL_checknumber(L, -1);
+ }
+ else if (!mir_strcmp(key, "dwXSize")) {
+ si.dwXSize = (DWORD)luaL_checknumber(L, -1);
+ }
+ else if (!mir_strcmp(key, "dwYSize")) {
+ si.dwYSize = (DWORD)luaL_checknumber(L, -1);
+ }
+ else if (!mir_strcmp(key, "dwXCountChars")) {
+ si.dwXCountChars = (DWORD)luaL_checknumber(L, -1);
+ }
+ else if (!mir_strcmp(key, "dwYCountChars")) {
+ si.dwYCountChars = (DWORD)luaL_checknumber(L, -1);
+ }
+ else if (!mir_strcmp(key, "dwFillAttribute")) {
+ si.dwFillAttribute = (DWORD)luaL_checknumber(L, -1);
+ }
+ else if (!mir_strcmp(key, "dwFlags")) {
+ si.dwFlags = (DWORD)luaL_checknumber(L, -1);
+ }
+ else if (!mir_strcmp(key, "wShowWindow")) {
+ si.wShowWindow = (WORD)luaL_checknumber(L, -1);
+ }
+ else if (!mir_strcmp(key, "hStdInput")) {
+ long h = (long)luaL_checknumber(L, -1);
+ si.hStdInput = (HANDLE)h;
+ }
+ else if (!mir_strcmp(key, "hStdOutput")) {
+ long h = (long)luaL_checknumber(L, -1);
+ si.hStdOutput = (HANDLE)h;
+ }
+ else if (!mir_strcmp(key, "hStdError")) {
+ long h = (long)luaL_checknumber(L, -1);
+ si.hStdError = (HANDLE)h;
+ }
+ lua_pop(L, 1);
+ }
+ }
+
+
+ brc = CreateProcessA(an, (char *)cl, &psa, &tsa, ih, cf, env, cd, &si, &pi);
+
+ if (si.lpDesktop != NULL)
+ mir_free(si.lpDesktop);
+ if (si.lpTitle != NULL)
+ mir_free(si.lpTitle);
+
+ lua_pushnumber(L, brc);
+ if (brc) {
+ lua_pushnumber(L, (long)(pi.hProcess));
+ lua_pushnumber(L, (long)(pi.hThread));
+ lua_pushnumber(L, pi.dwProcessId);
+ lua_pushnumber(L, pi.dwThreadId);
+ }
+ else {
+ lua_pushnil(L);
+ lua_pushnil(L);
+ lua_pushnil(L);
+ lua_pushnil(L);
+ }
+
+ return(5);
}
/****if* luaw32/global_GetTempFileName
@@ -1000,21 +1088,21 @@ static int global_CreateProcess(lua_State *L) { */
static int global_GetTempFileName(lua_State *L) {
- UINT rc;
- char tfn[MAX_PATH];
- const char *path = luaL_checkstring( L, 1);
- const char *pfx = luaL_checkstring( L, 2);
- UINT unique = ( UINT) luaL_checknumber( L, 3);
+ UINT rc;
+ char tfn[MAX_PATH];
+ const char *path = luaL_checkstring(L, 1);
+ const char *pfx = luaL_checkstring(L, 2);
+ UINT unique = (UINT)luaL_checknumber(L, 3);
- rc = GetTempFileNameA( path, pfx, unique, tfn);
+ rc = GetTempFileNameA(path, pfx, unique, tfn);
- lua_pushnumber( L, rc);
- if( rc)
- lua_pushstring( L, tfn);
- else
- lua_pushnil( L);
+ lua_pushnumber(L, rc);
+ if (rc)
+ lua_pushstring(L, tfn);
+ else
+ lua_pushnil(L);
- return( 2);
+ return(2);
}
/***/
@@ -1032,18 +1120,18 @@ static int global_GetTempFileName(lua_State *L) { */
static int global_GetTempPath(lua_State *L) {
- DWORD rc;
- char tfn[MAX_PATH];
+ DWORD rc;
+ char tfn[MAX_PATH];
- rc = GetTempPathA( MAX_PATH, tfn);
+ rc = GetTempPathA(MAX_PATH, tfn);
- lua_pushnumber( L, rc);
- if( rc)
- lua_pushstring( L, tfn);
- else
- lua_pushnil( L);
+ lua_pushnumber(L, rc);
+ if (rc)
+ lua_pushstring(L, tfn);
+ else
+ lua_pushnil(L);
- return( 2);
+ return(2);
}
/***/
@@ -1070,33 +1158,33 @@ static int global_GetTempPath(lua_State *L) { */
static int global_CreateFile(lua_State *L) {
- SECURITY_ATTRIBUTES sa;
- long h;
- const char *name = luaL_checkstring( L, 1);
- DWORD da = ( DWORD) luaL_checknumber( L, 2);
- DWORD sm = ( DWORD) luaL_checknumber( L, 3);
- DWORD cd = ( DWORD) luaL_checknumber( L, 5);
- DWORD fa = ( DWORD) luaL_checknumber( L, 6);
- long th = 0;
-
- sa.nLength = sizeof( sa);
- sa.lpSecurityDescriptor = NULL;
- sa.bInheritHandle = FALSE;
- if( lua_istable( L, 4)) {
- lua_pushstring( L, "bInheritHandle");
- lua_gettable( L, 4);
- if( !lua_isnil( L, -1))
- sa.bInheritHandle = ( BOOL) luaL_checknumber( L, -1);
- lua_pop( L, 1);
- }
- if( !lua_isnil( L, 7))
- th = ( long) luaL_checknumber( L, 7);
-
- h = ( long) CreateFileA( name, da, sm, &sa, cd, fa, ( HANDLE) th);
-
- lua_pushnumber( L, h);
-
- return( 1);
+ SECURITY_ATTRIBUTES sa;
+ long h;
+ const char *name = luaL_checkstring(L, 1);
+ DWORD da = (DWORD)luaL_checknumber(L, 2);
+ DWORD sm = (DWORD)luaL_checknumber(L, 3);
+ DWORD cd = (DWORD)luaL_checknumber(L, 5);
+ DWORD fa = (DWORD)luaL_checknumber(L, 6);
+ long th = 0;
+
+ sa.nLength = sizeof(sa);
+ sa.lpSecurityDescriptor = NULL;
+ sa.bInheritHandle = FALSE;
+ if (lua_istable(L, 4)) {
+ lua_pushstring(L, "bInheritHandle");
+ lua_gettable(L, 4);
+ if (!lua_isnil(L, -1))
+ sa.bInheritHandle = (BOOL)luaL_checknumber(L, -1);
+ lua_pop(L, 1);
+ }
+ if (!lua_isnil(L, 7))
+ th = (long)luaL_checknumber(L, 7);
+
+ h = (long)CreateFileA(name, da, sm, &sa, cd, fa, (HANDLE)th);
+
+ lua_pushnumber(L, h);
+
+ return(1);
}
/***/
@@ -1116,24 +1204,25 @@ static int global_CreateFile(lua_State *L) { */
static int global_ReadFile(lua_State *L) {
- DWORD bread;
- char *buf;
- BOOL brc = FALSE;
- long h = MYP2HCAST luaL_checknumber( L, 1);
- DWORD btoread = ( DWORD) luaL_checknumber( L, 2);
-
- buf = (char*)mir_alloc( btoread);
- if( buf != NULL) {
- brc = ReadFile( ( HANDLE) h, buf, btoread, &bread, NULL);
- lua_pushboolean( L, TRUE);
- lua_pushlstring( L, buf, bread);
- mir_free( buf);
- } else {
- lua_pushboolean( L, FALSE);
- lua_pushnil( L);
- }
-
- return( 2);
+ DWORD bread;
+ char *buf;
+ BOOL brc = FALSE;
+ long h = MYP2HCAST luaL_checknumber(L, 1);
+ DWORD btoread = (DWORD)luaL_checknumber(L, 2);
+
+ buf = (char*)mir_alloc(btoread);
+ if (buf != NULL) {
+ brc = ReadFile((HANDLE)h, buf, btoread, &bread, NULL);
+ lua_pushboolean(L, TRUE);
+ lua_pushlstring(L, buf, bread);
+ mir_free(buf);
+ }
+ else {
+ lua_pushboolean(L, FALSE);
+ lua_pushnil(L);
+ }
+
+ return(2);
}
/***/
@@ -1153,754 +1242,830 @@ static int global_ReadFile(lua_State *L) { */
static int global_WriteFile(lua_State *L) {
- DWORD bwrite;
- DWORD btowrite;
- BOOL brc;
- long h = MYP2HCAST luaL_checknumber( L, 1);
- const char *buf = luaL_checklstring( L, 2, (size_t *)&btowrite);
-
- brc = WriteFile( ( HANDLE) h, buf, btowrite, &bwrite, NULL);
- lua_pushboolean( L, brc);
- if( brc)
- lua_pushnumber( L, bwrite);
- else
- lua_pushnil( L);
+ DWORD bwrite;
+ DWORD btowrite;
+ BOOL brc;
+ long h = MYP2HCAST luaL_checknumber(L, 1);
+ const char *buf = luaL_checklstring(L, 2, (size_t*)&btowrite);
+
+ brc = WriteFile((HANDLE)h, buf, btowrite, &bwrite, NULL);
+ lua_pushboolean(L, brc);
+ if (brc)
+ lua_pushnumber(L, bwrite);
+ else
+ lua_pushnil(L);
- return( 2);
+ return(2);
}
/***/
static int global_WaitForSingleObject(lua_State *L) {
- long h = MYP2HCAST luaL_checknumber( L, 1);
- DWORD t = ( DWORD) luaL_checknumber( L, 2);
+ long h = MYP2HCAST luaL_checknumber(L, 1);
+ DWORD t = (DWORD)luaL_checknumber(L, 2);
- lua_pushnumber( L, WaitForSingleObject( ( HANDLE) h, t));
+ lua_pushnumber(L, WaitForSingleObject((HANDLE)h, t));
- return( 1);
+ return(1);
}
static int global_WaitForMultipleObjects(lua_State *L) {
- HANDLE ha[64];
- DWORD c = 0;
- BOOL wa = ( BOOL) luaL_checknumber( L, 2);
- DWORD t = ( DWORD) luaL_checknumber( L, 3);
-
- if( lua_istable( L, 1)) {
- for( ;c < 64; c++) {
- long h;
- lua_pushnumber( L, c + 1);
- lua_gettable( L, 1);
- if( lua_isnil( L, -1))
- break;
- h = ( long) luaL_checknumber( L, -1);
- ha[c] = ( HANDLE) h;
- }
- }
+ HANDLE ha[64];
+ DWORD c = 0;
+ BOOL wa = (BOOL)luaL_checknumber(L, 2);
+ DWORD t = (DWORD)luaL_checknumber(L, 3);
+
+ if (lua_istable(L, 1)) {
+ for (; c < 64; c++) {
+ long h;
+ lua_pushnumber(L, c + 1);
+ lua_gettable(L, 1);
+ if (lua_isnil(L, -1))
+ break;
+ h = (long)luaL_checknumber(L, -1);
+ ha[c] = (HANDLE)h;
+ }
+ }
- lua_pushnumber( L, WaitForMultipleObjects( c, ha, wa, t));
+ lua_pushnumber(L, WaitForMultipleObjects(c, ha, wa, t));
- return( 1);
+ return(1);
}
static int global_TerminateProcess(lua_State *L) {
- long h = MYP2HCAST luaL_checknumber( L, 1);
- DWORD ec = ( DWORD) luaL_checknumber( L, 2);
+ long h = MYP2HCAST luaL_checknumber(L, 1);
+ DWORD ec = (DWORD)luaL_checknumber(L, 2);
- lua_pushnumber( L, TerminateProcess( ( HANDLE) h, ec));
+ lua_pushnumber(L, TerminateProcess((HANDLE)h, ec));
- return( 1);
+ return(1);
}
static int global_GetExitCodeProcess(lua_State *L) {
- BOOL ok;
- DWORD ec;
- long h = MYP2HCAST luaL_checknumber( L, 1);
+ BOOL ok;
+ DWORD ec;
+ long h = MYP2HCAST luaL_checknumber(L, 1);
- ok = GetExitCodeProcess( ( HANDLE) h, &ec);
- lua_pushnumber( L, ok);
- lua_pushnumber( L, ec);
+ ok = GetExitCodeProcess((HANDLE)h, &ec);
+ lua_pushnumber(L, ok);
+ lua_pushnumber(L, ec);
- return( 2);
+ return(2);
}
static int global_GetCurrentThreadId(lua_State *L) {
- lua_pushnumber( L, GetCurrentThreadId());
+ lua_pushnumber(L, GetCurrentThreadId());
- return( 1);
+ return(1);
}
static int global_RegisterWindowMessage(lua_State *L) {
- const char *msg = luaL_checkstring( L, 1);
+ const char *msg = luaL_checkstring(L, 1);
- lua_pushnumber( L, RegisterWindowMessageA( msg));
+ lua_pushnumber(L, RegisterWindowMessageA(msg));
- return( 1);
+ return(1);
}
static int global_RegQueryValueEx(lua_State *L) {
- long rv;
- HKEY hsk;
- DWORD type;
- DWORD dwdata;
- DWORD len;
- char *szdata;
- long hkey = MYP2HCAST luaL_checknumber( L, 1);
- const char *subkey = luaL_checkstring( L, 2);
- const char *valuename = luaL_checkstring( L, 3);
-
- rv = RegOpenKeyExA( ( HKEY) hkey, subkey, 0, KEY_QUERY_VALUE, &hsk);
- if( rv == ERROR_SUCCESS) {
- len = sizeof( dwdata);
- rv = RegQueryValueExA( hsk, valuename, NULL, &type, ( LPBYTE) &dwdata, &len);
- if( ( rv == ERROR_SUCCESS) || ( rv == ERROR_MORE_DATA)) {
- switch( type) {
- case REG_DWORD_BIG_ENDIAN:
- case REG_DWORD:
- lua_pushnumber( L, dwdata);
- break;
- case REG_EXPAND_SZ:
- case REG_BINARY:
- case REG_MULTI_SZ:
- case REG_SZ:
- if( rv == ERROR_MORE_DATA) {
- szdata = (char*)mir_alloc( len);
- if( szdata == NULL) {
- lua_pushnil( L);
- } else {
- rv = RegQueryValueExA( hsk, valuename, NULL, &type, ( LPBYTE) szdata, &len);
- if( rv == ERROR_SUCCESS)
- lua_pushlstring( L, szdata, len);
- else
- lua_pushnil( L);
- mir_free( szdata);
- }
- } else
- lua_pushlstring( L, ( const char *) &dwdata, len);
- break;
- default:
- lua_pushnil( L);
- }
- } else
- lua_pushnil( L);
- RegCloseKey( hsk);
- } else
- lua_pushnil( L);
-
- return 1;
+ long rv;
+ HKEY hsk;
+ DWORD type;
+ DWORD dwdata;
+ DWORD len;
+ char *szdata;
+ long hkey = MYP2HCAST luaL_checknumber(L, 1);
+ const char *subkey = luaL_checkstring(L, 2);
+ const char *valuename = luaL_checkstring(L, 3);
+
+ rv = RegOpenKeyExA((HKEY)hkey, subkey, 0, KEY_QUERY_VALUE, &hsk);
+ if (rv == ERROR_SUCCESS) {
+ len = sizeof(dwdata);
+ rv = RegQueryValueExA(hsk, valuename, NULL, &type, (LPBYTE)&dwdata, &len);
+ if ((rv == ERROR_SUCCESS) || (rv == ERROR_MORE_DATA)) {
+ switch (type) {
+ case REG_DWORD_BIG_ENDIAN:
+ case REG_DWORD:
+ lua_pushnumber(L, dwdata);
+ break;
+ case REG_EXPAND_SZ:
+ case REG_BINARY:
+ case REG_MULTI_SZ:
+ case REG_SZ:
+ if (rv == ERROR_MORE_DATA) {
+ szdata = (char*)mir_alloc(len);
+ if (szdata == NULL) {
+ lua_pushnil(L);
+ }
+ else {
+ rv = RegQueryValueExA(hsk, valuename, NULL, &type, (LPBYTE)szdata, &len);
+ if (rv == ERROR_SUCCESS)
+ lua_pushlstring(L, szdata, len);
+ else
+ lua_pushnil(L);
+ mir_free(szdata);
+ }
+ }
+ else
+ lua_pushlstring(L, (const char *)&dwdata, len);
+ break;
+ default:
+ lua_pushnil(L);
+ }
+ }
+ else
+ lua_pushnil(L);
+ RegCloseKey(hsk);
+ }
+ else
+ lua_pushnil(L);
+
+ return 1;
}
static int global_RegSetValueEx(lua_State *L) {
- long rv;
- HKEY hsk;
- DWORD type;
- DWORD dwdata;
- DWORD len(0);
- char *szdata = NULL;
- long hkey = MYP2HCAST luaL_checknumber( L, 1);
- const char *subkey = luaL_checkstring( L, 2);
- const char *valuename = luaL_checkstring( L, 3);
-
- if( lua_isnumber( L, 4)) {
- dwdata = ( DWORD) luaL_checknumber( L, 4);
- type = ( DWORD) luaL_optnumber( L, 5, REG_DWORD);
- } else {
- szdata = ( char *) luaL_checklstring( L, 4, (size_t*)&len);
- type = ( DWORD) luaL_optnumber( L, 5, REG_SZ);
- }
-
- rv = RegCreateKeyExA( ( HKEY) hkey, subkey, 0, "", REG_OPTION_NON_VOLATILE, KEY_WRITE, NULL, &hsk, NULL);
- if( rv == ERROR_SUCCESS) {
- if( szdata == NULL)
- rv = RegSetValueExA( hsk, valuename, 0, type, ( CONST BYTE *) &dwdata, sizeof( dwdata));
- else
- rv = RegSetValueExA( hsk, valuename, 0, type, ( CONST BYTE *) szdata, len + 1);
- lua_pushboolean( L, rv == ERROR_SUCCESS);
- RegCloseKey( hsk);
- } else
- lua_pushboolean( L, 0);
-
- return 1;
+ long rv;
+ HKEY hsk;
+ DWORD type;
+ DWORD dwdata;
+ DWORD len = 0;
+ char *szdata = NULL;
+ long hkey = MYP2HCAST luaL_checknumber(L, 1);
+ const char *subkey = luaL_checkstring(L, 2);
+ const char *valuename = luaL_checkstring(L, 3);
+
+ if (lua_isnumber(L, 4)) {
+ dwdata = (DWORD)luaL_checknumber(L, 4);
+ type = (DWORD)luaL_optnumber(L, 5, REG_DWORD);
+ }
+ else {
+ szdata = (char *)luaL_checklstring(L, 4, (size_t*)&len);
+ type = (DWORD)luaL_optnumber(L, 5, REG_SZ);
+ }
+
+ rv = RegCreateKeyExA((HKEY)hkey, subkey, 0, "", REG_OPTION_NON_VOLATILE, KEY_WRITE, NULL, &hsk, NULL);
+ if (rv == ERROR_SUCCESS) {
+ if (szdata == NULL)
+ rv = RegSetValueExA(hsk, valuename, 0, type, (CONST BYTE *) &dwdata, sizeof(dwdata));
+ else
+ rv = RegSetValueExA(hsk, valuename, 0, type, (CONST BYTE *) szdata, len + 1);
+ lua_pushboolean(L, rv == ERROR_SUCCESS);
+ RegCloseKey(hsk);
+ }
+ else
+ lua_pushboolean(L, 0);
+
+ return 1;
}
static int global_RegDeleteValue(lua_State *L) {
- long rv;
- HKEY hsk;
- long hkey = MYP2HCAST luaL_checknumber( L, 1);
- const char *subkey = luaL_checkstring( L, 2);
- const char *valuename = luaL_checkstring( L, 3);
-
- rv = RegOpenKeyExA( ( HKEY) hkey, subkey, 0, KEY_SET_VALUE, &hsk);
- if( rv == ERROR_SUCCESS) {
- rv = RegDeleteValueA( hsk, valuename);
- lua_pushboolean( L, rv == ERROR_SUCCESS);
- RegCloseKey( hsk);
- } else
- lua_pushboolean( L, 0);
+ long rv;
+ HKEY hsk;
+ long hkey = MYP2HCAST luaL_checknumber(L, 1);
+ const char *subkey = luaL_checkstring(L, 2);
+ const char *valuename = luaL_checkstring(L, 3);
+
+ rv = RegOpenKeyExA((HKEY)hkey, subkey, 0, KEY_SET_VALUE, &hsk);
+ if (rv == ERROR_SUCCESS) {
+ rv = RegDeleteValueA(hsk, valuename);
+ lua_pushboolean(L, rv == ERROR_SUCCESS);
+ RegCloseKey(hsk);
+ }
+ else
+ lua_pushboolean(L, 0);
- return 1;
+ return 1;
}
static int global_RegDeleteKey(lua_State *L) {
- long hkey = MYP2HCAST luaL_checknumber( L, 1);
- const char *subkey = luaL_checkstring( L, 2);
+ long hkey = MYP2HCAST luaL_checknumber(L, 1);
+ const char *subkey = luaL_checkstring(L, 2);
- lua_pushboolean( L, RegDeleteKeyA( ( HKEY) hkey, subkey) == ERROR_SUCCESS);
+ lua_pushboolean(L, RegDeleteKeyA((HKEY)hkey, subkey) == ERROR_SUCCESS);
- return 1;
+ return 1;
}
static int global_RegEnumKeyEx(lua_State *L) {
- long rv;
- HKEY hsk;
- DWORD len;
- DWORD index;
- char name[256];
- FILETIME ft;
- long hkey = MYP2HCAST luaL_checknumber( L, 1);
- const char *subkey = luaL_checkstring( L, 2);
-
- rv = RegOpenKeyExA( ( HKEY) hkey, subkey, 0, KEY_ENUMERATE_SUB_KEYS, &hsk);
- if( rv == ERROR_SUCCESS) {
- lua_newtable( L);
- for( index = 0;; index++) {
- len = sizeof( name);
- if( RegEnumKeyExA( hsk, index, name, &len,
- NULL, NULL, NULL, &ft) != ERROR_SUCCESS)
- break;
- lua_pushnumber( L, index + 1);
- lua_pushstring( L, name);
- lua_settable( L, -3);
- }
- RegCloseKey( hsk);
- } else
- lua_pushnil( L);
-
- return 1;
+ long rv;
+ HKEY hsk;
+ DWORD len;
+ DWORD index;
+ char name[256];
+ FILETIME ft;
+ long hkey = MYP2HCAST luaL_checknumber(L, 1);
+ const char *subkey = luaL_checkstring(L, 2);
+
+ rv = RegOpenKeyExA((HKEY)hkey, subkey, 0, KEY_ENUMERATE_SUB_KEYS, &hsk);
+ if (rv == ERROR_SUCCESS) {
+ lua_newtable(L);
+ for (index = 0;; index++) {
+ len = sizeof(name);
+ if (RegEnumKeyExA(hsk, index, name, &len,
+ NULL, NULL, NULL, &ft) != ERROR_SUCCESS)
+ break;
+ lua_pushnumber(L, index + 1);
+ lua_pushstring(L, name);
+ lua_settable(L, -3);
+ }
+ RegCloseKey(hsk);
+ }
+ else
+ lua_pushnil(L);
+
+ return 1;
}
static int global_RegEnumValue(lua_State *L) {
- long rv;
- HKEY hsk;
- DWORD len;
- DWORD index;
- char name[256];
- long hkey = MYP2HCAST luaL_checknumber( L, 1);
- const char *subkey = luaL_checkstring( L, 2);
-
- rv = RegOpenKeyExA( ( HKEY) hkey, subkey, 0, KEY_QUERY_VALUE, &hsk);
- if( rv == ERROR_SUCCESS) {
- lua_newtable( L);
- for( index = 0;; index++) {
- len = sizeof( name);
- if( RegEnumValueA( hsk, index, name, &len,
- NULL, NULL, NULL, NULL) != ERROR_SUCCESS)
- break;
- lua_pushnumber( L, index + 1);
- lua_pushstring( L, name);
- lua_settable( L, -3);
- }
- RegCloseKey( hsk);
- } else
- lua_pushnil( L);
-
- return 1;
+ long rv;
+ HKEY hsk;
+ DWORD len;
+ DWORD index;
+ char name[256];
+ long hkey = MYP2HCAST luaL_checknumber(L, 1);
+ const char *subkey = luaL_checkstring(L, 2);
+
+ rv = RegOpenKeyExA((HKEY)hkey, subkey, 0, KEY_QUERY_VALUE, &hsk);
+ if (rv == ERROR_SUCCESS) {
+ lua_newtable(L);
+ for (index = 0;; index++) {
+ len = sizeof(name);
+ if (RegEnumValueA(hsk, index, name, &len,
+ NULL, NULL, NULL, NULL) != ERROR_SUCCESS)
+ break;
+ lua_pushnumber(L, index + 1);
+ lua_pushstring(L, name);
+ lua_settable(L, -3);
+ }
+ RegCloseKey(hsk);
+ }
+ else
+ lua_pushnil(L);
+
+ return 1;
}
static int global_SetCurrentDirectory(lua_State *L) {
- DWORD le;
- BOOL ok;
- const char *pname = luaL_checkstring( L, 1);
-
- ok = SetCurrentDirectoryA( pname);
- if( !ok) {
- le = GetLastError();
- lua_pushboolean( L, ok);
- lua_pushnumber( L, le);
- } else {
- lua_pushboolean( L, ok);
- lua_pushnil( L);
- }
+ DWORD le;
+ BOOL ok;
+ const char *pname = luaL_checkstring(L, 1);
+
+ ok = SetCurrentDirectoryA(pname);
+ if (!ok) {
+ le = GetLastError();
+ lua_pushboolean(L, ok);
+ lua_pushnumber(L, le);
+ }
+ else {
+ lua_pushboolean(L, ok);
+ lua_pushnil(L);
+ }
- return 2;
+ return 2;
}
static int global_SHDeleteKey(lua_State *L) {
- long hkey = MYP2HCAST luaL_checknumber( L, 1);
- const char *subkey = luaL_checkstring( L, 2);
+ long hkey = MYP2HCAST luaL_checknumber(L, 1);
+ const char *subkey = luaL_checkstring(L, 2);
- lua_pushboolean( L, SHDeleteKeyA( ( HKEY) hkey, subkey) == ERROR_SUCCESS);
+ lua_pushboolean(L, SHDeleteKeyA((HKEY)hkey, subkey) == ERROR_SUCCESS);
- return 1;
+ return 1;
}
static int global_Sleep(lua_State *L) {
- DWORD tosleep = ( DWORD) luaL_checknumber( L, 1);
+ DWORD tosleep = (DWORD)luaL_checknumber(L, 1);
- Sleep( tosleep);
+ Sleep(tosleep);
- return 0;
+ return 0;
}
static int global_GetVersion(lua_State *L) {
- lua_pushnumber( L, GetVersion());
-
- return 1;
-}
-
-static void pushFFTime( lua_State *L, FILETIME *ft) {
- SYSTEMTIME st;
- FileTimeToSystemTime( ft, &st);
- lua_newtable( L);
- lua_pushstring( L, "Year");
- lua_pushnumber( L, st.wYear);
- lua_rawset( L, -3);
- lua_pushstring( L, "Month");
- lua_pushnumber( L, st.wMonth);
- lua_rawset( L, -3);
- lua_pushstring( L, "DayOfWeek");
- lua_pushnumber( L, st.wDayOfWeek);
- lua_rawset( L, -3);
- lua_pushstring( L, "Day");
- lua_pushnumber( L, st.wDay);
- lua_rawset( L, -3);
- lua_pushstring( L, "Hour");
- lua_pushnumber( L, st.wHour);
- lua_rawset( L, -3);
- lua_pushstring( L, "Minute");
- lua_pushnumber( L, st.wMinute);
- lua_rawset( L, -3);
- lua_pushstring( L, "Second");
- lua_pushnumber( L, st.wSecond);
- lua_rawset( L, -3);
- lua_pushstring( L, "Milliseconds");
- lua_pushnumber( L, st.wMilliseconds);
- lua_rawset( L, -3);
-}
-static void pushFFData( lua_State *L, WIN32_FIND_DATAA *wfd) {
- lua_newtable( L);
- lua_pushstring( L, "FileAttributes");
- lua_pushnumber( L, wfd->dwFileAttributes);
- lua_rawset( L, -3);
- lua_pushstring( L, "CreationTime");
- pushFFTime( L, &( wfd->ftCreationTime));
- lua_rawset( L, -3);
- lua_pushstring( L, "LastAccessTime");
- pushFFTime( L, &( wfd->ftLastAccessTime));
- lua_rawset( L, -3);
- lua_pushstring( L, "LastWriteTime");
- pushFFTime( L, &( wfd->ftLastWriteTime));
- lua_rawset( L, -3);
- lua_pushstring( L, "FileSizeHigh");
- lua_pushnumber( L, wfd->nFileSizeHigh);
- lua_rawset( L, -3);
- lua_pushstring( L, "FileSizeLow");
- lua_pushnumber( L, wfd->nFileSizeLow);
- lua_rawset( L, -3);
- lua_pushstring( L, "FileName");
- lua_pushstring( L, wfd->cFileName);
- lua_rawset( L, -3);
- lua_pushstring( L, "AlternateFileName");
- lua_pushstring( L, wfd->cAlternateFileName);
- lua_rawset( L, -3);
+ lua_pushnumber(L, GetVersion());
+
+ return 1;
}
-static int global_FindFirstFile(lua_State *L) {
- WIN32_FIND_DATAA wfd;
- HANDLE hfd;
- const char *fname = luaL_checkstring( L, 1);
+static void pushFFTime(lua_State *L, FILETIME *ft) {
+ SYSTEMTIME st;
+ FileTimeToSystemTime(ft, &st);
+ lua_newtable(L);
+ lua_pushstring(L, "Year");
+ lua_pushnumber(L, st.wYear);
+ lua_rawset(L, -3);
+ lua_pushstring(L, "Month");
+ lua_pushnumber(L, st.wMonth);
+ lua_rawset(L, -3);
+ lua_pushstring(L, "DayOfWeek");
+ lua_pushnumber(L, st.wDayOfWeek);
+ lua_rawset(L, -3);
+ lua_pushstring(L, "Day");
+ lua_pushnumber(L, st.wDay);
+ lua_rawset(L, -3);
+ lua_pushstring(L, "Hour");
+ lua_pushnumber(L, st.wHour);
+ lua_rawset(L, -3);
+ lua_pushstring(L, "Minute");
+ lua_pushnumber(L, st.wMinute);
+ lua_rawset(L, -3);
+ lua_pushstring(L, "Second");
+ lua_pushnumber(L, st.wSecond);
+ lua_rawset(L, -3);
+ lua_pushstring(L, "Milliseconds");
+ lua_pushnumber(L, st.wMilliseconds);
+ lua_rawset(L, -3);
+}
+static void pushFFData(lua_State *L, WIN32_FIND_DATAA *wfd) {
+ lua_newtable(L);
+ lua_pushstring(L, "FileAttributes");
+ lua_pushnumber(L, wfd->dwFileAttributes);
+ lua_rawset(L, -3);
+ lua_pushstring(L, "CreationTime");
+ pushFFTime(L, &(wfd->ftCreationTime));
+ lua_rawset(L, -3);
+ lua_pushstring(L, "LastAccessTime");
+ pushFFTime(L, &(wfd->ftLastAccessTime));
+ lua_rawset(L, -3);
+ lua_pushstring(L, "LastWriteTime");
+ pushFFTime(L, &(wfd->ftLastWriteTime));
+ lua_rawset(L, -3);
+ lua_pushstring(L, "FileSizeHigh");
+ lua_pushnumber(L, wfd->nFileSizeHigh);
+ lua_rawset(L, -3);
+ lua_pushstring(L, "FileSizeLow");
+ lua_pushnumber(L, wfd->nFileSizeLow);
+ lua_rawset(L, -3);
+ lua_pushstring(L, "FileName");
+ lua_pushstring(L, wfd->cFileName);
+ lua_rawset(L, -3);
+ lua_pushstring(L, "AlternateFileName");
+ lua_pushstring(L, wfd->cAlternateFileName);
+ lua_rawset(L, -3);
+}
- hfd = FindFirstFileA( fname, &wfd);
- if( hfd == NULL) {
- lua_pushnumber( L, 0);
- lua_pushnil( L);
- } else {
- lua_pushnumber( L, ( long) hfd);
- pushFFData( L, &wfd);
- }
+static int global_FindFirstFile(lua_State *L) {
+ WIN32_FIND_DATAA wfd;
+ HANDLE hfd;
+ const char *fname = luaL_checkstring(L, 1);
+
+ hfd = FindFirstFileA(fname, &wfd);
+ if (hfd == NULL) {
+ lua_pushnumber(L, 0);
+ lua_pushnil(L);
+ }
+ else {
+ lua_pushnumber(L, (long)hfd);
+ pushFFData(L, &wfd);
+ }
- return( 2);
+ return(2);
}
static int global_FindNextFile(lua_State *L) {
- WIN32_FIND_DATAA wfd;
- BOOL ok;
- long lfd = MYP2HCAST luaL_checknumber( L, 1);
-
- ok = FindNextFileA( ( HANDLE) lfd, &wfd);
- lua_pushboolean( L, ok);
- if( !ok) {
- lua_pushnil( L);
- } else {
- pushFFData( L, &wfd);
- }
+ WIN32_FIND_DATAA wfd;
+ BOOL ok;
+ long lfd = MYP2HCAST luaL_checknumber(L, 1);
+
+ ok = FindNextFileA((HANDLE)lfd, &wfd);
+ lua_pushboolean(L, ok);
+ if (!ok) {
+ lua_pushnil(L);
+ }
+ else {
+ pushFFData(L, &wfd);
+ }
- return( 2);
+ return(2);
}
static int global_FindClose(lua_State *L) {
- long lfd = MYP2HCAST luaL_checknumber( L, 1);
+ long lfd = MYP2HCAST luaL_checknumber(L, 1);
- lua_pushboolean( L, FindClose( ( HANDLE) lfd));
+ lua_pushboolean(L, FindClose((HANDLE)lfd));
- return( 2);
+ return(2);
}
-static void FreePIDL( LPITEMIDLIST idl) {
-
+static void FreePIDL(LPITEMIDLIST idl) {
+/*
+ Imalloc *m;
+ SHGetmalloc(&m);
+ if (m != NULL)
+ m->lpVtbl->Free(m, idl);
+ m->lpVtbl->Release(m);
+*/
}
static int global_SHGetSpecialFolderLocation(lua_State *L) {
- LPITEMIDLIST idl;
- char out[MAX_PATH];
- int ifolder = ( int) luaL_checknumber( L, 1);
+ LPITEMIDLIST idl;
+ char out[MAX_PATH];
+ int ifolder = (int)luaL_checknumber(L, 1);
- if( SHGetSpecialFolderLocation( GetDesktopWindow(),
- ifolder, &idl) != NOERROR) {
- lua_pushnil( L);
- } else {
- if( !SHGetPathFromIDListA( idl, out))
- lua_pushnil( L);
- else
- lua_pushstring( L, out);
- FreePIDL( idl);
- }
+ if (SHGetSpecialFolderLocation(GetDesktopWindow(),
+ ifolder, &idl) != NOERROR) {
+ lua_pushnil(L);
+ }
+ else {
+ if (!SHGetPathFromIDListA(idl, out))
+ lua_pushnil(L);
+ else
+ lua_pushstring(L, out);
+ FreePIDL(idl);
+ }
- return 1;
+ return 1;
}
static int global_GetFullPathName(lua_State *L) {
- DWORD le;
- DWORD rc;
- char fpname[MAX_PATH];
- char *fpart;
- const char *pname = luaL_checkstring( L, 1);
+ DWORD le;
+ DWORD rc;
+ char fpname[MAX_PATH];
+ char *fpart;
+ const char *pname = luaL_checkstring(L, 1);
+
+ rc = GetFullPathNameA(pname, sizeof(fpname), fpname, &fpart);
+ if (!rc) {
+ le = GetLastError();
+ lua_pushnumber(L, 0);
+ lua_pushnil(L);
+ lua_pushnumber(L, le);
+ }
+ else {
+ lua_pushnumber(L, rc);
+ lua_pushstring(L, fpname);
+ lua_pushnil(L);
+ }
+
+ return 3;
+}
+
+BOOL __declspec(dllimport) __stdcall
+CheckTokenMembership(HANDLE TokenHandle, PSID SidToCheck, PBOOL IsMember);
+static int global_IsUserAdmin(lua_State *L) {
+ BOOL b;
+ SID_IDENTIFIER_AUTHORITY NtAuthority = SECURITY_NT_AUTHORITY;
+ PSID AdministratorsGroup;
+
+ b = AllocateAndInitializeSid(
+ &NtAuthority,
+ 2,
+ SECURITY_BUILTIN_DOMAIN_RID,
+ DOMAIN_ALIAS_RID_ADMINS,
+ 0, 0, 0, 0, 0, 0,
+ &AdministratorsGroup);
+ if (b) {
+ if (!CheckTokenMembership(NULL, AdministratorsGroup, &b))
+ b = FALSE;
+ FreeSid(AdministratorsGroup);
+ }
- rc = GetFullPathNameA( pname, sizeof( fpname), fpname, &fpart);
- if( !rc) {
- le = GetLastError();
- lua_pushnumber( L, 0);
- lua_pushnil( L);
- lua_pushnumber( L, le);
- } else {
- lua_pushnumber( L, rc);
- lua_pushstring( L, fpname);
- lua_pushnil( L);
- }
+ lua_pushboolean(L, b);
- return 3;
+ return 1;
}
-BOOL __declspec( dllimport) __stdcall
-CheckTokenMembership( HANDLE TokenHandle, PSID SidToCheck, PBOOL IsMember );
-static int global_IsUserAdmin( lua_State *L ) {
- BOOL b;
- SID_IDENTIFIER_AUTHORITY NtAuthority = SECURITY_NT_AUTHORITY;
- PSID AdministratorsGroup;
- b = AllocateAndInitializeSid(
- &NtAuthority,
- 2,
- SECURITY_BUILTIN_DOMAIN_RID,
- DOMAIN_ALIAS_RID_ADMINS,
- 0, 0, 0, 0, 0, 0,
- &AdministratorsGroup );
- if( b ) {
- if( !CheckTokenMembership( NULL, AdministratorsGroup, &b ) )
- b = FALSE;
- FreeSid( AdministratorsGroup );
- }
+static int global_OpenProcess(lua_State *L) {
+ HANDLE h;
+ DWORD da = (DWORD)luaL_checknumber(L, 1);
+ BOOL ih = (BOOL)luaL_checknumber(L, 2);
+ DWORD pid = (DWORD)luaL_checknumber(L, 3);
- lua_pushboolean( L, b );
+ h = OpenProcess(da, ih, pid);
+ if (h != NULL)
+ lua_pushnumber(L, (long)h);
+ else
+ lua_pushnil(L);
- return 1;
+ return 1;
}
+static int global_IsRunning(lua_State *L) {
+ HANDLE h;
+ BOOL b = FALSE;
+ DWORD pid = (DWORD)luaL_checknumber(L, 1);
-static int global_OpenProcess( lua_State *L ) {
- HANDLE h;
- DWORD da = ( DWORD) luaL_checknumber( L, 1);
- BOOL ih = ( BOOL) luaL_checknumber( L, 2 );
- DWORD pid = ( DWORD ) luaL_checknumber( L, 3 );
+ h = OpenProcess(SYNCHRONIZE, FALSE, pid);
+ if (h != NULL) {
+ b = TRUE;
+ CloseHandle(h);
+ }
- h = OpenProcess( da, ih, pid );
- if( h != NULL )
- lua_pushnumber( L, ( long ) h );
- else
- lua_pushnil( L );
+ lua_pushboolean(L, b);
- return 1;
+ return 1;
}
-static int global_IsRunning( lua_State *L ) {
- HANDLE h;
- BOOL b = FALSE;
- DWORD pid = ( DWORD ) luaL_checknumber( L, 1 );
+static int global_GetWindowThreadProcessId(lua_State *L) {
+ long h = MYP2HCAST luaL_checknumber(L, 1);
+ DWORD tid, pid;
- h = OpenProcess( SYNCHRONIZE, FALSE, pid );
- if( h != NULL ) {
- b = TRUE;
- CloseHandle( h );
- }
+ tid = GetWindowThreadProcessId((HWND)h, &pid);
+ lua_pushnumber(L, (long)tid);
+ lua_pushnumber(L, (long)pid);
- lua_pushboolean( L, b );
-
- return 1;
+ return 2;
}
-static int global_GetWindowThreadProcessId( lua_State *L ) {
- long h = MYP2HCAST luaL_checknumber( L, 1 );
- DWORD tid, pid;
+static int global_OpenSCManager(lua_State *L) {
+ SC_HANDLE h;
- tid = GetWindowThreadProcessId( ( HWND ) h, &pid );
- lua_pushnumber( L, ( long ) tid );
- lua_pushnumber( L, ( long ) pid );
+ h = OpenSCManager(NULL, NULL, SC_MANAGER_ALL_ACCESS);
+ lua_pushnumber(L, (long)h);
- return 2;
+ return 1;
}
-static int global_OpenSCManager( lua_State *L ) {
- SC_HANDLE h;
+static int global_OpenService(lua_State *L) {
+ SC_HANDLE h;
+ long scm = MYP2HCAST luaL_checknumber(L, 1);
+ const char *sname = luaL_checkstring(L, 2);
- h = OpenSCManager( NULL, NULL, SC_MANAGER_ALL_ACCESS );
- lua_pushnumber( L, ( long ) h );
+ h = OpenServiceA((SC_HANDLE)scm, sname, SERVICE_ALL_ACCESS);
+ lua_pushnumber(L, (long)h);
- return 1;
+ return 1;
}
-static int global_OpenService( lua_State *L ) {
- SC_HANDLE h;
- long scm = MYP2HCAST luaL_checknumber( L, 1 );
- const char *sname = luaL_checkstring( L, 2 );
+static int global_CloseServiceHandle(lua_State *L) {
+ long h = MYP2HCAST luaL_checknumber(L, 1);
- h = OpenServiceA( ( SC_HANDLE ) scm, sname, SERVICE_ALL_ACCESS );
- lua_pushnumber( L, ( long ) h );
+ lua_pushboolean(L, CloseServiceHandle((SC_HANDLE)h));
- return 1;
+ return 1;
}
-static int global_CloseServiceHandle( lua_State *L ) {
- long h = MYP2HCAST luaL_checknumber( L, 1 );
+static int global_QueryServiceStatus(lua_State *L) {
+ SERVICE_STATUS ss;
+ BOOL brc;
+ long h = MYP2HCAST luaL_checknumber(L, 1);
+
+ brc = QueryServiceStatus((SC_HANDLE)h, &ss);
+ lua_pushboolean(L, brc);
+ if (brc) {
+ lua_pushnumber(L, (long)(ss.dwServiceType));
+ lua_pushnumber(L, (long)(ss.dwCurrentState));
+ lua_pushnumber(L, (long)(ss.dwControlsAccepted));
+ lua_pushnumber(L, (long)(ss.dwWin32ExitCode));
+ lua_pushnumber(L, (long)(ss.dwServiceSpecificExitCode));
+ lua_pushnumber(L, (long)(ss.dwCheckPoint));
+ lua_pushnumber(L, (long)(ss.dwWaitHint));
+ return 8;
+ }
+ else
+ return 1;
+}
- lua_pushboolean( L, CloseServiceHandle( ( SC_HANDLE ) h ) );
+static int global_QueryServiceConfig(lua_State *L) {
+ union {
+ QUERY_SERVICE_CONFIGA sc;
+ char buf[4096];
+ } storage;
+ BOOL brc;
+ DWORD needed = 0, errcode = 0;
+ long h = MYP2HCAST luaL_checknumber(L, 1);
- return 1;
+ brc = QueryServiceConfig((SC_HANDLE)h, (LPQUERY_SERVICE_CONFIG)&storage, sizeof(storage), &needed);
+ if (!brc) {
+ errcode = GetLastError();
+ }
+
+ lua_pushboolean(L, brc);
+ if (brc) {
+ // todo: add other values, if needed
+ lua_pushnumber(L, (long)(storage.sc.dwServiceType));
+ lua_pushnumber(L, (long)(storage.sc.dwStartType));
+ lua_pushnumber(L, (long)(storage.sc.dwErrorControl));
+ lua_pushstring(L, storage.sc.lpBinaryPathName);
+ lua_pushstring(L, storage.sc.lpDisplayName);
+ return 6;
+ }
+ else {
+ lua_pushnumber(L, (long)(errcode));
+ return 2;
+ }
}
-static int global_QueryServiceStatus( lua_State *L ) {
- SERVICE_STATUS ss;
- BOOL brc;
- long h = MYP2HCAST luaL_checknumber( L, 1 );
+static int global_ControlService(lua_State *L) {
+ SERVICE_STATUS ss;
+ BOOL brc;
+ long h = MYP2HCAST luaL_checknumber(L, 1);
+ DWORD c = (DWORD)luaL_checknumber(L, 2);
+
+ brc = ControlService((SC_HANDLE)h, c, &ss);
+ lua_pushboolean(L, brc);
- brc = QueryServiceStatus( ( SC_HANDLE ) h, &ss );
- lua_pushboolean( L, brc );
- if( brc ) {
- lua_pushnumber( L, ( long ) ( ss.dwServiceType ) );
- lua_pushnumber( L, ( long ) ( ss.dwCurrentState ) );
- lua_pushnumber( L, ( long ) ( ss.dwControlsAccepted ) );
- lua_pushnumber( L, ( long ) ( ss.dwWin32ExitCode ) );
- lua_pushnumber( L, ( long ) ( ss.dwServiceSpecificExitCode ) );
- lua_pushnumber( L, ( long ) ( ss.dwCheckPoint ) );
- lua_pushnumber( L, ( long ) ( ss.dwWaitHint ) );
- return 8;
- } else
- return 1;
+ return 1;
}
-static int global_QueryServiceConfig( lua_State *L ) {
- union {
- QUERY_SERVICE_CONFIGA sc;
- char buf[4096];
- } storage;
- BOOL brc;
- DWORD needed = 0, errcode = 0;
- long h = MYP2HCAST luaL_checknumber( L, 1 );
+static int global_DeleteService(lua_State *L) {
+ long h = MYP2HCAST luaL_checknumber(L, 1);
- brc = QueryServiceConfigA( ( SC_HANDLE ) h, ( LPQUERY_SERVICE_CONFIGA ) &storage, sizeof( storage ), &needed );
- if( !brc ) {
- errcode = GetLastError();
- }
+ lua_pushboolean(L, DeleteService((SC_HANDLE)h));
- lua_pushboolean( L, brc );
- if( brc ) {
- // todo: add other values, if needed
- lua_pushnumber( L, ( long ) ( storage.sc.dwServiceType ) );
- lua_pushnumber( L, ( long ) ( storage.sc.dwStartType ) );
- lua_pushnumber( L, ( long ) ( storage.sc.dwErrorControl ) );
- lua_pushstring( L, storage.sc.lpBinaryPathName );
- lua_pushstring( L, storage.sc.lpDisplayName );
- return 6;
- } else {
- lua_pushnumber( L, ( long ) ( errcode ) );
- return 2;
- }
+ return 1;
}
-static int global_ControlService( lua_State *L ) {
- SERVICE_STATUS ss;
- BOOL brc;
- long h = MYP2HCAST luaL_checknumber( L, 1 );
- DWORD c = ( DWORD ) luaL_checknumber( L, 2 );
+static int global_StartService(lua_State *L) {
+ long h = MYP2HCAST luaL_checknumber(L, 1);
- brc = ControlService( ( SC_HANDLE ) h, c, &ss );
- lua_pushboolean( L, brc );
+ lua_pushboolean(L, StartService((SC_HANDLE)h, 0, NULL));
- return 1;
+ return 1;
}
-static int global_DeleteService( lua_State *L ) {
- long h = MYP2HCAST luaL_checknumber( L, 1 );
+static int global_mciSendString(lua_State *L) { + const char *cmd = luaL_checkstring(L, 1); // only one string parameter is used + + long lrc = (long)mciSendStringA(cmd, NULL, 0, NULL); + + lua_pushnumber(L, lrc); + + return(1); +} - lua_pushboolean( L, DeleteService( ( SC_HANDLE ) h ) );
+static int global_MessageBeep(lua_State *L) {
+ const UINT uType = luaL_checkinteger(L, 1);
- return 1;
+ BOOL rc = MessageBeep(uType);
+
+ lua_pushboolean(L, rc);
+
+ return(1);
}
-static int global_StartService( lua_State *L ) {
- long h = MYP2HCAST luaL_checknumber( L, 1 );
+static int global_Beep(lua_State *L) {
+ const DWORD dwFreq = luaL_checkinteger(L, 1);
+ const DWORD dwDuration = luaL_checkinteger(L, 2);
+
+ BOOL rc = Beep(dwFreq, dwDuration);
+
+ lua_pushboolean(L, rc);
+
+ return(1);
+}
- lua_pushboolean( L, StartService( ( SC_HANDLE ) h, 0, NULL ) );
+static int global_CoInitialize(lua_State *L) {
+ long lrc = (long)CoInitialize(NULL);
+ lua_pushinteger(L, lrc);
+ return(1);
+}
- return 1;
+static int global_CoUninitialize(lua_State *L) {
+ CoUninitialize();
+ return(0);
}
+
/* Module exported function */
static struct {
- char *name;
- DWORD value;
- } consts[] = {
- {"TRUE",TRUE},
- {"FALSE",FALSE},
- {"INVALID_HANDLE_VALUE",(unsigned long)INVALID_HANDLE_VALUE},
- {"INFINITE",INFINITE},
- {"EVENT_ALL_ACCESS",EVENT_ALL_ACCESS},
- {"EVENT_MODIFY_STATE",EVENT_MODIFY_STATE},
- {"SYNCHRONIZE",SYNCHRONIZE},
- {"MUTEX_ALL_ACCESS",MUTEX_ALL_ACCESS},
- {"SEMAPHORE_ALL_ACCESS",SEMAPHORE_ALL_ACCESS},
- {"SEMAPHORE_MODIFY_STATE",SEMAPHORE_MODIFY_STATE},
- {"WAIT_OBJECT_0",WAIT_OBJECT_0},
- {"WAIT_ABANDONED_0",WAIT_ABANDONED_0},
- {"WAIT_ABANDONED",WAIT_ABANDONED},
- {"WAIT_TIMEOUT",WAIT_TIMEOUT},
- {"WAIT_FAILED",WAIT_FAILED},
- {"CREATE_DEFAULT_ERROR_MODE",CREATE_DEFAULT_ERROR_MODE},
- {"CREATE_NEW_CONSOLE",CREATE_NEW_CONSOLE},
- {"CREATE_NEW_PROCESS_GROUP",CREATE_NEW_PROCESS_GROUP},
- {"CREATE_SUSPENDED",CREATE_SUSPENDED},
- {"CREATE_UNICODE_ENVIRONMENT",CREATE_UNICODE_ENVIRONMENT},
- {"DETACHED_PROCESS",DETACHED_PROCESS},
- {"HIGH_PRIORITY_CLASS",HIGH_PRIORITY_CLASS},
- {"IDLE_PRIORITY_CLASS",IDLE_PRIORITY_CLASS},
- {"NORMAL_PRIORITY_CLASS",NORMAL_PRIORITY_CLASS},
- {"REALTIME_PRIORITY_CLASS",REALTIME_PRIORITY_CLASS},
- {"FOREGROUND_BLUE",FOREGROUND_BLUE},
- {"FOREGROUND_GREEN",FOREGROUND_GREEN},
- {"FOREGROUND_RED",FOREGROUND_RED},
- {"FOREGROUND_INTENSITY",FOREGROUND_INTENSITY},
- {"BACKGROUND_BLUE",BACKGROUND_BLUE},
- {"BACKGROUND_GREEN",BACKGROUND_GREEN},
- {"BACKGROUND_RED",BACKGROUND_RED},
- {"BACKGROUND_INTENSITY",BACKGROUND_INTENSITY},
- {"STARTF_FORCEONFEEDBACK",STARTF_FORCEONFEEDBACK},
- {"STARTF_FORCEOFFFEEDBACK",STARTF_FORCEOFFFEEDBACK},
- {"STARTF_RUNFULLSCREEN",STARTF_RUNFULLSCREEN},
- {"STARTF_USECOUNTCHARS",STARTF_USECOUNTCHARS},
- {"STARTF_USEFILLATTRIBUTE",STARTF_USEFILLATTRIBUTE},
- {"STARTF_USEPOSITION",STARTF_USEPOSITION},
- {"STARTF_USESHOWWINDOW",STARTF_USESHOWWINDOW},
- {"STARTF_USESIZE",STARTF_USESIZE},
- {"STARTF_USESTDHANDLES",STARTF_USESTDHANDLES},
- {"SW_HIDE",SW_HIDE},
- {"SW_MAXIMIZE",SW_MAXIMIZE},
- {"SW_MINIMIZE",SW_MINIMIZE},
- {"SW_RESTORE",SW_RESTORE},
- {"SW_SHOW",SW_SHOW},
- {"SW_SHOWDEFAULT",SW_SHOWDEFAULT},
- {"SW_SHOWMAXIMIZED",SW_SHOWMAXIMIZED},
- {"SW_SHOWMINIMIZED",SW_SHOWMINIMIZED},
- {"SW_SHOWMINNOACTIVE",SW_SHOWMINNOACTIVE},
- {"SW_SHOWNA",SW_SHOWNA},
- {"SW_SHOWNOACTIVATE",SW_SHOWNOACTIVATE},
- {"SW_SHOWNORMAL",SW_SHOWNORMAL},
- {"GENERIC_READ",GENERIC_READ},
- {"GENERIC_WRITE",GENERIC_WRITE},
- {"MAXIMUM_ALLOWED",MAXIMUM_ALLOWED},
- {"GENERIC_EXECUTE",GENERIC_EXECUTE},
- {"GENERIC_ALL",GENERIC_ALL},
- {"FILE_SHARE_READ",FILE_SHARE_READ},
- {"FILE_SHARE_WRITE",FILE_SHARE_WRITE},
- {"CREATE_NEW",CREATE_NEW},
- {"CREATE_ALWAYS",CREATE_ALWAYS},
- {"OPEN_EXISTING",OPEN_EXISTING},
- {"OPEN_ALWAYS",OPEN_ALWAYS},
- {"TRUNCATE_EXISTING",TRUNCATE_EXISTING},
- {"FILE_ATTRIBUTE_ARCHIVE",FILE_ATTRIBUTE_ARCHIVE},
- {"FILE_ATTRIBUTE_ENCRYPTED",FILE_ATTRIBUTE_ENCRYPTED},
- {"FILE_ATTRIBUTE_HIDDEN",FILE_ATTRIBUTE_HIDDEN},
- {"FILE_ATTRIBUTE_NORMAL",FILE_ATTRIBUTE_NORMAL},
- {"FILE_ATTRIBUTE_NOT_CONTENT_INDEXED",FILE_ATTRIBUTE_NOT_CONTENT_INDEXED},
- {"FILE_ATTRIBUTE_OFFLINE",FILE_ATTRIBUTE_OFFLINE},
- {"FILE_ATTRIBUTE_READONLY",FILE_ATTRIBUTE_READONLY},
- {"FILE_ATTRIBUTE_SYSTEM",FILE_ATTRIBUTE_SYSTEM},
- {"FILE_ATTRIBUTE_TEMPORARY",FILE_ATTRIBUTE_TEMPORARY},
- {"FILE_FLAG_WRITE_THROUGH",FILE_FLAG_WRITE_THROUGH},
- {"FILE_FLAG_OVERLAPPED",FILE_FLAG_OVERLAPPED},
- {"FILE_FLAG_NO_BUFFERING",FILE_FLAG_NO_BUFFERING},
- {"FILE_FLAG_RANDOM_ACCESS",FILE_FLAG_RANDOM_ACCESS},
- {"FILE_FLAG_SEQUENTIAL_SCAN",FILE_FLAG_SEQUENTIAL_SCAN},
- {"FILE_FLAG_DELETE_ON_CLOSE",FILE_FLAG_DELETE_ON_CLOSE},
- {"FILE_FLAG_POSIX_SEMANTICS",FILE_FLAG_POSIX_SEMANTICS},
- {"FILE_FLAG_OPEN_REPARSE_POINT",FILE_FLAG_OPEN_REPARSE_POINT},
- {"FILE_FLAG_OPEN_NO_RECALL",FILE_FLAG_OPEN_NO_RECALL},
- {"SECURITY_ANONYMOUS",SECURITY_ANONYMOUS},
- {"SECURITY_IDENTIFICATION",SECURITY_IDENTIFICATION},
- {"SECURITY_IMPERSONATION",SECURITY_IMPERSONATION},
- {"SECURITY_DELEGATION",SECURITY_DELEGATION},
- {"SECURITY_CONTEXT_TRACKING",SECURITY_CONTEXT_TRACKING},
- {"SECURITY_EFFECTIVE_ONLY",SECURITY_EFFECTIVE_ONLY},
- {"PM_REMOVE",PM_REMOVE},
- {"PM_NOREMOVE",PM_NOREMOVE},
- {"HKEY_CLASSES_ROOT",(unsigned long)HKEY_CLASSES_ROOT},
- {"HKEY_CURRENT_CONFIG",(unsigned long)HKEY_CURRENT_CONFIG},
- {"HKEY_CURRENT_USER",(unsigned long)HKEY_CURRENT_USER},
- {"HKEY_LOCAL_MACHINE",(unsigned long)HKEY_LOCAL_MACHINE},
- {"HKEY_USERS",(unsigned long)HKEY_USERS},
- {"REG_BINARY",REG_BINARY},
- {"REG_DWORD",REG_DWORD},
- {"REG_DWORD_BIG_ENDIAN",REG_DWORD_BIG_ENDIAN},
- {"REG_EXPAND_SZ",REG_EXPAND_SZ},
- {"REG_MULTI_SZ",REG_MULTI_SZ},
- {"REG_SZ",REG_SZ},
- {"CSIDL_STARTUP",CSIDL_STARTUP},
- {"CSIDL_STARTMENU",CSIDL_STARTMENU},
- {"CSIDL_COMMON_PROGRAMS",CSIDL_COMMON_PROGRAMS},
- {"CSIDL_COMMON_STARTUP",CSIDL_COMMON_STARTUP},
- {"CSIDL_COMMON_STARTMENU",CSIDL_COMMON_STARTMENU},
- {"CSIDL_PROGRAM_FILES", 38},
- {"SERVICE_CONTROL_STOP", SERVICE_CONTROL_STOP},
- {"SERVICE_CONTROL_PAUSE", SERVICE_CONTROL_PAUSE},
- {"SERVICE_CONTROL_CONTINUE", SERVICE_CONTROL_CONTINUE},
- {"SERVICE_CONTROL_INTERROGATE", SERVICE_CONTROL_INTERROGATE},
- {"SERVICE_CONTROL_SHUTDOWN", SERVICE_CONTROL_SHUTDOWN},
-
- {"SERVICE_STOPPED", SERVICE_STOPPED},
- {"SERVICE_START_PENDING", SERVICE_START_PENDING},
- {"SERVICE_STOP_PENDING", SERVICE_STOP_PENDING},
- {"SERVICE_RUNNING", SERVICE_RUNNING},
- {"SERVICE_CONTINUE_PENDING", SERVICE_CONTINUE_PENDING},
- {"SERVICE_PAUSE_PENDING", SERVICE_PAUSE_PENDING},
- {"SERVICE_PAUSED", SERVICE_PAUSED},
-
- {"SERVICE_BOOT_START", SERVICE_BOOT_START},
- {"SERVICE_SYSTEM_START", SERVICE_SYSTEM_START},
- {"SERVICE_AUTO_START", SERVICE_AUTO_START},
- {"SERVICE_DEMAND_START", SERVICE_DEMAND_START},
- {"SERVICE_DISABLED", SERVICE_DISABLED},
- {NULL,0}
- };
-
+ char *name;
+ DWORD value;
+} consts[] = {
+ { "TRUE", TRUE },
+ { "FALSE", FALSE },
+ { "INVALID_HANDLE_VALUE", (unsigned long)INVALID_HANDLE_VALUE },
+ { "INFINITE", INFINITE },
+ { "EVENT_ALL_ACCESS", EVENT_ALL_ACCESS },
+ { "EVENT_MODIFY_STATE", EVENT_MODIFY_STATE },
+ { "SYNCHRONIZE", SYNCHRONIZE },
+ { "MUTEX_ALL_ACCESS", MUTEX_ALL_ACCESS },
+ { "SEMAPHORE_ALL_ACCESS", SEMAPHORE_ALL_ACCESS },
+ { "SEMAPHORE_MODIFY_STATE", SEMAPHORE_MODIFY_STATE },
+ { "WAIT_OBJECT_0", WAIT_OBJECT_0 },
+ { "WAIT_ABANDONED_0", WAIT_ABANDONED_0 },
+ { "WAIT_ABANDONED", WAIT_ABANDONED },
+ { "WAIT_TIMEOUT", WAIT_TIMEOUT },
+ { "WAIT_FAILED", WAIT_FAILED },
+ { "CREATE_DEFAULT_ERROR_MODE", CREATE_DEFAULT_ERROR_MODE },
+ { "CREATE_NEW_CONSOLE", CREATE_NEW_CONSOLE },
+ { "CREATE_NEW_PROCESS_GROUP", CREATE_NEW_PROCESS_GROUP },
+ { "CREATE_SUSPENDED", CREATE_SUSPENDED },
+ { "CREATE_UNICODE_ENVIRONMENT", CREATE_UNICODE_ENVIRONMENT },
+ { "DETACHED_PROCESS", DETACHED_PROCESS },
+ { "HIGH_PRIORITY_CLASS", HIGH_PRIORITY_CLASS },
+ { "IDLE_PRIORITY_CLASS", IDLE_PRIORITY_CLASS },
+ { "NORMAL_PRIORITY_CLASS", NORMAL_PRIORITY_CLASS },
+ { "REALTIME_PRIORITY_CLASS", REALTIME_PRIORITY_CLASS },
+ { "FOREGROUND_BLUE", FOREGROUND_BLUE },
+ { "FOREGROUND_GREEN", FOREGROUND_GREEN },
+ { "FOREGROUND_RED", FOREGROUND_RED },
+ { "FOREGROUND_INTENSITY", FOREGROUND_INTENSITY },
+ { "BACKGROUND_BLUE", BACKGROUND_BLUE },
+ { "BACKGROUND_GREEN", BACKGROUND_GREEN },
+ { "BACKGROUND_RED", BACKGROUND_RED },
+ { "BACKGROUND_INTENSITY", BACKGROUND_INTENSITY },
+ { "STARTF_FORCEONFEEDBACK", STARTF_FORCEONFEEDBACK },
+ { "STARTF_FORCEOFFFEEDBACK", STARTF_FORCEOFFFEEDBACK },
+ { "STARTF_RUNFULLSCREEN", STARTF_RUNFULLSCREEN },
+ { "STARTF_USECOUNTCHARS", STARTF_USECOUNTCHARS },
+ { "STARTF_USEFILLATTRIBUTE", STARTF_USEFILLATTRIBUTE },
+ { "STARTF_USEPOSITION", STARTF_USEPOSITION },
+ { "STARTF_USESHOWWINDOW", STARTF_USESHOWWINDOW },
+ { "STARTF_USESIZE", STARTF_USESIZE },
+ { "STARTF_USESTDHANDLES", STARTF_USESTDHANDLES },
+ { "SW_HIDE", SW_HIDE },
+ { "SW_MAXIMIZE", SW_MAXIMIZE },
+ { "SW_MINIMIZE", SW_MINIMIZE },
+ { "SW_RESTORE", SW_RESTORE },
+ { "SW_SHOW", SW_SHOW },
+ { "SW_SHOWDEFAULT", SW_SHOWDEFAULT },
+ { "SW_SHOWMAXIMIZED", SW_SHOWMAXIMIZED },
+ { "SW_SHOWMINIMIZED", SW_SHOWMINIMIZED },
+ { "SW_SHOWMINNOACTIVE", SW_SHOWMINNOACTIVE },
+ { "SW_SHOWNA", SW_SHOWNA },
+ { "SW_SHOWNOACTIVATE", SW_SHOWNOACTIVATE },
+ { "SW_SHOWNORMAL", SW_SHOWNORMAL },
+ { "GENERIC_READ", GENERIC_READ },
+ { "GENERIC_WRITE", GENERIC_WRITE },
+ { "MAXIMUM_ALLOWED", MAXIMUM_ALLOWED },
+ { "GENERIC_EXECUTE", GENERIC_EXECUTE },
+ { "GENERIC_ALL", GENERIC_ALL },
+ { "FILE_SHARE_READ", FILE_SHARE_READ },
+ { "FILE_SHARE_WRITE", FILE_SHARE_WRITE },
+ { "CREATE_NEW", CREATE_NEW },
+ { "CREATE_ALWAYS", CREATE_ALWAYS },
+ { "OPEN_EXISTING", OPEN_EXISTING },
+ { "OPEN_ALWAYS", OPEN_ALWAYS },
+ { "TRUNCATE_EXISTING", TRUNCATE_EXISTING },
+ { "FILE_ATTRIBUTE_ARCHIVE", FILE_ATTRIBUTE_ARCHIVE },
+ { "FILE_ATTRIBUTE_ENCRYPTED", FILE_ATTRIBUTE_ENCRYPTED },
+ { "FILE_ATTRIBUTE_HIDDEN", FILE_ATTRIBUTE_HIDDEN },
+ { "FILE_ATTRIBUTE_NORMAL", FILE_ATTRIBUTE_NORMAL },
+ { "FILE_ATTRIBUTE_NOT_CONTENT_INDEXED", FILE_ATTRIBUTE_NOT_CONTENT_INDEXED },
+ { "FILE_ATTRIBUTE_OFFLINE", FILE_ATTRIBUTE_OFFLINE },
+ { "FILE_ATTRIBUTE_READONLY", FILE_ATTRIBUTE_READONLY },
+ { "FILE_ATTRIBUTE_SYSTEM", FILE_ATTRIBUTE_SYSTEM },
+ { "FILE_ATTRIBUTE_TEMPORARY", FILE_ATTRIBUTE_TEMPORARY },
+ { "FILE_FLAG_WRITE_THROUGH", FILE_FLAG_WRITE_THROUGH },
+ { "FILE_FLAG_OVERLAPPED", FILE_FLAG_OVERLAPPED },
+ { "FILE_FLAG_NO_BUFFERING", FILE_FLAG_NO_BUFFERING },
+ { "FILE_FLAG_RANDOM_ACCESS", FILE_FLAG_RANDOM_ACCESS },
+ { "FILE_FLAG_SEQUENTIAL_SCAN", FILE_FLAG_SEQUENTIAL_SCAN },
+ { "FILE_FLAG_DELETE_ON_CLOSE", FILE_FLAG_DELETE_ON_CLOSE },
+ { "FILE_FLAG_POSIX_SEMANTICS", FILE_FLAG_POSIX_SEMANTICS },
+ { "FILE_FLAG_OPEN_REPARSE_POINT", FILE_FLAG_OPEN_REPARSE_POINT },
+ { "FILE_FLAG_OPEN_NO_RECALL", FILE_FLAG_OPEN_NO_RECALL },
+ { "SECURITY_ANONYMOUS", SECURITY_ANONYMOUS },
+ { "SECURITY_IDENTIFICATION", SECURITY_IDENTIFICATION },
+ { "SECURITY_IMPERSONATION", SECURITY_IMPERSONATION },
+ { "SECURITY_DELEGATION", SECURITY_DELEGATION },
+ { "SECURITY_CONTEXT_TRACKING", SECURITY_CONTEXT_TRACKING },
+ { "SECURITY_EFFECTIVE_ONLY", SECURITY_EFFECTIVE_ONLY },
+ { "PM_REMOVE", PM_REMOVE },
+ { "PM_NOREMOVE", PM_NOREMOVE },
+ { "HKEY_CLASSES_ROOT", (unsigned long)HKEY_CLASSES_ROOT },
+ { "HKEY_CURRENT_CONFIG", (unsigned long)HKEY_CURRENT_CONFIG },
+ { "HKEY_CURRENT_USER", (unsigned long)HKEY_CURRENT_USER },
+ { "HKEY_LOCAL_MACHINE", (unsigned long)HKEY_LOCAL_MACHINE },
+ { "HKEY_USERS", (unsigned long)HKEY_USERS },
+ { "REG_BINARY", REG_BINARY },
+ { "REG_DWORD", REG_DWORD },
+ { "REG_DWORD_BIG_ENDIAN", REG_DWORD_BIG_ENDIAN },
+ { "REG_EXPAND_SZ", REG_EXPAND_SZ },
+ { "REG_MULTI_SZ", REG_MULTI_SZ },
+ { "REG_SZ", REG_SZ },
+ { "CSIDL_STARTUP", CSIDL_STARTUP },
+ { "CSIDL_STARTMENU", CSIDL_STARTMENU },
+ { "CSIDL_COMMON_PROGRAMS", CSIDL_COMMON_PROGRAMS },
+ { "CSIDL_COMMON_STARTUP", CSIDL_COMMON_STARTUP },
+ { "CSIDL_COMMON_STARTMENU", CSIDL_COMMON_STARTMENU },
+ { "CSIDL_PROGRAM_FILES", 38 },
+ { "SERVICE_CONTROL_STOP", SERVICE_CONTROL_STOP },
+ { "SERVICE_CONTROL_PAUSE", SERVICE_CONTROL_PAUSE },
+ { "SERVICE_CONTROL_CONTINUE", SERVICE_CONTROL_CONTINUE },
+ { "SERVICE_CONTROL_INTERROGATE", SERVICE_CONTROL_INTERROGATE },
+ { "SERVICE_CONTROL_SHUTDOWN", SERVICE_CONTROL_SHUTDOWN },
+
+ { "SERVICE_STOPPED", SERVICE_STOPPED },
+ { "SERVICE_START_PENDING", SERVICE_START_PENDING },
+ { "SERVICE_STOP_PENDING", SERVICE_STOP_PENDING },
+ { "SERVICE_RUNNING", SERVICE_RUNNING },
+ { "SERVICE_CONTINUE_PENDING", SERVICE_CONTINUE_PENDING },
+ { "SERVICE_PAUSE_PENDING", SERVICE_PAUSE_PENDING },
+ { "SERVICE_PAUSED", SERVICE_PAUSED },
+
+ { "SERVICE_BOOT_START", SERVICE_BOOT_START },
+ { "SERVICE_SYSTEM_START", SERVICE_SYSTEM_START },
+ { "SERVICE_AUTO_START", SERVICE_AUTO_START },
+ { "SERVICE_DEMAND_START", SERVICE_DEMAND_START },
+ { "SERVICE_DISABLED", SERVICE_DISABLED },
+
+ { "MB_ICONASTERISK", MB_ICONASTERISK },
+ { "MB_ICONEXCLAMATION", MB_ICONEXCLAMATION },
+ { "MB_ICONERROR", MB_ICONERROR },
+ { "MB_ICONHAND", MB_ICONHAND },
+ { "MB_ICONINFORMATION", MB_ICONINFORMATION },
+ { "MB_ICONQUESTION", MB_ICONQUESTION },
+ { "MB_ICONSTOP", MB_ICONSTOP },
+ { "MB_ICONWARNING", MB_ICONWARNING },
+ { "MB_OK", MB_OK },
+
+ { "BM_CLICK", BM_CLICK },
+ { NULL, 0 }
+};
/***********************************************/
@@ -1922,69 +2087,79 @@ static luaL_Reg winApi[] = { "SetRegValue", lua_SetRegValue },
{ "DeleteRegValue", lua_DeleteRegValue },
- {"ShellOpen", global_ShellOpen},
- {"FindWindow", global_FindWindow},
- {"RegisterHotKey", global_RegisterHotKey},
- {"SetForegroundWindow", global_SetForegroundWindow},
- {"PostMessage", global_PostMessage},
- {"PostThreadMessage", global_PostThreadMessage},
- {"GetMessage", global_GetMessage},
- {"PeekMessage", global_PeekMessage},
- {"ReplyMessage", global_ReplyMessage},
- {"DispatchMessage", global_DispatchMessage},
- {"SetTopmost", global_SetTopmost},
- {"GetLastError", global_GetLastError},
- {"CloseHandle", global_CloseHandle},
- {"CreateEvent", global_CreateEvent},
- {"OpenEvent", global_OpenEvent},
- {"PulseEvent", global_PulseEvent},
- {"ResetEvent", global_ResetEvent},
- {"SetEvent", global_SetEvent},
- {"CreateMutex", global_CreateMutex},
- {"OpenMutex", global_OpenMutex},
- {"ReleaseMutex", global_ReleaseMutex},
- {"CreateSemaphore", global_CreateSemaphore},
- {"OpenSemaphore", global_OpenSemaphore},
- {"ReleaseSemaphore", global_ReleaseSemaphore},
- {"CreateProcess", global_CreateProcess},
- {"GetTempFileName", global_GetTempFileName},
- {"GetTempPath", global_GetTempPath},
- {"CreateFile", global_CreateFile},
- {"ReadFile", global_ReadFile},
- {"WriteFile", global_WriteFile},
- {"TerminateProcess", global_TerminateProcess},
- {"GetExitCodeProcess", global_GetExitCodeProcess},
- {"WaitForSingleObject",global_WaitForSingleObject},
- {"WaitForMultipleObjects",global_WaitForMultipleObjects},
- {"GetCurrentThreadId",global_GetCurrentThreadId},
- {"RegisterWindowMessage",global_RegisterWindowMessage},
- {"RegQueryValueEx",global_RegQueryValueEx},
- {"RegSetValueEx",global_RegSetValueEx},
- {"RegDeleteKey",global_RegDeleteKey},
- {"RegDeleteValue",global_RegDeleteValue},
- {"RegEnumKeyEx",global_RegEnumKeyEx},
- {"RegEnumValue",global_RegEnumValue},
- {"SetCurrentDirectory",global_SetCurrentDirectory},
- {"SHDeleteKey",global_SHDeleteKey},
- {"Sleep",global_Sleep},
- {"GetVersion",global_GetVersion},
- {"FindFirstFile", global_FindFirstFile},
- {"FindNextFile", global_FindNextFile},
- {"FindClose", global_FindClose},
- {"SHGetSpecialFolderLocation",global_SHGetSpecialFolderLocation},
- {"GetFullPathName",global_GetFullPathName},
- {"IsUserAdmin",global_IsUserAdmin},
- {"OpenProcess", global_OpenProcess},
- {"IsRunning",global_IsRunning},
- {"GetWindowThreadProcessId",global_GetWindowThreadProcessId},
- {"OpenSCManager",global_OpenSCManager},
- {"OpenService",global_OpenService},
- {"CloseServiceHandle",global_CloseServiceHandle},
- {"QueryServiceStatus",global_QueryServiceStatus},
- {"QueryServiceConfig",global_QueryServiceConfig},
- {"ControlService",global_ControlService},
- {"DeleteService",global_DeleteService},
- {"StartService",global_StartService},
+ { "ShellOpen", global_ShellOpen },
+ { "FindWindow", global_FindWindow },
+ { "FindWindowEx", global_FindWindowEx },
+ { "SetFocus", global_SetFocus },
+ { "GetWindowText", global_GetWindowText },
+ { "SetWindowText", global_SetWindowText },
+ { "GetWindowRect", global_GetWindowRect },
+ { "RegisterHotKey", global_RegisterHotKey },
+ { "SetForegroundWindow", global_SetForegroundWindow },
+ { "PostMessage", global_PostMessage },
+ { "PostThreadMessage", global_PostThreadMessage },
+ { "GetMessage", global_GetMessage },
+ { "PeekMessage", global_PeekMessage },
+ { "ReplyMessage", global_ReplyMessage },
+ { "DispatchMessage", global_DispatchMessage },
+ { "SetTopmost", global_SetTopmost },
+ { "GetLastError", global_GetLastError },
+ { "CloseHandle", global_CloseHandle },
+ { "CreateEvent", global_CreateEvent },
+ { "OpenEvent", global_OpenEvent },
+ { "PulseEvent", global_PulseEvent },
+ { "ResetEvent", global_ResetEvent },
+ { "SetEvent", global_SetEvent },
+ { "CreateMutex", global_CreateMutex },
+ { "OpenMutex", global_OpenMutex },
+ { "ReleaseMutex", global_ReleaseMutex },
+ { "CreateSemaphore", global_CreateSemaphore },
+ { "OpenSemaphore", global_OpenSemaphore },
+ { "ReleaseSemaphore", global_ReleaseSemaphore },
+ { "CreateProcess", global_CreateProcess },
+ { "GetTempFileName", global_GetTempFileName },
+ { "GetTempPath", global_GetTempPath },
+ { "CreateFile", global_CreateFile },
+ { "ReadFile", global_ReadFile },
+ { "WriteFile", global_WriteFile },
+ { "TerminateProcess", global_TerminateProcess },
+ { "GetExitCodeProcess", global_GetExitCodeProcess },
+ { "WaitForSingleObject", global_WaitForSingleObject },
+ { "WaitForMultipleObjects", global_WaitForMultipleObjects },
+ { "GetCurrentThreadId", global_GetCurrentThreadId },
+ { "RegisterWindowMessage", global_RegisterWindowMessage },
+ { "RegQueryValueEx", global_RegQueryValueEx },
+ { "RegSetValueEx", global_RegSetValueEx },
+ { "RegDeleteKey", global_RegDeleteKey },
+ { "RegDeleteValue", global_RegDeleteValue },
+ { "RegEnumKeyEx", global_RegEnumKeyEx },
+ { "RegEnumValue", global_RegEnumValue },
+ { "SetCurrentDirectory", global_SetCurrentDirectory },
+ { "SHDeleteKey", global_SHDeleteKey },
+ { "Sleep", global_Sleep },
+ { "GetVersion", global_GetVersion },
+ { "FindFirstFile", global_FindFirstFile },
+ { "FindNextFile", global_FindNextFile },
+ { "FindClose", global_FindClose },
+ { "SHGetSpecialFolderLocation", global_SHGetSpecialFolderLocation },
+ { "GetFullPathName", global_GetFullPathName },
+ { "IsUserAdmin", global_IsUserAdmin },
+ { "OpenProcess", global_OpenProcess },
+ { "IsRunning", global_IsRunning },
+ { "GetWindowThreadProcessId", global_GetWindowThreadProcessId },
+ { "OpenSCManager", global_OpenSCManager },
+ { "OpenService", global_OpenService },
+ { "CloseServiceHandle", global_CloseServiceHandle },
+ { "QueryServiceStatus", global_QueryServiceStatus },
+ { "QueryServiceConfig", global_QueryServiceConfig },
+ { "ControlService", global_ControlService },
+ { "DeleteService", global_DeleteService },
+ { "StartService", global_StartService },
+ { "mciSendString", global_mciSendString },
+ { "MessageBeep", global_MessageBeep },
+ { "Beep", global_Beep },
+ { "CoInitialize", global_CoInitialize },
+ { "CoUninitialize", global_CoUninitialize },
{ NULL, NULL }
|