Lancer une appliz au demarrage de windows [Résolu]

Signaler
Messages postés
61
Date d'inscription
vendredi 1 avril 2005
Statut
Membre
Dernière intervention
13 novembre 2005
-
Messages postés
61
Date d'inscription
vendredi 1 avril 2005
Statut
Membre
Dernière intervention
13 novembre 2005
-
Voila je voudrai que mon appliz se lance au démarage de windows en ajoutant une clef dans la base deregistre, j'ai testé une multitude de code mais y'a toujours un truc qui chit alors ma requete est la suivante est-ce que quelqu'un pourai déposer un code exemple complet en admetant que l'apliz s'appelle test.exe
Je sai que sa fait chier de fair ca pour une seul personne mai sa servira un bien d'autre débutant qui galere avec les api comme moi......

2 réponses

Messages postés
625
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
25 novembre 2010

Salut,
tout d'abord ouvre un nouveau projet et ajoute lui un module,
puis dans ce module copie ce code:
Option Explicit
Const REG_SZ = 1
Const ERROR_SUCCESS = 0&
Public Const HKCU = &H80000001
Public Const HKLM = &H80000002
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
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Public Sub EcrireChaine(Racin As Long, strPath As String, strValue As String, strData As String)
Dim Ret
Dim ErCode
RegCreateKey Racin, strPath, Ret
RegSetValueEx Ret, strValue, 0, REG_SZ, ByVal strData, Len(strData)
If ErCode <> ERROR_SUCCESS Then MsgBox ErCode
RegCloseKey Ret
End Sub
Public Function GetExePath()
Dim Chemin As String
Dim NomProg As String
Chemin = App.Path
NomProg = App.EXEName & ".exe"
If Right$(Chemin, 1) = "" Then _
GetExePath = Chemin & NomProg Else _
GetExePath = Chemin & "" & NomProg
DoEvents
End Function

Puis tu n'a plus qu'a ecrire ceci ou tu veux dant ton programe

' Seulement l'utilisateur courrant:
EcrireChaine HKCU, "Software\Microsoft\Windows\CurrentVersion\Run", App.EXEName, GetExePath
' Tous les utilisateurs
EcrireChaine HKLM, "Software\Microsoft\Windows\CurrentVersion\Run", App.EXEName, GetExePath

Le programme s'enregistreera directement sous le nom k'il porte avec et l'endroit ou il se trouve ;)

Quand on pose une question on est con 5 minutes,
Quand on ne la pose pas on le reste toute sa vie...
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 110 internautes nous ont dit merci ce mois-ci

Messages postés
61
Date d'inscription
vendredi 1 avril 2005
Statut
Membre
Dernière intervention
13 novembre 2005

Merci Beaucoup mais entre temps je suis tombé sur ton post:

salut a tous,

Pour lancer ton prog au demarrage de Windows tu dois inscrire le chemein de ton aplli dans la base de registre

pour ecrire une valeur tu as deux options

1) via wscript.shell

2) via les api

pour la premiere c'est simple voisi un exemple:

Dim WSHShell
Dim MaClef
Dim MonProg
Dim CheminDeMonProg
Dim r
Set WSHShell = CreateObject("Wscript.Shell")

MonProg = "MonProg"
CheminDeMonProg = "C:\MonProg.exe"
MaClef = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" & MonProg

r = WSHShell.RegWrite(MaClef, CheminDeMonProg, "REG_SZ")

Quand o pose une question on est con 5 minutes,
quand on ne la pose pas on le reste toute sa vie...

En tout cas tu es tré éfficasse merci !