Bootmodus ermitteln |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
Mithilfe der Funktion GetSystemMetrics lässt sich der Bootmodus ermitteln. Als Parameter muss dabei die Konstante SM_CLEANBOOT übergeben werden. Über den Rückgabewert lässt sich auf den Bootmodus schließen:
procedure TForm1.Button1Click(Sender: TObject);
begin
case GetSystemMetrics(SM_CLEANBOOT) of
0: Label1.Caption:='Normaler Modus';
1: Label1.Caption:='Abgesicherter Modus';
2: Label1.Caption:='Abgesicherter Modus (Netzwerk)';
end;
end;
Die .NET-Lösung sieht wie folgt aus:
procedure TWinForm1.Button1_Click(sender: System.Object; e: System.EventArgs);
begin
case System.Windows.Forms.SystemInformation.BootMode of
BootMode.FailSafe: Label1.Text:='Abgesicherter Modus';
BootMode.FailSafeWithNetwork: Label1.Text:='Abgesicherter Modus (Netzwerk)';
BootMode.Normal: Label1.Text:='Normaler Modus';
end;
end;