Discussion :

[zejo63]

Bonjour j'ai une application Vb qui est un Agenda avec gestion de Rendez vous . J'aimerai qu'elle se lance au démarage de Windows pour controler si aujourd'hui il y a un rendez vous dans la base de donnée. Si oui on ouvre mon application. Je doit donc lancer mon appli au démarage de Windows mais je sais pas comment faire .
On ma parler des Update Key pour modifier des clé de Registre ( RUN )
Si quelqu'un peu m'aider merci

[dbozec]

Il faut que tu intervienne dans la base de registre pour cela met ce code dans ton module:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
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 KEY_ALL_ACCESS = &HF3F
Global Const REG_SZ As Long = 1
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Public Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long
Public Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Public 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
Public Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long

Ensuite tu mets ce code où tu veux pour lancer ton appli au démarrage de Windows (dans un bouton ou un menu si c'est une option ou directement au chargement de ta feuille si l'utilisateur n'a pas à choisir dans ce cas il suffit de lancer le prog une fois pour écrire dans la base de registre et c'est bon):

Code :

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

1
2
3
    Dim result, Reg As Long
    Reg = RegCreateKey(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Run", result)
    Reg = RegSetValueEx(result, "Ton_App.exe", 0, 1, ByVal App.Path & "\Ton_App.exe", Len(App.Path & "\" & ))

Si tu veux plus de détails fait moi signe

[AlainTech]

Et mettre un lien dans Démarrage du menu Démarrer, c'est trop simple???

[ThierryAIM]

Et mettre un lien dans Démarrage du menu Démarrer, c'est trop simple???

Mais pourquoi faire simple, quand on peut faire compliqué !!

[zejo63]

• Et mettre un lien dans Démarrage du menu Démarrer

Et est ce que je peux rajouter le lien avec du code VB ??
Merci pour la premiere reponse

[dbozec]

Et mettre un lien dans Démarrage du menu Démarrer, c'est trop simple???

Oui mais pourquoi faire simple quand c'est si facile de faire compliqué.
J'adore faire compliqué.

[ThierryAIM]

Décidement, c'est pas mon jour, je me suis gouré de post, mais bon j'ai rétabli la situation
Donc je disais, tu devras faire un installateur, alors tu peux le prévoir dans le script, plutot que dans ton prog VB
Exemple avec InnoSetup :

Code :

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

1
2
[Icons]
Name: {userstartup}\MonAppli; Filename: {app}\MonAppli.exe; WorkingDir: {app}