• Home
 · 
• Graphics
 · 
• This code will put all the Shell icons into two image views for refrance, all from folder to my com

This code will put all the Shell icons into two image views for refrance, all from folder to my com

This code will put all the Shell icons into two image views for refrance, all from folder to my computer.

Rate This code will put all the Shell icons into two image views for refrance, all from folder to my com

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim ShellPath As String, ShellNo As Long

    For X = 0 To 39
        
        ShellPath = GetSettingString(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Icons", Trim(Str(X)), "")
        
        ShellNo = InStrEx(0, ShellPath, ",", 0, 1)
        
        If ShellNo <> 0 Then
            tmp1 = Val(Right$(ShellPath, Len(ShellPath) - ShellNo))
            ShellPath = Left$(ShellPath, ShellNo - 1)
            ShellNo = tmp1
        Else
            ShellNo = X
            ShellPath = GetSystemPath + "\Shell32.dll"
        End If
        
        Call ExtractIcon(PicBig, ShellPath, ShellNo, True, 32)
        Call ExtractIcon(PicSmall, ShellPath, ShellNo, False, 16)
        
        Call ShellBig.ListImages.Add(ShellBig.ListImages.Count + 1, , PicBig.Image)
        Call ShellSmall.ListImages.Add(ShellSmall.ListImages.Count + 1, , PicSmall.Image)
        
    Next X
End Function