创建当前文件夹的exe的快捷方式去桌面

j2rong

有没有什么好用的批处理方式

cls822001

NSIS 脚本

1. !include "FileFunc.nsh"
   
2. 
   
3. 
   
4. OutFile 遍历当前目录生成快捷方式.exe
   
5. Icon F:\Tools\启动脚本\set.ico
   
6. SilentInstall silent
   
7. 
   
8. Section "创建桌面快捷方式"
   
9.                 SetOutPath "$EXEDIR"
   
10.                
    
11.     StrCpy $0 "$EXEDIR"  
    
12. 
    
13.     StrCpy $3 "$EXEFILE"
    
14. 
    
15.     ; 开始查找EXE文件
    
16.     FindFirst $1 $2 "$0\*.exe"
    
17. 
    
18.     loop:
    
19.         StrCmp $2 "" done  ; 如果找不到文件则跳转到done
    
20. 
    
21.         ; 排除安装程序自身
    
22.         StrCmp $2 "$3" skip  ; 如果文件名匹配则跳过
    
23.         StrCmp $2 "Setup.exe" skip
    
24.         StrCmp $2 "Installer.exe" skip
    
25.         StrCmp $2 "安装程序.exe" skip
    
26.         StrCpy $4 $2 -4 ;快捷方式去掉exe后缀
    
27.         ; 创建桌面快捷方式
    
28.         CreateShortCut "$DESKTOP\$4.lnk" "$0\$2" "" "$0\$2" 0
    
29.         DetailPrint "已创建桌面快捷方式: $2"
    
30. 
    
31.         skip:
    
32.         FindNext $1 $2
    
33.         Goto loop
    
34. 
    
35.     done:
    
36.         FindClose $1
    
37. SectionEnd

复制代码

wn168cn@163.com

支持2#原创

cls822001

第二版 nsis

1. !include "FileFunc.nsh"
   
2. 
   
3. 
   
4. OutFile 一键桌面快捷方式.exe
   
5. Icon F:\Tools\启动脚本\set.ico
   
6. SilentInstall silent
   
7. 
   
8. Section "创建桌面快捷方式"
   
9.                 SetOutPath "$EXEDIR"
   
10.     ; 获取当前目录和目录名
    
11.     StrCpy $0 "$EXEDIR"
    
12. 
    
13.     ; 获取目录名称
    
14.     ${GetParent} "$0" $R0    ; 获取父目录路径
    
15.     ${GetFileName} "$0" $R1  ; 获取当前目录名
    
16. 
    
17.     ; 如果GetFileName获取失败，使用其他方法
    
18.     StrCmp $R1 "" 0 +3
    
19.     StrCpy $R1 "我的程序"  ; 默认名称
    
20.     Goto create_shortcuts
    
21. 
    
22.     ; 开始查找EXE文件
    
23.     FindFirst $1 $2 "$0\*.exe"
    
24. 
    
25.     create_shortcuts:
    
26.     StrCmp $2 "" done
    
27. 
    
28.     loop:
    
29.         StrCmp $2 "" done
    
30. 
    
31.         ; 排除安装程序自身
    
32.         StrCmp $2 "$EXEFILE" skip
    
33. 
    
34.         ; 使用目录名作为快捷方式名称
    
35.         CreateShortCut "$DESKTOP\$R1.lnk" "$0\$2" "" "$0\$2" 0
    
36.         DetailPrint "已创建桌面快捷方式: $R1"
    
37.         Goto done  ; 只创建一个快捷方式
    
38. 
    
39.         skip:
    
40.         FindNext $1 $2
    
41.         Goto loop
    
42. 
    
43.     done:
    
44.         FindClose $1
    
45. SectionEnd

复制代码

yyz2191958

cls822001 发表于 2025-11-22 09:58
NSIS 脚本

助人为乐

smile_z

感谢分享

不点

以上方法貌似要用到（微软之外的）外部软件。

如果使用微软自带的方法，大致有两种，一种是 powershell 方法，另一种是 VBS 方法。前者不需要创建 .vbs 就能实现。后者需要创建 .vbs，然后运行 .vbs 即可。前者的缺点是，依赖 powershell，而 WinXP 没有 powershell，而且即使是 Win11，在 Win11 的 WinPE 下，也可能阉割掉了 powershell。所以，powershell 方法尽管很简捷，但却存在失败场景。

而 VBS 脚本的方法，虽然稍走弯路，但普适性强，基本不会失败。

请自行搜索相关方法和代码。建议用微软的 bing 来搜。

燕飞龙

感谢分享

j2rong

cls822001 发表于 2025-11-22 10:17
第二版 nsis

用不了，是bat吗？比方说我是  100.exe

cls822001

j2rong 发表于 2025-11-22 11:26
用不了，是bat吗？比方说我是  100.exe

nsis 安装脚本 可以编译成exe运行

luntaner

学习了    之前都是手动创建的

j2rong

cls822001 发表于 2025-11-22 11:29
nsis 安装脚本 可以编译成exe运行

如果我想指定某个exe名字   要怎么改

cls822001

j2rong 发表于 2025-11-22 11:39
如果我想指定某个exe名字   要怎么改

排除那些就好了 第二版代码用文件夹名做快捷方式 就是遍历 所有EXE 要单个更简单
         SetShellVarContext all
         CreateShortCut "$DESKTOP\显示器工具.lnk" "$EXEDIR\显示器工具.exe"