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

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

GetSystemMetrics()

SM_CLEANBOOT Value that specifies how the system was started:
0 Normal boot
1 Fail-safe boot
2 Fail-safe with network boot

Fail-safe boot (also called SafeBoot) bypasses the user's startup files.


procedure TForm1.Button1Click(Sender: TObject);
var
nRet:integer;
begin
nRet:=GetSystemMetrics(SM_CLEANBOOT);
case nRet of
0: label1.caption:='正常';
1: label1.caption:='安全模式';
2: label1.caption:='安全模式带网络连接';
end;
end;

谢谢！！我也学了一招！[][][]

多人接受答案了。