Probleme avec un raccourci

Messages postés
125
Date d'inscription
lundi 5 août 2002
Statut
Membre
Dernière intervention
23 novembre 2011
-
Messages postés
1
Date d'inscription
mardi 10 juin 2003
Statut
Membre
Dernière intervention
10 juin 2003
-
Bonjour,
Mon appli doit créer un raccourci dans le menu démarrer.
Quand je teste sous vb6 le raccourci est créé, mais une fois mon appli compilée, elle ne créé pas le raccourci. voici mon code:
Dans un module
Declare Function OSfCreateShellLink Lib "vb6stkit.dll" Alias "fCreateShellLink" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArguments As String, ByVal fPrivate As Long, ByVal sParent As String) As Long

Call OSfCreateShellLink("C:\windows\menu démarrer\bouton", "Bouton", Text1.Text & "\bouton.exe", "", 0, "")
:(

3 réponses

Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
La variable lpstrLinkPath ne doit pas contenir de guillemets. Essaie avec
Chemin = Text1.Text & "\bouton.exe"
Call OSfCreateShellLink("C:\windows\menu démarrer\bouton", "Bouton", Chemin, "", 0, "")
Messages postés
125
Date d'inscription
lundi 5 août 2002
Statut
Membre
Dernière intervention
23 novembre 2011

Ben non, la vb n'en veut meme pas. Tu n'as pas une autre solution?
Messages postés
1
Date d'inscription
mardi 10 juin 2003
Statut
Membre
Dernière intervention
10 juin 2003

-------------------------------
Réponse au message :
-------------------------------

> Bonjour,
> Mon appli doit créer un raccourci dans le menu démarrer.
> Quand je teste sous vb6 le raccourci est créé, mais une fois mon appli compilée, elle ne créé pas le raccourci. voici mon code:
> Dans un module
> Declare Function OSfCreateShellLink Lib "vb6stkit.dll" Alias "fCreateShellLink" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArguments As String, ByVal fPrivate As Long, ByVal sParent As String) As Long
>
> Call OSfCreateShellLink("C:\windows\menu démarrer\bouton", "Bouton", Text1.Text & "\bouton.exe", "", 0, "")
> :(