Imports IWshRuntimeLibraryPublic Shared Sub Main() Application.EnableVisualStyles() Application.SetCompatibleTextRenderingDefault(False) Try Dim startpath As String = Environment.GetFolderPath(Environment.SpecialFolder.StartMenu) + "\\程序\\网\\中心.appref-ms" '创建快捷方式 Dim shell As WshShell = New WshShell() Dim shortcut As IWshShortcut = CType(shell.CreateShortcut(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) + "\\中心.lnk"), IWshShortcut) shortcut.TargetPath = startpath shortcut.WorkingDirectory = Environment.GetFolderPath(Environment.SpecialFolder.StartMenu) + "\\程序\\网" shortcut.WindowStyle = 2 '//shortcut.Arguments = "/p XMAPGL /nologo"; //指向目标运行的参数 shortcut.Description = "中心" '图标默认为程序中的exe,它会自动读取该图标路径,Good !!! 'shortcut.IconLocation = System.Environment.CurrentDirectory + "\\" + "ClientIco.ico" 'System.Environment.SystemDirectory + "\\" + "shell32.dll, 163"; If Not System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) + "\\中心.lnk") Then shortcut.Save() Else End If Catch End Try If New LoginForm().ShowDialog() = DialogResult.OK Then Application.Run(New FormMain()) End If End Sub
选择你的exe,右键-创建exe的快捷方式。
然后把这个快捷方式放到“用户桌面”文件夹
这个是制作快捷方式的办法,问题就是这样制作出来的快捷方式是指向安装目录,而不是exe文件
7单击“文件系统”中的“用户桌面”,操作上一步骤
生成的快捷方式 属性 中显示的还是安装路径,没有指向 exe文件,你可以对比一下其他的快捷方式属性信息
但是安装以后,快捷方式总是指向安装路径
你可以安装以后,选择桌面快捷方式,右键属性菜单查看,其中查找目标按钮是灰色的难道。net打包就只能这样?
7单击“文件系统”中的“用户桌面”,操作上一步骤
我现在可以生成桌面快捷方式,我的问题是生成的桌面快捷方式是指向的文件夹路径,而不是exe文件“你可以安装以后,选择桌面快捷方式,右键属性菜单查看,其中查找目标按钮是灰色的”
这句话的意思是打包制成安装文件以后,在另外的机器测试安装,桌面会生成一个快捷方式
选中快捷方式,右键属性菜单查看,发现指向的是路径,而不是exe文件,并且 查看目标 按钮式灰色的
这是发现的问题,不是说我制作打包文件的时候这么操作哎呀,打了好长一串,感觉越来越解释不清楚,手头有.net打包工程的朋友可以试着安装看看
Imports IWshRuntimeLibraryPublic Shared Sub Main()
Application.EnableVisualStyles()
Application.SetCompatibleTextRenderingDefault(False) Try
Dim startpath As String = Environment.GetFolderPath(Environment.SpecialFolder.StartMenu) + "\\程序\\网\\中心.appref-ms"
'创建快捷方式
Dim shell As WshShell = New WshShell()
Dim shortcut As IWshShortcut = CType(shell.CreateShortcut(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) + "\\中心.lnk"), IWshShortcut)
shortcut.TargetPath = startpath
shortcut.WorkingDirectory = Environment.GetFolderPath(Environment.SpecialFolder.StartMenu) + "\\程序\\网"
shortcut.WindowStyle = 2
'//shortcut.Arguments = "/p XMAPGL /nologo"; //指向目标运行的参数
shortcut.Description = "中心" '图标默认为程序中的exe,它会自动读取该图标路径,Good !!!
'shortcut.IconLocation = System.Environment.CurrentDirectory + "\\" + "ClientIco.ico" 'System.Environment.SystemDirectory + "\\" + "shell32.dll, 163"; If Not System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) + "\\中心.lnk") Then shortcut.Save()
Else
End If
Catch End Try If New LoginForm().ShowDialog() = DialogResult.OK Then
Application.Run(New FormMain())
End If
End Sub
选择你的exe,右键-创建exe的快捷方式。
然后把这个快捷方式放到“用户桌面”就可以了
怎么会,快捷方式肯定是指向exe 文件啊。不明白你什么意思
.net下我们做了无数个安装个包,还第一听你说快捷方式指向安装文件夹,不指向可执行文件的。在.net安装项目中,建立快捷方式本来就是针对文件啊,哪儿来什么文件夹?
显然你操作不对哈,建议看看MSDN中的部署章节。上面有操作案例。
自己用API实现吧,如果实在需要。
http://www.codeproject.com/KB/winsdk/makelink.aspx
1.建一个安装部署项目会有左侧会有三个文件夹(应用程序文件夹、用户桌面、...)
2.先在应用程序文件夹中添加,一般选择为程序输出
3.用户桌面添加快捷方式选择刚才应用文件夹中的主文件输出希望对你又帮助