Demarrer un programme au demarrage de windows

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 514 fois - Téléchargée 67 fois


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

Ajouter un commentaire

Commentaires

Il y a vraiment plus simple
Clique sur projet->Référence puis cherche un nom avec reg pour registre et utilise la fonction updatekey("SOFTWAREMicrosoftWindowsCurrentVersionRun", "LeNomDeVotreProgramme", "c:LeCheminLeProgramme")
et voila
-
tu le met dans demarrage :)
cs_Mikele
Messages postés
6
Date d'inscription
samedi 16 février 2002
Statut
Membre
Dernière intervention
19 septembre 2002
-
Tout marche très bien... sauf avec XP :-((

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.