ACTIVER, DÉSACTIVER ET VÉRIFIER LE LANCEMENT D'UNE APPLICATION AU DÉMARRAGE DE WINDOWS

Public Sub RunAtStartUp(Nom As String, chemin As String)
	'Ecriture dans la Base de Registre de la Clé de Démarrage
    RegEcrire 0, "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\" & Nom, chemin
 
End Sub
 

Public Sub StopRunningStartUp(Nom As String)
	'Suppression de la Clé de Démarrage
    RegSupprimer "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\" & Nom

End Sub

Public Function IsRunningOnStartup(Nom As String) As Boolean
IsRunningOnStartup = False
On Error GoTo fin
    Dim Resultat As String
    'On lit la clé...
    RegLire "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\" & Nom, Resultat
	'On vérifie si le chemin de la clé est valide
    If Dir$(Resultat) <> "" Then
        IsRunningOnStartup = True
    Else
        IsRunningOnStartup = False
    End If
fin:
End Function

'La suite du Code n'est pas de moi, mais de SPR, trouvé sur VB Codes Sources...

Public Sub RegLire(CheminComplet As String, Destination As String)

'permet de lire une valeur dans la base de registre
Set WshShell = CreateObject("Wscript.Shell")

Destination = WshShell.RegRead(CheminComplet)

'Remarque :HKEY_CURRENT_USER peut être remplacé par HKCU
'On peut mettre n'importe quelle branche comme ça

End Sub

Public Sub RegEcrire(StyleDeClé As Integer, CheminComplet As String, Valeur As String)
'Permet d'écrire dans la base de registre tout type de valeur (valeur chaîne, dword, binaire) ou de créer une nouvelle branche ....

'Style de Clé :
'0 -> Valeur Chaîne
'1 -> DWord
'2 -> Binaire


Set WshShell = CreateObject("Wscript.Shell")

If StyleDeClé = 0 Then WshShell.RegWrite CheminComplet, Valeur
If StyleDeClé = 1 Then WshShell.RegWrite CheminComplet, Valeur, "REG_DWORD"
If StyleDeClé = 2 Then WshShell.RegWrite CheminComplet, Valeur, "REG_BINARY"


End Sub

Public Sub RegSupprimer(CheminComplet As String)

'Permet d'effacer dans la base de registre tout type de valeur (valeur chaîne, dword, binaire)

Set WshShell = CreateObject("Wscript.Shell")

WshShell.RegDelete CheminComplet



End Sub


'J'espère que ce code vous servira. Salut !
'SPR & Modifications par MaDCOw...