Verwenden Sie die Windows-API GetSystemMetrics mit dem Parameter SM_CLEANBOOT. Dieser gibt an, wie das System gestartet wurde. Verwenden Sie im Code Ihres Projekts Folgendes:
Programm Projekt1;
verwendet
Formulare,
Fenster,
Dialoge,
Unit1 in 'Unit1.pas' {Form1};
{$R *.RES}
beginnen
application.Initialize;
Application.CreateForm(TForm1, Form1);
Fall GetSystemMetrics(SM_CLEANBOOT) von
1: beginnen
ShowMessage('Ausführung im abgesicherten Modus: Ausfallsicherer Start');
Application.Terminate;
Ende;
2: beginnen
ShowMessage('Ausführung im abgesicherten Modus: Ausfallsicher mit Netzwerkstart');
Application.Terminate;
Ende;
Ende;
Application.Run;
Ende.