locked
Extract a "size specific" Icon in Windows Vista

    General discussion

  • Has anyone had this function to work properly in Visual Basic.Net?

     

    I realize that this Function may become archaic in the future, but still...

    Looking to extract the 1282px and 2562px icons from a path to an executable file... This looks like the right function, but I've messed with it too long, and my brain is all scrambled now, and I'm pretty well lost.

     

    The arguments I have working (as far as i know) have been bolded;

    green, I vaugley understand;

    I have no idea what the red arguments serve...:

     

    I will try to summarize what I know beside the argument

    (I also realize that we don't use "UINT" as the actual value in VB.Net... Int32 right?)

     

        LPCTSTR lpszFile - The path to the object (string)


        int nIconIndex, - The first icon to extract? Maybe, the icon closest to the requested dimensions?


        int cxIcon, - Width of the requested Icon.


        int cyIcon, -     Height of the requested Icon.

     

        HICON *phicon, - Handle (s  ?) of the requested icon of which are to be returned? I thought the closest 1 would be returned...


        UINT *piconid, - Display device? If the requested format of icon isn't available (existant), then it returns 0xFFFFFFFF, and 0 if somthing else denies the icon, right?... 


        UINT nIcons, - Perhaps related to "int nIconIndex"... are the different icons extracted through this argument actually the same icon in a number of different sizes? Such as... if i were to use 3 in this argument, would I get the same icon in 3 different size versions?.... I'm lost on this one too i think.


        UINT flags - Would I want to only use LR_DefaultColor?

     

     

    Thanks!!! I know this isn't very easy on the eye...

    Sunday, March 02, 2008 5:27 AM

All replies

  • The PrivateExtractIcons function is depreciated I would not use it.   Use ExtractIcon instead

     

     

    http://www.dotnet4all.com/dotnet-code/2004/10/how-to-extract-icons-from-exe-or-dll.html

    Sunday, March 02, 2008 11:03 AM
  • I am restricted to only 32x32 size icons and smaller, am I not? Is there no function other than PrivateExtractIcon wherein you may extract any icon larger than that?

     

    ...Looking for 1282px and 2552px

    Monday, March 03, 2008 5:48 AM
  •  

     

    bump... Need function to extract 128x128 & 256x256 px icon
    Tuesday, March 04, 2008 4:15 AM
  • Hi Betardfooser,

    What file type uses such large icon? Do you programming in Vista? If you program in vista, you can post your issues to this forum. One alternative is that we extract icons from file and magnify it in the image object.


    Imports System.IO
    Public Class Form1
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            ExtractAssociatedIconEx()
        End Sub
        Private imageList1 As ImageList
        Public Sub ExtractAssociatedIconEx()
            imageList1 = New ImageList()
            imageList1.ImageSize = New Size(128, 128)
            ListView1.Location = New Point(37, 12)
            ListView1.Size = New Size(450, 400)
            ListView1.SmallImageList = imageList1
            ListView1.View = View.SmallIcon
            Me.ClientSize = New System.Drawing.Size(592, 566)
            Me.Text = "Form1"
            Dim dir As New System.IO.DirectoryInfo("d:\temp")
            Dim item As ListViewItem
            ListView1.BeginUpdate()
            For Each file As FileInfo In dir.GetFiles()
                Dim iconForFile As Icon = SystemIcons.WinLogo
                item = New ListViewItem(file.Name, 1)
                iconForFile = Icon.ExtractAssociatedIcon(file.FullName)
                Dim i As Integer = 0
                If Not imageList1.Images.ContainsKey(file.Extension) Then
                    i = i + 1
                    iconForFile = System.Drawing.Icon.ExtractAssociatedIcon(file.FullName)
                    Dim fs As Stream = New FileStream("d:\temp\" & i.ToString & ".ico", FileMode.Create, FileAccess.Write)
                    iconForFile.Save(fs)
                    fs.Close()
                    imageList1.Images.Add(file.Extension, iconForFile)
                End If
                item.ImageKey = file.Extension
                ListView1.Items.Add(item)
            Next
            ListView1.EndUpdate()
        End Sub
    End Class

    Best regards,
    Riquel
    Wednesday, March 05, 2008 1:03 PM
  • We are changing the issue type to “Comment” because you have not followed up with the necessary information. If you have more time to look at the issue and provide more information, please feel free to change the issue type back to “Question” by editing your initial post and changing the radio button at the top of the post editor window. If the issue is resolved, we will appreciate it if you can share the solution so that the answer can be found and used by other community members having similar questions. Thank you!

    Monday, March 10, 2008 2:57 AM