procedure TForm1.Buuton1Click(Sender:TObject);
begin
case (GetSystemMetrix(SM_CLEANBOOT)) of
0: Showmessage('正常模式启动');
1: Showmessage('安全模式启动');
2: Showmessage('正常模式启动,但附带网络功能')
else
Application.MessageBox('错误，系统启动有问题','警告',MB_ICONWARNING);
end;
end;
