Demarrer un programme au demarrage de windows


Commenter

Contenu du snippet

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

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