UC知道VB 复制快捷问题
来源：百度知道 编辑：UC知道 时间：2024/06/05 01:05:22
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
Private Sub Command1_Click()
lReturn = fCreateShellLink("\Startup", "Shortcut to Calculator", "c:\windows\calc.exe", "") 请问这句是把calc.exe复制到启动组吗？？
End Sub
我想运行按钮后 把 自身的快捷方式 复制到 启动组 ！！！
这样运行后 说STKIT432.DLL文件找不到，代码有问题吗？？
C:\Documents and Settings\All Users\「开始」菜单\程序\启动 ‘这是启动的目录
Private Sub Command1_Click()
lReturn = fCreateShellLink("\Startup", "Shortcut to Calculator", "c:\windows\calc.exe", "") 请问这句是把calc.exe复制到启动组吗？？
End Sub
我想运行按钮后 把 自身的快捷方式 复制到 启动组 ！！！
这样运行后 说STKIT432.DLL文件找不到，代码有问题吗？？
C:\Documents and Settings\All Users\「开始」菜单\程序\启动 ‘这是启动的目录
Private Sub Form_Load()
Set WshShell = CreateObject("Wscript.Shell")
strStartUp = WshShell.SpecialFolders("StartUp")
Set oMyShortCut = WshShell.CreateShortcut(strStartUp & "\" & App.EXEName & ".lnk")
oMyShortCut.TargetPath = App.Path & IIf(Len(App.Path) = 3, "", "\") & App.EXEName & ".exe"
oMyShortCut.Save
End Sub
'//试试这个