Hallo Leute!
Wie schaffe ich es, das ich z.B: ein PDF Datei die dazu gehörige Icon bekomme, ohne das ich es per Datei mit komplettem Pfad extrahieren muss?
Ich habe zwar diesen Code gefunden.
Aber er findet nicht alle.
Im Explorer ist PDF Icon vorhanden.
Also muss es irgendwie im System registriert sein
hab aber keine Ahnung wie ich per Datei Endung es ermitteln kann.
Wie schaffe ich es, das ich z.B: ein PDF Datei die dazu gehörige Icon bekomme, ohne das ich es per Datei mit komplettem Pfad extrahieren muss?
Ich habe zwar diesen Code gefunden.
VB.NET-Quellcode
- Function getIcon(ByVal ext As String) As Icon
- 'Get the register value for the specified key
- Dim regVal As String = My.Computer.Registry.GetValue(regKey & ext, "", Nothing)
- Dim iconVal As String = ""
- Dim filen As String
- Dim nIndex As Integer
- Try
- 'Specify the icon for .exe files
- If ext = ".exe" Then
- iconVal = "shell32.dll,2"
- 'Specifi the common procedure
- ElseIf regVal <> "" Then
- If Not My.Computer.Registry.GetValue(regKey & regVal & "\DefaultIcon", "", Nothing) = Nothing Then
- iconVal = My.Computer.Registry.GetValue(regKey & regVal & "\DefaultIcon", "", Nothing)
- Else
- iconVal = "shell32.dll,0"
- End If
- ElseIf ext = "dir" Then
- iconVal = "shell32.dll,4"
- End If
- If iconVal.Length < 5 Then
- iconVal = "shell32.dll,0"
- End If
- Catch ex As Exception
- MsgBox("Error in icon")
- End Try
- Dim splt() As String = iconVal.Split(",")
- filen = splt(0).Trim(" ").Trim(Char.ConvertFromUtf32(34))
- nIndex = splt(1).Trim(" ")
- Dim icon As Icon
- icon = getIconFromEx(filen, nIndex)
- Return icon
- End Function
Aber er findet nicht alle.
Im Explorer ist PDF Icon vorhanden.
Also muss es irgendwie im System registriert sein
hab aber keine Ahnung wie ich per Datei Endung es ermitteln kann.