Comment puis-je démarrer mon appli au démarrage de windows ?
Mettez les déclarations suivantes dans votre Module :
Source / Exemple :
Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Boolean
End Type
Declare Function RegSetValueEx Lib "advapi32" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal szData As String, ByVal cbData As Long) As Long
Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long
Declare Function RegCreateKeyEx Lib "advapi32" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, phkResult As Long, lpdwDisposition As Long) As Long
' Puis mettez ce code dans votre Module :
Private Function bSetRegValue(ByVal hKey As Long, ByVal lpszSubKey As String, ByVal
sSetValue As String, ByVal sValue As String) As Boolean
On Error Goto ERROR_HANDLER
Dim phkResult As Long
Dim lResult As Long
Dim SA As SECURITY_ATTRIBUTES
Dim lCreate As Long
' Cette Fonction créera la clef ou la valeur si elle(s) n'existe(nt) pas
'Ouverture et Création de la Clef
RegCreateKeyEx hKey, lpszSubKey, 0, "", REG_OPTION_NON_VOLATILE, _
KEY_ALL_ACCESS, SA, phkResult, lCreate
lResult = RegSetValueEx(phkResult, sSetValue, 0, 1, sValue, _
CLng(Len(sValue) + 1))
'Fermeture de la Clef
RegCloseKey phkResult
'Renvoi le Résultat de SetRegValue
bSetRegValue = (lResult = ERROR_SUCCESS)
Exit Function
ERROR_HANDLER:
MsgBox "ERROR #" & Str$(Err) & " : " & Error & Chr(13) _
& "SVP Fermez et Réessayez."
bSetRegValue = False
End Function
Private Sub Form_Load()
a = bSetRegValue(&H80000002, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "LeNomDeVotreProgramme", "c:\LeChemin\LeProgramme")
MsgBox ("Programme ajouté au démarrage de Windows")
End Sub
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.