VB-Homepage Tipp 048
Eine Verknüpfung erzeugen
Ach Windows 32Bit ist doch ne feine Sache, überall wimmelt es vor Verknüpfungen. Da sollte Ihr Programm nicht nachstehen und sich gleich auf dem Desktop mit einem Icon verewigen. Aber wie ???

SO - Tragen Sie in Ihr bestehendes (oder zum Test auch neues) Projekt folgendes ein. Sofern Sie nicht sowieso ein Modul in Ihrem Projekt haben,
(dann ohne Private) können Sie die Anweisung auch in den
Allgemein/Deklarationen Abschnitt der Form definieren.

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

Nun müssen Sie nur noch den Aufruf definieren.


Anlegen einer Verknüpfung auf dem Desktop
i& = fCreateShellLink("..\..\Desktop", "Verknüpft mit Editor", "C:\Windows\Notepad.exe", "")

Anlegen einer Verknüpfung unter START-Button
i& = fCreateShellLink("..\..\Startmenü", "Verknüpft mit Editor", "C:\Windows\Notepad.exe", "")

Anlegen einer Verknüpfung unter START/Programme
i& = fCreateShellLink("..\..\Startmenü\Programme", "Verknüpft mit Editor", "C:\Windows\Notepad.exe", "")

Dabei steht ..\..\Name
immer für das aktive Profil mit dem Pfad
(Windowsverzeichnis\Profiles\ggf.Name\Desktop oder Startmenü oder Startmenü\Programme)

Dabei steht "Verknüpft mit Editor"
für den Namen der zu erzeugenden Verknüpfung.

Dabei steht "C:\Windows\Notepad.exe"
für die Datei zu der eine Verknüfung erzeugt wird.

Dabei steht das letzte ""
für optionale Programmparameter.
Tipp-Download
Quelle :
Zurück zur Übersichtsseite