系统启动模式

用Delphi检测Windows的启动模式
2000-09-19 10:24:23
　　Windows 95/98的启动模式可以分为正常模式和安全模式，在安全模式下，有很多功能被限制使用，比如多媒体功能、网络功能等。有时，我们编写的程序正好需要这些被限制的功能，因此我们希望当程序运行时能自动检测当前Windows所处的启动模式是不是安全模式，以确定是否继续运行程序。
　　那么如何在Delphi程序中检测当前的Windows是以正常模式还是安全模式启动的？这需要使用到API函数GetSystemMetrics来进行检测。API函数GetSystemMetrics可以取得Windows的一些配置信息，比如，鼠标的按键数、窗体的边界宽度，它也可以测得当前Windows所处的启动模式。
　　在Windows API中，该函数的定义如下：
　　int GetSystemMetrics( int nIndex );
　　其中参数nIndex的取值很多，如果只想检测Windows的启动模式，只要取参数值为SM_CLEANBOOT即可，该值将确认当前的Windows是以何种模式启动的。它的返回值有三个：
　　0：正常启动模式；
　　1：安全模式启动Windows；
　　2：以安全模式启动，但是拥有网络功能。
　　我们可以在程序的起始部分使用该函数，如下面的示例中，我们根据Windows启动模式的不同，应用程序显示出不同的提示信息，用户可以在实际编程中具体添加新的处理代码。
　　procedure TForm1.FormCreate(Sender: TObject);
　　begin
　　case(GetSystemMetrics(SM_CLEANBOOT)) of
　　0:ShowMessage('正常模式启动');
　　1:ShowMessage('安全模式启动');
　　2:ShowMessage('安全模式启动，但附带网络功能');
　　else
　　ShowMessage('错误：系统启动有问题。');
　　end;
　　end;
　　另外，在运行之前，要记着在源程序的Uses部分中加入单元名ShellAPI，否则Delphi会显示出错信息。
　　摘自《赛迪网》　韩世伟/文