Mapped.IconExtractor

Pilz.Win32/Mapped/IconExtractor.vb

@@ -0,0 +1,17 @@
+Imports System.Drawing
+
+Namespace Mapped
+
+    Public Module IconExtractor
+
+        Public Function ExtractIconFromFilePath(filePath As String, size As SystemIconSize) As Icon
+            Return Internals.IconExtractor.ExtractIcon(filePath, size)
+        End Function
+
+        Public Function ExtractIconFromFileExtension(fileExtension As String, size As SystemIconSize)
+            Return Internals.IconFactory.IconFromExtensionShell(fileExtension, size)
+        End Function
+
+    End Module
+
+End Namespace

Pilz.Win32/Mapped/SystemIconSize.vb

@@ -0,0 +1,12 @@
+Namespace Mapped
+
+    ''' <summary>
+    ''' Two constants extracted from the FileInfoFlags, the only that are
+    ''' meaningfull for the user of this class.
+    ''' </summary>
+    Public Enum SystemIconSize As Integer
+        Large
+        Small
+    End Enum
+
+End Namespace