home *** CD-ROM | disk | FTP | other *** search
/ Windows Game Programming for Dummies (2nd Edition) / WinGamProgFD.iso / pc / DirectX SDK / DXSDK / samples / Multimedia / VBSamples / Misc / DXSetup / modshell.bas < prev    next >
Encoding:
BASIC Source File  |  2001-10-08  |  1.1 KB  |  34 lines
  1. Attribute VB_Name = "modShell"
  2. Option Explicit
  3.  
  4. Public Enum SpecialFolderIDs
  5.     sfidDESKTOP = &H0
  6.     sfidPROGRAMS = &H2
  7.     sfidPERSONAL = &H5
  8.     sfidFAVORITES = &H6
  9.     sfidSTARTUP = &H7
  10.     sfidRECENT = &H8
  11.     sfidSENDTO = &H9
  12.     sfidSTARTMENU = &HB
  13.     sfidDESKTOPDIRECTORY = &H10
  14.     sfidNETHOOD = &H13
  15.     sfidFONTS = &H14
  16.     sfidTEMPLATES = &H15
  17.     sfidCOMMON_STARTMENU = &H16
  18.     sfidCOMMON_PROGRAMS = &H17
  19.     sfidCOMMON_STARTUP = &H18
  20.     sfidCOMMON_DESKTOPDIRECTORY = &H19
  21.     sfidAPPDATA = &H1A
  22.     sfidPRINTHOOD = &H1B
  23.     sfidProgramFiles = &H10000
  24.     sfidCommonFiles = &H10001
  25. End Enum
  26.  
  27. Public Declare Function SHGetSpecialFolderLocation Lib "shell32" (ByVal hwndOwner As Long, ByVal nFolder As SpecialFolderIDs, ByRef pIdl As Long) As Long
  28. Public Declare Function SHGetPathFromIDListA Lib "shell32" (ByVal pIdl As Long, ByVal pszPath As String) As Long
  29. Public Declare Function SHGetDesktopFolder Lib "shell32" (ByRef pshf As IVBShellFolder) As Long
  30. Public Declare Function SHGetMalloc Lib "shell32" (ByRef pMalloc As IVBMalloc) As Long
  31.  
  32. ' SHGetSpecialFolderLocation successful rtn val
  33. Public Const NOERROR = 0
  34.