2 Fragen zu Shgetfileinfo

Um ein mit `SHGetFileInfo` extrahiertes Icon in VB.NET 2003 unter einem anderen Namen zu speichern, gehst du wie folgt vor: 1. **Icon extrahieren:** Mit `SHGetFileInfo` erhältst du einen Handle auf das Icon (`hIcon`). 2. **Icon-Objekt erstellen:** Erzeuge daraus ein .NET-`Icon`-Objekt. 3. **Icon speichern:** Speichere das Icon mit der gewünschten Methode und unter dem gewünschten Namen. Hier ein Beispielcode: ```vb.net Imports System.Runtime.InteropServices Imports System.Drawing Imports System.IO Public Class IconExtractor <StructLayout(LayoutKind.Sequential)> Public Structure SHFILEINFO 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")> Public Shared Function SHGetFileInfo( _ ByVal pszPath As String, _ ByVal dwFileAttributes As Integer, _ ByRef psfi As SHFILEINFO, _ ByVal cbFileInfo As Integer, _ ByVal uFlags As Integer) As IntPtr End Function <DllImport("user32.dll", SetLastError:=True)> Public Shared Function DestroyIcon(ByVal hIcon As IntPtr) As Boolean End Function Public Const SHGFI_ICON As Integer = &H100 Public Const SHGFI_LARGEICON As Integer = &H0 ' 32x32 Public Const SHGFI_SMALLICON As Integer = &H1 ' 16x16 Public Shared Sub SaveIcon(ByVal filePath As String, ByVal saveAs As String) Dim shinfo As New SHFILEINFO() Dim hImg As IntPtr = SHGetFileInfo(filePath, 0, shinfo, Marshal.SizeOf(shinfo), SHGFI_ICON Or SHGFI_LARGEICON) If shinfo.hIcon <> IntPtr.Zero Then Dim icon As Icon = Icon.FromHandle(shinfo.hIcon) Using fs As New FileStream(saveAs, FileMode.Create) icon.Save(fs) End Using DestroyIcon(shinfo.hIcon) End If End Sub End Class ``` **Verwendung:** ```vb.net IconExtractor.SaveIcon("C:\Windows\notepad.exe", "C:\Temp\notepad_icon.ico") ``` **Hinweise:** - Der Code speichert das extrahierte Icon als `.ico`-Datei unter dem gewünschten Namen. - Achte darauf, den Icon-Handle nach der Verwendung mit `DestroyIcon` freizugeben, um Speicherlecks zu vermeiden. Weitere Infos zu [SHGetFileInfo (Microsoft Doku)](https://learn.microsoft.com/en-us/windows/win32/api/shellapi/nf-shellapi-shgetfileinfoa).

In VB.NET 2003 gibt es keine direkte Möglichkeit, die Transparenzfarbe (TransparentColor) eines Icons zu ermitteln, das mit `SHGetFileInfo` extrahiert wurde, da das von `SHGetFileInfo` zurückgegebene Icon-Handle (`hIcon`) keine Information über die Transparenzfarbe enthält. Icons verwenden in der Regel eine Alphamaske oder eine bestimmte Farbe als transparent, aber diese Information ist nicht explizit im Icon-Handle gespeichert. **Typisches Vorgehen:** 1. **Icon extrahieren:** Mit `SHGetFileInfo` erhältst du ein Handle auf das Icon (`hIcon`). 2. **Icon in ein .NET-Icon-Objekt umwandeln:** ```vb.net Dim icon As Icon = Icon.FromHandle(hIcon) ``` 3. **Icon in Bitmap umwandeln:** ```vb.net Dim bmp As Bitmap = icon.ToBitmap() ``` 4. **Transparenzfarbe ermitteln:** Wenn das Icon keine Alphakanal-Transparenz hat, sondern eine bestimmte Farbe als transparent verwendet, ist das meist die Farbe des Pixels an Position (0,0) oder die untere linke Ecke. ```vb.net Dim transparentColor As Color = bmp.GetPixel(0, 0) ``` **Achtung:** - Viele Icons nutzen mittlerweile einen Alphakanal (32-Bit-Icons). In diesem Fall ist die Transparenz im Alphakanal gespeichert, und es gibt keine "Transparenzfarbe" im klassischen Sinn. - Bei älteren 256-Farben-Icons ist oft die Farbe an (0,0) oder (bmp.Width-1, bmp.Height-1) als transparent definiert. **Zusammengefasst:** - Es gibt keine API, die dir direkt die Transparenzfarbe eines Icons liefert. - Du kannst versuchen, die Farbe an einer Ecke des Bitmaps zu nehmen, aber das ist nicht immer zuverlässig. - Bei Icons mit Alphakanal ist die Transparenz im Alpha-Wert der Pixel gespeichert. **Beispielcode:** ```vb.net ' SHGetFileInfo-Aufruf und Icon-Handle erhalten (hIcon) Dim icon As Icon = Icon.FromHandle(hIcon) Dim bmp As Bitmap = icon.ToBitmap() Dim transparentColor As Color = bmp.GetPixel(0, 0) ' transparentColor enthält jetzt die Farbe des Pixels oben links ``` **Weitere Infos:** - [SHGetFileInfo-Dokumentation (Microsoft)](https://learn.microsoft.com/en-us/windows/win32/api/shellapi/nf-shellapi-shgetfileinfoa) - [Icon.FromHandle (Microsoft)](https://learn.microsoft.com/en-us/dotnet/api/system.drawing.icon.fromhandle) **Fazit:** Eine sichere Ermittlung der Transparenzfarbe ist nicht möglich, da moderne Icons meist einen Alphakanal nutzen. Bei klassischen Icons kannst du die Farbe an einer Ecke als Annäherung verwenden.