VB-Homepage Tipp 254
in welchem Modus wurde Windows gebootet
Benötigt Ihr Programm bestimmte Hardwarevoraussetzungen und seien es nur mehr als 16 Farben, so ist es sinnlos, Ihr Programm nicht zu starten, wenn Windows im abgesicherten Modus hochgefahren wurde.

Wie Sie den User vor solchen Aktionen schützen können, in dem Sie gleich zum Programmstart ermitteln, in welchem Modus Windows läuft, daß zeigt dieser Tipp, der auch für Windows NT 4.0 gültig ist.

Ihr Form statten Sie mit einem Commandbutton und einem Labelobjekt aus.

Auch hier kommen wir nicht an der API vorbei.

Allgemein / Deklarationen
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Const SM_CLEANBOOT = 67

Command1_Click
Select Case GetSystemMetrics(SM_CLEANBOOT)
     Case 1: Label1 = "im abgesichert Modus"
     Case 2: Label1 = "im abgesichert Modus mit Netzanbindung"
     Case Else: Label1 = "im normal Modus" 'Rückgabewert = 0
End Select
Tipp-Download
Quelle :
Zurück zur Übersichtsseite