Parfois, nous souhaitons ajouter un raccourci à notre programme. Bien sûr, une fois le programme installé, nous pouvons le faire en cliquant sur le fichier exécutable de notre programme, en cliquant avec le bouton droit et en sélectionnant Ajouter un raccourci sur le bureau. Mais parfois, nous souhaitons le faire automatiquement. mettre en œuvre par programmation. Que faire ? Nous pouvons appeler des fonctions API pour y parvenir. Le code source est donné ci-dessous :
Fonction de déclaration privée fCreateShellLink Lib vb5stkit.DLL (ByVal _
lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal _
lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long
Sous-marin privé MakeShortCuts()
Dim lRetour aussi longtemps
Atténuer MyPath en tant que chaîne
Atténuer mon nom sous forme de chaîne
MonChemin = App.Chemin
MonNom = App.EXEName
'Ajouter au bureau
lRetour = fCreateShellLink(../../Desktop, _
Raccourci vers Net Timer, MyPath & / & MyName, )
'Ajouter au groupe de démarrage
lReturn = fCreateShellLink(/start, raccourci vers Net Timer, _
MonChemin & / & MonNom, )
Fin du sous-marin
Et si c'était très simple, non ?