cs_PROGRAMMIX
Messages postés1133Date d'inscriptionmercredi 2 octobre 2002StatutMembreDernière intervention24 juillet 2011
-
18 sept. 2003 à 21:54
cs_patrice_b
Messages postés30Date d'inscriptionmardi 3 janvier 2006StatutMembreDernière intervention 1 mars 2009
-
23 mai 2006 à 18:01
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
cs_patrice_b
Messages postés30Date d'inscriptionmardi 3 janvier 2006StatutMembreDernière intervention 1 mars 2009 23 mai 2006 à 18:01
Excellente source.
cs_Nicolas75
Messages postés27Date d'inscriptionlundi 26 janvier 2004StatutMembreDernière intervention 4 février 2008 14 févr. 2004 à 18:27
Salut Rene38
Mille merci pour ta réponse.
J'ai essayé et ça marche super.
A+
cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 octobre 201311 13 févr. 2004 à 02:05
... et j'ai oublié l'explication :
le chemin du raccourci n'est pas correct. La fonction OSfCreateShellLink renvoie donc RetourFonction = 0
Il faudrait tester la valeur de RetourFonction :
- 0 => ça n'a pas marché (le raccourci n'est pas créé)
- autre que 0 => le raccourci a été créé.
cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 octobre 201311 13 févr. 2004 à 01:57
Bonsoir Nicolas75
petites modifications à faire dans ton cas :
1) Comme tu l'as trouvé toi-même,
Réponse = SHGetSpecialFolderPath(Me.hWnd, NomDuBureau, &H7, 0)
7 pour le dossier de démarrage à la place de 16 (&H10) pour le bureau.
2) 3 lignes avant la fin du Sub, remplacer
Bureau = "..\.." & Mid$(NomDuBureau, Compteur)
par
Bureau = Mid$(NomDuBureau, Compteur)
cs_Nicolas75
Messages postés27Date d'inscriptionlundi 26 janvier 2004StatutMembreDernière intervention 4 février 2008 12 févr. 2004 à 18:49
Salut
Effectivement source excellente. Mais j'ai tout de même un petit souci.
Lorsque je change la valeur 16 pour pouvoir créer mon raccourci dans le dossier Démarrage de windows (Valeur 7 ou 24) il ne se passe absolument rien.
Pas de message d'erreur et pas de raccourci non plus.
Quelqu'un peut t'il m'expliquer ?
J'utilise windows 2000 Pro et VB6
Mille merci
cs_DARKSIDIOUS
Messages postés15814Date d'inscriptionjeudi 8 août 2002StatutMembreDernière intervention 4 mars 2013130 22 sept. 2003 à 09:01
Salut Rene38,
C'est une superbe source en effet qui est vraiment pratique !
Ca vaut 9/10 !
DarK Sidious
cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 octobre 201311 19 sept. 2003 à 04:46
Mise à jour tenant compte de vos suggestions.
sauf test d'existence : si on crée 2 fois le même (même nom, même cible, mêmes arguments), le dernier écrase le précédent.
cs_TheHacker
Messages postés442Date d'inscriptionsamedi 23 novembre 2002StatutMembreDernière intervention19 octobre 2005 18 sept. 2003 à 22:23
salut, ouai c sympa comme prog, mais j'comprend pas trop pourquoi il faut indiquer ".../.../Bureau" ??? comment il connait le repertoire du bureau alors ??? il ets un peu bizarre cet API, tu peux expliquer les arguments a passer en parametres stp, merci @+
cs_PROGRAMMIX
Messages postés1133Date d'inscriptionmercredi 2 octobre 2002StatutMembreDernière intervention24 juillet 20112 18 sept. 2003 à 21:54
Salut Rene38
Voilà une idée qu'elle est bonne...
J'ai téléchargé ta source et je sens qu'elle va souvent me servir...
Toutefois, voici 2 sugestions :
- Ajouter un second TextBox qui permettrait d'indiquer le nom que l'on voudrait voir apparaître sous le raccourcis (je n'aime pas les "Application.EXE") ;
- Ne vaudrait-il pas mieux tester l'existence d'un raccourcis avant de le créer ?
23 mai 2006 à 18:01
14 févr. 2004 à 18:27
Mille merci pour ta réponse.
J'ai essayé et ça marche super.
A+
13 févr. 2004 à 02:05
le chemin du raccourci n'est pas correct. La fonction OSfCreateShellLink renvoie donc RetourFonction = 0
Il faudrait tester la valeur de RetourFonction :
- 0 => ça n'a pas marché (le raccourci n'est pas créé)
- autre que 0 => le raccourci a été créé.
13 févr. 2004 à 01:57
petites modifications à faire dans ton cas :
1) Comme tu l'as trouvé toi-même,
Réponse = SHGetSpecialFolderPath(Me.hWnd, NomDuBureau, &H7, 0)
7 pour le dossier de démarrage à la place de 16 (&H10) pour le bureau.
2) 3 lignes avant la fin du Sub, remplacer
Bureau = "..\.." & Mid$(NomDuBureau, Compteur)
par
Bureau = Mid$(NomDuBureau, Compteur)
12 févr. 2004 à 18:49
Effectivement source excellente. Mais j'ai tout de même un petit souci.
Lorsque je change la valeur 16 pour pouvoir créer mon raccourci dans le dossier Démarrage de windows (Valeur 7 ou 24) il ne se passe absolument rien.
Pas de message d'erreur et pas de raccourci non plus.
Quelqu'un peut t'il m'expliquer ?
J'utilise windows 2000 Pro et VB6
Mille merci
22 sept. 2003 à 09:01
C'est une superbe source en effet qui est vraiment pratique !
Ca vaut 9/10 !
DarK Sidious
19 sept. 2003 à 04:46
sauf test d'existence : si on crée 2 fois le même (même nom, même cible, mêmes arguments), le dernier écrase le précédent.
18 sept. 2003 à 22:23
18 sept. 2003 à 21:54
Voilà une idée qu'elle est bonne...
J'ai téléchargé ta source et je sens qu'elle va souvent me servir...
Toutefois, voici 2 sugestions :
- Ajouter un second TextBox qui permettrait d'indiquer le nom que l'on voudrait voir apparaître sous le raccourcis (je n'aime pas les "Application.EXE") ;
- Ne vaudrait-il pas mieux tester l'existence d'un raccourcis avant de le créer ?
9/10 parce que... ;-)