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

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

移动平台市场占有率:Android首次赶超iOS 豌豆荚范怀宇 I/O大会总结:Android无处不在 轻博客始祖Tumblr:哈希以支撑2.3万Blog请求/秒 《近匠》FIR.im:简单易用的内测分发工具 传苹果公司将于9月9日召开新一代iPhone发布会 近百家微信开发商参与征集评选活动 TOP10正浮出水面 Java程序猿,手游引擎怎么选? MDCC 2014优秀移动团队免费展位火热申请中 【微信讲师面对面】你在企业服务号开发中遇到的坑和难点 五个解决方案让MongoDB拥有RDBMS的鲁棒性事务 浅谈Apache Spark的6个发光点 安卓 “假ID” 签名漏洞,竟然骗过了支付宝和360 从Social到Big Data,移动App蚂蜂窝转型推新品 《近匠》nice曹大鹏,从男装导购到潮人社区的心路历程 DevOps扼杀的不是开发者,而是开发生产力! 利用Docker构建开发环境 Netflix公布Cassandra新性能:基于AWS的百万次写入每秒 一周消息树:谷歌Android遭遇“颠覆”危机 微软发布新应用Snipp3t,iOS平台首发且无Windows Phone版 TOP10优秀微信开发商随后揭晓 2014微信开发者大会开幕在即 8月12日:PC鼻祖IBM 5150迎来33周年 平板创作3D展现:蒙特利尔大学发明Hyve-3D设计系统 Quick Charge技术解析:关于手机快速充电的那些事儿 性能分析十八招,你用哪一招? 流程在企业内的作用及成熟度 Gartner:至2017年Chromebook销量将增2倍 后稀缺时代思考:机器横行下的人类夹缝求生 TIOBE 2014年8月编程语言排行榜:Swift跌出Top 20 精华回顾!历届MDCC大会精彩演讲与议程汇总 《近匠》Fancy3D:亿级游戏背后的轻量级引擎 假如李小龙是程序员…… 图像缩略图的问题 一个本人认为很难的问题 为什么在datagrid中修改数据时不会引起RowChanging或ColumnChanging事件? 为什么我调用XXXX函数时,在函数体内若更改了两条记录然后分别提交,为什么只有一条记录提交。 大家好,有谁没看过《一个都不能少》? 有点蒙呀……请大家帮我! jdbc中如何返回所执行的sql语句的结果 最近在找个网站管理系统,各位能否给个建议100分侯 标准库和标准模版库,和库函数什么关系啊 我是这样调用DLL的。 java里面有没有象MSDN一样的帮助系统啊??? 哪里可以下载库函数的中文资料啊 在一个框架页面上,如何进行打印? 大家好啊,来帮帮忙做这道题,小妹谢谢啦!:) delphi的报表问题 (急急急,线上等待) ora8i的安装问题,急! go命令为什么没效果 Query的设置? 回答过菜鸟级问题-我做的FLASH动画在有些机器上无法显示的请接分。再次感谢 给点意见!!! 求救,如何限制用户下载!!!内有详细说明.分不够可以在给!!! 請問怎樣用代碼得到一個dw控件的 dw 對象并messagebox出來? ★★★算法讨论:如何识别红眼和消除运动模糊★★★ 兄弟们,帮我啊!~ 紧急求助:请问如何在MFC程序中调用自己编写的C++类 请问谁有组卷的算法,急用,多谢! 急!!!关于FileSystemObject问题,在线等 求面积 鼠标在视图和用非模式对话框交互绘图 在.login中怎么设置汉字的位数? oracle9i的安装文件都有什么?望高之!急! 如何用window.open弹出一个屏幕居中的窗口? 大侠们,在线求word200文件密码破解,急!!!!!!!!!!! ccnet(苦海放歌) tdl982324(石井坚) ( ) wanghr100(灰豆宝宝.net) possible_Y(◎)(◎)←(这是眼镜,不要想歪了)请接分 ccnet(苦海放歌)yaoxuefeng(锋雨者)brainf(后街)请接分 配置节的type的第二个参数的含义 报表问题。 最近在找个网站管理系统,各位能否给个建议 windows2000的奇怪问题 关于如何自定义组件问题 有关windows 98自动重起问题。 ListBox问题 VFP8.0中的数组问题,高手和用过的人来看看! 数据库的移植问题? 重新开机时常常变成"大图标",怎样设置使WIN2K所有磁盘(c,d,e盘)上的所有文件夹和文件以"列表"显示,就是让"查看"->"列表"固定? oracle9i的安装文件都有什么?望高之!急! 哪位有没有SCJP培训的录音或其他教学的好东西阿 MSComm控件在设计时运行没问题,但打包后装到别的机子老是出现“没有注册类”,求救? delphi 做的数据库应用程序如何移植?? copysign怎么用啊? 如何将一个网页的所有链接均自动加为绝对链接? 行路难 中心思想中心思想. 老婆怀孕5个月梦见抓鱼,抓了很多长着胡子的大黑鱼,最后跑了很多,只剩下一条了.这预示着什么呀有知道的 AMR是什么?它是一种编码方式吗? 七里香是不是只有八句啊席慕容的 Ich bin nicht qualifiziert 是什么意思啊?RT我在翻译器上查到的都是“我没有资格”啊·····到底是不是呢?是不是出自哪本小说或剧本呢? 为什么对pcm buf进行amr编码出现掉帧? 瞬间电流方向是怎样的?物理学中的瞬间电流方向一般都是怎样的? 水浒传中因高俅斥退而流落东京城的人是谁 CUIDATE MUCHO ESPERO HABLAR PRONTO CONTIGO西班牙语翻译成中文什么意思 电流是怎样形成的,方向如何方向呢?电子在电源中由负极向正级移动,那电流方向与电子运动方向相同吗? 有喜欢做爱戴套的男人吗他说会痛,为什么呢?真的会痛吗?我怀疑他是不是在找借口. 红楼梦中看不懂的语句……你证我证,心证意证……你证我证,心证意证,是无有证,斯可云证,无可云证,是立足境.无我原非你,从他不解伊,肆行无碍凭来去,茫茫着甚悲愁喜,纷纷说甚亲疏密,从前 感动中国刘伟一件事作文 爱戴的意思 和爱护的意思 这句话(红楼梦中的)有什么含义?好一似食鸟投林,落了片白茫茫大地真干净! 行路难这首诗的主旨是什么?简短点的!长的不要! 冠鱼狗是保护动物吗 hard什么意思 英语翻译求求了, 什么动物有冠 Hard的意思 电路中瞬间会产生大电压吗 头上带冠的动物是什么 用“近来我也注意到···可是总···原因似乎是···不够···又···尚···”造句 近现代中国人民为反抗外敌入侵进行了怎样的斗争,取得了怎样的成就,留下的历史启示是什么 读了富兰克林后的读后感100字 hard的中文意思 诗歌之美,抗震救灾,万众一心,众志成城,任选一组做藏头诗,密切抗震救灾,共十六个,任选一组. 西班牙语cuantos son?Cuantos son y cuantos anos tienen?是“你家有几口人 他们多少岁”?如果是“你家”,为什么不用sois? 如何保护翠鸟 抗震救灾感恩作文 题目为不畏艰难,百折不挠 西班牙语中le esta que su con 怎么用? 数据元素的最小单位是什么? She wonders,"What is 6 minus " 改为宾语从句 She wonders_____ 6 minus 6_____. son sau 是西班牙语吗 数据的最小单位 损坏公物的英文怎么说?比如损坏课桌,椅子什么的.快, 已知M(1,0)、N(-1,0),点P为直线2x-y-1=0上的动点.求PM^2+PN^2的最小值,及取最小值时点P的坐标 董仲舒的主要观点是什么? 七里香怎么样 初二数学题,跪求大神解决 《田单列传》原文及翻译 《七里香》 如图,反比例函数y=k/2x和正比例函数y=1/2x的图像相交与A、B两点,其中点A的横坐标为2.问:在x轴上是否存在点P,使△BOP为等腰三角形?若存在,求出符合条件的点P的坐标:若不存在,请说明理由 谁帮我用来日方长造一个句子 倒车的时候是车尾往哪边去了,方向盘就往哪边打吗,如果是的话,请问为什么吖 两小儿辩日孔子不能判断谁对谁错两个小孩是什么态度 田单列传译文 倒车入库过程中,如果车尾左边快撞到左边秆子,该向哪边打方向盘? 初二数学 急求答案!必采纳!(第6题的解题过程最好写在纸上,谢谢) 仿写句子;若非青春苦短,谁会想来日方长.句式一样“若非青春.谁会. ” - 最好多几个. 将what did she tell you?改成宾语从句主句为he wondered teachers got so angry with them as to fall them in front of the class是什么 请用(来日方长)造两个句子吧. 请问法治与德治的区别? 史记高祖本纪读后感 因为什么所以什么怎么造句 七里香 tomatoes are known as love apples and those who eat them will fall in love.西红柿作为爱的苹果和吃掉它们落进爱河的人们是被知道的.我翻译的正确吗?但感觉怪怪的 用"给你以...给你以...给你以...给你以...给你以...没有理由"造句 国际新闻早报:美国务卿将访沙特修补关美媒:日本大幅升级预警机应对中俄海南乐东退休局长房屋夜半遭强拆 警方初三女生因学习压力大 屡次到超市偷零宁波红光集团等6企业涉税违法被罚23浙江省省级28个部门三公经费(附表)海南乐东退休局长房屋夜半遭强拆 警方思鑫坊曾是杭城近代建筑代表 如今成无新消法引入\"举证倒置\" 经营者需前3季度国内渔业产值达5362亿元 上海自贸试验区营造“宽进严管”的营商谷歌雅虎数据遭美国国安局窃取 美媒称菲律宾议员“港人生命值钱说”激起香港俄罗斯核武部队大规模战略演习 抗衡北台湾花莲发生6.7级地震 杭州等多地医生举报官员公款出游 出门戴钢盔执擀美国务卿将访欧洲中东八国 重申与沙特俄律师称斯诺登在俄找到工作 新工作与\"免费\"医疗让俄罗斯进退两难 仅多航班遭炸弹威胁嫌疑人落网 因向父亲万圣节网友微博晒疯狂造型 惊现金正恩四年前虐打女同学 七女生被警方追捕陕西官方回应“坐牢男子房屋被卖”:抵财经数字彩色iPad来了五小时让客户意想不到的理赔速度冒充外企经理找工程 诈骗50万元一辆30年前夜大同学盼重聚人难齐“活北京”侯仁之先生昨去世出租车严重违章首次公布黑名单财经声音喜隆多受灾商户将获赔偿中国银行北京市分行开展反假货币和贴心爵士,很美青年为城市注入梦想和创造力地铁遇故障 最快9分钟内发信息平安银行前三季净赚116.96亿元网上查本人信用 当天不出结果三季度住宅地价14城市环比上涨节能车新一轮补贴政策提高门槛万向电动车制造资质获批非法渣土场入口城管增设岗亭
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘