AIDEWIN 2003

Messages postés
43
Date d'inscription
mardi 22 janvier 2002
Statut
Membre
Dernière intervention
9 janvier 2003
-
Messages postés
156
Date d'inscription
mardi 17 décembre 2002
Statut
Membre
Dernière intervention
23 novembre 2011
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/5609-aidewin-2003

Messages postés
156
Date d'inscription
mardi 17 décembre 2002
Statut
Membre
Dernière intervention
23 novembre 2011

Salut les gas !
Je pense qu'il y a beaucoup plus simple et sa marche avec beaucoup plus de programme
Je vais l'aché une source pour sa (si j'ai le temp)
mais avec la clé "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run"
sa permet de mettre juste le nom de l'application voulue et sa la démarre :

Public FSO as new FileSystemObject 'Reference Microsoft scripting runtime ;)

Public sub Run(Byval ExeFile as String)
dim Ws as Object, Fichier as string
if fso.fileexist(exefile)=true then fichier = exefile: goto S1
set ws = Createobject("Wscript.shell")
Fichier = Ws.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" & exefile & ")
if fso.fileexist(fichier ) = true then goto s1
Fichier = Ws.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" & fso.getbasename(exefile) & ")
if fso.fileexist(fichier ) = true then goto s1
Fichier = Ws.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" & fso.getfilename(exefile) & ")
if fso.fileexist(fichier ) = true then goto s1
msgbox "Application introuvable [" & exefile & "]",vbcritical,"Chemin introuvable"
exit function
S1:
shell fichier,vbnormalfocus
end sub

Je vien de faire cette source de tête sans vb sous la main il peu y avoir des erreures mais l'idée est la ! normalement sa doit marché sans trop de mal, et pis si i a une erreur franchement réfléchissé un peu vous avez le gros de la solution sous les yeux ;)

allé bon prog et @+

Thyrael
Messages postés
1133
Date d'inscription
mercredi 2 octobre 2002
Statut
Membre
Dernière intervention
24 juillet 2011
3
Jette un coups d'oeil sur les sources abordant le systemtray ou barre des tâches (j'ai mis une source utilisant cette technique) et met vite à jour ta source en tenant compte des commentaires de KevinK...
Et là, je pense que ta source sera plus intéressante.
Messages postés
46
Date d'inscription
vendredi 12 avril 2002
Statut
Membre
Dernière intervention
11 juin 2003

Simpliste comme programme autant aller dans Demarre exececuter et taper lenom du programme je pense que ça va aussi vite.
Messages postés
43
Date d'inscription
mardi 22 janvier 2002
Statut
Membre
Dernière intervention
9 janvier 2003

Ca serait plus simple de faire un groupe de controles, de mettre le nom de l'exe à lancer dans le tag de chaque bouton, et fca donne:
shell(cmd(index).tag), iif(chkmax,vbmaximizedfocus,vbnormalfocus)
-> chkmax étant une checkbox, et si elle est cochée on lance le prog en maximisé.
Ca diviserait la taille de ton code par au moins 10 !