SİSTEM NE DURUMDA?
Üzerinde çalıştığınız program bir takım Windows 95 API'leri veya ağ desteği kullanıyor fakat API'ler Windows 95 Güvenli Kip'teyken çalışmıyorsa programınızı bu yönde programlayabilir Windows 95'in hangi kipte çalıştığını anlamasını sağlayabilirsiniz. Örnek programımız Windows 95'in nasıl başlatıldığını yine bazı API'leri kullanarak anlayabiliyor.Aşağıdaki kodları formdan bağımsız bir modüle yerleştirdikten sonra diğer satırları form üzerinde bir komut butonu oluşturarak içerisine yerleştirin.
Option Explicit Public Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long Public Const SM_CLEANBOOT = 67 Private Sub Command1_Click() Select Case GetSystemMetrics(SM_CLEANBOOT) Case 1: MsgBox "Sistem Güvenli Kipte çalışıyor." Case 2: MsgBox "Sistem Ağ destekli güvenli kipte çalışıyor" Case Else: MsgBox "Sistem normal olarak işliyor." End Select End Sub