Jak nastartovaly Windows?

Ne vždycky se podaří systému nastartovat v pořádku a někdy je nutno použít nouzový režim. Pokud je však vaše aplikace „citlivá“ na podobný stav, kdy je systém nastartován jen s omezenými prostředky a nezbytným minimem ovladačů, může se nám hodit podobný stav detekovat a aplikaci případně zakázat start.
procedure TForm1.Button33Click(Sender: TObject);
begin
case (GetSystemMetrics(SM_CLEANBOOT)) of
0 : ShowMessage('Window nastartovaly běžným způsobem');
1 : ShowMessage('Nouzový režim');
2 : ShowMessage('Nouzový režim s prací v síti');
else
ShowMessage('Nelze zjistit');
end;
end;