Extract icons from .exe .dll etc...

[antecedents]

Does anyone know of a function, method, namespace anything I could look into/use to extract icons from within the VBExpress ide or vb.net in general?

 

[amitorion]

Extracting Icons from and exe or dll

Does anyone know of a function, method, namespace anything I could look into/use to extract icons from within the VBExpress ide or vb.net in general?

hi,

u can use the ExtractIcon win32 API... it takes the instance handle to the dll or exe and some other parameters.. look out the documentation urself..

bye

 

[antecedents]

I was wanting to know how to do this in the .NET FrameWork 1.1 or 2.0.

 

[Napivo1972]

I was wanting to know how to do this in the .NET FrameWork 1.1 or 2.0.

Knowing you wanted the .net way to get icons from any file type I will post the not so VB.net way to get the job done. Nowhere have I found a way to do it without api.

This is a part of my RegisteredFileTypes Class that is the reason why there can be an index behind the path. The registry stores the paths in that manner. If you want it out you should be able too.

  Declare Function ExtractIcon 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

    calls API to determine how many icons are embedded in the file
    vPath can contain an index number. It must be separated by a comma
    Private Function GetNumberOfIcons(ByVal vPath As String) As Integer
        Dim strfile As String
        If vPath.IndexOf(",") > 0 Then
            strfile = vPath.Substring(0, vPath.IndexOf(","))
        Else
            strfile = vPath
        End If
        strfile = strfile.Replace("""", "")
        Return ExtractIcon(strfile, -1, 0, 0, 0)
    End Function

    Loads Icon from any file.
    vPath can contain an index number. It must be separated by a comma
    Private Function GetIcon(ByVal vPath As String) As Icon
        Dim strfile As String
        Dim intIndex, intIcon, intIcon2 As Integer

        Split path in index and path
        If vPath.IndexOf(",") > 0 Then
            strfile = vPath.Substring(0, vPath.IndexOf(","))
            intIndex = Convert.ToInt32(vPath.Substring(vPath.IndexOf(",") + 1))
        Else
            strfile = vPath
            intIndex = 0
        End If

        If path contains dubblequotes remove them
        strfile = strfile.Replace("""", "")

        try to open file
        Dim fi As System.IO.FileInfo
        Try
            fi = New System.IO.FileInfo(strfile)
        Catch ex As Exception
            Console.WriteLine("Bad filename: " & strfile)
            Console.WriteLine(ex.ToString)
            Return Nothing
        End Try

        Try To extract Icon at index
        ExtractIcon(strfile, intIndex, intIcon, intIcon2, 1)

        If this failes take the first icon
        If intIcon = 0 Then
            ExtractIcon(strfile, 0, intIcon, intIcon2, 1)
        End If

        Console.WriteLine("Icon: " & strfile)
        Console.WriteLine("Index: " & intIndex)
        Console.WriteLine("Data:" & intIcon & "," & intIcon2)

        If intIcon <> 0 Then
            Dim objIcon As Icon

            Load Icon to memory
            NOTE: STOLEN FROM MISC OTHER EXAMPLES:
                  I have no idea how this works...
                  Looks like I need a lesson in the MemoryStream
                  Object 

            Dim stream As New IO.MemoryStream
            objIcon = Icon.FromHandle(New IntPtr(intIcon))
            Application.DoEvents()
            objIcon.Save(stream)
            Dim intLength As Integer = CType(stream.Length, Integer)
            Dim b(intLength) As Byte
            stream.Position = 0
            stream.Read(b, 0, intLength)
            stream.Close()

            DestroyIcon(intIcon)

            Return DirectCast(objIcon.Clone, Icon)
        Else
            Return Nothing
        End If
    End Function