执行 Lua WINAPI 代码而不显示 shell 界面。

我使用 Alien for Lua 创建了一个简单的 Lua 应用程序。它能完美地工作,只是当你执行它时,Lua Shell 也会出现。有没有一种方法可以“隐藏”这个 Shell,将它在后台运行,关闭等,这样我只看到消息框?

代码:

require "luarocks.require"
require "alien"

local MessageBox = alien.User32.MessageBoxA
MessageBox:types{ret = "long", abi = "stdcall", "long", "string", "string", "long" }
MessageBox(0, "Hello World!", "My Window Title", 0x00000040)

当前输出:

Current Output

期望输出:

Desired Output

点赞
用户3204551
用户3204551

Windows可执行文件明确列出它们运行的子系统。由于Windows的"lua.exe"链接到控制台子系统,因此Windows会自动为它创建一个控制台窗口。只需将"lua.exe"链接到GUI子系统,您将无法再看到输出,除非您从控制台窗口运行它。顺便说一句:GUI程序可以通过编程方式创建控制台。一个选择是关闭创建的控制台。为此,您必须首先使用SetStdHandleSTDINSTDOUTSTDERR重定向(如果您不想使用它,请使用nul设备打开文件),然后使用FreeConsole来最终解除您不喜欢的控制台窗口。不用担心,您已经安装了"alien"了...

2014-03-05 17:44:20
用户1442917
用户1442917

如果你可以使用winapi模块,或者在Alien中有类似的调用,则可以找到控制台窗口的处理程序并隐藏窗口本身。代码类似于:

require winapi
local pid = winapi.get_current_pid()
local wins = winapi.find_all_windows(function(w)
  return w:get_process():get_pid() == pid
    and w:get_class_name() == 'ConsoleWindowClass'
end)
for _,win in pairs(wins) do win:show_async(winapi.SW_HIDE) end

您需要检查是否会使MessageBox可见。

2014-03-05 18:47:08
用户1847592
用户1847592

程序化解决方案(如果可能,请在“wlua.exe”下运行相同的脚本)

do
   local i, j = 0, 0
   repeat j = j + 1 until not arg[j]
   repeat i = i - 1 until not arg[i-1]
   local exe = arg[i]:lower()
   -- 检查脚本是否在lua.exe下运行
   if exe:find('lua%.exe$') and not exe:find('wlua%.exe$') then
      arg[i] = exe:gsub('lua%.exe$','w%0')
      -- 检查是否存在wlua.exe
      if io.open(arg[i]) then
         -- 在wlua.exe下运行相同的脚本
         os.execute('"start "" "'..table.concat(arg,'" "',i,j-1)..'""')
         -- 立即退出以关闭控制台窗口
         os.exit()
      end
   end
end

-- 主程序在这里:
require "luarocks.require"
require "alien"

local MessageBox = alien.User32.MessageBoxA
MessageBox:types{ret = "long", abi = "stdcall", "long", "string", "string", "long" }
MessageBox(0, "Hello World!", "My Window Title", 0x00000040)
2014-03-05 19:36:23