22 lines
630 B
VB.net
22 lines
630 B
VB.net
Imports System.Runtime.InteropServices
|
|
|
|
Namespace Native
|
|
|
|
|
|
<StructLayout(LayoutKind.Sequential)>
|
|
Public Structure SHFILEINFO
|
|
Public Const SHGFI_ICON As UInteger = &H100
|
|
Public Const SHGFI_LARGEICON As UInteger = &H0
|
|
Public Const SHGFI_SMALLICON As UInteger = &H1
|
|
|
|
Public hIcon As IntPtr
|
|
Public iIcon As IntPtr
|
|
Public dwAttributes As UInteger
|
|
<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=260)>
|
|
Public szDisplayName As String
|
|
<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=80)>
|
|
Public szTypeName As String
|
|
End Structure
|
|
|
|
End Namespace
|