请问:如何创建快捷方式、修改快捷方式、修改快捷方式的图标、备注、运行方式等等。谢谢

Question

就你的要求来了，但是我没有用过
SORRY

Answer 1

哈哈， yichuan1982(往者不可谏，来者犹可追) 兄，你能来我已经很高兴了，多一个朋友的支持就多一份成功的希望嘛！
让我们一起努力！！！

Answer 2

找到如下代码，可惜是vb的，谁能帮帮忙翻译翻译，谢谢！！！'-----------------------------------------------------
'               创建和删除快捷方式'-----------------------------------------------------
'------名称-------------------作用--------------------
'       CmdAdd1             "创建test程序组快捷方式"按钮
'       CmdAdd2             "创建桌面快捷方式"按钮
'       CmdAdd3             "创建开始菜单快捷方式"按钮
'       CmdAdd4             "创建Test程序组下的快捷方式"按钮
'       CmdDel              "删除所有快捷方式"按钮
'-----------------------------------------------------
'要在VB中创建Windows的快捷方式，需要用到VB的一个动态链接库
'Vb5stkit.dll。在该动态链接库中提供了三个函数
'OSfCreateShellGroup、OSfCreateShellLink、OSfRemoveShellLink
'分别用于创建快捷方式程序组、创建快捷方式和删除快捷方式。
'-----------------------------------------------------
Private Declare Function OSfCreateShellGroup Lib "Vb5stkit.dll" _
Alias "fCreateShellFolder" (ByVal lpstrDirName As String) As Long
'lpstrDirName指定了程序组的名称
'-----------------------------------------------------
Private Declare Function OSfCreateShellLink Lib "Vb5stkit.dll" _
Alias "fCreateShellLink" (ByVal lpstrFolderName As String, _
ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArguments As String) As Long
'lpstrfoldername指定保存快捷方式的文件夹，默认为“c:\Windows\start menu\programs”
'lpstrlinkname指定快捷方式的文件名
'lpstrpathname指定快捷方式所指向的应用程序或文件
'-----------------------------------------------------
Private Declare Function OSfRemoveShellLink Lib "Vb5stkit.dll" _
Alias "fRemoveShellLink" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String) As LongDim lresult As Long
Private Sub CmdAdd1_Click()
    Dim lresult As Long
    '在程序菜单中添加一个名为Test的程序组
    lresult = OSfCreateShellGroup("Test")
End SubPrivate Sub CmdDel_Click()
Dim lresult As Long
    '删除开始菜单上的快捷方式
    lresult = OSfRemoveShellLink("..\..\start menu", "记事本")
    '删除桌面上的快捷方式
    lresult = OSfRemoveShellLink("..\..\desktop", "记事本")
    '删除Test程序组下的快捷方式
    lresult = OSfRemoveShellLink("Test", "记事本")
    
End SubPrivate Sub CmdAdd2_Click()
    Dim lresult As Long
    '在桌面创建记事本的快捷方式
    lresult = OSfCreateShellLink("..\..\desktop", "记事本", "c:\Windows\notepad.exe", "")
End SubPrivate Sub CmdAdd4_Click()
    '在程序菜单的Test程序组下创建记事本的快捷方式
    lresult = OSfCreateShellLink("test", "记事本", "c:\Windows\notepad.exe", "")
End SubPrivate Sub CmdAdd3_Click()
    '在开始菜单创建记事本的快捷方式
    lresult = OSfCreateShellLink("..\..\start menu", "记事本", "c:\Windows\notepad.exe", "")
End Sub

Answer 3

引用COM组件Windows Script Host Object Model；            //设置一个快捷方式
            IWshRuntimeLibrary.WshShell shell = new IWshRuntimeLibrary.WshShellClass();
            IWshRuntimeLibrary.IWshShortcut shortcut = (IWshRuntimeLibrary.IWshShortcut)shell.CreateShortcut("c:\\a.lnk");
            shortcut.TargetPath = "notepad.exe";
            shortcut.Arguments = "c:\\a.txt";
            shortcut.Description = "My Shortcut";
            shortcut.Hotkey = "CTRL+SHIFT+N";
            shortcut.IconLocation = "notepad.exe, 0";
            shortcut.Save();            //得到快捷方式属性
            shortcut = (IWshRuntimeLibrary.IWshShortcut)shell.CreateShortcut("c:\\x.lnk");
            MessageBox.Show(ws.Description);

Answer 4

多谢  OneDotRed() 
我试试看
顶～～～～！

Answer 5

哈哈，成功了！
最后一句应为MessageBox.Show(shortcut.Description);
TO:OneDotRed() 
老大，谢谢你了！！！