Lancer mon application VB6 au démarrage

Claude Azoulai Messages postés 26 Date d'inscription mercredi 11 août 2004 Statut Membre Dernière intervention 13 avril 2013 - 22 janv. 2009 à 18:07
PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 22 janv. 2009 à 18:48
Bonjour à tous


Je développe une application que je voudrais lancer automatiquement au démarrage.
J'ai lu sur ce forum qu'il suffisait de placer un raccourci dans le dossier "démarrage" ou "startup" du répertoire Windows, hors je ne les ai pas trouvé.
Je suis sous Windows XP pro.


Pouvez vous m'aider SVP


Claude l'ancien

Claude l'ancien

2 réponses

nhervagault Messages postés 6063 Date d'inscription dimanche 13 avril 2003 Statut Modérateur Dernière intervention 15 juillet 2011 37
22 janv. 2009 à 18:40
Salut,

Dans le menu démarrer, tu as un menu Programmes>Démarrage
et tu fais explorer et la tu auras le chemin du répertoire

Tu créés un raccourci vers ton application dans le répertoire.

Si tu veux pour tous les comptes c'est dans le répertoire All Users, a la du repertoire du user courant.

Bon dev
0
PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 49
22 janv. 2009 à 18:48
salut,

ou par code :



<hr />
'    LANCER UN EXE AU DEMARRAGE DE WINDOWS
'    http://www.codyx.org/snippet_lancer-exe-demarrage-windows_56.aspx#142
'    Posté par [ EBArtSoft
] le 25/03/2006
<hr />




Private Declare Function RegOpenKey Lib
"advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As
String, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib
"advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function
RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long,
ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long,
lpData As Any, ByVal cbData As Long) As Long

Sub RunOnStart(ByVal Libele
As String, ByVal Fichier As String)
    Dim hKey    As Long
    RegOpenKey
&H80000001, "Software\Microsoft\Windows\CurrentVersion\Run", hKey
   
RegSetValueEx hKey, Libele, 0, 1, ByVal Fichier, Len(Fichier)
    RegCloseKey
hKey
End Sub
' ==== Utilisation :
' Call
RunOnStart("Calc.exe","c:\Windows\calc.exe")
'






++


Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp 
0