ShellExute startet nur den Process
29.01.2005 22:53:21
Ramses
Vielleicht stehe ich irgendwie auf der Leitung, aber ich weiss nicht mehr weiter :-)
Ich versuche über den ShellExecute Befehl eine Datei mit dem jeweils assozierten Programm zu starten, allerdings kommt das Programm nicht an die "Oberfläche". Der Process der jeweiligen Application wird zwar gestartet, und auch im Taskmanager angezeigt, aber ich habe keinen Zugriff auf die Application.
Vielleicht könnte mir jemand auf die Sprünge helfen.
Ich lasse gefilterte Dateien in einer Listbox anzeigen, und möchte eine der aufgelisteten Dateien dann mit einem Doppelklick in der Listbox mit dem entsprechenden Programm starten.
Hier der Teil-Code für die UF in der die Listbox ist:
Private Declare Function ShellExecute Lib "SHELL32.DLL" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If Right(Me.ListBox1, 3) = "xls" Then
Application.Workbooks.Open Me.ListBox1
Else
Call_Parent_Exe (Me.ListBox1)
End If
Unload Me
End Sub
Function Call_Parent_Exe(strDatei As String)
Dim virExe
virExe = ShellExecute(0&, "Open", strDatei, 0&, 0&, SW_SHOWMAXIMIZED)
End Function
Auch das MSDN http://msdn.microsoft.com/archive/default.asp?url=/archive/en-us/dnarvb4/html/msdn_shelexec.asp bringt mich hier nicht weiter
Vielleicht weiss jemand wo hier der Fehler liegt.
Gruss Rainer