none
association RRS feed

  • Question

  • 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é

    mercredi 17 juin 2009 23:01

Réponses

  • D'abord BONSOIR !!!

    Pouvez-vous essayer ceci :

    oRegKeyOpenCommand.SetValue("", """" & Me.GetType.Assembly.Location & """ ""%1""")
    

    Cordialement

    Gilles TOURREAU - MVP C#
    • Marqué comme réponse DanielMorais vendredi 19 juin 2009 20:38
    vendredi 19 juin 2009 19:01
    Modérateur
  • Merci beaucoup pour cette petite ligne car maintenant ca fonctionne
    vraiment simpat
    ca fesait plusieur jours que j'essayais

    Aller a+ et bonne fin de semaine!
     
    BigDan
    • Marqué comme réponse DanielMorais vendredi 19 juin 2009 20:38
    vendredi 19 juin 2009 20:38

Toutes les réponses

  • D'abord BONSOIR !!!

    Pouvez-vous essayer ceci :

    oRegKeyOpenCommand.SetValue("", """" & Me.GetType.Assembly.Location & """ ""%1""")
    

    Cordialement

    Gilles TOURREAU - MVP C#
    • Marqué comme réponse DanielMorais vendredi 19 juin 2009 20:38
    vendredi 19 juin 2009 19:01
    Modérateur
  • Merci beaucoup pour cette petite ligne car maintenant ca fonctionne
    vraiment simpat
    ca fesait plusieur jours que j'essayais

    Aller a+ et bonne fin de semaine!
     
    BigDan
    • Marqué comme réponse DanielMorais vendredi 19 juin 2009 20:38
    vendredi 19 juin 2009 20:38