Programmstart aus Anwendung über die Desktop-Verknüpfung geht bei einzelnen 64-Bit Anwendungen nicht

thilo · 27. Februar 2025, 23:24

Hallo Comunity,

da man unter Win11 den "Desktop"-button auf der Taskleiste für die alphabetische Liste der Desktopverknüpfungen eingespart hat, versuche ich gerade den selbst zu basteln.
Das funktioniert auch weitgehend. Ich schreibe die Desktopverknüpfungen in eine Listbox und starte sie per Mouseclick über:
Process.Start(xxx.lnk)

Bei einigen 64-Bit-Anwendungen im Ordner "Program Files" habe ich die Fehlermeldung "Das System kann den angebenen Pfad nicht finden"

FreeCad, verschiedene Slicer, VLC kann ich starten, Office, GoogleEarth, FritzVpn, TeamViever und ein alter TightVNC enden in der Fehlermeldung.

Hat jemand eine Idee, wo der Hund begraben liegt?
Ich habe bei zwei Verknüpfungen unter Eigenschaften -> Sicherheit alle Rechte auf Vollzugriff gestellt, hat aber nichts geholfen.

Gruß Thilo

Dideldum · 28. Februar 2025, 06:12

Hi,
kommt die Fehlermeldung vom System oder den Anwendungen selbst?
Ist in den Verknüpfunhen der Arbeitsordnerpfad korrekt gesetzt?
Hast Du vielleicht Probleme mit Leerzeichen in den Verknüpfungen?
Wenn Du die Listbox-Items mit process.start(chr(34) & xxx.lnk & chr(34)) startest, funzt es dann?

HenryV · 28. Februar 2025, 12:12

Ich habe versucht das nachzubauen und bei mir war es die Verknüpfung zu Paint.NET die nicht ging. Process.Start(""C:\Users\Public\Desktop\Paint.NET.lnk"

Ich endete damit mit dem "Windows Script Host Object Model" das Ziel der Verknüpfung herauszulesen, was aber teilweise den 32-bit und nicht den 64-bit Programmpfad zurückgab.
Deshalb hab ich noch ein Replace eingebaut. (Sicher nicht die sauberste Lösung aber es geht)

Spoiler anzeigen

-Franky- · 28. Februar 2025, 16:00

HenryV schrieb:

Verweis auf "Windows Script Host Object Model" (wshom.ocx) notwendig

Hmm, eine OCX? Du kannst auch die COM Interfaces IShellLinkA/W, IShellLinkDataList und IPersistFile (IPersistFile ist in System.Runtime.InteropServices.ComTypes enthalten) nutzen um entsprechende Informationen aus einer .lnk Datei auszulesen. Ist dann allerdings auch etwas mehr Code.

thilo · 28. Februar 2025, 22:23

Hallo zusammen - Danke für die Antworten.
Ich bin noch nicht wirklich weiter gekommen
Der Reihen nach:
@Dideldum Die Fehlermeldung kommt von der Anwendung, die Arbeitsordnerpfade sind i.O., Leerzeichen war auch meine erste Idee - ist aber in beiden Fällen gemischt, chr(34) funktionniert auch nur bei den Programmen, bei denen es vorher schon ging.

@HenryV Das Prinzip habe ich verstanden, die wshom.ocx habe ich in die Verweise aufgenommen und trotzdem habe ich noch drei Fehler. Die Typen WshShel und IWshShortcut sind nicht definiert.
Was habe ich da übersehen? Fehlt da noch ein Imports...?

@-Franky- offenbar führen viele Wege nach ROM. Mit deinen Tips bin ich als Hobbyprogrammierer geistig überfordert.

Gruß
Thilo

-Franky- · 1. März 2025, 12:53

thilo schrieb:

offenbar führen viele Wege nach ROM. Mit deinen Tips bin ich als Hobbyprogrammierer geistig überfordert.

Ersteres ist wohl wahr aber.... Weil Wochenende ist und so schwer ist das gar nicht wenn man den Hinweisen folgt, die MS Doku liest und von mir aus auch den MS Copilot nutzt. Da ich Dir gern einen Ansporn geben möchte, ist folgendes nur ein Democode. Also nicht vollständig. Es müssen nur noch entsprechende Properties angelegt und eventuell muss der Code noch Deinen Bedürfnissen angepasst werden. Natürlich lassen sich da noch mehr Infos aus einer .lnk auslesen bzw. können diese auch geschrieben werden. Wer mich kennt, alles ohne zusätzliche Verweise oder Nuget-Pakete.

Eine Klasse "ShellLink"

Spoiler anzeigen

VB.NET-Quellcode

Imports System.Text
Imports System.Runtime.InteropServices
Public Class ShellLink
#Region "Const"
Private Const S_OK As Integer = 0
Private Const STGM_READ As Integer = 0
Private Const MAXPATH As Integer = 260
Private Const CLSID_ShellLink As String = "00021401-0000-0000-c000-000000000046"
Private Const IID_IShellLinkW As String = "000214F9-0000-0000-C000-000000000046"
Private Const IID_IShellLinkDataList As String = "45E2B4AE-B1C3-11D0-B92F-00A0C90312E1"
#End Region
#Region "Enums"
Private Enum SHELL_LINK_DATA_FLAGS As UInteger
SLDF_DEFAULT = &H0&
SLDF_HAS_ID_LIST = &H1&
SLDF_HAS_LINK_INFO = &H2&
SLDF_HAS_NAME = &H4&
SLDF_HAS_RELPATH = &H8&
SLDF_HAS_WORKINGDIR = &H10&
SLDF_HAS_ARGS = &H20&
SLDF_HAS_ICONLOCATION = &H40&
SLDF_UNICODE = &H80&
SLDF_FORCE_NO_LINKINFO = &H100&
SLDF_HAS_EXP_SZ = &H200&
SLDF_RUN_IN_SEPARATE = &H400&
SLDF_HAS_LOGO3ID = &H800&
SLDF_HAS_DARWINID = &H1000&
SLDF_RUNAS_USER = &H2000&
SLDF_HAS_EXP_ICON_SZ = &H4000&
SLDF_NO_PIDL_ALIAS = &H8000&
SLDF_FORCE_UNCNAME = &H10000&
SLDF_RUN_WITH_SHIMLAYER = &H20000&
SLDF_FORCE_NO_LINKTRACK = &H40000&
SLDF_ENABLE_TARGET_METADATA = &H80000&
SLDF_DISABLE_LINK_PATH_TRACKING = &H100000&
SLDF_DISABLE_KNOWNFOLDER_RELATIVE_TRACKING = &H200000&
SLDF_NO_KF_ALIAS = &H400000&
SLDF_ALLOW_LINK_TO_LINK = &H800000&
SLDF_UNALIAS_ON_SAVE = &H1000000&
SLDF_PREFER_ENVIRONMENT_PATH = &H2000000&
SLDF_KEEP_LOCAL_IDLIST_FOR_UNC_TARGET = &H4000000&
SLDF_PERSIST_VOLUME_ID_RELATIVE = &H8000000&
SLDF_VALID = &H3FF7FF&
SLDF_RESERVED = &H80000000&
End Enum
Private Enum SLGP_FLAGS As UInteger
SLGP_SHORTPATH = &H1&
SLGP_UNCPRIORITY = &H2&
SLGP_RAWPATH = &H4&
SLGP_RELATIVEPRIORITY = &H8&
End Enum
Private Enum SW_SHOW_COMMAND As UInteger
SW_SHOWNORMAL = &H1&
SW_SHOWMINIMIZED = &H2&
SW_SHOWMAXIMIZED = &H3&
SW_SHOWNOACTIVATE = &H4&
SW_SHOW = &H5&
SW_SHOWMINNOACTIVE = &H7&
SW_SHOWNA = &H8&
SW_SHOWDEFAULT = &HA&
End Enum
#End Region
#Region "Class"
Public Sub New(LnkFile As String)
Dim ShellLinkW As IShellLinkW = CType(Activator.CreateInstance(Type.GetTypeFromCLSID(New Guid(CLSID_ShellLink))), IShellLinkW)
If ShellLinkW IsNot Nothing Then
Dim PersistFile As ComTypes.IPersistFile = CType(ShellLinkW, ComTypes.IPersistFile)
If PersistFile IsNot Nothing Then
PersistFile.Load(LnkFile, STGM_READ)
Dim ShellLinkDataList As IShellLinkDataList = CType(ShellLinkW, IShellLinkDataList)
If ShellLinkDataList IsNot Nothing Then
Dim ShellLinkDataFlags As SHELL_LINK_DATA_FLAGS
If ShellLinkDataList.GetFlags(ShellLinkDataFlags) = S_OK Then
If ShellLinkDataFlags And SHELL_LINK_DATA_FLAGS.SLDF_HAS_RELPATH Then
Dim RelPath As New StringBuilder(MAXPATH)
Dim Win32FindData As New WIN32_FIND_DATA
If ShellLinkW.GetPath(RelPath, RelPath.Capacity, Win32FindData, SLGP_FLAGS.SLGP_RELATIVEPRIORITY) = S_OK Then
Debug.Print("RelPath = " & RelPath.ToString)
End If
Else
Dim RawPath As New StringBuilder(MAXPATH)
Dim Win32FindData As New WIN32_FIND_DATA
If ShellLinkW.GetPath(RawPath, RawPath.Capacity, Win32FindData, SLGP_FLAGS.SLGP_RAWPATH) = S_OK Then
Debug.Print("RawPath = " & RawPath.ToString)
End If
End If
If ShellLinkDataFlags And SHELL_LINK_DATA_FLAGS.SLDF_HAS_ARGS Then
Dim Args As New StringBuilder(MAXPATH)
If ShellLinkW.GetArguments(Args, Args.Capacity) = S_OK Then
Debug.Print("Args = " & Args.ToString)
End If
End If
If ShellLinkDataFlags And SHELL_LINK_DATA_FLAGS.SLDF_HAS_WORKINGDIR Then
Dim WorkingDirectory As New StringBuilder(MAXPATH)
If ShellLinkW.GetWorkingDirectory(WorkingDirectory, WorkingDirectory.Capacity) = S_OK Then
Debug.Print("WorkingDirectory = " & WorkingDirectory.ToString)
End If
End If
If ShellLinkDataFlags And SHELL_LINK_DATA_FLAGS.SLDF_HAS_NAME Then
Dim Description As New StringBuilder(MAXPATH)
If ShellLinkW.GetDescription(Description, Description.Capacity) = S_OK Then
Debug.Print("Description = " & Description.ToString)
End If
End If
Dim ShowCommand As SW_SHOW_COMMAND
If ShellLinkW.GetShowCmd(ShowCommand) = S_OK Then
Debug.Print("ShowCommand = " & ShowCommand.ToString)
End If
End If
Marshal.ReleaseComObject(ShellLinkDataList)
End If
Marshal.ReleaseComObject(PersistFile)
End If
Marshal.ReleaseComObject(ShellLinkW)
End If
End Sub
#End Region
#Region "Structures"
<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode)>
Public Structure WIN32_FIND_DATA
Public dwFileAttributes As UInteger
Public ftCreationTime As ComTypes.FILETIME
Public ftLastAccessTime As ComTypes.FILETIME
Public ftLastWriteTime As ComTypes.FILETIME
Public nFileSizeHigh As UInteger
Public nFileSizeLow As UInteger
Public dwReserved0 As UInteger
Public dwReserved1 As UInteger
<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=260)> Public cFileName As String
<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=14)> Public cAlternateFileName As String
End Structure
#End Region
#Region "Interface IShellLinkW"
<ComImport>
<InterfaceType(ComInterfaceType.InterfaceIsIUnknown)>
<Guid(IID_IShellLinkW)>
Private Interface IShellLinkW
<PreserveSig> Function GetPath(<Out, MarshalAs(UnmanagedType.LPWStr)> pszFile As StringBuilder,
<[In]> cchMaxPath As Integer,
<Out> ByRef pfd As WIN32_FIND_DATA,
<[In]> fFlags As SLGP_FLAGS) As Integer
<PreserveSig> Function GetIDList(<Out> ByRef ppidl As IntPtr) As Integer
<PreserveSig> Function SetIDList(<[In]> pidl As IntPtr) As Integer
<PreserveSig> Function GetDescription(<Out, MarshalAs(UnmanagedType.LPWStr)> pszName As StringBuilder,
<[In]> cchMaxName As Integer) As Integer
<PreserveSig> Function SetDescription(<[In], MarshalAs(UnmanagedType.LPWStr)> pszName As String) As Integer
<PreserveSig> Function GetWorkingDirectory(<Out, MarshalAs(UnmanagedType.LPWStr)> pszDir As StringBuilder,
<[In]> cchMaxPath As Integer) As Integer
<PreserveSig> Function SetWorkingDirectory(<[In], MarshalAs(UnmanagedType.LPWStr)> pszDir As String) As Integer
<PreserveSig> Function GetArguments(<Out, MarshalAs(UnmanagedType.LPWStr)> pszArgs As StringBuilder,
<[In]> cchMaxPath As Integer) As Integer
<PreserveSig> Function SetArguments(<[In], MarshalAs(UnmanagedType.LPWStr)> pszArgs As String) As Integer
<PreserveSig> Function GetHotkey(<Out> ByRef pwHotkey As Short) As Integer
<PreserveSig> Function SetHotkey(<[In]> wHotkey As Short) As Integer
<PreserveSig> Function GetShowCmd(<Out> ByRef piShowCmd As SW_SHOW_COMMAND) As Integer
<PreserveSig> Function SetShowCmd(<[In]> iShowCmd As SW_SHOW_COMMAND) As Integer
<PreserveSig> Function GetIconLocation(<Out, MarshalAs(UnmanagedType.LPWStr)> pszIconPath As StringBuilder,
<[In]> cchIconPath As Integer,
<Out> ByRef piIcon As Integer) As Integer
<PreserveSig> Function SetIconLocation(<[In], MarshalAs(UnmanagedType.LPWStr)> pszIconPath As String,
<[In]> iIcon As Integer) As Integer
<PreserveSig> Function SetRelativePath(<[In], MarshalAs(UnmanagedType.LPWStr)> pszPathRel As String,
<[In]> dwReserved As Integer) As Integer
<PreserveSig> Function Resolve(<[In]> hwnd As IntPtr,
<[In]> fFlags As UInteger) As Integer
<PreserveSig> Function SetPath(<[In], MarshalAs(UnmanagedType.LPWStr)> pszFile As String) As Integer
End Interface
#End Region
#Region "Interface IShellLinkDataList"
<ComImport>
<InterfaceType(ComInterfaceType.InterfaceIsIUnknown)>
<Guid(IID_IShellLinkDataList)>
Private Interface IShellLinkDataList
<PreserveSig> Function AddDataBlock(<[In]> pDataBlock As IntPtr) As Integer
<PreserveSig> Function CopyDataBlock(<[In]> dwSig As Integer,
<Out> ByRef ppDataBlock As IntPtr) As Integer
<PreserveSig> Function RemoveDataBlock(<[In]> dwSig As Integer) As Integer
<PreserveSig> Function GetFlags(<Out> ByRef pdwFlags As SHELL_LINK_DATA_FLAGS) As Integer
<PreserveSig> Function SetFlags(<[In]> dwFlags As SHELL_LINK_DATA_FLAGS) As Integer
End Interface
#End Region
End Class

Aufgerufen wird das dann wie folgt.

VB.NET-Quellcode

Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim LnkInfo As New ShellLink("Pfad zur .lnk Datei")
End Sub
End Class

Ich habe zb. eine Reboot.lnk auf meinem Desktop. Wenn ich diese mit meinem Code auslese, bekomme ich folgende Infos.


RelPath = C:\Windows\System32\shutdown.exe
Args = /g /f /t 0
WorkingDirectory = C:\WINDOWS\system32
ShowCommand = SW_SHOWNORMAL

thilo · 1. März 2025, 16:20

Supi - Problem gelöst-
Der RelPath verweist bei den Problemprogrammen tatsächlich auf die x86-Programmfiles.
Mit dem Rest komme ich jetzt klar.

Danke erst mal
Thilo

Programmstart aus Anwendung über die Desktop-Verknüpfung geht bei einzelnen 64-Bit Anwendungen nicht

Programmstart aus Anwendung über die Desktop-Verknüpfung geht bei einzelnen 64-Bit Anwendungen nicht

VB.NET-Quellcode

HenryV schrieb:

thilo schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Tags

Ähnliche Themen

4 Benutzer haben hier geschrieben