用VB创建开始菜单快捷方式(无需其他DLL)
来源:互联网 发布:js学习资料 编辑:程序博客网 时间:2024/04/30 09:00
Option Explicit
Private Sub Command1_Click()
CreateProgManGroup Me, "测试", "test.grp"
CreateProgManItem Me, "d:\ghost.exe", "Ghost"
CreateProgManItem Me, "d:\setupQQ.exe", "QQ"
End Sub
Sub CreateProgManGroup(X As Form, GroupName$, GroupPath$)
Dim i As Integer
X.Label1.LinkTopic = "ProgMan|Progman"
X.Label1.LinkMode = 2
Rem 空循环使DDE有时间执行
For i = 1 To 10
DoEvents
Next
X.Label1.LinkTimeout = 100
Rem LinkExecute 是在DDE通道中传送这样的命令
'──建立一个名为GroupName $的程序组。
X.Label1.LinkExecute "[ CreateGroup (" + GroupName$ + Chr$(44) + GroupPath$ + ") ]"
X.Label1.LinkTimeout = 50 '恢复Label1 的属性值
X.Label1.LinkMode = 0
End Sub
Sub CreateProgManItem(X As Form, CmdLine$, IconTitle$)
Dim i As Integer
X.Label1.LinkTopic = "ProgMan|Progman"
X.Label1.LinkMode = 2
For i = 1 To 10
DoEvents
Next
X.Label1.LinkTimeout = 100
X.Label1.LinkExecute "[AddItem(" + CmdLine$ + Chr$(44) + IconTitle$ + Chr$(44) + ", ,) ]"
X.Label1.LinkTimeout = 50 '恢复Label1 的属性值
X.Label1.LinkMode = 0
Screen.MousePointer = 0
End Sub
Private Sub Command1_Click()
CreateProgManGroup Me, "测试", "test.grp"
CreateProgManItem Me, "d:\ghost.exe", "Ghost"
CreateProgManItem Me, "d:\setupQQ.exe", "QQ"
End Sub
Sub CreateProgManGroup(X As Form, GroupName$, GroupPath$)
Dim i As Integer
X.Label1.LinkTopic = "ProgMan|Progman"
X.Label1.LinkMode = 2
Rem 空循环使DDE有时间执行
For i = 1 To 10
DoEvents
Next
X.Label1.LinkTimeout = 100
Rem LinkExecute 是在DDE通道中传送这样的命令
'──建立一个名为GroupName $的程序组。
X.Label1.LinkExecute "[ CreateGroup (" + GroupName$ + Chr$(44) + GroupPath$ + ") ]"
X.Label1.LinkTimeout = 50 '恢复Label1 的属性值
X.Label1.LinkMode = 0
End Sub
Sub CreateProgManItem(X As Form, CmdLine$, IconTitle$)
Dim i As Integer
X.Label1.LinkTopic = "ProgMan|Progman"
X.Label1.LinkMode = 2
For i = 1 To 10
DoEvents
Next
X.Label1.LinkTimeout = 100
X.Label1.LinkExecute "[AddItem(" + CmdLine$ + Chr$(44) + IconTitle$ + Chr$(44) + ", ,) ]"
X.Label1.LinkTimeout = 50 '恢复Label1 的属性值
X.Label1.LinkMode = 0
Screen.MousePointer = 0
End Sub
0 0
- 用VB创建开始菜单快捷方式(无需其他DLL)
- 用VB创建Windows快捷方式(无需DLL)
- Qt之创建桌面和开始菜单快捷方式
- Qt创建桌面和开始菜单快捷方式
- VC++创建快捷方式、删除快捷方式、添加开始菜单程序组菜单
- VC++创建快捷方式、删除快捷方式、添加开始菜单程序组菜单
- 如何在桌面或者开始菜单中创建快捷方式
- 一分钟学会创建开始菜单程序组和桌面快捷方式
- 如何在桌面或者开始菜单中创建快捷方式
- Asp.Net-创建网站的快捷方式到桌面,开始菜单,收藏夹
- 如何创建快捷方式并添加到开始菜单、桌面、任务栏....
- 用VB建立快捷方式
- vb 创建快捷方式 兼容vista XP
- VB.NET创建快捷方式和读取快捷方式的类
- VB.NET创建快捷方式和读取快捷方式的类
- WIN7开始菜单添加程序快捷方式
- InnoSetup快速入门(三):添加安装文件并创建开始菜单快捷方式
- 创建快捷方式 (并添加到快速启动栏 、桌面、开始菜单)
- Android语音合成与语音识别
- UML-部署图
- 【玩转cocos2d-x之十】cocos2d-x坐标系
- Qt: 程序调试
- Maven项目管理实战(一)--Console App
- 用VB创建开始菜单快捷方式(无需其他DLL)
- meta-data的使用
- springMVC注解2
- C#编程规范
- 血浓于水,骨肉相连
- php--关于php的配置指令
- phpmyadmin 出现Cannot start session without errors 错误 总结的几种原因和解决办法
- 禁止 CTRL+ALT+DEL
- Filter简介