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

使用Delphi获取系列信息

HTML文档下载 WORD文档下载 PDF文档下载
使用Delphi获取系列信息

Delphi以其优良的可视化编程,灵活的Windows API接口,丰富的底层操作越来越受到编程爱好者的青睐。

在Delphi中,通过调用Windows API,可以很方便地获取系统信息,这有助于我们编写出更好的Windows应用程序。以下程序在Delphi3.0 For Windows 9x下编译通过。

一、 用GetDriveType函数获取磁盘信息

Lbl_DriveType:Tlabel;

DriveType:WORD; //定义驱动器类型变量

DriveType:=GetDriveType(RootPathName); //获得RootPathName所对应的磁盘驱动器信息

case DriveType of

DRIVE_REMOVABLE:Lbl_DriveType.Caption:= '软盘驱动器';

DRIVE_FIXED : Lbl_DriveType.Caption:= '硬盘驱动器';

DRIVE_REMOTE: Lbl_DriveType.Caption:= '网络驱动器';

DRIVE_CDROM: Lbl_DriveType.Caption:= '光盘驱动器';

DRIVE_RAMDISK: Lbl_DriveType.Caption:= '内存虚拟盘';

end; //将该磁盘信息显示在Lbl_DriveType中

二、 用GlobalMemoryStatus函数获取内存使用信息

MemStatus: TMEMORYSTATUS; //定义内存结构变量

Lbl_Memory:Tlabel;

MemStatus.dwLength := size of(TMEMORYSTATU

S);

GlobalMemoryStatus(MemStatus); //返回内存使用信息

Lbl_Memory.Caption := format('共有内存: %d KB 可用内存: %dKB'

[MemStatus.dwAvailPhys div 1024

MemStatus.dwTotalPhys div 1024]);

//将内存信息显示在Lbl_Memory中

三、 用GetSystemInfo函数获取CPU信息

SysInfo: TSYSTEMINFO;

Lbl_CPUName:Tlabel;

GetSystemInfo(SysInfo);//获得CPU信息

case SysInfo.dwProcessorType of

PROCESSOR_INTEL_386:Lbl_CPUName.Caption:=format('%d%s'

[SysInfo.dwNumber Of Processors

'Intel80386']);

PROCESSOR_INTEL_486:Lbl_CPUName.Caption:=format('%d%s'

[SysInfo.dwNumber Of Processors

'Intel 80486']);

PROCESSOR_INTEL_PENTIUM:Lbl_CPUName.Caption:=format('%d%s'

[SysInfo.dwNum

berOfProcessors

'Intel Pentium']);

PROCESSOR_MIPS_R4000:Lbl_CPUName.Caption:=format('%d%s'

[SysInfo.dwNumberOfProcessors

'MIPS R4000']);

PROCESSOR_ALPHA_21064:Lbl_CPUName.Caption:=format('%d%s'

[SysInfo.dwNumberOfProcessors

'ALPHA 21064']);

end;//把CPU信息显示在Lbl_CPUName中。

惠普将于下季度推出低功耗的Moonshot服务器 webOS复活!LG收购webOS用于智能电视 那些因为HTML5而将消亡的产品 初窥iWatch用户界面:开创基于时间的全新体验 如何编写出拥抱变化的代码? 20个优秀的前端框架 以AWS和vCloud为标杆看四大开源平台的定位 桌面集成开发环境五年内必将“死亡”? 助影人圆梦奥斯卡 8mm相机应用其实很平庸 苹果应用审查团队叫停Cookie追踪技术 时势造英雄:中国早期O2O创业故事 iOS开发与Android开发的四大不同 “消极抵抗”AWS OpsWork?RightScale首次宣布转售并支持GCE 2012年VC都把钱投给了哪些大数据初创公司? 耐用性将成苹果iWatch最大挑战 Sphinx:首款全硬件加速HTML5游戏引擎发布 PayPal创始人Levchin又创办了一家移动支付公司Affirm Zuck、Bill Gates、Jack Dorsey上银幕激励孩子编程 十款最新开源的开发者工具/应用(组图) Django 1.5发布,Python 3开始进入主流? [爆料]英特尔:将Hadoop“固化”到Xeon中 姗姗来迟:微软终于发布Windows 7 IE10正式版 谷歌推Google+登录系统 与Facebook争夺用户信息 微软在CodePlex上开源C++ REST SDK 代号Casablanca 论OpenAPI的起源与历史 LinkedIn开源低延时变化数据捕获系统Databus 微软发布全新WP应用 随时查看App崩溃信息 做iOS开发,我为什么弃用Objective-C而选择RubyMotion? Stinger Initiative:让Hive提速100倍 2013年云计算的九大威胁 W3C小组发起新“汽车与Web平台业务组”项目 跳到上海来了,想交程序员朋友,搞delphi ,java,软件工程的都可以 令人很烦的小问题 谁能告诉我下面程序代码在内存中被编译器实际做出来的结果是什么? DataGrid問題:在分頁情況下,怎樣進行增加、保存、刪除記錄(急交貨,請大家多多關照!) 关于串口操作! 如何重构事件驱动程序中的case语句? 小弟公司想做一个邮件系统!!!(要求能首发邮件)小弟没有做过!!请各位给一些提示!! 高分求救:如何在一个企业的自己的网站上设置搜索引擎,用来搜索本行业的信息,需要什么条件? 求助 关于LONG VARCHAR 或 数据库insert 操作 问两个有点难度的问题:怎样声明及使用API 和 ActiveX DLL? 向大虾请教一个很菜的问题! 用代理如何把一句话加到域中 假脱机是什么技术? 谁熟悉COGNOS的前台展现吗,可不可以教教我拉,有没有中文的文档可以借我看看拉! msgbox的权限? 数据库 vfp->sql server? 谁能告诉我下面程序代码在内存中被编译器实际做出来的结果是什么? 很急:关于msgget的调用 vb 连接数据库 是不是SQLserver2000不支持些SQL 请问如何用程序控制使FORM最大化,最小化? 如何在datatable中再查找符合条件的数据? 为什么打印宽度最大为21厘米? 请问我在一个.js文件中怎样调用其它.js文件中的资源 这样做到不刷新,获取application的变化? 请教状态栏的问题 vfp问题?急~(关于控件的使用) 破解bios开机密码 如何自己编写代码结束所有的应用程序呢?请教! 请问如何在C#中对字符串或byte[]进行crc32校验。有现成的调用吗? 菜鸟的一个有关数据库的疑问?有谁知道吗? 神啊,救救我吧! 神啊,救救我吧! 神啊,救救我吧! 菜鸟提问,如何知道MDB数据库中是否存在一个指定表,谢谢!急…… 关于用DBGRID向数据库添加主细表的问题?高分奖赏! 关于窗体菜单的问题? 很急!!!!!!!! 欢迎大家推荐好的学习JSP的网站! 数据库 vfp->sql server? 问一个最好的查漏方法 ARM Develop Suite eval version的破解方法或者破解文件 一个word文件,怎么让用户一打开它时 出现保存对话框? ie6.0的快捷键问题 这里人气旺,借贵宝地一用。熟悉网站搜索引擎的朋友请进! 交换机和路由器有什么区别?? csdn怎么回事啊!!昨天登陆后竟然显示别人的用户名,今天竟然连我的注册信息也改了.TMD 关于SQL SERVERS2000 建数据库的问题--请进 请问哪有讲算法的好书啊! 关于单片机??? 向各位大侠请教:怎样在JAVE中调用文件 情趣的近义词 慈祥的反义词现在就要 DonnaSunnyLauraKarenJillShirleyAdreaSharonTammySueTrista或者帮忙取一个,带上发音和含义,能带有“雪”字更好啦,(不要复制的一大篇一大篇的.) 感恩的作文,急需5篇每篇500字! 慈祥的反义词和近义词 三峡的原文的翻译,并且说出主要内容 谁有关于革命英雄人物的故事啊?一个就够了,要简短点不要罗嗦,还要告诉我说的是哪个人. 《读书让我们成长》 幼时记趣,三峡,狼的翻译,还有原文 5篇500字作文初中的快急需 美好 的反义词和近义词要准确,急用! 急需叙事有波澜的记叙文...故事情节可以悬念、巧合、误会、800~1000字左右 也可以是小小说、要有哲故事情节要有【悬念、巧合、误会、欲扬先抑】其中一个···曲折挖曲折... 关于革命英雄人物小故事描写英雄人物的小故事,周恩来呀,毛泽东呀,谁的都行,讲故事比赛呢,急用! 以读书为话题初中作文现在就要,自己写的最好 以 难忘的一句话 为话题 写一篇作文 革命英雄人物的故事 慈祥的近义词 谨慎、赞赏的反义词 给篇内容波澜起伏的作文,题目叫转弯的地方还要是一篇记叙文 500字作文!急需! 读书的幸福结尾 求1000字左右的短篇小说、小小说、微型小说.要艺考自备材料,选一篇稿子~希望亲们能推荐一些,不太有名,不要人尽皆知的内种小说~悬疑,动人,神马都可以,最好是能吊人胃口,有情节起伏…… 从哪些地方看出威尼斯和小艇关系密切? 以“一句话,一辈子”写一篇作文谁无聊能写篇给我,是写影响一辈子的什么话之类的.500字左右,不要好的,要一般的,没有亮点那那种,好的不需要,我写不出,我是用来应付老师的,一看就知道,要 800到1000字的小小说的名字.(写作文)写作文 小艇与威尼斯人的生活密切,这是为什么呢?请用“因为··所以··”的句式写一写十分钟以内发来! 求关于雷锋精神的作文400字 山雨 作者通过合理而新奇的什么和什么? 以“放飞梦想,法律伴我成长”为题500字作文中学作文 内容紧扣主题 求我眼中的雷锋精神小学作文400字 六年级语文《山雨》作者通过合理而新奇的什么和什么? 第三届郑成功文化——海峡两岸中小学生征文(1)以两岸文化传承为主题,自选角度,结合自身体验,抒发感想,撰写征文.要求征文要适合于演讲,字数在800字左右. 小学语文一年级上册的古诗有哪些 三峡那篇课文是怎么翻译的? 在17课安塞腰鼓中用……一样,是……造一个排比句. 写亲人的作文600字有动作神态心理等描写,还有好词好句不要是网上复制的,自己写 一句话英文表白我是女生,想跟一个认识很久的外国人表白.求高人帮我想一句含蓄点的,不要太直白的,但是只要一句话.罗嗦的长的太直白的太吓人的就不用了.还有么?为啥都是有点吓人的。 写一篇秋天的作文.描写秋天景色的片断. 【威尼斯的小艇】是谁写的 求一篇“一句话的力量”作文 字数800-900.谢 英语表白作文怎么写. 初中语文课本目录中的*是什么意思 5篇 300~500字 表白的英文文章 以“日记、散文、小小说、诗歌、剧本、议论文、说明文”的文体尽量分别写一篇作文采纳的有30分悬赏 求一篇 一句话的力量 作文,自己写的 给我一篇500字的关于在幸福中成长的作文 给我一篇500字的关于在幸福中成长的作文 你会写以《我身边的礼仪故事》为题的作文吗求大神帮助同题 作文;雷锋精神伴我成长快,火速! 重庆大学城400字作文怎样写 小小说美文欣赏快,要短的 《渴望得到》初中作文 英语翻译从“江水又东,径西陵峡~亦当惊知己于千古矣” 作文我的故事的题材谁有? 我渴望得到你的欣赏.600字左右,除了诗歌,文体不限. 三峡的原文及翻译 以《我的初一年》为题的作文求大神帮助以《我的初一年》为题的作文 要求500字就行 我渴望—— 英语翻译 慈祥的近义词,反义词 因为有了期盼 尽量给我一个好答案. 关于革命英雄人物的故事要在400字以内,3分钟内能读完的!
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘