PRIVATE DECLARE FUNCTION CloseHandle LIB "kernel32" (BYVAL hObject AS LONG) AS _
  LONG
 
PRIVATE DECLARE FUNCTION WaitForSingleObject LIB "kernel32" _
  (BYVAL hHandle AS LONG, BYVAL dwMilliseconds AS LONG) AS LONG
 
PRIVATE DECLARE FUNCTION CreateSemaphore LIB "KERNEL32.DLL" ALIAS _
 "CreateSemaphoreA" (lpSemaphoreAttributes AS SECURITY_ATTRIBUTES, _
  BYVAL lInitialCount AS LONG, BYVAL lMaximumCount AS LONG, _
  lpName AS LONG) AS LONG
 
PRIVATE TYPE SECURITY_ATTRIBUTES
    nLength AS LONG
    lpSecurityDescriptor AS LONG
    bInheritHandle AS LONG
END TYPE
 
PRIVATE CONST WAIT_TIMEOUT = 258&
 
PRIVATE hSemaphore AS LONG

 
Function CheckIni() AS Long
     Static b As Boolean
     Static n As Long
     Dim hResult As Long
     Dim sec As SECURITY_ATTRIBUTES
 
    ' Funktionen, die die Ini-Prüfen
 
    If CRCSum <> Checksumme  And Not b Then 
           b = True
           n = 10
           hSemaphore = CreateSemaphore(sec, 1, 1, Byval 0&)
   End If
 
   hResult =  WaitForSingleObject(hSemaphore, n)   
   If hResult = WAIT_TIMEOUT Then n = n + 100
End If