icon einer datei auslesen(nicht 32x32 sondern 64x64 icon)

Gelöschter Benutzer · 3. März 2011, 17:39

hallo,

ich bräuchte mal wieder eure hilfe. ich arbeite zz an einen "eigenen" desktop der die originalen desktop icons übernimmt und muss dafür logischerweise auch die icons anzeigen lassen. es gibt ja die funktion ExtractAssociatedIcon jedoch krieg ich bei dieser das 32x32 icon und nicht das gewünschte 64x64 icon zurück (ja es ist verfügbar)

hoffe ihr könnt mir helfen

mfg

Gelöschter Benutzer · 27. Mai 2011, 16:56

keiner ne idee?:/

Rinecamo · 27. Mai 2011, 17:16

Vielleicht so:

VB.NET-Quellcode

Dim img as Image = Icon.ExtractAssociatedIcon("Pfad").ToBitmap
PictureBox1.Image = img
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
PictureBox1.Size = New Size(64, 64)
'Oder
Dim pb as New Picturebox With {.Image = img, .SizeMode = PictureBoxSizeMode.StretchImage, .Size = New Size(64, 64)}

ThuCommix · 27. Mai 2011, 17:39

Ist ja nicht sin der Sache, so wird es ja verpixelt, er will wissen, wie er das 64x64 Icon extrahieren kann. Ich würde da Spontan sagen das da irgendwo ein Registry Eintrag sein muss.

Grüße

Rinecamo · 27. Mai 2011, 17:42

Jo, ist auch so.

xtts02 · 27. Mai 2011, 18:22

Nicht getestet: pinvoke.net/default.aspx/shell32/ExtractIconEx.html

bla · 28. Mai 2011, 13:39

VB.NET-Quellcode

´ Public Declare Function DestroyIcon Lib "User32.dll" (ByRef phicon As IntPtr) As Boolean
Public Declare Function ExtractIconEx Lib "shell32.dll" (ByVal lpszFile As String, ByVal nIconIndex As Integer, _
ByRef phiconLarge As IntPtr, ByRef phiconSmall As IntPtr, ByVal nIcons As Integer) As IntPtr
Public Function GetApplicationIcon(ByVal Filepath As String, ByVal smallIcon As Boolean, Optional ByVal NrOfIcon As Integer = 0) As Icon
Dim iconPtr As IntPtr
Dim myIcon As Icon
If smallIcon = True Then
ExtractIconEx(Filepath, NrOfIcon, Nothing, iconPtr, 1)
Else
ExtractIconEx(Filepath, NrOfIcon, iconPtr, Nothing, 1)
End If
Try
myIcon = Icon.FromHandle(iconPtr)
Catch ex As Exception
Return Nothing
End Try
DestroyIcon(iconPtr)
Return myIcon
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
PictureBox1.Image = GetApplicationIcon(Application.ExecutablePath, True).ToBitmap
End Sub

Gelöschter Benutzer · 29. Mai 2011, 19:02

@bla

dein code gibt kein icon zurück, wenn man die try catch schleife weg lässt kriegt man 32x32 icons, xtts02 bei deiner methode auch(bla hat ja eigentlich nur den code von da umgebaut).

icon einer datei auslesen(nicht 32x32 sondern 64x64 icon)

icon einer datei auslesen(nicht 32x32 sondern 64x64 icon)

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

5 Benutzer haben hier geschrieben