Hallo an Alle,
ich scheitere seit einigen Stunden an dem einfachen Porblem das ich einfach keine Verknüpfung von meinem (laufenden) Programm erstellen kann, die einzige (fast) funktionierende Möglichkeit die ich gefunden habe ist folgende:
Spoiler anzeigen
diese liefert mir jedoch einen Fehler, da mein Programm läuft, also kann man nicht auf den Prozess zugreifen...
andernfalls hätte ich noch gefunden :
Spoiler anzeigen
das konnte ich leider nicht mal testen da Strict On irgendein spätes binden nicht zulassen will
ich versteh leider nicht warum so was simples wie eine Verknüpfung so schwer zu erstellen ist...
Weis evtl. jemand Rat ?
Danke und Greets
ich scheitere seit einigen Stunden an dem einfachen Porblem das ich einfach keine Verknüpfung von meinem (laufenden) Programm erstellen kann, die einzige (fast) funktionierende Möglichkeit die ich gefunden habe ist folgende:
VB.NET-Quellcode
- Public Shared Sub CreateShortcut(ByVal SourceFile As String, ByVal TargetFolder As String, ByVal TargetFileName As String,
- Optional ByVal sArguments As String = "",
- Optional ByVal sWorkingDir As String = "")
- Dim TargetFile As String = TargetFolder & "\" & TargetFileName
- Try
- Dim oShell As New Shell32.Shell
- Dim oFolder As Shell32.Folder
- Dim oLink As Shell32.ShellLinkObject
- Dim sPath As String = SourceFile.Substring(0, SourceFile.LastIndexOf("\"))
- Dim sFile As String = SourceFile.Substring(SourceFile.LastIndexOf("\") + 1)
- Dim F As Integer = Microsoft.VisualBasic.FreeFile()
- Microsoft.VisualBasic.FileOpen(F, SourceFile, Microsoft.VisualBasic.OpenMode.Output)
- Microsoft.VisualBasic.FileClose(F)
- oFolder = oShell.NameSpace(sPath)
- oLink = CType(oFolder.Items.Item(sFile).GetLink, ShellLinkObject)
- With oLink
- If sArguments.Length > 0 Then .Arguments = sArguments
- If sWorkingDir.Length > 0 Then .WorkingDirectory = sWorkingDir
- .Path = TargetFile
- .Save()
- End With
- oLink = Nothing
- oFolder = Nothing
- oShell = Nothing
- Catch ex As Exception
- MessageBox.Show("Fehler bei Erstellung der Verknüpfung " & ex.ToString)
- End Try
- End Sub
diese liefert mir jedoch einen Fehler, da mein Programm läuft, also kann man nicht auf den Prozess zugreifen...
andernfalls hätte ich noch gefunden :
VB.NET-Quellcode
- Private Function MakeShortcut(ByVal File As String, ByVal ShortcutFolder As String, ByVal Name As String, ByVal WorkDirectory As String)
- Dim WshShell As Object = CreateObject("WScript.Shell")
- Dim NewShortcut As Object = WshShell.CreateShortcut(ShortcutFolder & "\" & Name & ".lnk")
- NewShortcut.TargetPath = File
- NewShortcut.WindowStyle = 1
- NewShortcut.IconLocation = File & ",0"
- NewShortcut.WorkingDirectory = WorkDirectory
- NewShortcut.Save()
- End Function
das konnte ich leider nicht mal testen da Strict On irgendein spätes binden nicht zulassen will
ich versteh leider nicht warum so was simples wie eine Verknüpfung so schwer zu erstellen ist...
Weis evtl. jemand Rat ?
Danke und Greets
If Energy = Low Then
Drink(aHugeCoffee)
Else
Drink(aHugeCoffeeToo)
End If
Drink(aHugeCoffee)
Else
Drink(aHugeCoffeeToo)
End If