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

在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.

DELPHI中利用对象的常用属性制作动画 Form生成时的事件次序-Delphi资料 LED数码管仿真显示程序-Delphi资料 TPaintBox与TImage的比较-Delphi资料 WINDOWS基于调色板的图像消隐-Delphi资料 改变图片效果-Delphi资料 改造HINT的输出方式-Delphi资料 基于Delphi的图像漫游 将BMP放入Paradox的BLOB的字段中-Delphi资料 界面色彩渐变效果的实现-Delphi资料 如何查阅可视窗口标题-Delphi资料 如何得到Timage控件的DC-Delphi资料 如何关闭一个MDI子窗口-Delphi资料 如何检测鼠标击了哪一个对象-Delphi资料 如何将鼠标锁定在固定范围内-Delphi资料 如何使你的窗口Stay on Top-Delphi资料 如何在ListView控件中绘底图-Delphi资料 如何在屏幕上移动Image图象-Delphi资料 软件中复活节彩蛋的实现-Delphi资料 实现图象局部放大的原理和方法-Delphi资料 使用Delphi实现滚动式面板窗口 通用的MsgBox-Delphi资料 图象放大镜——实现图象局部放大的原理和方法-Delphi资料 图形的特殊显示效果-Delphi资料 图形整体拉出效果-Delphi资料 一个实用的Delphi屏幕拷贝程序的设计 用Delphi 显示122种图形特效 用Delphi编写DLL实现动态改变分辨率 用Delphi进行OpenGL编程学习心得 用Delphi开发windows95屏幕保护预览程序 用Delphi实现壁纸更换 一IT美女的悲惨遭遇◎! .net2003的编译器如何为类添加消息映射啊???? JAVA的文本编辑,实现修改和排版 Jmai发送邮件问题? 高分求c++ test 我成功配置了一备用数据库,与主库连上了,可是主库坏了,我怎么打不开备用库啊? (SDK)怎样用SendMessage函数反选一个checkButton control(checked->unchecked)呢? 求救,为什么关于VB的帮助的事例看不到? 有拒绝爱情的吗?我还在念大学 做一个不是很大的网站,是用类好,还是用模块的好? 如何对本地机的共享文件夹设置密码 一个讨厌的QQ木马网站如何防治,最好有人能黑了它! 谁写得有能随机生成数字和字母的函数,借来用用? 快速排序的问题。求救 使用 CDatabase 读写 excel 文件的问题。 水园的朋友们,你们好!!!学校的网页!!! how can I show the correct word? 我的机出现了网络重名~~改IP也没用 庐山印象(ZT)----让我想起我小学写的作文哦!看了会起鸡皮疙瘩的! 请问谁有avphone控件3。0的破解版 学校的网页!!!! 500分! 求win2k下探测和阻塞ping的源码. 有关CASL的一个菜问题,请各位帮忙看一下 关于window.confirm的问题,简单问题解决后既散分 请问doc,pdf等文件在iframe中的显示 怎样给datagird的列定义标题? 怎样判断一个文件是否存在呀? 超市系統的報價?? 如何取得类名为#32770的窗口句柄? 我在web.xml里这样设置首业为什么不可以? 请问AMD的CPU对现在市面上的各种软件都能兼容吗? 电脑操作过程中,有时会弹出一些非法操作的窗口,如何把它保存下来? asp中调用javascript的小问题, 今天终于有时间,想看《黑客帝国2》,哪位提供一点信息? 显卡和声卡的作用不太清楚? 请提供结构化布线的下载地址,谢谢! DataList的绑定内容怎么出不来? VB、ASP或相做软件销售的有志创业者,请与我联系 想做一个分页的程序。如何让jdbc 每次只返回20条数据? 小弟想考MCAD,高分寻求指点。 求jbuilder 4.0 序列号 XP上没有待机的选项怎么设置 如何将weblogic7的jdk换成1.4.2? 请问C#怎样实现可拖动的工具条 VB、ASP或相做软件销售的有志创业者,请看 朋友想开一家软件公司,您能为它取一个好听的名字吗? 小弟想考MCAD,高分寻求指点。 TDC数据岛中有个SORTCOLUMN属性设置排序,XML数据岛中不能用该属性? 福建的it业朋友进来报一下money状况啊 这是什么错误? 高分请大家帮忙!!求教网站SPMP文档。 在培根随笔中, 英文短句改错1、He go to the Zoo by bus.2、How old are your grandpa?找了半天也不知道哪里错了……望大哥大姐帮帮忙! 【历史题】孙悟空大闹天宫时是什么朝代?要根据那个回答明代的 你妈的13 孙悟空是唐朝的 n的平方+(n-1)的平方+(n+1)的平方=245怎么算? n的平方+5n-500=0 两种方法 小学五年级作文《旅游圣地》400字 去除银镜用什么? 与托伦试剂反应后,有银镜的试管应该如何清洗 文言文《子产不毁乡校》 一些题目求回答!开学要讲给同学们听TAT 求帮助! 文言文 予产不毁乡校 急 2010第二学期徐汇区初三年级物理 选择第八题解题步骤讲一下,谢谢 美国多名政客支持监听 吁欧洲提高自身美国多名政客支持监听 吁欧洲提高自身人民日报谈教育实践活动:有些干部只说温岭数百医护人员抗议医疗暴力 呼吁严德媒:窃听丑闻得教训 要像中俄一样变德国社民党称需要成立调查委员会 斯诺英国发生强烈暴风雨天气已致4死 逾6遵义市委书记廖少华被调查 曾多次强调英国发生强烈暴风雨天气已致4死 逾6德国社民党称需要成立调查委员会 斯诺安倍突访土耳其 传为劝阻土放弃购中国欠缺新意的末日之恋倪华自比克洛泽完美告别260条绳索吊挂120人筑成梦之塔男子因行车纠纷砸车开枪 数罪并罚被判香港特首梁振英签名支持“反占中”呼和浩特原市长接受调查老板发飙 绿城屠鲁能■彩票开奖公告俄商人5次雇凶杀妻皆被骗纪念邓小平诞辰110周年青奥会开幕式:500人凌空上演“筑梦疯狂宇宙五行之气御乾坤公主蜕变记仙侣情侠传血继世界光盛王朝青荒武金帝国三国伪君子万古皆空心灵大帝霞客亭旅游兴隆亚洲风情园旅游红色娘子军雕像旅游清风仙境风景区旅游韶山烈士陵园旅游中国剪纸博物馆旅游株洲白龙洞旅游泰米尔旅游巴德岗旅游汉画馆旅游翠屏岛旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘