用VB建立快捷方式
来源:互联网 发布:彩票系统 源码 编辑:程序博客网 时间:2024/05/21 14:52
下面的代码向你演示在VB中如何创建一个快捷方式。
Private Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long
Sub Command1_Click()
Dim lReturn As Long
'添加到桌面
lReturn = fCreateShellLink("../../Desktop", "Shortcut to Calculator", "c:/windows/calc.exe", "")
'添加到程序组
lReturn = fCreateShellLink("", "Shortcut to Calculator", "c:/windows/calc.exe", "")
'添加到启动组
lReturn = fCreateShellLink("/Startup", "Shortcut to Calculator", "c:/windows/calc.exe", "")
End Sub
Private Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long
Sub Command1_Click()
Dim lReturn As Long
'添加到桌面
lReturn = fCreateShellLink("../../Desktop", "Shortcut to Calculator", "c:/windows/calc.exe", "")
'添加到程序组
lReturn = fCreateShellLink("", "Shortcut to Calculator", "c:/windows/calc.exe", "")
'添加到启动组
lReturn = fCreateShellLink("/Startup", "Shortcut to Calculator", "c:/windows/calc.exe", "")
End Sub
- 用VB建立快捷方式
- 如何用VB建立快捷方式
- 如何用VB建立快捷方式
- 如何用VB建立快捷方式
- 如何用VB建立快捷方式
- 如何用VB建立快捷方式
- 如何用VB建立快捷方式
- 用批处理来建立快捷方式
- 用批处理来建立快捷方式
- 建立快捷方式
- 用VB创建Windows快捷方式(无需DLL)
- VB中取各种系统路径名,格式化磁盘,建立快捷方式,鼠标的定位,移动
- dos脚本建立快捷方式
- 如何建立快捷方式?
- delphi建立快捷方式
- 在桌面建立快捷方式
- Delphi 建立快捷方式
- ubuntu建立eclipse快捷方式
- 使用 Visual Basic 通过 32 位 地址访问内存(中英对照)
- Linux/Unix 编程电子书下载集绵
- 过年了
- 用VB产生随机任意大小文件挤满硬盘
- 外企工作日志11
- 用VB建立快捷方式
- JSP连接Mysql数据库详解及乱码处理
- VB中实现MD5加密
- 系统蓝屏代码全集
- 用Visual Basic制作安装程序
- 在Visual Basic 6.0类的技术与应用(上)
- 在Visual Basic 6.0类的技术与应用(下)
- VB 通过API访问 Windows 注册表
- 在vb 中用api函数代替winsock控件建立网络连接