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

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

360搜索发布新产品“我的搜索” 引入网民评价和网站名片功能 AppScale:Google App Engine的开源实现 近期十大优秀jQuery插件推荐 通过语音识别来编程 速度远超键盘 BrowserStack:多系统跨浏览器兼容性测试工具API发布 更加开放?Path向13家应用开发商开放API 重金力邀开发者 联想智能桌面应用开发大赛开幕 SDCC 2013大会讲师名单议题出炉 8月20日五折票价最后一天 程序员困境:底层编码能力正逐步丧失 寓教于乐 给代码审查者的几点建议 裁员4千、总裁员人数超过7.5万,难掩思科锋芒 物联网离普罗大众还有多远? 悼念斯诺登使用的加密电邮服务——Lavabit架构解析 运营商上阵OTT “一笑泯恩仇”后路在何方 [企业开源系列]后起之秀Facebook凭什么挑战互联网霸主Google? 谷歌推出免费标签管理应用Tag Manager McAfee CTO Phyllis Schneck被任命为NPPD副部长 Bootstrap 3.0发布 更好地支持移动端和响应式开发 国内创业公司QingCloud的魄力:做一个世界级的IaaS服务 从毫秒到微妙,纯硬的闪存阵列IBM Flash System来了! 中科创达邹鹏程:黑客精神逐渐被人遗忘 有点让人感伤 通过讲故事的方式来设计优秀网站 “肮脏的”IT工作排行榜 Clank:带有SCSS的高效率移动应用原型框架 欧朋 CTO 罗志宇:谈Sphinx游戏引擎的前世今生 John Carmack大神亲手操刀,Oculus Rift SDK即将发布 从南极之争谈软件架构十个技巧,及成功团队具备的气质 Imation重拳出击,推出新型混合存储平台 张建华:FusionSphere不是简单的OpenStack发行版 Chrome 29来了:地址栏变得更“兼容” Android版增WebRTC 工程师谈在Facebook工作最糟糕的事情 很多windows forms下面的程序都实现了XP或是VS.NET风格的菜单了,Web界面上怎么实现 在实际项目中用InterBase数据库可行吗? 有关打印问题????????? win2000找98奇慢无比 template class的连接问题。请赐教 求拓扑排序的所有可能序列?50分求教 java程序员? 请问有没有介绍五子棋算法的好网站?我要做一个和机器下的程序!大家帮忙 请问在编程中的例程,行程和过程的定义是什么?以及他们的区别。 该怎么使用 action() 与 mouseDrag()?请看我的程序问题在哪? DELPHI6.0中的最小化事件是什么 marry____不只怎么办了 (★如何初始化控件CMSFexGrid★) 各位兄弟,不知哪里可以查到所有常量的值? 怎么把帽号赋给一个变量?thank 为什么WinXP激活后就不能重装? 困惑--判断颜色是否相同??? (急急急)寻找:win2000/xp/nt/9x 的可安装文件开发包(IFS Kit),送大分 如何在DB2(V5.2)下面实现表的ID自动增加功能? 帖子结不了,在送300分~~~~~~~~~~ 请问oracle那些版本以上叫8i,常用的是哪个版本,有WINDOWS下使用的吗? 我看过的TOOLBAR 都是横着的,可是我现在想做一个竖立这的TOOLBAR 我该怎么做啊!我翻遍了 CODEGURU 可是没有一个这样的例子! 谁有什么好例子 多谢了!! error C2065: 'end1' : undeclared identifier 我怎么用CreateDialog 建立一个对话框呢! 谁有代码!!多谢!CreateDialog(hInst,LPCTSTR"ID_",hWnd,DlgProc); 送小分:怎样在一个对话框程序中产生一个HWND视窗? 在Windows 2000 Professional 下可以装VS.net吗? 关于文件上传问题 关于微软自己的控件下载问题!! 关于打包的问题 急求答案--请教高手:有关IIS与TOMCAT...... 请问有哪为知道,weblogic提供petstore例子,什么地方有详细说明?? 怎么样利用CHtmlViw将参数用POST的方式提交给WEB服务器 不明白.. 请问遇到连接错误该如何解决? pws的日志在什么地方? 在VBA中如何使用ClipBoard 哪里可以下载mastering delphi 6,或者其他有关delphi6的书籍。 vb和access的问题 C++Builder不支持tif或tiff格式怎么办? 为何我的TQuery为只读? 用Winsock传送文件如何判断一个文件已经传送完毕?(一定给分!) VC程序方法的请教。 请问如何禁用一个页面的cache 不好意思,怎么把引号赋给一个变量?thank 关于字体的保存,用序列化 关于oracle连接的一个简单问题 一个构件地址35分,快快来吧。 如何实现实时监测注册表的变化呢??????????? 如何锁定一个SQL SERVER的表? 哪里有Rose2000? MMGG Redhat7.2Ftp,硬盘安装问题求救! 军训作文500字 自信 作文 作文 友情开头 为什么恩格斯把思维者的精神比喻为“地球上最美丽的花朵”. 自信的作文可以在许多事上运用的 求作文黑板上的记忆开头和结尾,中心是 友谊求作文黑板上的记忆开头和结尾,中心是 友谊 ,要点题点中心还有一个开头结尾,题目依旧是黑板上的记忆 中心是学习 初一军训作文,500字左右 作文 自信的我 友情的文章开头 有关同学之间友谊的作文 我很自信 作文 写中秋节晚上的作文(500字) 英语通知写作,类型:学生会通知为了迎接"元旦"佳节,学校准备开会庆祝,校长将要在会上讲话,表彰(commend)三好学生个先进班级.各班还准备了精彩的节目.时间:12月30日下午2:30(星期3) 求助英语课文中的英语短语 中秋寄语 500作文 英语通知作文假如你是李华,是某国际中学高一(三)班的班长,你校将组织一次集体活动 到岳麓上旅游.请你用英语拟一个口头通知,须包括以下内容.活动时间,本周六 活动内容,登山,中午在山上 家乡的春节作文500字急 中秋节的作文500字 求英语广播通知作文! 哪里能找的英语课文短语? 以自信为话题的作文 英语作文 为英语广播站草一则通知你在校学生会负责“英语角”的活动.请你为学校英语广播站草一则通知.要求:1)“英语角”定于本周星期四下午四点在学校花园里举行2)五位在北京师 家乡的春节的作文500字 什么什么让生命更精彩作文 可以广播的英语文章 故事 风景 友情为话题写一篇作文 生命因爱更精彩600字作文 他让我明白了自信 作文快好一点的结尾就行了,前面不用写了 倒是有人来答呀! 谁能写一篇关于收获友谊的作文?(重点是内容)一篇《收获友谊》的作文,开头结尾不用写,写内容就行(和故事差不多) 生命因什么什么更精彩作文怎没写 三年级语文书28课狮子和鹿读了这篇课文,我明白了什么道理? 作文素材:生命因追求而精彩从<生命因追求而精彩>的角度给一些优美素材:例如:从一个过程、现象来表达一种精神:如:流水~、鲜花~、野草~、蝴蝶~大家能举一些结构优美点的 求一篇关于友情的作文要有事情的,不要全是议论,而且要自己写的,网上没有的。要写出我们的友情多么深厚,最后我们的友情因为我们而不再存在的。 让我明白了一个道理 作文450字 作文《生命,因为追求而精彩》或关于它的素材 初一生求用英语表达的成语作文哪篇成语都可以五六句左右就好 词语不要太难 =顺便在这个作文上做个阅读题 我明白了一个道理 作文 以《生命因追求而美丽》为题的作文!600字或以《生命因追求而精彩》为题的作文!600字! 求一篇带着友谊出发的作文要点评哦. 找一篇有关军训的文章(我们刚刚军训完)600——1000字 《追求生命的ㄨㄨ》作文怎么写 800——1000字的作文 以“祝福我的祖国”为话题 有真实事例,以小见大也OK 《军训心德》作文1000字 以“生命的追求”为话题的作文的范文以“生命的追求”的话题的作文.请各位给我说说怎么写啊.范文最好. 庆国庆,祝福我的祖国 为话题的作文1000字. 请给我人生路上的一些建议,让我的生命更加精彩…我是1984年出生的,目前的月薪2500(无食宿开支),老家在湖南株洲.自己存了有大概十万块钱.请问我今后该怎么继续走下去?工作已是滚瓜烂 怎么找英语课文中的词组最好列举出来,我是初一下学期的,都写出来哦,还要标上课题! 关于怎样理解课文的作文(小学的《卖火柴的小女孩》350字~400字) 运动让生命更精彩作文 以“生活是需要自信的”为作文人生需要自信作文(初中水平的作文) 求作文,350字左右,请以''这件事让我懂得【珍惜 】为题,急 让生命与生命更近些 作文 生活需要自信心的作文! 谁知道关于环境的诗歌或散文,谁知道关于同学之间友谊的诗歌或散文30~100字之间,我着急用! 有关让我们的生命更加精彩的论文RT! 我生活在自信中 作文400字以上 回忆古诗《静夜思》,展开想象,写一篇文章 思维-------地球上最美丽的花总结 有关生命的作文 求助作文素材.题目分别为《感动》《生活需要自信》作家们帮帮忙吧怎么写比较好
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn