Xaviou
-
19 janv. 2000 à 17:22
dwarft
Messages postés8Date d'inscriptionlundi 16 décembre 2002StatutMembreDernière intervention 5 décembre 2007
-
25 août 2003 à 16:52
Salut,
quelqu'un saurait-il comment utiliser l'API SHGetFileInfo ? Pour ma part, c'est le bide complet.
dwarft
Messages postés8Date d'inscriptionlundi 16 décembre 2002StatutMembreDernière intervention 5 décembre 2007 25 août 2003 à 16:52
salut, un exemple simple (enfin je crois)
Private Type SHFILEINFO
hIcon As Long
iIcon As Long
dwAttributes As Long
szDisplayName As String * 260
szTypeName As String * 80
End Type
Private Declare Function SHGetFileInfo Lib "shell32.dll" Alias "SHGetFileInfoA" (ByVal pszPath As String, ByVal dwFileAttributes As Long, psfi As SHFILEINFO, ByVal cbFileInfo As Long, ByVal uFlags As Long) As Long
Private Function TypeDeFichier (strFichier as string)
dim FileInfo as SHFILEINFO
SHGetFileInfo ByVal strFichier , 0&, FileInfo, Len(FileInfo), SHGFI_TYPENAME
TypeDeFichier = left(FileInfo.szTypeName ,instr(FileInfo.szTypeName ,chr(0))-1)
end function