|
 Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
 ASSOCIATION D'UNE EXTENSION A UNE APPLICATION (EX: *.DOC = MS WORD)
 Information sur la source
 Description
Faire les déclaration suivantes dans un MODULE: Const HKEY_CLASSES_ROOT = &H80000000 Const HKEY_LOCAL_MACHINE = &H80000002 Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hkey&, ByVal lpszSubKey$, lphKey&) As Long Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" (ByVal hkey&, ByVal lpszSubKey$, ByVal fdwType&, ByVal lpszValue$, ByVal dwLength&) As Long Public Const MAX_PATH = 256& Public Const REG_SZ = 1
 Source
- Sub CréationAssociation()
- Dim NomClef As String
- Dim ValeurClef As String
- Dim RetVal As Long
- Dim ClefHandle As Long
-
- NomClef = "Software" & NomLogiciel ' ATTENTION: il y a un "backslash" entre "Software" et Nomlogiciel (inverse de "/", mais ça ne s'affiche pas sur ce site !?)
- ValeurClef = CheminEXE
- RetVal = RegCreateKey(HKEY_LOCAL_MACHINE, NomClef, ClefHandle)
- RetVal = RegSetValue(ClefHandle, "", REG_SZ, ValeurClef, 0&)
-
- NomClef = NomLogiciel
- ValeurClef = TypeFichier
- RetVal = RegCreateKey(HKEY_CLASSES_ROOT, NomClef, ClefHandle)
- RetVal = RegSetValue(ClefHandle, "", REG_SZ, ValeurClef, 0&)
-
- NomClef = Extension
- ValeurClef = NomLogiciel
- RetVal = RegCreateKey(HKEY_CLASSES_ROOT, NomClef, ClefHandle)
- RetVal = RegSetValue(ClefHandle, "", REG_SZ, ValeurClef, 0&)
-
- NomClef = NomLogiciel
- ValeurClef = CheminEXE & " ""%1"""
- RetVal = RegCreateKey(HKEY_CLASSES_ROOT, NomClef, ClefHandle)
- RetVal = RegSetValue(ClefHandle, "shellopencommand", REG_SZ, ValeurClef, MAX_PATH)
- ValeurClef = CheminIcône & ",0"
- RetVal = RegSetValue(ClefHandle, "DefaultIcon", REG_SZ, ValeurClef, MAX_PATH)
-
- End Sub
Sub CréationAssociation()
Dim NomClef As String
Dim ValeurClef As String
Dim RetVal As Long
Dim ClefHandle As Long
NomClef = "Software" & NomLogiciel ' ATTENTION: il y a un "backslash" entre "Software" et Nomlogiciel (inverse de "/", mais ça ne s'affiche pas sur ce site !?)
ValeurClef = CheminEXE
RetVal = RegCreateKey(HKEY_LOCAL_MACHINE, NomClef, ClefHandle)
RetVal = RegSetValue(ClefHandle, "", REG_SZ, ValeurClef, 0&)
NomClef = NomLogiciel
ValeurClef = TypeFichier
RetVal = RegCreateKey(HKEY_CLASSES_ROOT, NomClef, ClefHandle)
RetVal = RegSetValue(ClefHandle, "", REG_SZ, ValeurClef, 0&)
NomClef = Extension
ValeurClef = NomLogiciel
RetVal = RegCreateKey(HKEY_CLASSES_ROOT, NomClef, ClefHandle)
RetVal = RegSetValue(ClefHandle, "", REG_SZ, ValeurClef, 0&)
NomClef = NomLogiciel
ValeurClef = CheminEXE & " ""%1"""
RetVal = RegCreateKey(HKEY_CLASSES_ROOT, NomClef, ClefHandle)
RetVal = RegSetValue(ClefHandle, "shellopencommand", REG_SZ, ValeurClef, MAX_PATH)
ValeurClef = CheminIcône & ",0"
RetVal = RegSetValue(ClefHandle, "DefaultIcon", REG_SZ, ValeurClef, MAX_PATH)
End Sub
 Conclusion
Les Variables à définir soi-même sont: NomLogiciel: Exemple: "Mon logiciel" CheminEXE: Exemple: "C:MonLogiciel.exe" TypeFichier: Exemple: "Document Mon Logiciel" Extension: Exemple: ".log" CheminIcône: Exemple: "C:MonLogiciel.ico" Et voilà ! Exécutez la fonction lors du (premier) lancement de votre application et le tour est joué. Deux trucs: - pour obtenir le chemin de l'exe, si vous distribuez vos applications, utilisez la propriété "App.Path" - pour connaître le chemin du fichier qui a ouvert votre application (double-clic sur un fichier don l'extension est celle définie ci-dessus), utilisez la variable système "Command()" (CheminFichier = Command()".
 Sources du même auteur
 Sources de la même categorie
Sources en rapport avec celle ci
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
Association d'extension a son application [ par ralf19b3 ]
S@lut les programmeur je voudrait savoir si l'un de vous a une projet VB6 qui permet tout simplement d'associer une extension a son application?? G es
Association Extension d'un fichier <-> Icone [ par Schum ]
Voilà, j'aimerai que mon programme associe à un fichier son icône telle qu'elle est dans Windows.Mais je ne veux pas une liste non exaustive des icone
resultat d'association a un extension [ par blindman ]
une fois ceci fait,(l'association de mon prog à une extension de mon cru),comment faire pour que lorsque le prog ce lance via un de ces fichier le tex
association d'une extension [ par blindman ]
associer et creer une extension je sais le faire pas de souci ,mais mon probleme est de recuperer les informations d'un fichiers lorsque c'est ce dern
association d'extension à un prog [ par attila46 ]
J'ai réaliser un prog qui me stocke des info dans des fichiers avec une extension en .moe.Quand je fais un double clic sur un fichier .moe, j'arrive à
Associer une icone a une nouvelle extension [ par DebvbJ ]
SalutJe voudrais savoir comment je pourais faire pour associer une icône à tous les fichiers portants l'extension ".wpm"Je suppose qu'il y a un moyen
Association extension -> prog sans registre [ par bainic ]
Bonjour,Je souhaîte creer l'association d'une extension avec un exécutable sans utiliser les registres.Merci de votre aide.
Associer une icone à un raccourci [ par PetitGognol ]
PetitGognolSalutJe cherche à associer une icone personnalisée à mes raccourcis pendant l'installation de mon programme. Comment puis-je m'y prendre (p
extension d'une base de données [ par kiloo ]
bonjour,j'ai une base de données avec l'extension *.dbce n'est pas du paradox , ni du visual foxpro.est -que quelqu'un aurait une idée ? indice : lors
Me taduire 1 ligne de javascript à VB svp... [ par Jin ]
Quelqu'un serait-il traduire çà en VB : (c'est du javascript...)var toto = " test.tst"document.write("Extension : "+toto.substring(toto.lastIndexOf('.
|
 Téléchargements
Logiciels à télécharger sur le même thème :
|