CRÉATION D'UN RACCOURCI SUR LE BUREAU

Commentaire de leneuf22 le 03/07/2002 23:28:15

Mais il faut aussi utiliser la fonction SHGetSpecialFolderPathA pour retrouver l'emplacement du bureau sur le dd.

Commentaire de VieilEric le 14/11/2003 13:41:32

Dans RetourFonction = le second gstrAppName doit être remplacé par gstrAppExe car le nom de l'application n'est pas forcément celui de l'exe, donc le fichier appelé par le raccourci doit être gstrAppExe.

Commentaire de Nicolas75 le 19/03/2005 14:06:29

Bonjour à tous

Tout le monde sait (enfin je crois) que l'on peut modifier la procédure d'installation de VB6.
J'ai vu ici une procédure qui semble intéressante mais qui pose quelques petits inconvénients du moins je pense car je me fit au code saisi  je n'ai pas testé.

1 – Le raccourci est effectivement créé mais est t'il supprimer lors de la désinstallation.
Car cette opération n'a pas été enregisté dans le fichier unst.log

2- Il n'est pas nécessaire de déclarer à nouveau la fonction SHGetSpecialFolderPath car elle existe déjà dans le code ainsi que la fonction OSfCreateShellLink (Pourquoi ne pas les utiliser).


J'ai moi-même modifié ce code mais avec beaucoup moins de lignes et en utilisant les fonctions existantes;Ce qui fait que l'opération est enregistrée dans le fichier st6unst.log et que le raccourci est alors désinstaller automatiquement avec l'application.

Je dois avouer que je me suis beaucoup inspirer du code précédent et j'en remercie beaucoup l'auteur.

Comment faire :

Tout d'abord Déclarez un variable Public dans le module Général de basSetup1.bas
Exemple BlnRaccourci as Boolean

Puis dans la feuille frmBegin créé un CheckBox  que vous appellerez ChkIcone.
Dans la procédure sur Click de ChkIcone entrez :

If ChkIcone.Value = vbChecked Then
    blnRaccourci = True
Else
    blnRaccourci = False
End If

A la fin du module basSetup1.bas créez la procédure suivante

Private Sub CreationRaccourciBureau(strProgramPath As String, strProgramArgs As String, strProgramIconTitle As String, fPrivate As Boolean, sParent As String)
    Dim oMalloc As IVBMalloc
    Dim sPath As String
    Dim IDL As Long
    Dim lPrograms As SpecialFolderIDs
    Dim Compteur As Integer
    
    'Renvoi le Chemin du bureau
    If SHGetSpecialFolderLocation(frmSetup1.hWnd, lPrograms, IDL) = NOERROR Then
        sPath = String$(gintMAX_PATH_LEN, 0)
        SHGetPathFromIDListA IDL, sPath
        SHGetMalloc oMalloc
        oMalloc.Free IDL
        sPath = StringFromBuffer(sPath)
    End If
    AddDirSep sPath

    For Compteur = Len(sPath) - 1 To 1 Step -1 ' on cherche le nom du bureau : Bureau ? Desktop ? ...
        If Mid$(sPath, Compteur, 1) = "\" Then Exit For '
    Next Compteur
        sPath = "..\.." & Mid$(sPath, Compteur) ' le chemin du bureau
        sPath = Mid$(sPath, 1, Len(sPath) - 1) 'le chemin du bureau sans le Slash à la fin
    'Appel procédure qui Crée l'icône sur le bureau
    CreateShellLink strProgramPath, sPath, strProgramArgs, strProgramIconTitle, fPrivate, sParent
End Sub



Maintenant Recherchez le module CreateIcons dans basSetup1.bas et à la fin, après Le next  tapez le code suivant :

    If blnRaccourci Then
        Call CreationRaccourciBureau(strProgramPath, strProgramArgs, strProgramIconTitle, fPrivate, sParent)
    End If




Voilà c'est tout.


Etant donné que j'utilise ici le code existant toute l'opération est alors enregistrée dans le fichier St6unst.log, ce qui a pour conséquence de supprimer l'icône lors de la désinstallation de l'application.

Si vous avez des soucis avec ce code n'hésitez pas à me le dire.

A+

Commentaire de Nicolas75 le 30/03/2005 10:30:49

Salut VieilEric.

Je te confirme que chez moi tout marche à merveille.

Pour info j'utilise VB 6 SP5.

Je ne comprend pas très bien quand tu dis ne pas voir la Checkbox sur la form frmBegin.
As-tu vérifié que sa propriété visible est à True (sans vouloir t'offenser) :-).

Mais il est vrai que ce n'est pas indispensable, c'est seulement pour donner le choix à l'utilisateur d'installer le raccourci ou non.

Pour essayer de répondre à ta question,
Vérifie que les fonctions et procédures SHGetSpecialFolderLocation CreateShellLink existe bien dans le module BasSetup1.bas.

As-tu un message d'erreur suite aux modifs que tu as apportées ?

As-tu créé le fichier Setup1.exe puis le copié dans le dossier "C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard" à la place du précédent ?

Si oui, après une insttall vérifie que le fichier ST6UNST.LOG a bien pris en compte la création de l'icône (c'est un fichier texte).

Si tu veux je peux te faire parvenir le fichier setup1.exe que j'ai modifié  par e-mail.

laisse moi juste une adresse.

A+

Nicolas

Commentaire de sojojo le 06/09/2005 09:58:15

moi j'ai un probleme avec gsPROGMENUKEY, il n'est pas definit quelqu'un sait comment il doit l'etre??
merci