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.054 mal aufgerufen. |
sevISDN 1.0 Überwachung aller eingehender Anrufe! Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung 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! sevEingabe 3.0 Einfach stark! Ein einziges Eingabe-Control für alle benötigten Eingabetypen und -formate, inkl. Kalender-, Taschenrechner und Floskelfunktion, mehrspaltige ComboBox mit DB-Anbindung, ImageComboBox u.v.m. |
||||||||||||
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. |