Als erstes benötigen wir eine API-Funktion als Hilfe, die uns komplizierten Code erspart. Platzieren Sie den
folgenden Code also im Kopf einer Form oder eines Moduls:
Private Declare Function fCreateShellLink Lib"STKIT432.DLL" (ByVal lpstrFolderName As String, _
ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long
Diese Funktion ist folgendermaßen aufgebaut:
Call fCreateShellLink([Wo der Link hin soll (relativ zum Programme-Verzeichnis des Startmenüs)], [Titel des Links], [Zielpfad], [zusätzliche Argumente])
Und so sieht ein Beispiel aus, bei dem ein Link im Startmenü erzeugt werden soll:
Call fCreateShellLink("", "Mein Programm", "C:\Programme\Programm.exe", "")