Discussion :

[poitierjohan]

Bonjour, je voudrais faire démarrer mon programme avec windows...
Je souhaiterais le mettre en option sur un checkbox.
0 = ne démarre pas avec win
1 = démarre avec win
Il parrait que ca peut se modifier dans la base de registre mais je voudrais que ce soit fait automatiquement par le code qui se trouve sous le checkbox...
Merci à vous...

[jmfmarques]

Je ne comprends pas :

Si'il s'agit d'un Exe VB, il ne pourra tourner que sous Win

[jmfmarques]

A moins que tu ne veuilles dire :

Qu'IL SE CHARGE AUTOMATIQUEMENT AVEC WIN ???

Precises donc ta pensée...

[sovo]

effectivement pour ce que tu veux faire tu doit passer par la base des registre (methode pro).

ou alors tu joue avec le rep "demarrer" (qui contient tout les programmes qui demare avec windows).

pour la deuxieme approche (le rep "demarer). Il te suffit de creer un raccourci de ton exe si ton checkbox =0 sinon tu le supprime ou ne le creer pas.

quant a la premiere methode, je n'ai pas le code avec moi mais des que je le retrouve je te le passe.

[edit]voila le code pour ajouter un logiciel dans les registre (je l'ai pris dans le forum): HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run[/edit]

[poitierjohan]

Oui c'est ca, qu'il démarre automatiquement avec Windows... (XP pour info)
Mettre un raccourci dans le répertoire : \Démarrer\ ==> ok, mais je veux pas cette méthode pour la bonne et simple raison qu'elle n'est pas toujours effectuée...
Mais j'avais trouvé un code qui me faisait ca sans aucun problème, malheureusement, j'ai chopé un virus 2 jours après et TOUT à été effacé ; sans backup vu le délai... Bref, je ne le retrouve plus...
MErci...

[jmfmarques]

Voici pour un "RunOnce"
(démarrage 1 seule fois)

Je te laisse deviner par quoi il faut remplacer Runonce pour démarrer à tous coups ...

Dans ta form d'appel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub machin_Click()
  fic$ = CurDir & "\util.exe"
  ' pour écrire une sous-clé (ici runonce) dans le registre
  SaveString HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce", "WinTray", fic$
End Sub

Dans un module .bas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Public Const REG_NONE = 0
Public Const REG_SZ = 1
Public Const REG_EXPAND_SZ = 2
Public Const REG_BINARY = 3
Public Const REG_DWORD = 4
Public Const REG_DWORD_LITTLE_ENDIAN = 5
Public Const REG_LINK = 6
Public Const REG_MULTI_SZ = 7
Public Const REG_RESOURCE_LIST = 8
Public Const REG_FULL_RESOURCE_DESCRIPTOR = 9
Public Const REG_RESOURCE_REQUIREMENTS_LIST = 10
Public Const REG_QWORD = 11
 
 
'les constantes de clés principales
Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const HKEY_USERS = &H80000003
Public Const HKEY_PERFORMANCE_DATA = &H80000004
Public Const HKEY_CURRENT_CONFIG = &H80000005
Public Const HKEY_DYN_DATA = &H80000006
 
 
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult 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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Public Sub SaveString(hKey As Long, strPath As String, strValue As String, strData As String)
  Dim ret
  RegCreateKey hKey, strPath, ret 'on crée une nouvelle clé
  RegSetValueEx ret, strValue, 0, REG_SZ, ByVal strData, Len(strData) 'on lui attribue une valeur
  RegCloseKey ret 'et on la ferme
End Sub