begin process at 2012 02 16 19:43:35
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

API

 > RACCOURCI SUR LE BUREAU EN VB6

RACCOURCI SUR LE BUREAU EN VB6


 Information sur la source

Note :
8,6 / 10 - par 5 personnes
8,60 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :API Niveau :Débutant Date de création :18/09/2003 Date de mise à jour :19/09/2003 04:50:46 Vu / téléchargé :6 888 / 1 133

Auteur : rene38

Ecrire un message privé
Commentaire sur cette source (9)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
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.

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip Source avec une capture AFFICHER ET IMPRIMER DANS TOUS LES SENS : APPLICATION
Source avec Zip Source avec une capture COURBE EN COORDONNÉES PARAMÉTRIQUES
Source avec Zip EFFECTUER DES SYMÉTRIES SUR UNE IMAGE
Source avec Zip Source avec une capture FEUILLE DE FOND D'UNE BOITE DE CD/DVD
CAPS LOCK, NUM LOCK, SCROLL LOCK PAR LOGICIEL

 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) .NET DEPENDENCY VIEWER : ARBRE DES DÉPENDANCES D'UN ASSEMBLY... par ShareVB
Source avec Zip Source .NET (Dotnet) UTILITAIRE SKYDRIVE par MasterShadows
Source avec Zip ROTATION RAPIDE D'IMAGE par trex70
Source avec Zip Source avec une capture ENUMERATION DES PORTS TCP ET IDENTIFCATION DU PROCESS (PID) ... par Renfield
Source avec Zip Source avec une capture MOUSE SPEED AND WEIGHT : RETOUR DE FORCE VIRTUEL ! par ScSami

Commentaires et avis

Commentaire de PROGRAMMIX le 18/09/2003 21:54:14

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 ?

9/10 parce que... ;-)

Commentaire de TheHacker le 18/09/2003 22:23:10

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 @+

Commentaire de rene38 le 19/09/2003 04:46:26

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.

Commentaire de DARKSIDIOUS le 22/09/2003 09:01:43 administrateur CS

Salut Rene38,

C'est une superbe source en effet qui est vraiment pratique !

Ca vaut 9/10 !

DarK Sidious

Commentaire de Nicolas75 le 12/02/2004 18:49:22

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

Commentaire de rene38 le 13/02/2004 01:57:03

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)

Commentaire de rene38 le 13/02/2004 02:05:00

... 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éé.

Commentaire de Nicolas75 le 14/02/2004 18:27:02

Salut Rene38

Mille merci pour ta réponse.

J'ai essayé et ça marche super.

A+

Commentaire de patrice_b le 23/05/2006 18:01:06

Excellente source.

 Ajouter un commentaire




Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 3,806 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales