Regardes dans le mien sur ESC. Je lie les extensions .esc à mon appli et ça marche. Change juste les clefs qui t'interesse dedans ; ))
Function f_CheckAsso()
Dim LireIni As String
LireIni = GetIni("OPTION", "AssoOK", App.Path & "\\ESC.ini")
If LireIni = "" Then
Dim lphKey, lngRep As Long
Dim sKeyName, sKeyValue As String
'création de l'association
sKeyName = ".esc"
sKeyValue = "EasyShortCut File"
lngRep = RegCreateKey(Hkey_CLASSES_ROOT, sKeyName, lphKey)
lngRep = RegSetValue(lphKey, "", REG_SZ, sKeyValue, 0&)
'création de la ligne de commande
sKeyName = "EasyShortCut File"
sKeyValue = App.Path & "\" & App.EXEName & ".exe" & " " & Chr$(34) & "%1" & Chr$(34)
lngRep = RegCreateKey(Hkey_CLASSES_ROOT, sKeyName, lphKey)
lngRep = RegSetValue(lphKey, "shell\\open\\command", REG_SZ, sKeyValue, MAX_PATH)
'création de l'icône
sKeyName = "EasyShortCut File"
sKeyValue = App.Path & "\\File.ico"
lngRep = RegCreateKey(Hkey_CLASSES_ROOT, sKeyName, lphKey)
lngRep = RegSetValue(lphKey, "DefaultIcon", REG_SZ, sKeyValue, MAX_PATH)
WriteIni "OPTION", "AssoOK", "True", App.Path & "\\ESC.ini"
End If
End Function