[R] Raccouci vers le démarrage du poste qui ne fonctionne

[Sydneysyd]

Bonjour à tous,

Un petit souci sur un code tout bête et malgré les posts à ce sujet sur le forum, je n'ai pas de réponse

J'aimerais créer un raccourci vers le menu démarrer d'un programme mais il ne se passe rien !

Code : Tout sélectionner

FileCreateShortcut(@ProgramFilesDir & "\test\mon appli.exe", @StartupCommonDir & "\Drag&Drop.lnk", " ", " ", " ", @tempdir & "\TEST\Icone.ico")
 

Je rate un truc mais je ne vois pas quoi. Il n'y a pas de limites de caractères ? Car le vrai chemin est plutot long...

Merci

[orax]

Le raccourci sera accessible pour tous les utilisateurs avec @StartupCommonDir donc #RequireAdmin devrait être nécessaire.

[Sydneysyd]

ca marche pas quand même...

[Y01]

Bonjour,

Est ce que la création "basique" d'un raccourci fonctionne (vers le ScriptDir par exemple) ?

Code : Tout sélectionner

FileCreateShortcut(@ProgramFilesDir & "\test\mon appli.exe", @ScriptDir & "\Drag&Drop.lnk")

[Sydneysyd]

Bizarre, je suis admin et le lnk ne s'est pas fait dans le scriptdir...

et j'ai mis #requireadmin

Apparemment quelquesoit l'@ que je prends, il n'en tient pas compte

Le but est de mettre le raccourci ici
C:\Users\user\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup

[Y01]

On y arrive...

Plus on enlève de paramètre et moins il y a de cause de problème !

Maintenant, est ce que ce code fonctionne ? (En ayant créé les dossiers avant )

Code : Tout sélectionner

FileCreateShortcut(@ScriptDir & "\test\mon appli.exe", @ScriptDir & "\Drag&Drop.lnk")

[Sydneysyd]

Oui

[Y01]

Ok !

Maintenant ce code :

Code : Tout sélectionner

FileCreateShortcut(@ScriptDir & "\test\mon appli.exe", @AppDataDir & "\Microsoft\Windows\Start Menu\Programs\Startup\Drag&Drop.lnk")

?

[TommyDDR]

Étrange, j'ai testé avec un fichier inexistant, une icone inexistante, et le raccourci se créé quand même.
Pouvez vous me dire comment vous détectez "qu'il ne se passe rien" ?

[Sydneysyd]

Avec le dernier code ca marche

Mais si je met la macro rien.

Comment je le detecte ? J'ai ouvert le dossier Démarrage et aucun icone apparait.

[Y01]

Comment je le detecte ? J'ai ouvert le dossier Démarrage et aucun icone apparait.

Attention !

En fonction du dossier dans lequel le fichier est posé, l'icône peut n'apparaitre que pour un "nouveau" compte.

Sinon il ne reste qu'à faire le test :

Code : Tout sélectionner

FileCreateShortcut(@ProgramFilesDir & "\test\mon appli.exe", @AppDataDir & "\Microsoft\Windows\Start Menu\Programs\Startup\Drag&Drop.lnk")

Attention au chemin !

Dans le doute, un coup de :

Code : Tout sélectionner

msgbox(0,"",@ProgramFilesDir & "\test\mon appli.exe")

pour être sur que le chemin est bon.

[TommyDDR]

Pouvez vous essayer ce code et me dire si le raccourci se trouve dans le dossier ouvert ?

Code : Tout sélectionner

FileCreateShortcut(@ProgramFilesDir & "\test\mon appli.exe", @StartupCommonDir & "\Drag&Drop.lnk", " ", " ", " ", @tempdir & "\TEST\Icone.ico")
ShellExecute(@StartupCommonDir)

[Sydneysyd]

Au final j'ai fait un fileinstall du raccourci .lnk pour le mettre dans le dossier démarrage du poste et cela fonctionne