ShellExecuteEx - gelöst
Verfasst: 28.09.2009 15:11
Ich wollte eigentlich nur mal schnell etwas ausprobieren und suche schon wieder seit Stunden den Fehler.
Vielleicht sieht ihn ja einer von euch.
...
edit
Ich habe den Fehler selbst gefunden. Der war so peinlich, daß ich nur noch die Lösung stehen lasse.
Vielleicht sieht ihn ja einer von euch.
...
edit
Ich habe den Fehler selbst gefunden. Der war so peinlich, daß ich nur noch die Lösung stehen lasse.
Code: Alles auswählen
AppVerb$ = "open"
AppName$ = "notepad.exe"
AppDir$ = "c:\windows\"
shExecInfo.SHELLEXECUTEINFO
shExecInfo\cbSize=SizeOf(SHELLEXECUTEINFO)
shExecInfo\fMask=#SEE_MASK_NOCLOSEPROCESS
shExecInfo\hwnd=#Null;
shExecInfo\lpVerb=@AppVerb$ ; der Trick : "runas" statt "explore","open" oder "print".
shExecInfo\lpFile=@AppName$
shExecInfo\lpDirectory=@AppDir$
shExecInfo\nShow=#SW_SHOWNORMAL
If ShellExecuteEx_(shExecInfo)
Debug "ShellExecuteEx war erfolgreich."
Debug shExecInfo\hProcess
Debug shExecInfo\hInstApp ; Instanzhandle der Anwendung oder Fehlercode
Else
Debug "ShellExecuteEx war NICHT erfolgreich."
Select shExecInfo\hInstApp
Case #SE_ERR_ACCESSDENIED
Debug "Zugriff verweigert"
Case #SE_ERR_FNF
Debug "Datei nicht gefunden"
Case #SE_ERR_NOASSOC
Debug "Datei ist mit keinem Programm verknüpft"
Default
Debug "ShellExecuteEx-Fehler : "+Str(shExecInfo\hInstApp)
EndSelect
EndIf