Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long Sub RunOnStart(ByVal Libele As String, ByVal Fichier As String) Dim hKey As Long RegOpenKey &H80000001, "Software\Microsoft\Windows\CurrentVersion\Run", hKey RegSetValueEx hKey, Libele, 0, 1, ByVal Fichier, Len(Fichier) RegCloseKey hKey End Sub ' ==== Utilisation : ' Call RunOnStart("Calc.exe","c:\Windows\calc.exe") '
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.