标题: 如何建立快捷方式？ [打印本页]

---

作者: 初学者    时间: 2005-7-19 23:48     标题: 如何建立快捷方式？

在网上找了些例子，但都是用VB运行库来建立的，声明为  
Declare  Function  fCreateShellLink  Lib  "VB5STKIT.DLL"  (ByVal  lpstrFolderName  As  String,  ByVal  lpstrLinkName  As  String,  ByVal  lpstrLinkPath  As  String,  ByVal  lpstrLinkArgs  As  String)  As  Long  
Declare  Function  fCreateShellLink  Lib  "VB6STKIT.DLL"  (ByVal  lpstrFolderName  As  String,  ByVal  lpstrLinkName  As  String,  ByVal  lpstrLinkPath  As  String,  ByVal  lpstrLinkArgs  As  String)  As  Long  
之类的，一运行总是说找不到运行库。有没有更好用的方法啊？另外，我可不可以为这个快捷方式指定一个特定的图标呢？

---

作者: Nothing    时间: 2005-7-19 23:49

引用：Windows  Script  Host  ...  

'创建快捷方式  
Public  Sub  CreateShortCutOnDeskTop(ByVal  Name  As  String,  ByVal  Description  As  String,  TargetPath  As  String,  WorkingDirectory  As  String)  
Dim  X  As  New  IWshRuntimeLibrary.IWshShell_Class  
Dim  Y  As  IWshRuntimeLibrary.IWshShortcut_Class  
'Attribute  VB_Name  =  "ShortCut"  
       Set  Y  =  X.CreateShortcut(X.SpecialFolders.item("AllUsersDesktop")  &  ""  &  Name  &  ".lnk")  
       Y.TargetPath  =  TargetPath  
       Y.Description  =  Description  
       Y.WorkingDirectory  =  WorkingDirectory  
       Y.Save  
End  Sub  

---------------------------------------------------------------  

http://www.sijiqing.com/vbgood/article/001192258.html  

请参考  

你之所以找不到库，是因为你的声明不对  


Declare  Function  fCreateShellLink  Lib  "VB5STKIT.DLL"  (ByVal  lpstrFolderName  As  String,  & _
ByVal  lpstrLinkName  As  String,  & _
ByVal  lpstrLinkPath  As  String,  & _
ByVal  lpstrLinkArgs  As  String)  As  Long  
//比如这个fCreateShellLink不是VB6的API啊，你用AIP浏览器查下就知道了  
---------------------------------------------------------------  

DDE建立快捷方式的语法  
1.创建程序组  

命令格式为：  

CreateGroup(程序组名[，程序组所在的路径])  

程序组不存在时进行创建；如程序组存在则按照指定的路径激活。  

2.删除程序组  

命令格式为：  

DeleteGroup(程序组名)  

3.显示程序组  

命令格式为；  

ShowGroup(程序组名，显示标志)  

显示标志用于控制程序组在程序管理器中以极大、极小或正常方式显示。  

4.重新装入程序组  

命令格式为：  

ReLoadGroup(程序组名)  

该命令使程序管理器先删除而后再重新装入一个已有的程序组。  

5.向程序组中添加程序项  

命令格式为：  

AddItem(命令行[，描述[，图标路径[，图标序号[，图标横坐标，图标纵坐标[，工作区目录[，热键[，是否最小化显示标志]]]]]]])  

命令行控制程序项的执行，可包括路径、参数等。其它参数分别对应在程序管理器中添加一个程序项时需要设置的参数和选项。它们都有缺省设置，因而是可选的。  

6.替换程序组中的程序项  

命令格式为：  

ReplaceItem(程序项名)  

该命令删除一个程序项，并将所删除程序项的位置记录下来，以后通过AddItem在这个所记录的位置增加新项目。  

7.从程序组中删除程序项  

命令格式为：  

DeleteItem(程序项名)  

从当前活动程序组中删除一个程序项。  

8.关闭程序管理器  

命令格式为：  

ExitProgram(是否保存程序组信息标志)

---

欢迎光临 编程开发论坛 (http://bbs.lihuasoft.net/)

Powered by Discuz! 6.0.0