中文字幕理论片,69视频免费在线观看,亚洲成人app,国产1级毛片,刘涛最大尺度戏视频,欧美亚洲美女视频,2021韩国美女仙女屋vip视频

 

'-----------------------------------------------------
'               創(chuàng)建和刪除快捷方式
'-----------------------------------------------------
'               洪恩在線  求知無限
'-----------------------------------------------------
'------名稱-------------------作用--------------------
'       CmdAdd1             "創(chuàng)建test程序組快捷方式"按鈕
'       CmdAdd2             "創(chuàng)建桌面快捷方式"按鈕
'       CmdAdd3             "創(chuàng)建開始菜單快捷方式"按鈕
'       CmdAdd4             "創(chuàng)建Test程序組下的快捷方式"按鈕
'       CmdDel              "刪除所有快捷方式"按鈕
'-----------------------------------------------------
'要在VB中創(chuàng)建Windows的快捷方式，需要用到VB的一個(gè)動(dòng)態(tài)鏈接庫(kù)
'Vb5stkit.dll。在該動(dòng)態(tài)鏈接庫(kù)中提供了三個(gè)函數(shù)
'OSfCreateShellGroup、OSfCreateShellLink、OSfRemoveShellLink
'分別用于創(chuàng)建快捷方式程序組、創(chuàng)建快捷方式和刪除快捷方式。
'-----------------------------------------------------
Private Declare Function OSfCreateShellGroup Lib "Vb5stkit.dll" _
Alias "fCreateShellFolder" (ByVal lpstrDirName As String) As Long
'lpstrDirName指定了程序組的名稱
'-----------------------------------------------------
Private Declare Function OSfCreateShellLink Lib "Vb5stkit.dll" _
Alias "fCreateShellLink" (ByVal lpstrFolderName As String, _
ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArguments As String) As Long
'lpstrfoldername指定保存快捷方式的文件夾，默認(rèn)為“c:\Windows\start menu\programs”
'lpstrlinkname指定快捷方式的文件名
'lpstrpathname指定快捷方式所指向的應(yīng)用程序或文件
'-----------------------------------------------------
Private Declare Function OSfRemoveShellLink Lib "Vb5stkit.dll" _
Alias "fRemoveShellLink" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String) As Long

Dim lresult As Long
Private Sub CmdAdd1_Click()
    Dim lresult As Long
    '在程序菜單中添加一個(gè)名為Test的程序組
    lresult = OSfCreateShellGroup("Test")
End Sub

Private Sub CmdDel_Click()
Dim lresult As Long
    '刪除開始菜單上的快捷方式
    lresult = OSfRemoveShellLink("..\..\start menu", "記事本")
    '刪除桌面上的快捷方式
    lresult = OSfRemoveShellLink("..\..\desktop", "記事本")
    '刪除Test程序組下的快捷方式
    lresult = OSfRemoveShellLink("Test", "記事本")
   
End Sub

Private Sub CmdAdd2_Click()
    Dim lresult As Long
    '在桌面創(chuàng)建記事本的快捷方式
    lresult = OSfCreateShellLink("..\..\desktop", "記事本", "c:\Windows\notepad.exe", "")
End Sub

Private Sub CmdAdd4_Click()
    '在程序菜單的Test程序組下創(chuàng)建記事本的快捷方式
    lresult = OSfCreateShellLink("test", "記事本", "c:\Windows\notepad.exe", "")
End Sub

Private Sub CmdAdd3_Click()
    '在開始菜單創(chuàng)建記事本的快捷方式
    lresult = OSfCreateShellLink("..\..\start menu", "記事本", "c:\Windows\notepad.exe", "")
End Sub
(源程序下載)

　　我們先來聲明以上幾個(gè)API函數(shù)，如下所示：
　　　Private Declare Function OSfCreateShellGroup Lib "Vb5stkit.dll" Alias "fCreateShellFolder" (ByVal lpstrDirName As String) As Long
　　　Private Declare Function OSfCreateShellLink Lib "Vb5stkit.dll" Alias "fCreateShellLink" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArguments As String) As Long
　　　Private Declare Function OSfRemoveShellLink Lib "Vb5stkit.dll" Alias "fRemoveShellLink" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String) As Long

　　其中OSfCreateShellGroup函數(shù)的作用是在程序菜單中添加一個(gè)名為lpstrDirName的程序組，其參數(shù)的意義如下：

參數(shù)：	意義
lpstrDirName	String，lpstrDirName指定了要?jiǎng)?chuàng)建的程序組的名稱
返回值	Long，非零表示成功，零表示失敗

　　其中OSfCreateShellLink函數(shù)的作用在指定的文件夾內(nèi)創(chuàng)建快捷方式，其參數(shù)的意義如下：

參數(shù)：	意義
lpstrfoldername	String,指定保存快捷方式的文件夾,默認(rèn)為"c:\Windows\startmenu\programs"
lpstrlinkname	String，指定快捷方式的名稱
lpstrpathname	String，指定快捷方式所指向的應(yīng)用程序或文件
返回值	Long，非零表示成功，零表示失敗

　　其中OSfRemoveShellLink函數(shù)的作用是刪除一個(gè)已經(jīng)建立的快捷方式，其參數(shù)的意義如下：

本站僅提供存儲(chǔ)服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)點(diǎn)擊舉報(bào)。