国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > 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

怎么樣,很簡單吧

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 岱山县| 秦皇岛市| 曲阳县| 文登市| 临清市| 苗栗市| 凯里市| 嫩江县| 惠安县| 双柏县| 缙云县| 五华县| 高陵县| 乐亭县| 永清县| 吕梁市| 乡城县| 镇康县| 嘉禾县| 呼伦贝尔市| 从江县| 乌拉特中旗| 玉溪市| 玉环县| 仁化县| 深州市| 宝丰县| 贺兰县| 泗阳县| 衡南县| 淄博市| 英山县| 安义县| 虹口区| 上虞市| 兴隆县| 灌南县| 惠安县| 丹阳市| 桦南县| 崇义县|