救赎:我的爱人大结局:如何用VB建立快捷方式

来源：百度文库编辑：中财网时间：2024/04/28 07:17:29

3、如何用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

如何用VB建立数据库如何用快捷方式发送邮件? 如何用VB制作如何用VB做记码器？如何用VB实现如何用PHOTOSHOP建立帧？如何用ASP建立调查表如何用路由器建立局域网如何用VB输出图片？如何用 VB 读写文件？如何用vb调用excel？如何用VB制作广告牌如何用vb制作广告牌在vb如何用类如何用VB画抛物线如何用VB做这个？如何用VB编连五子小游戏如何用VB编程画图？如何用VB打印介绍信? 如何用vb 改文件名? 如何用VB实现人机对话如何用dos命令创建快捷方式如何用批处理删除桌面的快捷方式如何用快捷方式安全删除硬件？？？