You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
20 lines
873 B
20 lines
873 B
Attribute VB_Name = "mShellLink"
|
|
Option Explicit
|
|
|
|
'---------------------------------------------------------------
|
|
'- Public API Declares...
|
|
'---------------------------------------------------------------
|
|
#If UNICODE Then
|
|
Public Declare Function SHGetPathFromIDList Lib "Shell32" Alias "SHGetPathFromIDListW" (ByVal pidl As Long, ByVal szPath As Long) As Long
|
|
#Else
|
|
Public Declare Function SHGetPathFromIDList Lib "Shell32" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal szPath As String) As Long
|
|
#End If
|
|
|
|
Public Declare Function SHGetSpecialFolderLocation Lib "Shell32" (ByVal hwndOwner As Long, ByVal nFolder As Integer, ppidl As Long) As Long
|
|
|
|
'---------------------------------------------------------------
|
|
'- Public constants...
|
|
'---------------------------------------------------------------
|
|
Public Const MAX_PATH = 255
|
|
Public Const MAX_NAME = 40
|