je crois que j'ai une erreur ici parce le programme .exe associer au fichier texte ne c'est pas lancer
apres avoir cliquer sur le fichier test.007 associer a l'executable.
Merci
BigDan
Private Declare Sub SHChangeNotify Lib "shell32.dll" (ByVal wEventId As Long, ByVal uFlags As Long, ByVal dwItem1 As Object, ByVal dwIten2 As Object)
Private Const SHCNE_ASSOCCHANGED As Int32 = &H8000000
Private Const SHCNF_IDLIST As Int32 = &H0&
Private Sub CreateAssociation()
Dim oRegKey As RegistryKey = Registry.ClassesRoot
oRegKey = oRegKey.CreateSubKey(".007")
oRegKey.SetValue("", "WindowsApplication1")
oRegKey.Close()
oRegKey = Registry.ClassesRoot
Dim oRegKeyOpenCommand As RegistryKey
oRegKeyOpenCommand = oRegKey.CreateSubKey("WindowsApplication1\shell\open\command")
oRegKeyOpenCommand.SetValue("", Me.GetType.Assembly.Location & "%1")
oRegKeyOpenCommand.Close()
Dim oRegKeyDeffaultIcon As RegistryKey
oRegKeyDeffaultIcon = oRegKey.CreateSubKey("WindowsApplication1\DefaultIcon")
Dim sICO As String = Me.GetType.Assembly.Location
sICO = sICO.Substring(0, sICO.LastIndexOf("\")) & "\ico.ico"
oRegKeyDeffaultIcon.SetValue("", sICO)
oRegKeyDeffaultIcon.Close()
oRegKey.Close()
SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, 0, 0)
End Sub
si vous pouver m'aider serait aprécié
