Céé une nouvelle extention et lancer son prog avec

Soyez le premier à donner votre avis sur cette source.

Vue 4 177 fois - Téléchargée 365 fois

Description

Je met ce code pour bratislaprog qui me la demander
Cée une nouvelle extention et lance le programme désirer losque l'on double clique sur un fichier ayant cette extention.
Le mieu est de telecharger le zip si non, mette dans une form :
un command boutton et (Command1)
un label (Label1)

Bon prog.
SupraDolph

Source / Exemple :


Private Sub CréationAssociation(CheminEXE As String, CheminIcône As String, Filetype As String, Extention As String, Nomduprog As String)
    Dim r
Set r = CreateObject("WScript.Shell")
r.RegWrite "HKEY_CLASSES_ROOT\" & Extention & "\", Filetype
r.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\" & Extention & "\OpenWithList\a", CheminEXE
r.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\" & Extention & "\OpenWithList\MRUList", "a"
r.RegWrite "HKEY_CURRENT_USER\Software\" & Nomduprog & "\ClefHandle", CheminEXE
r.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Classes\" & Extention & "\", Filetype
r.RegWrite "HKEY_USERS\S-1-5-21-2000478354-839522115-1202660629-1000\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\" & Extention & "\OpenWithList\a", Nomduprog & ".exe"
r.RegWrite "HKEY_USERS\S-1-5-21-2000478354-839522115-1202660629-1000\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\" & Extention & "\OpenWithList\MRUList", "a"
r.RegWrite "HKEY_USERS\S-1-5-21-2000478354-839522115-1202660629-1000\Software\" & Nomduprog & "\ClefHandle", CheminEXE
r.RegWrite "HKEY_CLASSES_ROOT\Applications\" & Nomduprog & ".exe\shell\open\command\", CheminEXE & " ""%1"""
r.RegWrite "HKEY_CLASSES_ROOT\" & Filetype & "\DefaultIcon\", CheminIcône
r.RegWrite "HKEY_CLASSES_ROOT\" & Filetype & "\shell\open\command\", CheminEXE & " ""%1"""
End Sub

Private Sub Command1_Click()
CréationAssociation App.Path & "\Exemple.exe", App.Path & "\supra.ico", "SupraTxt", ".supra", "Exemple"
Label1.Caption = "Cliquer sur test.supra pour essayer"
End Sub

Conclusion :


Si ce code ne marche pas ou si vous avez mieu ...
Laisser mon un cht'i commentaire.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
2107
Date d'inscription
mercredi 21 août 2002
Statut
Contributeur
Dernière intervention
19 février 2021
2
Il aurait été bien d'avoir aussi le contraire : Supprimer l'association
Messages postés
4
Date d'inscription
dimanche 20 mai 2007
Statut
Membre
Dernière intervention
9 août 2007

Salam, Salut

Merci BASE DE REGISTRE pour ce code, mais je croi que j'ai déja vu un code en 3 ling !
Pour créer valeur dans HKEY_CLASSES_ROOT et deux clé, un pour lien %1 et un pour l'ICON
est un seul ling dans notre application pour recupérer le lien %1 de fichier que on viens de clickez !
mais... je c pas ou !! :-D !!

et... sil te plait MATREY tu peu modifier le lien par ce que ça marche pas !

Merci,
Salam.
Messages postés
399
Date d'inscription
jeudi 31 janvier 2002
Statut
Membre
Dernière intervention
6 septembre 2004

Pour le concours VBFrance, je m'étais occupé de cette association et de la recupération du %1. Regardez ici : http://vbfrance.com/concoursarticle.aspx?Val=88
Messages postés
12
Date d'inscription
jeudi 16 mai 2002
Statut
Membre
Dernière intervention
9 août 2005

Yep c'est pas mal surtt ke je viens de tt me taper a la main ya 5min...

J'ai juste une p'tite kestion je la met ici si kelk'un a la reponse:
Komment est ce kon peut recuperer la valeur du %1 dans un programme ecrit en vb pour pouvoir lancer le fichier sur lequel on viens de clikez?
Messages postés
4
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
16 juin 2002

pas mal mais bon c un peu le bordel....

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.