Forums Neueste Beiträge
 

Windows7, ShellExecute Windows-Fehlermeldung

01/04/2010 - 17:00 von Wilfried Dietrich | Report spam
Hallo,

folgende Aufrufe funktionieren als Admin und auch als
eingeschrànkter Benutzer unter W2k bis XP:

sFilePath = kompl. Pfadangabe zur Exe
sParm = Parameter die ich übergeben möchte
If IsAdmin Then
sOperation = "open"
Else
sOperation = "runas"
End If

n = ShellExecute(Me.hWnd, "open", sFilePath , sParm, "", 1)
n = Shell(sFilePath & " " & sParm, vbNormalFocus)

Bei mir verusacht ShellExecute unter W7 einen nicht abfangbaren
Fehler, so dass Windows einen Fehler in meine App. meldet und
diese kompl. beendet. Für 'Me.hWnd' kann ich auch 0 einsetzen,
gleiches Problem.

Shell habe ich nur zu Testzwecken eingefügt, um zu sehen ob W7
da auch Probleme macht.
Der Shell-Aufruf funktioniert zwar unter W7, da fehlt mir aber die
Möglichkeit des "Ausführen als".

Hat Jemand eine Idee?

Gruß und frohe Ostern,
Wilfried
 

Lesen sie die antworten

#1 Wilfried Dietrich
01/04/2010 - 17:12 | Warnen spam
arrrrg
...
If IsAdmin Then
sOperation = "open"
Else
sOperation = "runas"
End If

n = ShellExecute(Me.hWnd, "open", sFilePath , sParm, "", 1)


...

bitte àndern in:
n = ShellExecute(Me.hWnd, sOperation, sFilePath , sParm, "", 1)

Danke.

Ähnliche fragen