Céé une nouvelle extention et lancer son prog avec

Télécharger le projet
Commenter

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.
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (SupraDolph)