|
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 Command1Click() Dim lReturn As Long '添加到桌面 lReturn=fCreateShellLink("..\..\Desktop","Shortcut to Calculator","c:\windows\calc.exe","") '添加到程序组 lReturn=fCreateShellLink("\Startup","Shortcut to Calculator","c:\windows\calc.exe","") End Sub |
闁衡偓閹増顥戦柟瀛樺姇婵拷闁哄被鍎冲﹢鍛村绩閹増顥�>>
正在阅读：基础:如何用VB建立快捷方式基础:如何用VB建立快捷方式
2004-03-10 09:52
出处：CSDN
责任编辑：linjixiong
