china.com
主页
新闻
体育
游戏
文化
教育
健康
财经
科技
旅游
军事
娱乐
商贸
  科技动态 硬件广场 下载基地 网络教室 网络冲浪 科学博览 移动时代 手机上网 桌面壁纸 科技商情  


用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会显示出错信息。

  摘自《赛迪网》 韩世伟/文

404 Not Found

404 Not Found


nginx


科技检索


中华网推荐

  • 1000名医生在线咨询

  • 中国足球队官方网站

  • 鸦片玫瑰(新版)

  • 精选股票天地

  • 闪光的flash教程

  • 中华网汽车世界

  • 为你的爱情出谋划策

  • 网文精选——野百合集

  • 世界文化遗产在中国

  • 历届香港小姐风姿集



  •  


    网络教室编辑信箱
    版权声明 | 本站检索 | 联系方法 | 刊登广告 | 使用说明 | 关于中华网 | 豁免条款

    版权所有 中华网