Rechercher : dans
Par :

Application créant raccourci sur le bureau

Dernière réponse le 17 jun 2009 à 08:58:31 ricotrutt, le 24 jui 2006 à 11:23:00 
 Signaler ce message aux modérateurs

Bonjour à tous,

je cherche à créer une application installant tout simplement un raccourci sur le bureau lorsqu'on la lance (je précise que c'est dans un cadre professionnel).
On m'a orienté vers le langage visual basic, pouvez vous me le confirmer et me dire de quel outil j'ai besoin et vers quelle fonction de VB dois je chercher ?

Merci d'avance

Meilleures réponses pour « Application créant raccourci sur le bureau » dans :
Créer un raccourci vers le panneau de configuration VoirIl est possible de créer un raccourci vers le panneau de configuration en créant un dossier et en le nommant de la manière suivante : Panneau de configuration.{21EC2020-3AEA-1069-A2DD-08002B30309D}
Créer un raccourci clavier VoirCréer un raccourci clavier Il est toujours sympa et rapide d'avoir à porté de main ses applications favorites. La création d'un raccourci clavier est possible sous Mac avec absolument toutes nos applications. Plutôt intéressant, Mac étant déjà...
Remettre l'icône Bureau dans la barre de lancement rapide VoirRemettre l'icône Bureau dans la barre de lancement rapide Si l'icône du bureau n'est plus affichée dans le lancement rapide, cet article vous aidera à recréer ce raccourci. Fonction de l'icône Bureau Première méthode pour recréer le...

1

byakhlefncr, le 24 jui 2006 à 12:19:14

Salut,

Pour la création de raccourcis tu peux utiliser l'interface IShellLink

Plus de détails :
http://msdn.microsoft.com/library/default.asp?url=/library/e­n-us/shellcc/platform...

bonne chance

Répondre à byakhlefncr

2

ricotrutt, le 24 jui 2006 à 13:53:57

Merci pour cette réponse.

sur un autre forum j'ai trouvé ce morceau de code qui semble convenir :

Dim Wsh As New WshShell

DesktopPath = Wsh.SpecialFolders("Desktop")
Set Shortcut = Wsh.CreateShortcut(DesktopPath & "\Test.lnk")
With Shortcut
    .TargetPath = App.EXEName
    .Description = "Mon Programme"
    .WindowStyle = 4
    .Save
End With


Le simple problème est que je ne sais pas comment l'utiliser. D'après ce que j'ai compris, je dois l'enregistrer en .vbs avec un éditeur de script et le convertir en .exe grâce à un convertisseur vbs to exe.
Pouvez vous me confirmer cela ?

Répondre à ricotrutt

4

 jyn, le 17 jun 2009 à 08:58:31

Bonjour,
En ce qui me concerne je cherche comment interdire la création de raccourci par le clic droit nouveau?
Merci

Répondre à jyn

3

byakhlefncr, le 27 jui 2006 à 13:19:15

Salut,

Voici un code testé :

'--------------------------------------------------------
'|
'| pour Déterminer le répertoire du bureau
'|
'--------------------------------------------------------
Set WshShell = CreateObject("WScript.Shell")
strDesktopPath = WshShell.SpecialFolders("Desktop")

'--------------------------------------------------------
'|
'| pour Création du lien sur le bureau du programme Bloc-notes(NotePad)
'|
'--------------------------------------------------------
Set objShortcutLnk = WshShell.CreateShortcut(strDesktopPath & "\Test.lnk")
objShortcutLnk.TargetPath = "notepad"
objShortcutLnk.Save




Bonne chance.

Répondre à byakhlefncr