Donnez une icon a un fichier d'un appli midi

Commenter

Contenu du snippet

'*************************************************************
' cela es a titre information au autre qui on pas ou courant de cette Source'
'*************************************************************
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" ( _
ByVal hKey As Long, _
ByVal lpSubKey As String, _
phkResult As Long _
) As Long

Private Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" ( _
ByVal hKey As Long, _
ByVal lpSubKey As String, _
ByVal dwType As Long, _
ByVal lpData As String, _
ByVal cbData As Long) _
As Long

Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const MAX_PATH = 260&
Public Const REG_SZ = 1

Public Declare Sub SHChangeNotify Lib "shell32.dll" ( _
ByVal wEventId As Long, _
ByVal uFlags As Long, _
dwItem1 As Any, _
dwItem2 As Any)

Public Const SHCNE_ASSOCCHANGED = &H8000000
Public Const SHCNF_IDLIST = &H0&

Public Const SHCNE_ASSOCCHANGED = &H8000000
Public Const SHCNF_IDLIST = &H0&

On Error GoTo Fin
'Création de la clé racine C2IMP3
sKeyName = "c2iMP3"
sKeyValue = "c2i Player MP3"
lngRep = RegCreateKey(HKEY_CLASSES_ROOT, sKeyName, lphKey)
lngRep = RegSetValue(lphKey, "", REG_SZ, sKeyValue, 0&)
'création de l'association
sKeyName = ".C2IMP3"
sKeyValue = "c2iMP3"
lngRep = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey)
lngRep = RegSetValue&(lphKey, "", REG_SZ, sKeyValue, 0&)
'création de la ligne de commande
sKeyName = "c2iMP3"
sKeyValue = "D:\Developpements rc\MP3\new\c2i-MP3 Player.exe %1"
lngRep = RegCreateKey(HKEY_CLASSES_ROOT, sKeyName, lphKey&)
lngRep = RegSetValue&(lphKey, "shell\open\command", REG_SZ, sKeyValue, MAX_PATH)
'création de l'icône
sKeyName = "c2iMP3"
sKeyValue = "D:\Developpements rc\MP3\new\c2iMP3.ico"
lngRep = RegCreateKey(HKEY_CLASSES_ROOT, sKeyName, lphKey)
lngRep = RegSetValue(lphKey, "DefaultIcon", REG_SZ, sKeyValue, MAX_PATH)
'notification au système du changement d'icône
SHChangeNotify SHCNE_ASSOCCHANGED, SHCNF_IDLIST, 0, 0
Fin:
End Sub

Sub Form_Load()
If Command <> "" then
'lancement de la lecture du fichier
ReadFile Command
End If
...
End Sub

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 (cs_Napster)