Beim installieren der WindowsApplication eine Verknüpfung erstellen

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von SystemUnknow.

    Beim installieren der WindowsApplication eine Verknüpfung erstellen

    Guten Tag

    Ich möchte, das eine Verknüpfung von meiner Application beim installieren erstellt wird.

    Warum ich das will? ich möchte gerne die Sprache lernen und versuche kleinere dinge. nun möchte ich ma gerne wissen wie so ne verknüpfung erstellen lässt beim installieren der application

    Ich hoffe ihr könnt mir dabei helfen..

    wie genau muss man das nun machen.

    ich habe das public in script eingefügt. nun kommt ein error:

    Fehler 2 Die Anweisung ist in einem Namespace ungültig.

    VB.NET-Quellcode

    1. Public Function CreateShortcut(ByVal sLinkFile As String, _
    2. ByVal sTargetFile As String, _
    3. Optional ByVal sArguments As String = "", _
    4. Optional ByVal sDescription As String = "", _
    5. Optional ByVal sWorkingDir As String = "") As Boolean
    7. Try
    8. Dim oShell As New Shell32.Shell
    9. Dim oFolder As Shell32.Folder
    10. Dim oLink As Shell32.ShellLinkObject
    12. ' Ordner und Dateinamen extrahieren
    13. Dim sPath As String = sLinkFile.Substring(0, sLinkFile.LastIndexOf("\"))
    14. Dim sFile As String = sLinkFile.Substring(sLinkFile.LastIndexOf("\") + 1)
    16. ' Wichtig! Link-Datei erstellen (0 Bytes)
    17. Dim F As Short = FreeFile()
    18. FileOpen(F, sLinkFile, OpenMode.Output)
    19. FileClose(F)
    21. oFolder = oShell.NameSpace(sPath)
    22. oLink = oFolder.Items.Item(sFile).GetLink
    24. ' Eigenschaften der Verknüpfung
    25. With oLink
    26. If sArguments.Length > 0 Then .Arguments = sArguments
    27. If sDescription.Length > 0 Then .Description = sDescription
    28. If sWorkingDir.Length > 0 Then .WorkingDirectory = sWorkingDir
    29. .Path = sTargetFile
    31. ' Verknüpfung speichern
    32. .Save()
    33. End With
    35. ' Objekte zerstören
    36. oLink = Nothing
    37. oFolder = Nothing
    38. oShell = Nothing
    40. Return True
    42. Catch ex As Exception
    43. ' Fehler! ggf. Link-Datei löschen, falls bereit erstellt
    44. If System.IO.File.Exists(sLinkFile) Then Kill(sLinkFile)
    45. Return False
    46. End Try
    47. End Function


    die funktion heißt CreateShortcut. wo genau muss ich diese Funktion dann verwenden.

    eine Funktion steht irgenwo in deiner Klasse.

    Dann kannst du sie aufrufen.

    VB.NET-Quellcode

    1. Button1.Click.....
    2. CreateShortcut(Prarameter1 u. Parameter2)


    aber du must bei dieser Funktion noch was mit übergeben.

    hier deklariert als

    VB.NET-Quellcode

    1. ByVal sLinkFile As String, _
    2. ByVal sTargetFile As String


    die anderen sind Optional. DAs heist die brauchst du nicht Übergeben


    Edit:
    Ich habe das Beispiel mal umgesetzt. Es geht einwandfrei

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ChaosBernd“ ()

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    4. ' Verknüpfung zum Windows-Editor im
    5. ' Root-Verzeichnis von C: mit dem Namen test.lnk
    7. CreateShortcut("c:\test.lnk", "c:\winnt\notepad.exe")
    9. ' Erweiterung des Tipps
    10. 'Der Tipp lässt sich noch dahingehend erweitern, dass man für das Ziel der Verknüpfung einen bestimmten Systemordner angeben kann (z.B. Desktop, Programme im Start-Menü, usw.)
    12. 'Diese Systemordner lassen sich über die Environment.SpecialFolder Aufzählung leicht ermitteln.
    14. 'So lässt sich z.B. eine Verknüpfung auf dem Desktop folgendermassen erstellen:
    15. CreateShortcut(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & _
    16. "\MeinNotepad.lnk", "c:\winnt\notepad.exe")
    20. End Sub
    21. Public Function CreateShortcut(ByVal sLinkFile As String, _
    22. ByVal sTargetFile As String, _
    23. Optional ByVal sArguments As String = "", _
    24. Optional ByVal sDescription As String = "", _
    25. Optional ByVal sWorkingDir As String = "") As Boolean
    27. Try
    28. Dim oShell As New Shell32.Shell
    29. Dim oFolder As Shell32.Folder
    30. Dim oLink As Shell32.ShellLinkObject
    32. ' Ordner und Dateinamen extrahieren
    33. Dim sPath As String = sLinkFile.Substring(0, sLinkFile.LastIndexOf("\"))
    34. Dim sFile As String = sLinkFile.Substring(sLinkFile.LastIndexOf("\") + 1)
    36. ' Wichtig! Link-Datei erstellen (0 Bytes)
    37. Dim F As Short = CShort(FreeFile())
    38. FileOpen(F, sLinkFile, OpenMode.Output)
    39. FileClose(F)
    41. oFolder = oShell.NameSpace(sPath)
    42. oLink = CType(oFolder.Items.Item(sFile).GetLink, Shell32.ShellLinkObject)
    44. ' Eigenschaften der Verknüpfung
    45. With oLink
    46. If sArguments.Length > 0 Then .Arguments = sArguments
    47. If sDescription.Length > 0 Then .Description = sDescription
    48. If sWorkingDir.Length > 0 Then .WorkingDirectory = sWorkingDir
    49. .Path = sTargetFile
    51. ' Verknüpfung speichern
    52. .Save()
    53. End With
    55. ' Objekte zerstören
    56. oLink = Nothing
    57. oFolder = Nothing
    58. oShell = Nothing
    60. Return True
    62. Catch ex As Exception
    63. ' Fehler! ggf. Link-Datei löschen, falls bereit erstellt
    64. If System.IO.File.Exists(sLinkFile) Then Kill(sLinkFile)
    65. Return False
    66. End Try
    67. End Function

    jo das habe ich soweit verstanden, jedoch ist shell32 nicht definier:

    VB.NET-Quellcode

    1. Dim oShell As New Shell32.Shell
    2. Dim oFolder As Shell32.Folder
    3. Dim oLink As Shell32.ShellLinkObject
    5. oLink = CType(oFolder.Items.Item(sFile).GetLink, Shell32.ShellLinkObject)


    Fehler:

    Fehler 3 Der Typ "Shell32.Folder" ist nicht definiert.
    Fehler 2 Der Typ "Shell32.Shell" ist nicht definiert.
    Fehler 4 Der Typ "Shell32.ShellLinkObject" ist nicht definiert.
    Fehler 5 Der Typ "Shell32.ShellLinkObject" ist nicht definiert.

    übrigens steht alles beschrieben wie du vorgehen muß:
    von vbarchiv.net/t:

    Nun, so schwer ist das ganze eigentlich nicht. Am einfachsten ist es, wenn man sich den Funktionen der System-DLL shell32.dll bedient. Fügen Sie Ihrem Projekt als erstes den COM-Verweis Microsoft Shell Controls And Automation hinzu und übernehmen anschließend nachfolgenden Funktionscode in Ihr Projekt: