Deklaration: 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 Beschreibung: Parameter:
nCmdShow Konstanten: ' versteckt das Fenster Const SW_HIDE = 0 ' maximiert das Fenster Const SW_MAXIMIZE = 3 ' minmiert das Fenster Const SW_MINIMIZE = 6 ' aktiviert das Fenster Const SW_NORMAL = 1 ' zeigt das Fenster Const SW_SHOW = 5 ' stellt die Fenstergröße wieder her Const SW_RESTORE = 9 ' zeigt das Fenster an und maximiert es Const SW_SHOWMAXIMIZED = 3 ' zeigt das Fenster an und minimiert es Const SW_SHOWMINIMIZED = 2 ' minimiert das Fenster und aktiviert es nicht Const SW_SHOWMINNOACTIVE = 7 ' zeigt das Fenster an, aber aktiviert es nicht Const SW_SHOWNA = 8 ' zeigt das Fenster an ohne es zu aktivieren Const SW_SHOWNOACTIVATE = 4 ' zeigt das Fenster und aktiviert dies Const SW_SHOWNORMAL = 1 Rückgabewert: Rückgabekonstanten: ' Datei ist keine Win32 Anwendung Const ERROR_BAD_FORMAT = 11& ' Zugriff verweigert Const SE_ERR_ACCESSDENIED = 5 ' Datei-Assoziation ist unvollständig Const SE_ERR_ASSOCINCOMPLETE = 27 ' DDE ist nicht bereit Const SE_ERR_DDEBUSY = 30 ' DDE-Vorgang gescheitert Const SE_ERR_DDEFAIL = 29 ' DDE-Zeitlimit wurde erreicht Const SE_ERR_DDETIMEOUT = 28 ' benötigte DLL wurde nicht gefunden Const SE_ERR_DLLNOTFOUND = 32 ' Datei wurde nicht gefunden Const SE_ERR_FNF = 2 ' Datei ist nicht Assoziiert Const SE_ERR_NOASSOC = 31 ' Nicht genügend Speicher Const SE_ERR_OOM = 8 ' Pfad wurde nicht gefunden Const SE_ERR_PNF = 3 ' Sharing-Verletzung Const SE_ERR_SHARE = 26 Beispiel: 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 Const SW_HIDE = 0 Private Const SW_MAXIMIZE = 3 Private Const SW_MINIMIZE = 6 Private Const SW_NORMAL = 1 Private Const SW_SHOW = 5 Private Const SW_RESTORE = 9 Private Const SW_SHOWMAXIMIZED = 3 Private Const SW_SHOWMINIMIZED = 2 Private Const SW_SHOWMINNOACTIVE = 7 Private Const SW_SHOWNA = 8 Private Const SW_SHOWNOACTIVATE = 4 Private Const SW_SHOWNORMAL = 1 Private Const ERROR_BAD_FORMAT = 11& Private Const SE_ERR_ACCESSDENIED = 5 Private Const SE_ERR_ASSOCINCOMPLETE = 27 Private Const SE_ERR_DDEBUSY = 30 Private Const SE_ERR_DDEFAIL = 29 Private Const SE_ERR_DDETIMEOUT = 28 Private Const SE_ERR_DLLNOTFOUND = 32 Private Const SE_ERR_FNF = 2 Private Const SE_ERR_NOASSOC = 31 Private Const SE_ERR_OOM = 8 Private Const SE_ERR_PNF = 3 Private Const SE_ERR_SHARE = 26 Private Sub Command1_Click() Dim Retval As Long Retval = ShellExecute(Me.hwnd, "open", "C:\Windows\Notepad.exe", _ "C:\AutoExeC.bat", "c:\", SW_SHOWNORMAL) ' Der gleiche Vorgang kann auch ausgeführt werden mittels... ' Retval = ShellExecute(Me.hwnd, "edit", "C:\AutoExeC.bat", "", "c:\", 'SW_SHOWNORMAL) Select Case Retval Case SE_ERR_NOASSOC MsgBox "Datei ist nicht Assizoiert", vbInformation, "Fehler" Exit Sub Case SE_ERR_PNF MsgBox "Pfad wurde nicht gefunden", vbInformation, "Fehler" Exit Sub Case SE_ERR_FNF MsgBox "Datei wurde nicht gefunden", vbInformation, "Fehler" Exit Sub Case 8, 26, 32, 28, 29, 30, 27, 5, 11 ' alle anderen Fehler Exit Sub End Select End Sub Diese Seite wurde bereits 95.119 mal aufgerufen. |
vb@rchiv CD Vol.6 Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! Online-Update-Funktion Entwickler-Vollversionen u.v.m. Buchempfehlung Tipp des Monats März 2024 Dieter Otter UTF-8 Konvertierung von Dateien und Strings VB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. Neu! sevPopUp 2.0 Dynamische Kontextmenüs! Erstellen Sie mit nur wenigen Zeilen Code Kontextmenüs dynamisch zur Laufzeit. Vordefinierte Styles (XP, Office, OfficeXP, Vista oder Windows 8) erleichtern die Anpassung an die eigenen Anwendung... |
||||||||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |