title image


Smiley Prüfung per API
Hallo!Probier's mal hiermit:Private Declare Function lopen Lib "kernel32" Alias "_lopen" (ByVal lpPathName As String, ByVal iReadWrite As Long) As LongPrivate Declare Function lclose Lib "kernel32" Alias "_lclose" (ByVal hFile As Long) As LongPrivate Declare Function GetLastError Lib "kernel32" () As LongFunction IsFileAlreadyOpen(sFilename As String) As Boolean Dim hFile As Long Dim lastErr As Long hFile = -1 lastErr = 0 hFile = lopen(sFilename, &H10) If hFile = -1 Then lastErr = Err.LastDllError Else lclose (hFile) End If If (hFile = -1) And (lastErr = 32) Then IsFileAlreadyOpen = True Else: IsFileAlreadyOpen = False End IfEnd FunctionGruß, Stefan

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: