|
|
修改开机共享pe的X盘出去的批处理
require 'winapi'
ICP_TIMER_ID = 10001 -- init control panel timer
cmd_line = app:info('cmdline')
app_path = app:info('path')
win_ver = app:info('winver')
is_x = (os.getenv("SystemDrive") == 'X:')
is_pe = (app:info('iswinpe') == 1) -- Windows Preinstallation Environment
is_wes = (string.find(cmd_line, '-wes') and true or false) -- Windows Embedded Standard
is_win = (string.find(cmd_line, '-windows') and true or false) -- Normal Windows
-- 'auto', 'ui_systemInfo', 'system', '' or nil
handle_system_property = 'auto'
--[[ add one more '-' to be '---', will enable this function
function do_ocf(lnkfile, realfile) -- handle open containing folder menu
-- local path = realfile:match('(.+)\\')
-- app:run('cmd', '/k echo ' .. path)
-- totalcmd
app:run('X:\\Progra~1\\TotalCommander\\TOTALCMD64.exe', '/O /T /A \"' .. realfile .. '\"')
-- XYplorer
app:run('X:\\Progra~1\\XYplorer\\XYplorer.exe', '/select=\"' .. realfile .. '\"')
end
--]]
function onload()
-- app:call('run', 'notepad.exe')
-- app:run('notepad.exe')
app:print('WinXShell.exe loading...')
app:print('CommandLine:' .. cmd_line)
app:print('WINPE:'.. tostring(is_pe))
app:print('WES:' .. tostring(is_wes))
end
function ondaemon()
regist_shortcut_ocf()
regist_system_property()
regist_protocols()
end
function onshell()
regist_folder_shell()
regist_shortcut_ocf()
regist_system_property()
regist_protocols()
-- wxsUI('UI_WIFI', 'main.jcfg', '-notrayicon -hidewindow')
-- wxsUI('UI_Volume', 'main.jcfg', '-notrayicon -hidewindow')
end
-- return the resource id for startmenu logo
function startmenu_logoid()
local map = {
["none"] = 0, ["windows"] = 1, ["winpe"] = 2,
["custom1"] = 11, ["custom2"] = 12, ["custom3"] = 13,
["default"] = 1
}
-- use next line for custom (remove "--" and change "none" to what you like)
-- if true then return map["none"] end
if is_pe then return map["winpe"] end
return map["windows"]
end
-- 如果你想自定义时钟区域的显示信息,
-- 请将这个函数名变更为update_clock_text()。
-- 自定义显示示例:
--[[
| 22:00 星期六 |
| 2019-9-14 |
]]
-- FYI:https://www.lua.org/pil/22.1.html
function update_clock_text_sample()
local wd_name = {'日', '一', '二', '三', '四', '五', '六'}
local now_time = os.time()
local wd_disname = ' 星期' .. wd_name[os.date('%w', now_time) + 1]
local clocktext = os.date('%H:%M' .. wd_disname .. '\r\n%Y-%m-%d', now_time)
app:call('SetVar', 'ClockText', clocktext)
end
function onfirstrun()
exec('cmd.exe /c net share X=X: /grant:everyone,full')
exec('/hide', 'X:\\Progra~1\\Yong\\W64\\YONG.EXE')
-- VERSTR = reg_read([[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion]], 'CurrentVersion')
if is_wes then
if win_ver == '6.2' or win_ver == '6.3' then -- only Windows 8, 8.1
app:call('SetTimer', ICP_TIMER_ID, 200) -- use timer to make main shell running
end
end
end
function onclick(ctrl)
if ctrl == 'startmenu_reboot' then
return onclick_startmenu_reboot()
elseif ctrl == 'startmenu_shutdown' then
return onclick_startmenu_shutdown()
elseif ctrl == 'startmenu_controlpanel' then
return onclick_startmenu_controlpanel()
elseif ctrl == 'tray_clockarea' then
return onclick_tray_clockarea()
elseif ctrl == 'tray_clockarea(double)' then
return onclick_tray_clockarea(true)
end
return 1 -- continue shell action
end
function onclick_startmenu_reboot()
-- restart computer directly
exec('/hide', 'wpeutil.exe Reboot')
return 0
end
function onclick_startmenu_shutdown()
-- shutdown computer directly
exec('/hide', 'wpeutil.exe Shutdown')
return 0
end
function onclick_startmenu_controlpanel()
if is_wes then
app:run('control.exe')
return 0
end
return 1
end
function onclick_tray_clockarea(isdouble)
if isdouble then
app:run('control.exe', 'timedate.cpl')
else
wxsUI('UI_Calendar', 'Calendar.jcfg')
end
return 0
end
function ontimer(tid)
if tid == ICP_TIMER_ID then
initcontrolpanel(win_ver)
app:call('KillTimer', tid)
end
end
-- ======================================================================================
function initcontrolpanel(ver)
-- 4161 Control Panel
local ctrlpanel_title = app:call('resstr', '#{@shell32.dll,4161}')
app:run('control.exe')
app:call('sleep', 500)
if CloseWindow('CabinetWClass', ctrlpanel_title) == 0 then
-- 32012 All Control Panel Items
ctrlpanel_title = app:call('resstr', '#{@shell32.dll,32012}')
CloseWindow('CabinetWClass', ctrlpanel_title)
end
end |
|
[复制链接]
IP卡
狗仔卡
发表于 2021-5-29 15:22:51
收藏
支持
反对
提升卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
楼主
