Используйте Windows API GetSystemMetrics с параметром SM_CLEANBOOT, который указывает, как была запущена система, в коде вашего проекта PRoject используйте:
программа Проект1;
использует
Формы,
Окна,
Диалоги,
Unit1 в «Unit1.pas» {Form1};
{$R *.RES}
начинать
приложение.Инициализировать;
Приложение.CreateForm(TForm1, Form1);
случай GetSystemMetrics(SM_CLEANBOOT) из
1: начать
ShowMessage('Работа в безопасном режиме: отказоустойчивая загрузка');
Приложение.Завершить;
конец;
2: начать
ShowMessage('Работа в безопасном режиме: отказоустойчивая с сетевой загрузкой');
Приложение.Завершить;
конец;
конец;
Приложение.Выполнить;
конец.