home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Visual Basic.60 / COMMON / TOOLS / VB / UNSUPPRT / SHELLLNK / SHELLLNK.BAS next >
Encoding:
BASIC Source File  |  1997-01-16  |  892 b   |  20 lines
  1. Attribute VB_Name = "mShellLink"
  2. Option Explicit
  3.  
  4. '---------------------------------------------------------------
  5. '- Public API Declares...
  6. '---------------------------------------------------------------
  7. #If UNICODE Then
  8.     Public Declare Function SHGetPathFromIDList Lib "Shell32" Alias "SHGetPathFromIDListW" (ByVal pidl As Long, ByVal szPath As Long) As Long
  9. #Else
  10.     Public Declare Function SHGetPathFromIDList Lib "Shell32" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal szPath As String) As Long
  11. #End If
  12.  
  13. Public Declare Function SHGetSpecialFolderLocation Lib "Shell32" (ByVal hwndOwner As Long, ByVal nFolder As Integer, ppidl As Long) As Long
  14.  
  15. '---------------------------------------------------------------
  16. '- Public constants...
  17. '---------------------------------------------------------------
  18. Public Const MAX_PATH = 255
  19. Public Const MAX_NAME = 40
  20.