Delphi如何判断当前用户是在安全模式下还是在正常模式下运行?

Question

Delphi如何判断当前用户是在安全模式下还是在正常模式下运行?
系统是WindowsXP专业版本或家庭版本.

Answer 1

纯属骗分
begin
  case GetSystemMetrics(SM_CLEANBOOT) of
    0: ShowMessage('正常模式启动');
    1: ShowMessage('安全模式启动');
    2: ShowMessage('安全模式启动,但附带网络功能');
  else ShowMessage('??未知模式');
  end;
end;

Answer 2

case GetSystemMetrics(SM_CleanBoot) of
  0:ShowMessage('Normal');
  1:ShowMessage('Safe');
  2:ShowMessage('Safe with internet');
  end;-_#!