[VB] démarrge d'un script à chaque démarrage de windows
démarrge d'un script à chaque démarrage de windows [VB] - VB/VBA/VBS - Programmation
Marsh Posté le 02-05-2002 à 11:07:34
As-tu essayé la base de registre ?
Il faut créer une clé dans\\HKEY_LOCAL_MACHINE\Software\microsoft\windows\currentversion\run\
avec le chemin d'accès à to appli.
Sujets relatifs:
- [C/C++] Dites moi si on peut créer des appz windows
- [installation sous windows] choisir l'emplacement des dlls malgré tout
- SQL Server 7.0 et Windows 2000
- [PHP] htaccess: récuperer le login dans un script chez free
- C et Windows
- Probleme avec un script galerie
- Besoin d'une liste de departement de france pour mon script
- Un script pour recréer une base RPM (à partir des fichiers) ?
- [Perl / CGI] appli web = script CGI + SCP
- Meilleur Editeur Java sous Windows
Marsh Posté le 02-05-2002 à 10:46:34
Bonjour !
Je souhaiterais que mon script (destiné à tourner chez un client) démarre en même temps que windows. J'ai trouvé une solution (provisoire car pas très propre) avec un code venant de chez vbfrance : il va recopier MonAppli.exe ds démarrer/programmes/démarrage ...
Dans un 'module.bas' j'ai :
' déclaration Api
Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" (ByVal hwndOwner As Long, ByVal nFolder As Long, pidl As ITEMIDLIST) As Long
'
Type SHITEMID
cb As Long
abID As Byte
End Type
Type ITEMIDLIST
mkid As SHITEMID
End Type
' constantes
Global Const NOERROR = 0
Global Const PATH_START = 7
Public Function CheminDemarrage() As String
Dim RetVal As Long
Dim Path As String ' déclaration des variables nécessaires
Dim IDL As ITEMIDLIST
RetVal = SHGetSpecialFolderLocation(0, PATH_START, IDL) ' appel de la fonction api
If RetVal = NOERROR Then
Path = Space(512) ' taille du tampon
RetVal = SHGetPathFromIDList(ByVal IDL.mkid.cb, ByVal Path)
CheminDemarrage = Left(Path, InStr(Path, Chr(0)) - 1) ' extraction du chemin
Else
CheminDemarrage = ""
End If
End Function
Dans mon formulaire principal j'ai :
'Copie de MonAppli.exe dans le répertoire de démarrage automatique
Dim Path As String
Path = CheminDemarrage & "\MonAppli.exe"
FileCopy "MonAppli.exe", Path
Quelqu'un aurait-il mieux ?