Die shellexecute-API ist folgendermaßen deklariert:
Der dazugehörige Befehl lautet:
Leider passiert nichts, wenn ich das Programm ausführe. Weder eine Fehlermeldung noch der Browser erscheint.
r ist auch größer als 32.
Woran kann es liegen?
Code:
Public 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
Code:
Dim r As Long r = ShellExecute(0, "open", "http://www.microsoft.com", 0, 0, 1)
r ist auch größer als 32.
Woran kann es liegen?
Comment