Raccourci sur le bureau en vb6

Soyez le premier à donner votre avis sur cette source.

Vue 8 366 fois - Téléchargée 1 221 fois

Description

Utilisation de la fonction API fCtreateShellLink de vb6stkit.dll pour placer sur le bureau de Windows (trouvé grâce à SHGetSpecialFolderPathA).

Petit programme autonome.

Changer File1.Pattern pour faire des raccourcis vers des fichiers autres que des .exe

Conclusion :


Pour tenir compte des remarques de PROGRAMMIX et TheHacker, une mise à jour plus commentée et avec possibilité de
- choisir le nom du raccourci
- préciser les paramètres de la ligne de commande.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_patrice_b
Messages postés
30
Date d'inscription
mardi 3 janvier 2006
Statut
Membre
Dernière intervention
1 mars 2009

Excellente source.
cs_Nicolas75
Messages postés
27
Date d'inscription
lundi 26 janvier 2004
Statut
Membre
Dernière intervention
4 février 2008

Salut Rene38

Mille merci pour ta réponse.

J'ai essayé et ça marche super.

A+
cs_rene38
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
... 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és
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
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és
27
Date d'inscription
lundi 26 janvier 2004
Statut
Membre
Dernière intervention
4 février 2008

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

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.