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

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

苹果CEO宣布更改保修政策 并向中国用户道歉 拒绝使用现有Web组件的6个愚蠢理由 Github宣布支持SVN方式访问 iPad,正在改变什么? Go Mobile:行业大牛谈行业应用开发 亚马逊Cloud Drive新增文件同步功能 对抗Dropbox 35万奖金发放,BlackBerry 10大赛奖项揭晓 超越Google Apps:排行榜前10的相关云应用 荣耀终将消散 全球第一台千万亿次级超级计算机退役 谷歌已推免费Android和iPhone版Quickoffice,微软你呢? 用于响应式设计的9个CSS技巧 微软Surface Pro正式登陆中国市场 售价6588元起 岳雷:Windows Server 2012虚拟化性能提升巨大 陈健:Windows Server 2012让企业轻松管理IT 智能手机:革命已经波及到阴间 兄贵草泥马:重口味单机移动游戏为什么能火? 最炫HTML5框架Famo.us 将免费面向开发者 MySQL到NoSQL:数据的重思和查询方式的转换 程序员心髓:移动应用API设计10大技巧 Netflix公布个性化和推荐系统架构,3种类型作业通实时 从SendCloud到搜狐云 扎克伯格的败笔?Facebook Home可能无家可归 走进eico design,仰视设计师 乔布斯顾问承认苹果的命名糟透了 罗永浩:一百万年薪!招聘软件研发总监 开源的:helios移动应用后端服务框架 IE11将支持WebGL 或将OpenGL映射到DirectX 基于云端的3D渲染和协作平台Lagoa:仅需一个浏览器 大数据提速,IBM 推面向Hadoop的PureData大数据机 游戏开发者的盛宴:2013 CocoaChina春季开发者大会强势启动 开放还是关闭API?CIO做决策前应考虑的六个建议 ADOtable 不支持 FindKey, 请教: 应该如何解决记录定位? 火急请教个“重新验证组织单元”问题! 想做一个报表但设置DataEnvironment的连接失败,不知为何错? 请教!linux下将.h和.c文件编译成动态连接库!!! 你真的懂SQL语句的编写吗?快来,我给你分 重载与模板的问题 出租魏公村西口两居之一 不知哪有好一点的聊天室,各位大虾请推荐几个小弟几个!!!! jsp里面有类似于asp的response.end语法吗? 求教各位大虾,这样的数据库程序如何实现。急切中。。。。。 vb中有没有像CommonDialog选文件的定位文件夹的控件? 怎么一次性加入多个子目录中的CPP文件到VC工程中 关于pos系统数据同步传输,欢迎大家进入讨论! 怎么得到本机的ip地址? 关于package 的问题 关于打开网页的问题 怎么在文本文件中的两行中添加一行?怎么删除一行? “split”分割问题 请教:怎么配置Tomcat可以禁止访问目录 ,比如访问 http://127.0.0.1/test 不会出现文件列表? 请问怎样在对话框窗口中的Edit控件里按下Enter键后不要退出 有关dremveaver ultradev 的动态网页制作问题, 请教高手。。 在delphi中如何实现全屏?? 100分。请大虾帮忙搞定 谁有存储过程的学习资料? 怎样判断计算机上有没有装madc数据库连接,? 项目中的一个问题,急待解决,请帮忙,谢谢 无聊散分 鼠标在图片上移动所发生的事件 一个怪问题:ping得通却NetTerm不上? JBuilder中如何拖动控件到面板,位置放置的问题。(高手指教) 请问在那里有csdn helper 下载 是否可以给表的字段编号? 我想让程序启动该怎么做 这样一个项目计划怎么写? vb.net 附值问题,请教高人 一次檢索出DataSet數據存至Session還是每次DataGrid翻頁時檢索為好? 一个程序不停的写一个文件,越来越大。怎样把以前的数据拷出来然后把他们从文件里删去? 会自动关机的电脑 怎样在listCTRL中加入彩色字?Waiting Online 请问到哪里去找w2k下编译需要的头文件和库文件呀 请问各位哪里有UNIX平台或LINUX平台的POWERBUILDER下载? 吐血给分!小问题,简单的很! 请教有关ServerSocket的问题 请问到哪里去找w2k下编译需要的头文件和库文件呀 想玩网络游戏,各位给推荐一下,谢了先!!! 请各位在这里留下已知的并已解决的BCB的BUG问题,也好让大家少走弯路了,谢谢! CMOS的问题,我是XP系统! 看看流星花园的搞笑版吧(转载) Word 和 Excel 启动不了 问几个菜鸟问题关于数组的。请大家帮忙! 关于用asp.net代码实现文件上传的问题!急! 英文我爱你,丽丽简写怎么写 湖心亭看雪的文眼是什么,为什么 不要旅游的! 关于和谐的作文(小学六年级500字) 翻译湖心亭看雪的文眼是什么 暑假里的一次旅行作文 求电影地球人乘飞机去火星遇到了火星人,没想到火星人非常害怕地球人前几年拍一个动画片(也算是电影吧),讲地球人第一次登上火星,然后那个人把国旗插上去的时候却发现火星上面有房 湖心亭看雪的文眼是? 塞翁失马所阐明的是福祸可以相互转换的道理,用现在的话来说是什么 一地球人去火星旅游见到火星人,火星人说什么? 幼时记趣中描写心理的句子 求一篇600字作文,主题是 明礼知耻,崇德向善. 与寒假有关的英语作文,70词 要带汉语 (幼时记趣)描写热爱生活的是哪句 明礼知耻,崇德向善手抄报内容应该写哪些 让我们在从今天开始早睡英语怎么说急!!!!!! 自己的花是给别人看的 自己的花为什么要给别人看(根据课文回答) 关于开展"明礼知耻·崇德向善在校园"之我文明了吗 写一篇作文(600字左右 王阿姨骑自行车3分之2小时行了8千米平均每小时行多少千米 小学五年级下册第25课《自己的花是让别人看的》的课后问题谁知道? 求明礼知耻崇德向善演讲稿哪位大神帮忙写一篇明礼知耻崇德向善演讲稿啊?1000字左右,100分啊,满意的话再加一百分!跪求上传啊 王阿姨骑自行车行9千米要5分之3小时,平均每小时行多少千米?把一根铁丝不折叠的剪断,剪五次,每段都是5分之4米,这根铁丝原来长? 急求小学一到五年级描写花的课文,把课题发到我邮箱,有链接更好!本人邮箱:ivy3012@163.com 明礼知耻崇德向善是意思 小亮骑自行车三分之二小时行了16km,照这样计算 他三小时行多少千米? is surprising to find out_____ we ike new people when we get to know them.A.how many.B.how much 请教初一上册几道数学题 先说声谢谢!(求详解)请把详细计算步骤列出并解释一下. 感谢!(先问一道吧 其他的还有图形没法传上来)1. 圆柱形无盖油桶的底面直径是0.6m,高1m,这个油桶的表面积 赶花——原文谁有, 关于赞美花,关于花的散文关于赞美花的散文,明天要的!短一点的也可以,最好是一篇阅读短文,把短文的问题也提出来.要记住:爱花的散文,或者是赞美花的散文,要写作者,写花的特征. 请教小学五年级上册的一道数学题.求助专业老师回答 先说声谢谢!学生在操场上做操,只知道人数在90到110之间.若排成3列,则不多不少;若排成5列,则少2人;若排成7列,则少4人.那么一共有多少 求抗日战争纪念馆观后感!急!400字--500字 《自己的花是让别人看的》小学课本原文季羡林写的 自己的花是让别人看的课文中,季羡林先生真实地描述了德国人(),赞美了德国人民().急!!!作业上的,谢了。 《献你一束花》阅读答案,45分钟之内给我,鲜花,理应呈送给凯旋的英雄.难道献给这黯淡无光的失败者?  她一直垂着头.四天前,她从平衡木上打着旋儿跌在垫子上时,就把这美丽而神气的头垂 汽车的速度是60km/时,自行车的速度是15km/时.自行车驶的速度是汽车速度几分之几? 赞美花的文章有一小节是按总分总的结构来写的 献你一束花 答案急用~~~~~~~~~~~~~ 《花的启示》原文急求1月31日要用,有的发一下,谢^-^ 用花赞美夏季的文章必须用夏花注意是文章,不是句子。是用夏花 以友善为话题的800字作文 花儿年年红 阅读原文 达人快来在△ABC中,BC=14 AC=9 AB=13.他的内切圆分别和BC.AC.AB切与点D.E.F 求AF BD CE 的长 有关友善的作文400字 1和3是反义词的成语 文言文塞翁失马,焉知非福的,全文翻译及原文! 五年级献你一束花课后问题正确答案快! (在有限数列{an}中,Sn是{an}的前n项和,若把(S1+S2+S3+…+Sn)/n称为数列{an}的“优化和”,现有一个共2006项的数列{an}:a1,a2,a3,…,a2006,若其“优化和”为2007,则有2007项的数列1,a1,a2,a3,…,a2006的“优 塞翁失马的翻译和原文 以友善为话题的作文 描写人物心里活动的句子块 跨 块 块 塞翁失马的译文 我爱你的英文和缩写 急 设Sn为数列{an}的前n项和,Sn=(-1)^n an - 1/(2^n),n∈N*,则 (1)a3=___ (2)S1+S2+…+S100=___ 《湖心亭看雪》中的问题这是语文配套练习册第101页的第5题:《湖心亭看雪》中,“一痕”“一点”是作者远望所见,可若说“一芥”“两三粒”也是作者远望所见就不合情理,说说这是怎么回 谁能告诉我 [我说] 的英文简写 比如说 我说我爱你 [两个字母]我爱你那我发誓 有没有英文简写? 设sn为数列an的前n项和,Sn=(-1)^n-1/2^n,n属于N*,则(1)a3=? (2)S1+S2+...+S100=?问题如上!求助! 《湖心亭看雪》中诗人是无所事事才去湖心亭看雪? 英语我爱你的缩写是什么? 观察下列各式(等式中的“!”是一种数学运算符号)1!=1,=2×1 ,=3×2×1,=4×3×2×1,…,计算:(n-m)!=_____. 1.已知x²+X-1=0,求x³+2x²+3的值 42.无论xy取何值,代数式x²+y²+2x-4y+7的值A.总不小于2 B.总小于7C.可为任何实数 D.可能为负数3.已知代数式x²-ax-6能在整数范围内因式分解,则整数a
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘