说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

在DELPHI编程中确定系统运行模式

HTML文档下载 WORD文档下载 PDF文档下载
在DELPHI编程中确定系统运行模式

系统运行模式就是指:WINDOWS是运行在哪种模式中

在WINDOWS3.X 中有正常模式

386增强模式;而现在的WINDOWS95/98有安全模式

运行在网络中的安全模式

正常模式等。如何才能区分系统是运行在上述的哪一种方式之下呢?在此,笔者就用DELPHI编程为您演示。

说明:笔者调用API函数中的GETSYSTEMMETRICS函数来完成下面的程序,其API函数在WINDOWS.PAS中有声明代码。

首先

新建一个工程

在FORM1上放上一个LABEL1和BUTTON1

其属性都不变

字体可设置大一些

然后输入以下代码:

unit GETMODE;

interface

usesWindows

Messages

SysUtils

Classes

Graphics

Controls

Forms

Dialogs

StdCtrls;

type TForm1 = class(TForm)

Label1: TLabel;

Button1: TButton;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private{ Private declarations }

public { Public declarations }

end;

var Form1: TForm1;

implementation {$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);

begin

FORM1.CAPTION:=′确定WINDOWS运行模式的演示程序′;

BUTTON1.CAPTION:=′获取系统运行模式′;

end;

procedure TForm1.Button1Click(Sender: TObject);

VAR

RET:LONGINT; //声明变量

begin

RET:=GETSYSTEMMETRICS(SM_CLEANBOOT); //调用API函数

CASE RET OF //CASE API函数的返回值

1:LABEL1.CAPTION:=′您的系统正运行在安全模式下′;

2:LABEL1.CAPTION:=′您的系统正运行在带有网络环境的安全模式下′;

ELSE LABEL1.CAPTION:=′您的系统正运行在正常模式下′;

END;

end;

end.

备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘