Manchmal möchten wir unserem Programm eine Verknüpfung hinzufügen. Natürlich können wir dies tun, indem wir auf die ausführbare Datei unseres Programms klicken, mit der rechten Maustaste klicken und „Desktop-Verknüpfung hinzufügen“ auswählen Implementieren Sie es durch Programmierung. Was ist zu tun? Um dies zu erreichen, können wir API-Funktionen aufrufen. Der Quellcode ist unten angegeben:
Private Deklarationsfunktion fCreateShellLink Lib vb5stkit.DLL (ByVal _
lpstrFolderName als String, ByVal lpstrLinkName als String, ByVal _
lpstrLinkPath als String, ByVal lpstrLinkArgs als String) so lang
Private Sub MakeShortCuts()
Dim lReturn So Long
Dimmen Sie MyPath als String
Dimmen Sie MyName als String
MyPath = App.Path
MeinName = App.EXEName
„Zum Desktop hinzufügen.“
lReturn = fCreateShellLink(../../Desktop, _
Verknüpfung zu Net Timer, MyPath & / & MyName, )
„Zur Startup-Gruppe hinzufügen.“
lReturn = fCreateShellLink(/start, Verknüpfung zum Net Timer, _
MeinPfad & / & MeinName, )
Sub beenden
Wie wäre es? Es ist ganz einfach, oder?