Utilisation de l'API SHSelectIcon

Bonjour,

Je cherche a savoir comment utiliser l'API SHSelectIcon.
J'ai trouvé un petit bout de code, mais il ne marche pas tout à fait.

Cet API sert à sélectionner une icône à partir d'un fichier.
Par défaut, il ouvre le fichier Shell32.dll, et je ne suis pas capable de lui dire d'ouvrir un autre fichier à l'ouverture du dialogue.

Voici le bout de code que j'ai réussi à dénicher sur codeproject.com:

Private Declare Function SHSelectIcon Lib "shell32" Alias _
"#62" (ByVal owner As Long, _
ByVal pszFileName As String, _
pdwBufferSize As Long, _
pdwIndex As Long) As Boolean

'Call from VB
Sub CallSelectIcon()
Dim LibName As String
Dim cbLibName, dwIndex As Long
LibName = "C:\WINDOWS\MORICONS.DLL"
cbLibName = Len(LibName)
dwIndex = 0
Call SHSelectIcon(0, LibName, cbLibName, dwIndex)
If InStr(LibName, vbNullChar) <> 0 Then
LibName = Left$(LibName, Len(LibName) - 1)
End If
MsgBox "Lib: " & LibName & " Index: " & CStr(dwIndex)
End Sub

J'ai chercher un bout de code dans ce genre pendant environ 2 semaines et voila que je ne suis pas capable de l'utiliser de la bonne facon.

Je serais très reconnaissant si quelequ'un pourrait m'aider à trouver comment il fonctionne. A oui, vous remarquerez que cet API n'est pas expliquée sur aucun site  C'est à ce demander comment quelqu'un a réussi à le trouver.

il s'agit d'API by number c'est à dire très peu documentés voir pas du tout et pas facile à faire marcher.

Const MAX_PATH = 260
Const DI_MASK = &H1
Const DI_IMAGE = &H2
Const DI_NORMAL = &H3
Const DI_COMPAT = &H4
Const DI_DEFAULTSIZE = &H8

Private Declare Function SHChangeIconDialog Lib "shell32" Alias "#62" (ByVal owner As Long, ByVal pszFileName As String, pdwBufferSize As Long, pdwIndex As Long) As Boolean
Private Declare Function ExtractIconEx Lib "shell32.dll" Alias "ExtractIconExA" (ByVal lpszFile As String, ByVal nIconIndex As Long, phiconLarge As Long, phiconSmall As Long, ByVal nIcons As Long) As Long
Private Declare Function DrawIconEx Lib "user32" (ByVal hdc As Long, ByVal xLeft As Long, ByVal yTop As Long, ByVal hIcon As Long, ByVal cxWidth As Long, ByVal cyWidth As Long, ByVal istepIfAniCur As Long, ByVal hbrFlickerFreeDraw As Long, ByVal diFlags As Long) As Long
Private Declare Function DestroyIcon Lib "user32" (ByVal hIcon As Long) As Long

Private Sub Command1_Click()
   Dim sFileName  As String
   Dim IconPath   As String
   Dim nIconIdx   As Long
   Dim hSmallIcon As Long
   Dim hLargeIcon As Long
  
'  sFileName = "%SystemRoot%\system32\MORICONS.dll"
   sFileName = ""     'SHELL32.dll par défaut
   sFileName = sFileName & String$(MAX_PATH - Len(sFileName), 0)
  
  'conversion en Unicode
   sFileName = StrConv(sFileName, vbUnicode)
  
   nIconIdx = 0
 
   If SHChangeIconDialog(Me.hWnd, sFileName, 0, nIconIdx) Then
  
      IconPath = StrConv(sFileName, vbFromUnicode)
      If InStr(IconPath, vbNullChar) Then
         IconPath = Left$(IconPath, InStr(IconPath, vbNullChar) - 1)
         End If

      If ExtractIconEx(IconPath, nIconIdx, hLargeIcon, hSmallIcon, 1) > 0 Then
       
         DrawIconEx Me.hdc, 0, 8, hSmallIcon, 0, 0, 0, 0, DI_NORMAL
         DrawIconEx Me.hdc, 32, 0, hLargeIcon, 0, 0, 0, 0, DI_NORMAL
        
         DestroyIcon hSmallIcon
         DestroyIcon hLargeIcon
        
         End If

      End If

End Sub

Daniel

 y a mieux pour extraire les icones :
sans compter celle que renfield à fait et même dautres...

http://www.vbfrance.com/code.aspx?ID=4404

si tu as besoin d'aide hesite pas.

Alain  Proviste -> Ce n'était pas tout à fait ce que je cherche à faire, mon but était de sélectionner une icone dans un fichier (comme shell32.dll) pour l'afficher en tant qu'icone personnalisée pour un *menu que je suis en train de faire.

Gobillot -> C'est exactement ce que je pensait, et je n'ai pas de livre ni aucune documentation sur les API... C'est ce que j'attendait. MERCI

*menu: Ce que je veut dire par menu est un menu où on peut mettre des raccourcis et pouvoir en personnaliser les icônes.

Etienne