0

我可以添加.JPEG, .PNG, .SDF, .MDF等等。但为什么我不能.Ink为我的安装项目添加扩展?

4

1 回答 1

1

.Ink 是快捷方式我认为这就是为什么你不能添加它,我想你想在桌面上创建一个快捷方式,你可以试试这个

Imports IWshRuntimeLibrary

 Dim WshShell As WshShellClass = New WshShellClass
        Dim MyShortcut As IWshRuntimeLibrary.IWshShortcut
        ' The shortcut will be created on the desktop
        Dim DesktopFolder As String = Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory)
        MyShortcut = CType(WshShell.CreateShortcut(DesktopFolder & "\MyShortcutName.lnk"), IWshRuntimeLibrary.IWshShortcut)
        MyShortcut.TargetPath = Application.StartupPath & "\YourApp.exe" 'Specify target app full path
        MyShortcut.Save()
End Sub
于 2013-06-01T12:32:02.960 回答