如何取得windows系统字体的文件夹路径？

问题点数：20、回复次数：3Top

1 楼uguess（天地间，有我在行走！）回复于 2001-11-27 16:49:34 得分 20

const   CSIDL_FONTS   =   &H14  
  Private   Declare   Function   SHGetSpecialFolderLocation   Lib   "SHELL32.DLL"   (ByVal   hwndOwner   As   Long,   ByVal   nFolder   As   Long,   pidl   As   ITEMIDLIST)   As   Long  
  Private   Const   MAX_PATH   =   255  
  Private   Type   SHITEMID  
          cb   As   Long  
          abID   As   Byte  
  End   Type  
   
  Private   Type   ITEMIDLIST     'idl  
          mkid   As   SHITEMID  
  End   Type  
   
  Dim   idl   As   ITEMIDLIST  
  rtn&   =   SHGetSpecialFolderLocation(0&,   iStyle,   idl)Top

2 楼uguess（天地间，有我在行走！）回复于 2001-11-27 16:50:13 得分 0

错啦，应该是：  
  rtn&   =   SHGetSpecialFolderLocation(0&,   CSIDL_FONTS   ,   idl)   Top

3 楼uguess（天地间，有我在行走！）回复于 2001-11-27 16:52:42 得分 0

还有：  
   
  #If   UNICODE   Then  
          Private   Declare   Function   SHGetPathFromIDList   Lib   "Shell32"   Alias   "SHGetPathFromIDListW"   (ByVal   pidl   As   Long,   ByVal   szPath   As   Long)   As   Long  
  #Else  
          Private   Declare   Function   SHGetPathFromIDList   Lib   "Shell32"   Alias   "SHGetPathFromIDListA"   (ByVal   pidl   As   Long,   ByVal   szPath   As   String)   As   Long  
  #End   If  
   
        sPath$   =   Space$(512)  
        rtn&   =   SHGetPathFromIDList(ByVal   pidl&,   ByVal   sPath$)  
  Top

相关问题

• shell
• pidl
• shgetspecialfolderlocation
• shgetpathfromidlist
• byval
• csidl
• itemidlist
• idl
• szpath
• spath

• 帖主：microyzy
• uguess

• Visual Basic类图书
• Visual Basic类源码下载