Deklaration: Declare Function lstrlen Lib "kernel32.dll" _ Alias "lstrlenA" ( _ ByVal lpString As Any) As Long Beschreibung: Parameter:
Rückgabewert: Beispiel: Private Declare Function FindExecutable Lib "shell32.dll" _ Alias "FindExecutableA" ( _ ByVal lpFile As String, _ ByVal lpDirectory As String, _ ByVal lpResult As String) As Long Private Declare Function lstrlen Lib "kernel32.dll" _ Alias "lstrlenA" ( _ ByVal lpString As Any) As Long ' FindExecutable Konstanen Private Const ERROR_FILE_NOT_FOUND = 2& Private Const ERROR_PATH_NOT_FOUND = 3& Private Const ERROR_BAD_FORMAT = 11& Private Sub Command1_Click() Dim Retval As Long, Puffer As String ' Puffergröße festlegen Puffer = Space(256) Retval = FindExecutable("c:\windows\media\tada.wav", "", Puffer) Select Case Retval Case 0 Debug.Print "Es ist nicht genügend Speicher vorhanden, " & _ "um diese Funktion durchzuführen." Case 31 Debug.Print "Für diese Datei existiert keine verknüpfte Anwendung!" Case ERROR_FILE_NOT_FOUND Debug.Print "Die angegebene Datei wurde nicht gefunden." Case ERROR_PATH_NOT_FOUND Debug.Print "Der angegebene Pfad wurde nicht gefunden" Case ERROR_BAD_FORMAT Debug.Print "Die verknüpfte Anwendung ist ungültig oder keine Win32 Anwendung" Case Else Debug.Print "Verknüpfte Anwendung: " & Left$(Puffer, lstrlen(Puffer)) Debug.Print "Verknüpfte Anwendung mit Kommando: " & Left$(Puffer, _ InStr(1, Puffer, """") - 1) End Select End Sub Diese Seite wurde bereits 13.212 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 ![]() Dieter Otter Beliebige Zeichen am Anfang und Ende eines Strings entfernen Mit der Trim-Funktion lassen sich nicht nur Leerzeichen, sondern bei Bedarf auch beliebige Zeichen entfernen. sevZIP40 Pro DLL ![]() Zippen und Unzippen wie die Profis! Mit nur wenigen Zeilen Code statten Sie Ihre Anwendungen ab sofort mit schnellen Zip- und Unzip-Funktionen aus. Hierbei lassen sich entweder einzelnen Dateien oder auch gesamte Ordner zippen bzw. entpacken. |
||||||||||||
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. |