mundodelphi

A veces nos puede resultar útil detectar si se inició el sistema operativo de forma normal, seguro “safe mode” o bien a modo de prueba de errores con red, para saber eso utilizaremos la función GetSystemMetrics con el atributo SM_CLEANBOOT que nos devolvera el modo de inicio del sistema con tres valores

0 = Inicio Normal
1 = Inicio Seguro
2 = Modo a prueba de errores con red

ejemplo de uso

var inicio:integer;
begin
 inicio := GetSysTemMetrics(SM_CLEANBOOT);

 case inicio of
 1: ShowMessage('Inicio Normal');
 2: ShowMessage('Modo de Prueba');
 3: ShowMessage('Modo a prueba de errores con red');
 else
 ShowMessage('No se ha detectado');
 end;
end;