Startmodus bestimmen
 Info  
Von : Wolfgang Kluge
 Zusatz  
Printfreundliche Ansicht
Manchesmal ist es ganz gut zu wissen, wie Windows gestartet wurde...
Da gibts Abgesicherten Modus mit seinen Farb- und Netzwerkbeschränkungen, einen mit Netzwerkunterstützung und natürlich den ganz normalen (hoffentlich üblichen) Modus, der eigentlich immer da sein sollte.

Falls man jetzt an einer Anwendung schreibt, die vorwiegend mit Grafik zu tun hat, sollte sich diese besser nicht im Abgesicherten Modus starten lassen.
Eigentlich sollte sich gar keine Anwendung starten lassen,....denn im Prinzip ist dieser Modus nicht dafür gedacht auch noch allen Mögliche Müll aussenrum zu versorgen....aber das ist nur eine Theorie...

 Deklaration:
Public Declare Function GetSystemMetrics Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
Private Const SM_CLEANBOOT = &H43


und ausgewertet wird´s so.
Dim tmp As String, iil As ITEMIDLIST
' Startmodus bestimmen
Select Case GetSystemMetrics(SM_CLEANBOOT)
  Case 0 MsgBox "Ganz normal"
  Case 1 MsgBox "Abgesicherter Modus"
  Case 2 MsgBox "Abgesicherter Modus (Netzwerk)"
  Case Else MsgBox "Keine Ahnung ??!!"
End Select