求教：一个触屏pc快速启动的源码

rushirushi

情景是：希沃的大屏学校电脑win10系统。希望可以在托盘有一个图标。主要功能：左键单击出现一个列表，是对应一个自定义的文件夹，里面是各种快捷方式。（因为电脑会安装还原，而快捷方式需要不关闭的时候更新）论坛看到的都是右键，触屏的右键需要长按。不是很方便。
感谢！！！

baitso

  

子程序名	返回值类型	公开	备 注
__启动窗口_托盘事件
参数名	类 型	参考	可空	数组	备 注
操作类型	整数型

如果 (操作类型 ＝ #单击左键 )
弹出托盘菜单 (托盘菜单)

.版本 2<br /> <br /> .子程序 __启动窗口_托盘事件<br /> .参数 操作类型, 整数型<br /> <br /> .如果 (操作类型 ＝ #单击左键)<br />     弹出托盘菜单 (托盘菜单)<br /> .否则

baitso

2.e (1.09 MB, 下载次数: 0)

2 小时前 上传

点击文件名下载附件

RainCharm

安装AutoHotkey
首先在希沃电脑上安装AutoHotkey（便携软件，可放在非还原分区）

#NoEnv
#SingleInstance Force
#NoTrayIcon

; 配置区域
ShortcutFolder := "D:\MyShortcuts"  ; 自定义快捷方式文件夹路径
MenuHeight := 600                   ; 菜单高度
MenuWidth := 300                    ; 菜单宽度

; 创建托盘图标
Menu, Tray, Icon, shell32.dll, 21   ; 设置托盘图标
Menu, Tray, Tip, 快速启动菜单        ; 托盘提示文本

; 左键单击显示菜单
OnMessage(0x404, "AHK_NOTIFYICON")
return

AHK_NOTIFYICON(wParam, lParam, uMsg, hwnd) {
    if (lParam = 0x201) ; WM_LBUTTONDOWN
    {
        ShowQuickLaunchMenu()
    }
}

ShowQuickLaunchMenu() {
    ; 清空现有菜单
    Menu, QuickLaunch, DeleteAll
   
    ; 检查文件夹是否存在
    IfNotExist, %ShortcutFolder%
    {
        FileCreateDir, %ShortcutFolder%
        Menu, QuickLaunch, Add, 文件夹不存在，已创建, OpenFolder
        Menu, QuickLaunch, Show
        return
    }
   
    ; 获取快捷方式文件
    FileList := ""
    Loop, Files, %ShortcutFolder%\*.lnk
    {
        FileList .= A_LoopFileName "`n"
    }
   
    if (FileList = "") {
        Menu, QuickLaunch, Add, 无快捷方式，点击添加, OpenFolder
        Menu, QuickLaunch, Add
        Menu, QuickLaunch, Add, 打开快捷方式文件夹, OpenFolder
    } else {
        ; 添加快捷方式到菜单
        Loop, Parse, FileList, `n
        {
            if (A_LoopField = "")
                continue
               
            ; 获取不带扩展名的文件名
            SplitPath, A_LoopField, , , , NameNoExt
            Menu, QuickLaunch, Add, %NameNoExt%, LaunchShortcut
        }
        Menu, QuickLaunch, Add
        Menu, QuickLaunch, Add, 打开快捷方式文件夹, OpenFolder
        Menu, QuickLaunch, Add, 刷新菜单, RefreshMenu
    }
   
    ; 显示菜单
    Menu, QuickLaunch, Show
}

LaunchShortcut:
    ; 启动选定的快捷方式
    ShortcutName := A_ThisMenuItem
    ShortcutPath := ShortcutFolder . "\" . ShortcutName . ".lnk"
    Run, %ShortcutPath%, , UseErrorLevel
    if ErrorLevel
        MsgBox, 无法启动: %ShortcutPath%
return

OpenFolder:
    Run, explorer.exe "%ShortcutFolder%"
return

RefreshMenu:
    Reload
return

; 右键托盘菜单
Menu, Tray, Add, 打开菜单, ShowQuickLaunchMenu
Menu, Tray, Add
Menu, Tray, Add, 打开文件夹, OpenFolder
Menu, Tray, Add, 刷新, RefreshMenu
Menu, Tray, Add, 退出, ExitApp
Menu, Tray, Default, 打开菜单
return

ExitApp:
    ExitApp
return

你试下这个，针对触摸屏的方案