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

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

Windows Server 2012中的动态负载均衡 Google等互联网公司将成为创新中心? 在Hadoop的战争中 MapR获新一轮3000万美元融资 初创公司DNNresearch:谷歌科技帝国的新“基石” 创业了,我们该如何起名? 乐视网联手富士康推新盒子C1S “0+290元”新浪微博发售 吸引开发者:只要开发新应用 微软便奖100美元 PaintCode - 将矢量图转化为Objective-C代码的开发神器 苹果发布iOS 6.1.3 封杀evasi0n越狱所用漏洞 [API快讯] Google开放实时协作API 58同城开源轻量级Java Web框架 Argo 初创公司AppNeta:4轮融资,4780万美元 MongoDB释放2.4版本:692更新及8大得意之作 十年6亿美元!Amazon云计算喜获CIA大单! 国人当自强:HTML5+联盟首次筹备会成功举行 开源框架TAAE发布 快速打造iOS音频应用 如何学会600多种编程语言 “第五届中国云计算大会”将于2013年6月5-7日在京召开 Ridiculous Fishing:游戏遭遇山寨如何一雪前耻 老游戏的今天:Doodle Jump每周进账2万美元 剑指Evernote 谷歌正式推出Google Keep 开源的JS MVC框架 Backbone.js 1.0发布 前Facebook资深员工王淮给技术创业团队的十点建议 微软发布Windows Embedded 8系列操作系统 Google Play 4.0抢先体验 中国 vs. 非洲:移动医疗的前世今生 Java大数据框架初创企业Concurrent获400万美元融资 基于Edge Animate开发CSS3 Animations 后端服务商Firebase发布全新iOS SDK [爆料]百度云或在秘密打造实时移动Web App开发框架 打造最佳开发团队的几点建议 JAVA手机的效率问题 满分求助,网络传输碰到问题 做过通过wavecom gprs模块用AT指令发中文短信的同志帮帮忙 请问如何在网关处获取用户上网的信息? 为什么操作word出现重载“SaveAs"方法未获取16参数 HttpURLConnection中如何得到http://www.sina.com.cn后面的缺省文件名 小问题:关于MAC地址 在WINDOWS2000 ,开始菜单中的 "运行(RUN)" 在系统中是什么样的文件???? 急!! OleContainer 问题:为什么用olecontainer打开word文档速度非常慢,有没有解决的办法,多谢! 请问哪里有ASP+ACCESS 的邮件列表代表下载? dbgrid选中的问题?在线及等!!!!! 各地软件工程学院的学生都写写自己在学校学习的经历和体会! adobeacrobat 耗尽内存 如何解决 ! 新手求助:ADOQUERY控件的问题 文件与下拉列表 真搞不懂 关于办公系统及美术设计问题 API 局部放大函数 版主为什么删除我的帖子? 浏览器对象模型与文档模板(DOM)有什么不同和联系? 在datalist或datagrid中绑定的checkbox如何控制呢? 我的xp系统中ABC输入法,词组记忆功能始终不能用,请问怎么解决。 如何编程打开一些特殊窗口?如网上邻居,我的电脑属性,设备管理器 请教又一ShellListView和ShellTreeView中的问题?还望大家多多指教! 不懂!不懂!不懂!关于文档和视图。 将照片从数据库中取出,并显示到Image控件中,若当中不用文件作为临时存储行不行?? 弹出菜单怎么做 关于存储过程执行的正误判断及数据回滚问题。 关于LPCWSTR的问题? TChart的Canvas写上字后,最小化再最大化后字就没了, [2]请大家无论如何都要帮个忙,oralce存储过程性能问题,高手请进!!! 请问如何直接取得其它计算机的系统时间 如何使的 Form2 在 Form1 的 Top ? 怎样在pagecontrol的一个tabsheet中的页面加一个上下的滚动条 急!将textbox控件放入table中后无法通过controls获得textbox的id? 大家说说看!! 初来乍到,向各位学习,请大家指点一下,介绍些好的C#的WEB源码示例。 请大家帮我看看! weblogic发布servlet的问题 Fatal Error 的问题 哪里有和手机一样的笔划输入法下载. 哥哥们,问题还没有搞定,帮帮忙吧,很急呀,分不够可以加分 XDevClub.Com[X时代开发俱乐部]欢迎大家一起来讨论,来者有分 求救!!我的vc缺少一个 psapi.h 头文件!!!急用,帮忙粘贴一下,当场给分!!! 怎样更改CListCtrl中内嵌的CHeadCtrl控件的风格? 有关TChart的问题? 我怎样才能获得插入语句的ID值? 求帮助数组的问题 给分100 紧急求救 在DELPHI里执行ORACLE存储过程出错??? 当按照书名查询时,系统提示没有该索引:no index with 'bookname' field.何故 盐类是否都可以和酸反应, 请总结一下这类题规律 各位兄弟姐妹,有谁懂化学的啊!我想问一下乙二醇单丁醚与乙醇的溶油性谁更强一些啊! 化学中哪些是盐类哪些是碱类 用铅灌子弹头是为了吗打得远吗?为什么?为什么不是增大杀伤力呢? 无痛人流全过程多久?的时候去医院做人流、所以我想问一下、从我到医院到做完回家一共大概多长时间?请做过的人告诉我一声!谢谢、还有、不打消炎针、吃消炎药行么? 化学里的酸类,碱类,盐类怎么区分拜托各位了 3Q化学里的酸类,碱类,盐类怎么区分, 铝合金导电氧化处理表面附着力不好因为什么 做无痛人流的具体过程是怎么样的? 氯气会与无水乙醇反应或溶于无水乙醇吗? 我要提问;盐类物质一定含有金属阳离子吗? 如果没有大气连通器会怎样 乙醇易溶于水,甲醚不溶于水?甲醚不溶于水? 盐类物质的组成结构如何 有哪些里用大气压强工作,那些利用连通器工作?不用介绍,只要写名字,再加一句为什么就可以 1质量为20g的子弹,以300m/s的速度水平射入厚度是10mm的钢板,射穿后的速度是100m子弹受到的平均阻力是多大? 过程 C,O,Ca这三种元素组成属于盐类的物质 不锈钢201高铜,高镍,为什么近海边容易生锈? 乳胶枕的作用是什么?想先知道下. 所有的氨盐都能与NaOH的反应么?方程式都是什么? 如何判断手性原子周围基团的优先级别?比如,手性碳上连接着乙烯基,异丙基,异丁基的时候,是乙烯基大于异丁基还是异丁基大于乙烯基,为什么?不是异丁基,是叔丁基 乳胶枕有什么作用?想先试试. 所有的氨盐都能与氢氧化钠反应么?如果反应,方程式是什么? 化学一道盐类水解题同浓度的下列电解质溶液:1,碳酸钠 2,碳酸氢钠 3,偏铝酸钠 4,醋酸钠以上四种溶解的PH由大到小依次是?要解析 三氧化二铁与氯化铵的反应中,当生成2.24L氯气(标准状况下)时,发生转移的电子数目是多少? 1:求铁离子常温下在溶液中能存在的PH值范围.2:求亚铁离子常温下在溶液中能存在的PH值范围.麻烦...1:求铁离子常温下在溶液中能存在的PH值范围.2:求亚铁离子常温下在溶液中能存在的PH值范围 旋光性是否由手性基团决定? 为什么七彩圆盘转起来就能看见白光?没一楼回答的那么简单~貌似与速度\视觉有关的 电泳的巴比妥酸缓冲液可以用多少次 25摄氏度时,将一定浓度的盐酸和一定浓度的氨水按2:1的体积比混合.若混合液中铵根离子浓度等于氯离子浓度则溶液的PH值是大于还是等于或小于7 影响碳的核磁共振谱和质子核磁共振谱化学位移因素 将黄铁矿的煅烧产物四氧化三铁溶于硫酸后加入铁粉 可列备硫酸铁 酸容过程中要保持 足够 酸性原因 是什么呢 那个高手帮我下 已知乙酸(HA)的酸性比甲酸(HB)弱,在物质的量浓度均为0.1mol/L的NaA和NaB混合溶液中,下列排序正确的是A.c(OH-)>c(HA)>c(HB)>C(H+)B.c(OH-)>c(A-)>c(B-)>c(H+)C.c(OH-)>c(B-)>c(A-)>c(H+)D.c(OH-)>c(HB)>c(HA) 我生产的硅酸钠液体氯离子含量太高1000多怎么回事!怎么降低它的含量? 要除去FeSO4溶液中少量的H2SO4,可加入的物质是 1.铁粉 2.四氧化三铁要除去FeSO4溶液中少量的H2SO4,可加入的物质是 1.铁粉 2.四氧化三铁 3.氧化铁 4.氧化亚铁 5.氢氧化亚铁 D】 一道盐类水解题[例6] 将0.2mol/L CH3COOK与0.1mol/L盐酸等体积混合后,溶液中下列微粒的物质的量浓度的关系正确的是:( )A.c(CH3COO-)=c(Cl-)=c(H+)>c(CH3COOH)B.c(CH3COO-)= c(Cl-) pm2.5口罩能起过滤作用吗?还是没用呢? 为什么氢氧化钠不和氨反应 润滑油会腐蚀皮肤吗 无菌注射器大小0. 哪些反应生成盐类物质 脚被汽车机油腐蚀怎么办 氢氧化铜能不能与氯气反应?如果能,氯离子的化合价是多少,反应方程式是什莫? 用什么种类的物质(什么什么盐类)和浓硫酸制取二氧化硫 一个封闭的长方体容器,里面装有水,容器的长、宽、高分别是10cm、10cm、15ccm王华同学不小心把容器碰倒了现在水的高度是多少?(没交带水的高度) 常温下PH=7,铁离子在溶液中为什么不能存在?那亚铁离子呢?它能存在吗? 钢芯弹,铅芯弹,普通弹有什么区别呢? 如果把铅笔中铅心的末放到香烟中的烟草点燃生成什么最好有方程式,由于小弟是新手,付不起金币,所以只能说谢谢了! 发泡机,发泡机特点,发泡机事项 一个长50cm,宽40cm的长方形容器里盛有水,吧一个底面半径是10cm,高是9cm 把一块磷酸二氢钾晶体放到磷酸二氢钾溶液经过培养晶体会变大吗? 发泡机技术,发泡机产量,发泡机操作 怎样判断物质是否属于盐类初三科学,简明扼要啊 我正预习呢急啊 磷酸二氢钾晶体已用于我国研制的巨型激光器“神光二号”中.磷酸二氢钾中氧元素的质量分数多少? 化学中如何区别盐类和碱和酸,主要说明下怎样的化合物才是盐类? 哪些物质属于盐类(化学) 英语翻译乙烯醋酸乙烯酯改性砂浆 的英文翻译, 亚硫酸盐都能与酸反应吗?还有那些盐类与酸反应 三不原则是什么?节约原则?处理三不原则?3Q 光合作用主要吸收蓝紫光,那为什么在影响光合作用的因素中,光照的光质是白光大于蓝紫光? 宗庆后语出惊人:中国不能再造房子了李克强在中南海紫光阁会见东盟十国经贸捅死医生的连恩青烦躁时砸东西打母亲 亚冠决赛首回合恒大2-2首尔 穆里奇美国“窃听门”持续发酵 欧洲各国一致德国品牌专家:中国品牌升级要品质更要浙江省委书记夏宝龙:希望天下浙商争做亚洲食学国际论坛登陆绍兴 中国大厨展杭州女装与国际女装相遇 传统丝绸碰撞淘宝店家支付宝“被贷款” 阿里服务热伊朗处死16名“恐怖分子”墨西哥革命制度党主席:墨中两国双边关阿富汗军事基地发生“内斗”致一死一伤贺一诚:浙商又迎新一轮挑战、改革和创阿里巴巴马云:金融业需要外行人的“搅美国“窃听门”持续发酵 欧洲各国一致2000余浙商回家共襄创业创新 新一中国科学家成功研发H7N9禽流感病毒为西湖“挑刺”成常态 文明出游初显成美国务卿克里居所遭小偷光顾 470万中国周边外交:推进大战略郑州多市民电话被来电标记 职业单位一『artnet | 动态』伦敦V&A男子掐死女友抛尸井底18年\"爸爸,我为什么要上学?”爸爸最接低迷期下如何判断平台安全期?河南加速申办自贸区 2股独占鳌头哈爸荐书|《欧美经典儿歌<唱歌啦!>重磅:周五再现大型投资大机会!惊天暴LG G4昨日发布 6个方面还可以做张爱玲|经得起风雨,却经不起平凡郑州全面普及校园足球 每周开设一节足“人体旗帜”热潮风靡英美网络.韩寒:女儿,这里会长出一朵花每周奖励我来拿 挑战模式前38关通关中国情侣沉迷机场免税购物 致韩国航班10月号Lens杂志 温暖上市丈夫猝死妻子跪地遮阳 网友:太感人预产期已过 凯特王妃挺大肚驾车出行Lens活动 | “故乡”主题的墨卡唐拉雅秀梁耕耀:梦想照进现实“人体旗帜”热潮风靡英美网络(组图)
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘