发信人: chenjz@GZ()
整理人: teleme(2001-03-29 21:57:44), 站内信件
|
标 题: 用Delphi检测Windows的启动模式 发信站: 网易虚拟社区 (Thu Sep 14 00:50:49 2000), 站内信件
用Delphi检测Windows的启动模式
(作者:韩世伟 2000年09月04日 11:51)
Windows 95/98的启动模式可以分为正常模式和安全模式,在安全模式下,有 很多功能被限制使用,比如多媒体功能、网络功能等。有时,我们编写的程序正 好需要这些被限制的功能,因此我们希望当程序运行时能自动检测当前Windows所 处的启动模式是不是安全模式,以确定是否继续运行程序。
那么如何在Delphi程序中检测当前的Windows是以正常模式还是安全模式启动 的?这需要使用到API函数GetSystemMetrics来进行检测。API函数GetSystemMet rics可以取得Windows的一些配置信息,比如,鼠标的按键数、窗体的边界宽度, 它也可以测得当前Windows所处的启动模式。
在Windows API中,该函数的定义如下:
int GetSystemMetrics( int nIndex );
其中参数nIndex的取值很多,如果只想检测Windows的启动模式,只要取参数 值为SM_CLEANBOOT即可,该值将确认当前的Windows是以何种模式启动的。它的返 回值有三个:
0:正常启动模式;
1:安全模式启动Windows;
2:以安全模式启动,但是拥有网络功能。
我们可以在程序的起始部分使用该函数,如下面的示例中,我们根据Window s启动模式的不同,应用程序显示出不同的提示信息,用户可以在实际编程中具体 添加新的处理代码。
procedure TForm1.FormCreate(Sender: TObject);
begin
case(GetSystemMetrics(SM_CLEANBOOT)) of
0:ShowMessage('正常模式启动');
1:ShowMessage('安全模式启动');
2:ShowMessage('安全模式启动,但附带网络功能');
else
ShowMessage('错误:系统启动有问题。');
end;
end;
另外,在运行之前,要记着在源程序的Uses部分中加入单元名ShellAPI,否 则Delphi会显示出错信息。
-- 我能翻译善写作熟电脑会说话可是为什么没工作?
※ 来源:.月光软件站 http://www.moon-soft.com.[FROM: 202.105.221.21]
|
|