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.381 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 Mai 2024 Hermann Röttger Wochentage eines Datumsbereichs ermitteln Wochentage eines Datumsbereichs ermitteln, optional mit Feiertagsberechnung sevAniGif (VB/VBA) Anzeigen von animierten GIF-Dateien Ab sofort lassen sich auch unter VB6 und VBA (Access ab Version 2000) animierte GIF-Grafiken anzeigen und abspielen, die entweder lokal auf dem System oder auf einem Webserver gespeichert sind. |
||||||||||||||||||||||
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. |