Création d'un raccourci sur le bureau

Commenter

Contenu du snippet

En VB6, l'assistant Empaquetage (installation du logiciel créé) utilise SETUP1.EXE dont le source peut être modifié pour installer automatiquement un raccourci sur le bureau.

Par contre, si quelqu'un peut me dire comment supprimer le raccourci en question au moment de la désinstallation, je suis preneur.

Source / Exemple : 


'Dans la feuille frmSetup1 de Setup1.vbp, modifier la dernière procédure comme suit :

Private Sub Form_Unload(Cancel As Integer)
        Dim Chemin As String, Réponse As Long, Bureau As String, Compteur As Integer
        Dim RetourFonction As Long, Arguments As String
        Chemin = Space(300) 'on crée un tampon, sinon ça foire)
        Réponse = SHGetSpecialFolderPath(Me.hwnd, Chemin, 16, 0) '16 désigne le bureau
        If (Réponse <> 0) Then
            Chemin = Left(Chemin, InStr(Chemin, vbNullChar) - 1) 'on enlève le superflu
        Else
                 'la fonction n'a pas marché (on ne sait jamais)
        End If
        For Compteur = Len(Chemin) To 1 Step -1 ' on cherche le nom du bureau : Bureau ? Desktop ? ...
            If Mid$(Chemin, Compteur, 1) = "\" Then Exit For
        Next Compteur
        Bureau = "..\.." & Mid$(Chemin, Compteur) ' le chemin du bureau
        Bureau = strUnQuoteString(Bureau) ' on enlève les éventuels guillemets
        Arguments = ""
        RetourFonction = OSfCreateShellLink(Bureau & vbNullChar, gstrAppName, gstrDestDir & gstrAppName, Arguments & vbNullChar, True, gsPROGMENUKEY)
    CleanUpCabs
End Sub 

Ajouter aussi dans la section déclarations du module basCommon(common.bas) la déclaration :

Public Declare Function SHGetSpecialFolderPath Lib "Shell32.dll" Alias "SHGetSpecialFolderPathA" (ByVal hwndOwner As Long, ByVal lpszPath As String, ByVal nFolder As Long, ByVal fCreate As Long) As Long

Conclusion :


Je cherche toujours comment virer le raccourci à la désinstallation...

Ajouté le 03/02/2004 suite à une demande.

Pour que le raccourci sur le bureau ait une icône autre qu'un petit rectangle surmonté d'un trait bleu, il faut :
- Sous VB, afficher une des feuilles du projet -disons Form1-
dans les propriétés de Form1, on a : Icon (icon)
on clique sur (icon) puis sur les 3 points qui apparaissent (...)
et on sélectionne un fichier .ico
- On clique sur Projet - Propriétés de (le nom du Projet) puis sur l'onglet Créer
A droite, dans le cadre Application, on déroule la combobox Icône
pour faire apparaître Form1
A côté, l'icône va s'afficher.

- On fait OK ; on sauvegarde le projet ; on crée l'exe ;
on crée le programme d'installation avec
l'Assistant Empaquetage et déploiement (Setup1 modifié).

Et voilà.

Quand on fera l'installation, l'icône du raccourci sera l'icône
du projet c'est à dire l'icône de Form1 et en face du nom de l'exe,
au lieu du rectangle surmonté d'un trait bleu, ce sera aussi cette icône.

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_rene38)