CloseHandle: Unterschied zwischen den Versionen

Aus API-Wiki
Wechseln zu: Navigation, Suche
K
(Fehler korrigiert)
Zeile 2: Zeile 2:
  
 
<PRE>
 
<PRE>
Declare Function CloseHandle Lib "kernel32" Alias "CloseHandle" ( _
+
Declare Function CloseHandle Lib "kernel32" ( _
 
                             ByVal hObject As Long) As Long
 
                             ByVal hObject As Long) As Long
 
</PRE>
 
</PRE>
Zeile 10: Zeile 10:
 
''hObject''
 
''hObject''
  
:hObjekt erwartet ein gültiges Dateihandle als Übergabe (z.B. von [[CreateFile]]).  
+
:hObject erwartet ein gültiges Kernelobjekthandle als Übergabe (z.B. von [[CreateFile]]).  
  
  
 
'''Rückgabe'''
 
'''Rückgabe'''
  
War die Funktion erfolgreich, so erfolgt eine Übergabe des Wertes ''True = 1''.  
+
War die Funktion erfolgreich, so erfolgt eine Übergabe eines Wertes ungleich 0.  
 
Sollte die Funktion fehlschlagen, so kann die Fehlerursache mittels [[GetLastError]] festgestellt werden.
 
Sollte die Funktion fehlschlagen, so kann die Fehlerursache mittels [[GetLastError]] festgestellt werden.
  
Zeile 26: Zeile 26:
 
     CloseResult = CloseHandle(FileHandle)
 
     CloseResult = CloseHandle(FileHandle)
 
      
 
      
     If CloseResult <> 1 Then
+
     If CloseResult = 0 Then
 
         MsgBox "Fehler beim Schließen des Objektes!", vbCritical, "Fehler!"
 
         MsgBox "Fehler beim Schließen des Objektes!", vbCritical, "Fehler!"
 
     End If
 
     End If

Version vom 26. Februar 2007, 17:39 Uhr

Diese Funktion schließt eine Datei oder einen Datenkanal. Kanäle können zu einem COM- oder LPT-Port, ein Gerät, einem Dienst oder einer Console geöffnet worden sein.

Declare Function CloseHandle Lib "kernel32" ( _
                             ByVal hObject As Long) As Long

Übergabe

hObject

hObject erwartet ein gültiges Kernelobjekthandle als Übergabe (z.B. von CreateFile).


Rückgabe

War die Funktion erfolgreich, so erfolgt eine Übergabe eines Wertes ungleich 0. Sollte die Funktion fehlschlagen, so kann die Fehlerursache mittels GetLastError festgestellt werden.


Beispiel

    Dim CloseResult as Long

    CloseResult = CloseHandle(FileHandle)
    
    If CloseResult = 0 Then
        MsgBox "Fehler beim Schließen des Objektes!", vbCritical, "Fehler!"
    End If