| |
Данный пример позволяет узнать описание для
данного типа файла, получаемого из реестра.
Для данного типа файла *.bat вы получите - "Пакетный
файл MS-DOS"
Private Const MAX_PATH = 260
Private Type SHFILEINFO
hIcon As Long
iIcon As Long
dwAttributes As Long
szDisplayName As String * MAX_PATH
szTypeName As String * 80
End Type
Private Declare Function SHGetFileInfo Lib "Shell32" Alias
"SHGetFileInfoA" (ByVal pszPath As Any, ByVal dwFileAttributes As Long, psfi As
SHFILEINFO, ByVal cbFileInfo As Long, ByVal uFlags As Long) As Long
Function GetFileDescription(ByVal sPath As String) As String
Const SHGFI_TYPENAME = &H400
Dim FInfo As SHFILEINFO
SHGetFileInfo sPath, 0, FInfo, Len(FInfo), SHGFI_TYPENAME
GetFileDescription = Left$(FInfo.szTypeName, InStr(FInfo.szTypeName & vbNullChar,
vbNullChar) - 1)
End Function
Private Sub Command1_Click()
MsgBox GetFileDescription("c:\AUTOEXEC.BAT")
End Sub
|
|