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

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

Web设计师必备的10款最佳排版工具 诺基亚CEO谈平板计划 Android为候选系统 244亿美元!戴尔公司正式完成私有化 对抗苹果 Facebook或推Find My Friends应用 前谷歌工程团队负责人:如何打造一个完美的产品 好消息!Google Drive可存储共享JavaScript等网站 Android Rivers:用Kotlin语言写出的新闻应用 辞旧迎新 老牌游戏开发商的移动进化之路 iSuppli:硬盘市场持续萎缩 大数据应用成重要市场 全球最大校园Hackathon:失败后,你能学到什么? 走进Evasi0n,越狱黑客如何拿到iOS权限 提升服务扩展性和冗余的八个编码方向 分析数据预测未来?数据挖掘绝不是大公司的专利 揭秘LinkedIn数据科学家如何工作 为什么响应式设计对SEO有好处? SpaceX团队:想登陆火星吗?学好C++吧 可穿戴设备:越来越清晰的苹果iWatch 苹果设计师:开发者们的应用图标设计对了吗? AWS兴起之路:尚未成功 仍需努力 John Carmack:我们为什么不开发Linux游戏 最具创新力公司50强:耐克居首 Web如何成为另一个应用商店 Adobe发布Photoshop1.0.1源代码 大数据时代正在到来 微软CFO:我们的移动战略没有“B计划” TIOBE 2013年2月编程语言排行榜:历经十月Java重返第一 为让用户亲身体验产品 谷歌年底或开零售商店 谷歌推Chrome API支持HTML5实现本地离线数据存储与同步 Ubuntu开发者预览版将于月底开放下载 因Java漏洞,Facebook遭受恶意软件攻击但未泄密 HTML5预测 取代本地App将成为可能 ?寻找图书~? 为什么运行时正常的程序,编译成可执行文件后运行过程中出错... 怎样填充按钮客户区? 寻找图书~?? 请问如果数据量很大,比如大型企业的即时采集数据,应该用什么数据库系统处理呢?oracle,sysbase,db2,sqlserver还是cobol?? 这么简单的问题,难道就没有人能帮我了吗?!太遗憾了! 敬一杯“情人醉”给MM_mimi(人淡如菊),别人不要进来呀! 谁有过同样的遭遇??? 长整数除法的算法?? 关于Java Plug-in和Applet的一个问题 请求推荐有关SDK的好书!!!!!!! 我受不了了 个人主页链接如何让鼠标变成手形?谢谢! 老话题:三层结构中blob字段的存取出问题了? run-time类是怎么回事? 当多个程序对同一个文件进行读写操作,如何防止同时写入造成混乱? 求银行家算法的c程序! 请问W2K下面鼠标阴影的效果是用哪个API实现的? 我提议有编程经验的朋友们,一起来研究一种真正符合我们实际开发工作的模板 我用上kylix了!!!!!!! 请教,关于NT域用户的问题!NT账号,怎么设定唯一性呀?比如有aa的用户,我用aa登陆后,别人不能用aa同时登陆了?应该在那儿设置呀? Mfm1992?是个什么东西呀! 如何在informix/esql c中使用大事物? 如何保存收下來的email呢???!!!!! 关于一个网站建设的问题,望高手指点。 求救;如何建立一个登陆页面? 谁能给出一个远程访问互联网ACCESS数据库的经典代码?有28分送上! 怎样将-个十六进制数转换为十进制? 如何将java程序编译成dll文件 cannot focus a disabled or invisible window 一表我想通过文本框来增加记录,为何不能发送到表中,不要告诉我是没有post的原因。 奇怪,borland的开发能力这么强,为什么几乎没有一个象office那样流行的应用软件呢?如果它的应用软件很多,就不会象现在这样穷了吧? Delphi 数据库不如Power Builder 吗? 请问怎么安装新的控件? B样条曲线:如何由经过点反算控制点? Berzer曲线:如何由经过点反算控制点? 关于activereport的字符集问题 有没有计算曲线长度和交点的好方法? Install Shield For VC6怎么用???????????????????? ODBC数据库 ****有没有计算曲线长度和交点的好方法? ****Berzer曲线:如何由经过点反算控制点? ****B样条曲线:如何由经过点反算控制点? 有谁知道"边缘频率"、"中间频率"、"双频分析" 请问oicq登陆以后的住界面的我的蚝油dock是如何实现的,是什么vcl,或者自己写,如何实现?请指点! pfc的好处? 一个伪程序员的自白 不但给分,还给¥ 散分给喝过酒兄弟姐妹们(今天心情很不好,我深爱的人不爱我,苦痛,郁闷,多喝了几坛,请ghj1976、3B、roani谅解,最后一坛酒,感谢水园的朋友们) 怎样准备高程考试,还有三个月! 人生自古谁无错 -- 对青年时代的林仙儿心理活动的分析 1.一批零件,甲乙两人合做8天可以完成,甲独做12天可以完成.甲乙合做6天后,甲因事离开,乙继续做,还需几天做完?2.甲乙两车同时从A、B两城相向而行,前2小时甲行了全程的1/4,乙行了全程的1/5,两 北师大版 16页第1,2,题 八年级下册数学书复习题16的8~12题(过程)人教版的 要用解比例的方法做,在一幅比例尺是1:2000000的地图上,量得甲,乙两个城市之间高速公路的距离是5.5cm.在另一幅比例尺是1:5000000的地图上,这条公路的图上距离是多少?学校举行团体体操表演, 八年级下册数学课本习题答案数学课本p90面的练习1、2、3p120面的练习2、9、p90习题的4、5、7、9、10、11、14、拜托了, \ 六年级下册数学题,就一道!数与代数这部分的题1.什么是十进制计数法?你还能说出那些计数单位?2.怎样比较两个数的大小?3.分数的基本性质和小数的基本性质有什么关系?4.小数点移动位置,小 鲁教版八年级下册数学课本习题答案 六年级下册数学44页第一题怎么写? 一道六年级下册数学题走50米的距离.第一次走79步,第二次走80步,第三次走81步.丁明走一步的平均长度是多少米? P104习题19.2 第十四题 复习题19 P122 第十二至十五题~ 六年级上册数学书100页答案 在一个长五分米、宽四分米、高六分米的鱼缸里,放入一个底面积为十二平方分米的小圆柱(完全浸没),水面上升了二分米,这个小圆柱的高是多少分米? 八年级下册数学课本习题19.我们这章学的是 特殊的平行四边形第4题:在Rt三角形ABC中,∠C=90° ,AB=2AC,求∠A,∠B的度数!第9题:在Rt三角形ABC中,∠ABC=90°,CD⊥AB与点D,∠ACD=3∠BCD,点E 人教版六年级下册数学课本100页答案我只要第7题式子.在长12.4,宽7.2的长方形纸中,剪半径是1厘米的圆,能剪几个?结果要是28,求式子. 六年级下册的一道数学题比例问题:买A、B两种不同的书籍共200本,已知A种书每本4元,B种书每本6元.买来后发现两种书所用的钱数一样多,求A、B两种书各买了多少本? 八年级上册人教版数学课本习题15.1第6、10、11题答案 1:什么是十进制计数法?你能说出哪些计数单位?2:怎样比较两个数的大小?3:分数的基本性质和小数的基本性质有什么关系?4:小数点移动位置,小数大小会发生什么变化?5:因数、倍数、质 数学书六下102页18道希望当天回答 人教版八年级上册数学课本习题12.1第三题答案 六年级下册数学书第77页答案写详细 六年级数学书下第102页第13题怎么做? 义务教育课程标准实验教科书八年级数学下册第16章 分式 第九页 7页第七.求 苏教版的 六年级下册数学书答案86页2.3.4.5题p86-2解方程X-0.25=1/4 X/4=30% 4+0.7X=102 2/3X+1/2X=42P86-3一种树苗实验成活率是98%,为了保证成活380棵,至少要种多少棵树苗?p86-4绿化队为一个居民 八年级下华东师大版数学课本第十七章分式的全部习题答案 有的话追加到100 练习题 及习题 苏教版的六年级数学书上册的第二页第7题(2)小题 人教版八下数学书上的复习题17答案 几道分式计算怎么做 试卷的题 带图顺便讲解下, 小学数学六年级上册练习与测试12-15页答案 第几页第级题写清楚 P120到P122习题的全部答案、(5、8、9、14、15题做完了、不需要答案) 八下数学第三章 分式练习题1、当x等于什么数时,下列分式值为0?(x+2)(x+3)————— ←这是分数线x^2-42、已知x/2=y/3=z/1/2,则(x+3y-z)/(2x-y+z)的值是______3、如果a+1/a=3,那么分式a^2/a^4+a^2+1=_____4、化 小学数学六年级上册练习与测试111页到114页答案 八年级下册数学书复习题19答案急需呀,请你们帮帮忙吧 已知a+b+c≠0,(2a+b)/c=(2b+c)/a=(2c+a)/b=k,求k的值.请详解公式的含义等.已经知道答案是3,利用的是三个分式的分子相加比上分母相加.但是这个利用的哪个公式呢?什么样的定义,谁提出来的公式定义, 练习与测试小学数学6年级上册第12页第2题怎么解答? 数学八年级下册书复习题18的答案 新人教版八年级数学上册课本习题11. 一部分也可以。1.男生人数是女生的1.2倍。如果女生有x人,男生和女生一共有()人,男生比女生多()人。2.水果批发市场运来苹果3.5吨,运来的梨比苹果的2倍多0.1吨,运来的梨有()吨。3. 人教版 还有d62666 - 四级 2010-4-16 22:57 感谢语或评论:您还可以输入字输入内容已经达到长度限制可以输入49字 如果您对这一回答非常满意,您可以选择给回答者额外的奖励:0 5 10 15 20 30 40 50分 八年级上册数学课本习题11.2答案人教版的,急! 小学数学练习与测试6年级上册期中测试答案也就是43、44、45页答案,应用题算式尽量列出来好的给分!!! 急急急急急急急急急急急急急急急急急急急急急急急急急急急急急急急急急急急 八年级下册数学复习题19答案.告诉我答案吧 八年级下册数学教科书练习题16.3答案 急 求高手做完形填空We just don't treat each other 1. as thatlike thatthe way we used to. I suppose we don't have the time, 2. orbuthowever our lives are too difficult or something. Maybe the city 3. I liveI live inwhere I live in is too big. 人教版八年级下册数学习题16.2的第1题和第7题答案. 八年级上册数学课本44到45页练习答案..谁知道请告诉我一下.谢谢 初三完形填空题There are two kinds of music in the world-one is written down and the other is not.many people earn their living ____music.they write songs for pop stars and music for films and TV plays.they usually write exact institutions on _ 1.一个圆柱形水池,它的内直径是8米,深2.5米,池上装有4个同样的进水管,每个进水管每小时可以注入水7.85立方米,四管齐开几小时可以住满水池?2.一个圆锥形沙堆,底面直径是4米,高是1.5米,每立 八年级下册人教版数学91页第9题怎么做? 北师大版八年级下册数学课本 19页第2题如图,在正方形ABCD中,AB等于4 AF=2 DF=1 ,图中有几个直角三角形?你是如何判断的?与同伴交流 老师让这样,我看不懂有点~1:be的平方=4方+2方=202:ef平方3 一堆煤,原计划每天四吨,可以烧150天,改改进炉灶后,实际每天烧2.4吨,这吨煤实际可以烧多少吨?在一幅比例尺为1:30000的设计图上量的一段路长7厘米,现在把修这段路的路程按4:3分配给甲乙两个 人教版八年级下数学书习题19. 八年级下册人教版数学书第36页第3题答案 加工一批零件,甲独做七天完成,乙独做九天完成,二人共同加工,期间甲替乙加工了25个,这样完成任务时,甲加工了这批零件的八分之五,甲原来应加工多少零件?师徒二人加工机器零件,徒弟8小时 八年级数学下册91页习题19.1第四 五 六 七 10题 【1】5700003420读作【 】,省略亿后面的尾数约是【 】.【2】143645是一个【 】位数,最高位是【 】,3在【 】位上,十万位上是【 】.【3】3003300这个数从左边数第一个3在【 】位上;第三个3在【 】 苏教版八年级上数学书第111页19题答案 2大题的地4小题第四大题的第二小题有的谢谢
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn