Ordner Icons auslesen

Toolmaster · 15. Dezember 2019, 18:04

Schönen guten Abend,

ich möchte das Icon eines Ordners in einer Picturebox anzeigen. Das funktioniert auch soweit mit diesem Code.

VB.NET-Quellcode

<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.[Unicode])>
Public Structure SHFILEINFOW
Public hIcon As IntPtr
Public iIcon As Integer
Public dwAttributes As Integer
<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=260)> Public szDisplayName As String
<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=80)> Public szTypeName As String
End Structure
<DllImport("shell32.dll", EntryPoint:="SHGetFileInfoW")>
Private Shared Function SHGetFileInfoW(<InAttribute(), MarshalAs(UnmanagedType.LPTStr)> ByVal pszPath As String, ByVal dwFileAttributes As Integer, ByRef psfi As SHFILEINFOW, ByVal cbFileInfo As Integer, ByVal uFlags As Integer) As Integer
End Function
<DllImport("user32.dll", EntryPoint:="DestroyIcon")>
Private Shared Function DestroyIcon(ByVal hIcon As System.IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function
Private Function GetIcon(ByVal PathName As String) As Bitmap
Dim RIcon As New SHFILEINFOW
SHGetFileInfoW(PathName, 0, RIcon, Marshal.SizeOf(RIcon), &H100 Or &H1)
Dim FinalyImage As Bitmap = Icon.FromHandle(RIcon.hIcon).ToBitmap
DestroyIcon(RIcon.hIcon)
Return FinalyImage
End Function

Nun zu meinem Problem. Wie kann ich jetzt noch zusätzliche Informationen abrufen. Z.b. in welcher Datei ist das Icon gespeichert und welchen Index hat es.

Hoffe auf eure Hilfe.

Grüße TM

RodFromGermany · 15. Dezember 2019, 18:37

@Toolmaster Habich in meiner Snippetsammlung gefunden.
Form mit Button, Label, PictureBox:

Spoiler anzeigen

VB.NET-Quellcode

Imports System.Runtime.InteropServices
Public Class Form1
<DllImport("shell32.dll", CharSet:=CharSet.Auto)> _
Shared Function PickIconDlg(ByVal owner As IntPtr, ByVal fileName As System.Text.StringBuilder, ByVal maxFile As Integer, ByRef iconIndex As Integer) As Integer
End Function
<DllImport("shell32.dll", CharSet:=CharSet.Auto)> _
Shared Function ExtractIconEx(ByVal szFileName As String, _
ByVal nIconIndex As Integer, _
ByVal phiconLarge() As IntPtr, _
ByVal phiconSmall() As IntPtr, _
ByVal nIcons As Integer) As Integer
End Function
<DllImport("user32.dll", EntryPoint:="DestroyIcon", SetLastError:=True)> _
Shared Function DestroyIcon(ByVal hIcon As IntPtr) As Integer
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim iconfile As String = Environment.GetFolderPath(Environment.SpecialFolder.System) & "\shell32.dll"
Dim sb As New System.Text.StringBuilder(iconfile, 500)
Dim index As Integer
Dim retval As Integer
retval = PickIconDlg(Me.Handle, sb, sb.Capacity, index)
If (retval = 1) Then
Me.Label1.Text = index.ToString
Dim icon = ExtractIconFromExe(iconfile, index, True)
Me.PictureBox1.Image = icon.ToBitmap()
End If
End Sub
Public Function ExtractIconFromExe(ByVal fileName As String, ByVal iconindex As Integer, ByVal large As Boolean) As Icon
Dim hDummy As IntPtr() = New IntPtr(0) {IntPtr.Zero}
Dim hIconEx As IntPtr() = New IntPtr(0) {IntPtr.Zero}
Try
Dim iconCount As Integer
If (large) Then
iconCount = ExtractIconEx(fileName, iconindex, hIconEx, hDummy, 1)
Else
iconCount = ExtractIconEx(fileName, iconindex, hDummy, hIconEx, 1)
End If
If (iconCount > 0 AndAlso Not hIconEx(0).Equals(IntPtr.Zero)) Then
' GET FIRST EXTRACTED ICON
Dim extractedIcon As Icon = CType(Icon.FromHandle(hIconEx(0)).Clone(), Drawing.Icon)
Return extractedIcon
Else ' NO ICONS READ
Return Nothing
End If
Catch ex As Exception
' EXTRACT ICON ERROR
' BUBBLE UP
Throw New ApplicationException("Could not extract icon", ex)
Finally
'RELEASE RESOURCES
For Each ptr As IntPtr In hIconEx
If (Not ptr.Equals(IntPtr.Zero)) Then
DestroyIcon(ptr)
End If
Next ptr
For Each ptr As IntPtr In hDummy
If Not (ptr.Equals(IntPtr.Zero)) Then
DestroyIcon(ptr)
End If
Next ptr
End Try
End Function
End Class

Toolmaster · 15. Dezember 2019, 18:48

Danke aber das Beispiel setzt voraus das ich die Icondatei angebe. Ich habe aber nur den Ordner von dem ich das Ickon und den Pfad der Icondatei möchte.

RodFromGermany · 15. Dezember 2019, 18:52

@Toolmaster Bitte.
Bist Du der Meinung, dass das System dem Ordner ein Icon per Index zuweist ohne eine explizite Quelle zu haben?

Toolmaster · 15. Dezember 2019, 19:00

Nein deshalb will ich ja die Quelldatei (Icondatei) und den Index wissen.

Wenn du die Eigenschaften eines Ordner öffnest und auf Anpassen gehst wird dir doch auch das richtige Ordnersymbol angezeigt.

RodFromGermany · 16. Dezember 2019, 05:42

Toolmaster schrieb:

die Quelldatei (Icondatei) und den Index

Welche Information hast Du noch nicht bekommen?
Nicht, dass Du Dich da iwie verrennst.
Möglicherweise gibt es mehrere Icon-DLLs, die je nach Größe des Icons verwendet werden. Kläre das mal auf.

Toolmaster · 16. Dezember 2019, 09:35

Ich habe keinen Schimmer worauf du hinaus willst. Mein Code:

VB.NET-Quellcode

Private Function GetIcon(ByVal PathName As String) As Bitmap
Dim RIcon As New SHFILEINFOW
SHGetFileInfoW(PathName, 0, RIcon, Marshal.SizeOf(RIcon), &H100 Or &H1)
Dim FinalyImage As Bitmap = Icon.FromHandle(RIcon.hIcon).ToBitmap
DestroyIcon(RIcon.hIcon)
Return FinalyImage
End Function

Den ich mit

VB.NET-Quellcode

Picturebox1.Image = GetIcon(C:\AdwCleaner)

aufrufe liefert mir das Icon des Ordners. Egal in welcher Datei es gespeichert ist. Nur möchte ich eben genau das wissen. Von wo kommt das Icon.
Einfacher kann ich es leider nicht mehr beschreiben. Sorry

RodFromGermany · 16. Dezember 2019, 09:45

@Toolmaster Ich weiß nicht, wo Dein Problem liegt.
Ich habe Dir einen Code geliefert, wo Systemicons ausgelesen werden können.
Ob das exakt diese DLL ist (insbesondere wegen der Größe der Icons) weiß ich nicht, jedenfalls wird solch Ordnericon bei mir gelistet.
Was ganz genau missfällt Dir an meiner Lösung?

VaporiZed · 16. Dezember 2019, 10:02

Kurze Zwischenfrage @Toolmaster: Wie sieht denn das AdwCleaner-Ordnersymbol aus? Wie jeder andere Ordner auch? Dann ist es das Default-Ordner-Icon, welches eben in der Standardwindowssymboldatei hinterlegt ist, die RfG erwähnte. Dann brauchst Du eigentlich nur immer in jener Datei zu schauen. Denn Windows schaut normalerweise nicht nach irgendeinem Symbol, sondern verwendet eigentlich immer das eine:

modifiziert es aber - wie auch immer - abhängig vom Ordnerinhalt.
Wenn das AdwCleaner-Bild aber anders aussieht, lad mal bitte einen entsprechenden Screenshot hoch. Bilder kannst Du forenintern über [+ Erweiterte Antwort] -> _|Dateianhänge|_ -> [Hochladen] posten.

HenryV · 16. Dezember 2019, 12:02

@Toolmaster
Wenn das Ordnersymbol nicht dem Standard entspricht, ist der Pfad zur Icon-Datei in der Desktop.ini abgespeichert, welche sich in dem besagtem Ordner befindet.

Toolmaster · 16. Dezember 2019, 13:24

@HenryV
Vielen Dank für den Tipp mit der ini. Damit kann ich arbeiten. Vielen Dank.

Akanel · 16. Dezember 2019, 18:49

Nicht nett das du RodFromGermany und VaporiZed nicht antwortest und scheinbar ignorierst.

Toolmaster · 16. Dezember 2019, 19:08

Wollte niemanden beleidigen. Die letzte Antwort war nur die die mir geholfen hat. Aber natürlich auch einen Dank an alle die versucht haben mir zu helfen.

RodFromGermany · 16. Dezember 2019, 19:13

@Toolmaster Die eigentliche Fragestellung in Post #1 wurde perfekt beantrwortet.

Ordner Icons auslesen

Ordner Icons auslesen

VB.NET-Quellcode

VB.NET-Quellcode

Toolmaster schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

5 Benutzer haben hier geschrieben