6.0 바로가기 만들기

[whitebono]

바로가기 만들기

 
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

' lpstrLinkName는 실행파일의 실행시 전달인수
Private Sub Command1_Click()
Dim ni As Long

ni = OSfCreateShellGroup("바로가기")
ni = OSfCreateShellLink("바로가기", "바로가기샘플", "C:\test.exe", "")
End Sub

참고 : 않되면 VB5STKIT.DLL 을 VB6STKIT.DLL 로 바꾸어서 해보세요!!!

[허니마로]

오 멋지다

[바 람남]

감사합니다

[바 람남]

감사합니다

[바 람남]

감사합니다

[바 람남]

감사합니다

[바 람남]

잘봣습니다

[바 람남]

잘봣습니다