中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 如何用cmd创建某个软件的快捷方式？

kaidashi01
初级用户

积分 108
发帖 38
注册 2006-5-7
状态离线

『楼主』: 如何用cmd创建某个软件的快捷方式？

在winxp里如何用命令来创建快捷方式？

2006-5-10 17:46

Michael
钻石会员

积分 10046
发帖 3039
注册 2002-11-11
状态离线

『第 2 楼』:

internet快捷方式是文本格式的，可以参考一下。

─────────────────　版主提示　─────────────────
关于这个方案的实现有以下实例，具体请参考[1]，
实例1：

echo [InternetShortcut] >>a.url

echo URL=c:\windows\system32\notepad.exe >>a.url

echo IconIndex=29 >>a.url

echo IconFile=C:\windows\system32\shell32.dll >>a.url

实例2：

@echo off

if exist "%1.url" echo 链接 "%1.url" 已创建！ & goto :eof

if exist "%~f2" echo 目标 "%~f2" 不存在！ & goto :eof

echo [InternetShortcut] > "%1.URL"

echo URL=%~f2 >> "%1.URL"

echo IconIndex=0 >> "%1.URL"

echo IconFile=%~f2 >> "%1.URL"

[1]如何用批处理创建一个快捷方式？
http://www.cn-dos.net/forum/viewthread.php?tid=20183
─────────────────　版主提示　─────────────────

[ Last edited by willsort on 2006-5-11 at 17:46 ]

简单就是美

2006-5-10 17:55

tigerpower
中级用户

大师兄

积分 377
发帖 99
注册 2005-8-26
状态离线

『第 3 楼』:

Windows XP里没有命令是专么干这件事的。可以借助其他工具。
1. Windows 95或Nt 4.0 Resource Kit里都有一个叫shortcut.exe的命令。（推荐）
2. 第三方Shortcut.exe
3. 使用vbs
-------------------------------------------------------------------------------------------
Dim WSHShell, fs
Set WSHShell = WScript.CreateObject("WScript.Shell")
Set fs = WScript.CreateObject("Scripting.FileSystemObject")
Function MakeDesktopShortcut( name, target )
Dim Shortcut,DesktopPath,StartupPath
DesktopPath = WSHShell.SpecialFolders("Desktop")
Set Shortcut = WSHShell.CreateShortcut(DesktopPath & "\" & name & ".lnk")
Shortcut.TargetPath = target
StartupPath = fs.GetParentFolderName( target )
If fs.FolderExists( StartupPath ) then
Shortcut.WorkingDirectory = StartupPath
End If
Shortcut.Save
End Function

MakeDesktopShortcut "Shortcut to Notepad", "C:\Windows\Notepad.exe"
--------------------------------------------------------------------------------------------

2006-5-10 20:09

3742668
荣誉版主

积分 2013
发帖 718
注册 2006-2-18
状态离线

『第 4 楼』:

可以参考这个贴子，或者参考楼上的vbs方法，给个注释:

set WshShell = WScript.CreateObject("WScript.Shell")

         strDesktop = WshShell.SpecialFolders("Desktop")                '获得桌面目录

         set oShellLink = WshShell.CreateShortcut(strDesktop & "\qq.lnk")   '快捷方式存放目录及名称

         oShellLink.TargetPath = "C:\Program Files\Tencent\QQ\CoralQQ.exe"  '指向的可执行文件

         oShellLink.WindowStyle = 1                '运行方式

         oShellLink.Hotkey = "CTRL+SHIFT+F"          '快捷键

         oShellLink.IconLocation = "C:\Program Files\Tencent\QQ\QQ.exe, 0" '图标

         oShellLink.Description = "qq"                           '备注

         oShellLink.WorkingDirectory = "C:\Program Files\Tencent\QQ\"  '起始目录

         oShellLink.Save                                        '创建快捷方式

2006-5-10 20:43

electronixtar
铂金会员

积分 7493
发帖 2672
注册 2005-9-2
状态离线

『第 5 楼』:

在XP下可以试试这个：

fsutil file createnew C:\test 0

rundll32.exe appwiz.cpl,NewLinkHere C:\test

系统会提示在C:\下建立一个快捷方式

[ Last edited by electronixtar on 2006-5-10 at 22:32 ]

2006-5-10 22:24

dst1213
新手上路

积分 2
发帖 1
注册 2006-7-24
状态离线

『第 6 楼』:

建一个“c:\setups”文件夹的快捷方式到sendto，添加到右键“发送到”，怎么弄？

2006-7-24 19:39

hpwsb
初级用户

积分 31
发帖 16
注册 2006-12-19
状态离线

『第 7 楼』:

小技巧，说不定以后会帮上我的大忙呢

2006-12-19 20:26

eech
高级用户

积分 906
发帖 346
注册 2006-7-10
状态离线

『第 8 楼』:

Quote:

Originally posted by dst1213 at 2006-7-24 19:39:
建一个“c:\setups”文件夹的快捷方式到sendto，添加到右键“发送到”，怎么弄？

放到那个文件夹就行了

2006-12-20 08:03

lovehack2006
初级用户

积分 135
发帖 64
注册 2006-12-20
状态离线

『第 9 楼』:

我顶！！

2006-12-20 08:11

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: