首页 > 编程 > Visual Basic > 正文

如何为程序建立快捷方式

2023-06-12 12:11:32
字体:
来源:转载
供稿:网友

有时,我们想给自己的程序也加一个快捷方式,当然程序安装后,我们可以通过点击我们程序的可执行文件,右击选择添加桌面快捷方式来实现,但我们有时想通过编程自动实现,这怎么办呢?我们可以调用API函数来实现,下面给出了源代码:

Private Declare Function fCreateShellLink Lib "vb5stkit.DLL" (ByVal _
lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal _
lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long

Private Sub MakeShortCuts()

         Dim lReturn As Long
         Dim MyPath As String
         Dim MyName As String
         MyPath = App.Path
         MyName = App.EXEName
        '增加到桌面
        lReturn = fCreateShellLink("../../Desktop", _
                        "Shortcut to Net Timer", MyPath & "/" & MyName, "")
       '增加到启动组
       lReturn = fCreateShellLink("/启动", "Shortcut to Net Timer", _
                         MyPath & "/" & MyName, "")

End Sub

怎么样,很简单吧

发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表