'************************************************* ************
' 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