Application de lancement rapide de programmes (à l'aide d'une bd access)

Soyez le premier à donner votre avis sur cette source.

Vue 4 130 fois - Téléchargée 707 fois

Description

la base de données xxx.mdb vous permettra d'enregistrer les noms des programmes auxquels vous voudrez accèder et leur chemin d'accès.
remplissez cette base à partir du signe (+) et le tour est joué, vous pouvez aussi supprimer un programme de la liste. vous placez l'exe dans le bureau par ex(bien sur avec xxx.mdb dans le même repertoire ,vous planifiez son execution au demarrage de l'ordinateur par exemple.Cette source vous aidera à économiserer beaucoup de temps.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
3
Date d'inscription
vendredi 17 septembre 2004
Statut
Membre
Dernière intervention
22 février 2005

Merci de ton aide précieuse Nsandsystems, j'ai pu l'inscrire dans la base de registre à l'aide du chemin que tu m'as donné avec "regedit", car avec programmation ça n'a pas marché je crois , mais je vais retenter le coup, remerci et à plus...

pour Bilaloch : s'il te plait, s'il ya des modifications à faire dans l'application, fais moi savoir, merci pour ton commentaire...
Messages postés
556
Date d'inscription
lundi 6 octobre 2003
Statut
Membre
Dernière intervention
31 octobre 2019

Tu n'es pa obligé de le placé dans "c:", mets :

App.Path & "\xxx.mdb"

C mieux. A part y a un bug des le debut. Je noterai plu tar.
Messages postés
178
Date d'inscription
vendredi 1 novembre 2002
Statut
Membre
Dernière intervention
9 janvier 2010

Inscrit ton appli dans la base de registre
1) ajoute la reference ci-dessous dans ton projet
si win xp=> c:\windows\system32\scrrun.dll
si win 95 98=> c:\windows\systems\scrrun.dll

creer dans une procedure

Sub InscritProgToStartWin(Optional Inscrire as boolean=True)

Dim MyObj as Object

on error resume next



MyObj.Regwrite "HKEY_Local_Machine\SoftWare\Microsoft\Windows\CurrentVersion\Run\le nom de ton prog",
app.path & "\le nom de ton prog + .exe","REG_SZ"

if Inscrire =False then
MyObj.Regdelete "HKEY_Local_Machine\SoftWare\Microsoft\Windows\CurrentVersion\Run\le nom de ton prog"

end if

Set MyObj=nothing'//supprime la reference de l'object cree
end sub

"le nom de ton prog" =Lancement mais sans l'extension
".Exe"

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.