Posted: Mon Nov 17, 2008 10:26 am
Thank you, Raymond!
http://blogs.msdn.com/oldnewthing/archi ... 55532.aspx
http://blogs.msdn.com/oldnewthing/archi ... 55532.aspx
Code: Select all
SHGetSpecialFolderLocation_(0,#CSIDL_FONTS,@*ppidl)
FontsPath.s=Space(#MAX_PATH)
SHGetPathFromIDList_(*ppidl,@FontsPath.s)
Debug Trim(FontsPath.s)