判断系统的启动模式

procedure TForm1.Buuton1Click(Sender:TObject);

begin

    case (GetSystemMetrix(SM_CLEANBOOT)) of

        0: 　Showmessage('正常模式启动');

        1: 　Showmessage('安全模式启动');

        2: 　Showmessage('正常模式启动,但附带网络功能')

    else

        Application.MessageBox('错误，系统启动有问题','警告',MB_ICONWARNING);

    end;

end;