Type a page name and press Enter. You'll jump to the page if it exists, or you can create it if it doesn't.
To create a page in a module other than shell32, prefix the name with the module name and a period.
<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 UInteger) As UInteger
End Function
VB 6 Signature:
Declare Function ExtractIconEx _
Lib "shell32.dll" _
Alias "ExtractIconExA" _
(ByVal lpszFile As String, _
ByVal nIconIndex As Integer, _
ByRef phiconLarge As Integer, _
ByRef phiconSmall As Integer, _
ByVal nIcons As Long) As Integer
User-Defined Types:
None.
Notes:
szFile
in A null-terminated string specifying the name of an executable file, DLL, or icon file from which icons will be extracted.
nIconIndex
in Specifies the zero-based index of the first icon to extract. For example, if this value is zero, the function extracts the first icon in the specified file.
If this value is –1 and phiconLarge and phiconSmall are both NULL, the function returns the total number of icons in the specified file. If the file is an executable file or DLL, the return value is the number of RT_GROUP_ICON resources. If the file is an .ico file, the return value is 1.
Windows 95/98/Me, Windows NT 4.0 and later: If this value is a negative number and either phiconLarge or phiconSmall is not NULL, the function begins by extracting the icon whose resource identifier is equal to the absolute value of nIconIndex. For example, use -3 to extract the icon whose resource identifier is 3.
phiconLarge
out Pointer to an array of icon handles that receives handles to the large icons extracted from the file. If this parameter is NULL, no large icons are extracted from the file.
phiconSmall
out Pointer to an array of icon handles that receives handles to the small icons extracted from the file. If this parameter is NULL, no small icons are extracted from the file.
nIcons
in Specifies the number of icons to extract from the file.
Tips & Tricks:
Please add some!
Sample Code:
namespace Martin.Hyldahl.Examples.ExtractIconEx
{
/*
* Example using ExtractIconEx
* Created by Martin Hyldahl (alanadin@post8.tele.dk)
* http://www.hyldahlnet.dk
*/
using System;
using System.Drawing;
using System.Runtime.InteropServices;
/// <summary>
/// Example using ExtractIconEx
/// </summary>
public class ExtractIconExample
{
/* CONSTRUCTORS */
static ExtractIconExample()
{
}
Module IconExtract
<DllImport("shell32.dll", CharSet:=CharSet.Auto)> _
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)> _
Function DestroyIcon(ByVal hIcon As IntPtr) As Integer
End Function
Public Function WriteIconOut(ByVal iconsrcpath As String, ByVal icondestpath As String)
Dim iconsrc As Icon = ExtractIconFromExe(iconsrcpath, True)
iconsrc.Save(System.IO.File.OpenWrite(icondestpath))
End Function
Public Function ExtractIconFromExe(ByVal f As String, ByVal large As Boolean) As Icon
Dim readIconCount As Integer = 0
Dim hDummy As IntPtr() = New IntPtr(0) {IntPtr.Zero}
Dim hIconEx As IntPtr() = New IntPtr(0) {IntPtr.Zero}
Try
If (large) Then
readIconCount = ExtractIconEx(f, 0, hIconEx, hDummy, 1)
Else
readIconCount = ExtractIconEx(f, 0, hDummy, hIconEx, 1)
End If
If (readIconCount > 0 AndAlso Not hIconEx(0).Equals(IntPtr.Zero)) Then
' GET FIRST EXTRACTED ICON
Dim extractedIcon As Icon = Icon.FromHandle(hIconEx(0)).Clone()
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 Module
Alternative Managed API:
Do you know one? Please contribute it!
The ExtractIconEx API
3/8/2013 12:41:54 PM - -218.224.236.114
Please edit this page!
Do you have...
helpful tips or sample code to share for using this API in managed code?
corrections to the existing content?
variations of the signature you want to share?
additional languages you want to include?
Select "Edit This Page" on the right hand toolbar and edit it! Or add new pages containing supporting types needed for this API (structures, delegates, and more).