电脑报电子版 -- 在DELPHI编程中确定系统运行模式

当前位置：电脑报电子版 > 1999 年 > 37 期 > 软件世界 > 在DELPHI编程中确定系统运行模式

《在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.
(上海　季昭君)

下载本期推荐软件

页首