Demarrer un programme au lancement de windows

kev900001
Messages postés
119
Date d'inscription
mercredi 7 juillet 2004
Statut
Membre
Dernière intervention
9 avril 2008
- 14 sept. 2004 à 00:59
cs_EBArtSoft
Messages postés
4525
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
- 14 sept. 2004 à 13:42
je vien de faire un programme et je voudrai qu'il demare automatiquement au lancement de windows xp

3 réponses

Gobillot
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
33
14 sept. 2004 à 02:02
Le plus simple c'est de mettre un raccourci dans le menu de Windows:
programme -->> démarrage -->> créer un raccourci

L'autre solution c'est de l'ajouter dans la Base de Registre:
HKEY_LOCAL_MACHINE\software\Microsoft\Windows\CurrentVersion\run
0
pcpunch
Messages postés
1247
Date d'inscription
mardi 7 mai 2002
Statut
Membre
Dernière intervention
18 février 2019
4
14 sept. 2004 à 03:05
Voici un code a plaver dans un module :

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



pour l'inscrire dans le registre et donc demmarer l'appli au lancement de win :

RunAtStartUp "Mon soft" , "c:\monsoft.exe"

pour l'enlever :
StopRunningStartUp "Mon soft"

Pour verfier si il demarrera avec win (renvoie true ou false) :
Msgbox IsRunningOnStartup "Mon Soft"

++
0
cs_EBArtSoft
Messages postés
4525
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
9
14 sept. 2004 à 13:42
Faut il presiser l'ecriture dans HKEY_CURRENT_USER permet de lancer l'executable au demarrage d'une session presice et HKEY_LOCAL_MACHINE sur toute les sessions !

@+

E.B.
0