VB-Homepage Tipp 184
Ordner und Verknüpfung unter START/PROGRAMME
Wie Sie für Ihr Programm eine Verknüpfung auf dem Desktop erzeugen bzw. unter Start/Programme, dazu gab es schon einen Tipp.

Hier soll es nun einen Schritt weiter gehen, denn oftmals will man nicht nur einer *.exe Datei eine Verknüpfung zuweisen, sondern lieber gleich einen eigenen Ordner anlegen in dem alle zum Programm gehörenden Verknüpfungen angelegt werden.
( Startprogramm ; Hilfe ; Zusatzprogramme ; Readme u.s.w )

Wie auch im anderen Tipp wird hier mit der STKIT432.DLL gearbeitet.

Für einen Funktionstest benötigen Sie lediglich ein neues Projekt mit einer Form und einem Command Button.

Tragen sie dann folgende Definitionen unter
Allgemein/Deklarationen ein, ....
Private Declare Function OSfCreateShellGroup Lib "STKIT432.DLL" Alias "fCreateShellFolder" (ByVal lpstrDirName As String) As Long
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

... und geben dem Button unter
Command1_Click folgende Anweisungen.
Dim res&
Dim vOrdnername$
Dim fSuccess As Boolean

'Der neue Ornder unter START/Programme
vOrdnername$ = "VB Homepage"

'Anlegen des neuen Ordners
fSuccess = OSfCreateShellGroup(vOrdnername$)

'Der neue Link unter VB Homepage inklusive zu startendem Programm (volle Pfadangabe)
res& = fCreateShellLink(vOrdnername$, "VB Homepage", "notepad.exe", "")

Wenn Sie nun mit F5 Ihr Projekt starten und den Button klicken, werden sie darauf folgend eine neue Programmgruppe unter Start/Programme finden, die als Beispiel einen Eintrag für den Editor (notepad.exe) besitzt.

Wollen Sie mehrere Einträge in Ihrer neuen Programmgruppe anlegen, müssen Sie lediglich den fCreateShellLink Aufruf mit neuen Parametern wiederholen.
Tipp-Download
Quelle :
Zurück zur Übersichtsseite