Windows'un hangi modda acıldığı oğrenmek icin aşağıdaki kodu yazabiliriz ;
Option Explicit
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Const SM_CLEANBOOT = 67
Private Sub Command1_Click()
Select Case GetSystemMetrics(SM_CLEANBOOT)
Case 1: MsgBox "Safe Mode."
Case 2: MsgBox "Safe Mode with Network support."
Case Else: MsgBox "Windows is running normally."
End Select
End Sub
__________________
Windows Hangi Modda Acıldı
Programlama0 Mesaj
●24 Görüntüleme
- ReadBull.net
- Programlama ve Yazılım
- Programlama
- Windows Hangi Modda Acıldı