有時，我們想給自己的程序也加一個快捷方式，當然程序安裝后，我們可以通過點擊我們程序的可執(zhí)行文件，右擊選擇添加桌面快捷方式來實現(xiàn)，但我們有時想通過編程自動實現(xiàn)，這怎么辦呢？我們可以調(diào)用API函數(shù)來實現(xiàn)，下面給出了源代碼：

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

怎么樣，很簡單吧