怎样知道你的程序是运行在安全模式呢?

原创于 2001-10-05 14:01:00 发布 · 1.2k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#windows #forms #network #system #api

delphi文档专栏收录该内容

16 篇文章

订阅专栏

博客介绍了在项目代码中使用Windows API的GetSystemMetrics函数和SM_CLEANBOOT参数来检测系统启动模式。通过该函数返回值判断系统是否以安全模式启动，若为特定安全模式则终止应用程序运行。

Use Windows API GetSystemMetrics with SM_CLEANBOOT parameter, this specifies how the system was started, in your project´s code use:

program Project1;

uses
  Forms,
  Windows,
  Dialogs,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);

  case GetSystemMetrics(SM_CLEANBOOT) of
    1: begin
         ShowMessage('Running in Safe Mode: Fail-Safe Boot');
         Application.Terminate;
       end;
    2: begin
         ShowMessage('Running in Safe Mode: Fail-safe with network boot');
         Application.Terminate;
       end;
  end;

   Application.Run;
end.