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

使用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中。

如何让Ruby项目速度提升10倍 跨平台进行到底:Facebook发布Unity SDK 云薪资管理初创公司ZenPayroll:年处理薪资超1亿美元,获多位知名CEO力挺 Twitter开源Summingbird:近原生编码下整合批处理与流处理 亚马逊推Matchbook 欲将顽固纸质书读者拉向电子书 Broadcom为可穿戴设备推新开发平台WICED 再战江湖 New Kodak还牛不牛? 郭理靖:公、私有云架构异同点与难点 美化代码的15个代码语法高亮工具 你所不知道的虚拟化和云计算 [开源推荐]Effeckt.css项目:CSS交互动画应用集锦 针对Google Glass应用的四大UX设计原则及典型应用 Google收了摩托罗拉,微软收了诺记,黑莓又将花落谁家? 十亿月PV网站秘诀:Reddit自失败中总结的25条经验 粉碎5个NoSQL流言:各司其职,NoSQL的出现比关系型更早 豌豆荚发力移动游戏平台,推出SDK 2.0 BlackBerry Jam Asia 2013即将在香港隆重召开,免费门票限量提供 小米发布会高潮迭起:米3、电视、Hugo大牛 谷歌放在Windows上的特洛伊木马:Chrome Apps应用平台 解析:Google基于数据驱动的招聘面试程序 决战“缓存”之巅:微软 vs. 亚马逊 雪中送炭:十大前沿移动应用开发工具 高通智能手表Toq都用到了哪些技术? 研发周报:修改一行SQL代码 性能提升了100倍 2013年NoSQL就业趋势分析 鲜为人知的静态、命令式编程语言——Nimrod 高性能Web应用打造攻略:扩展过程中20个最大的绊脚石 开源项目Marathon:让你的数据中心像谷歌一样运行 精益化运营:10款移动统计分析工具推荐 移动建站工具(一):分秒钟将Web网站移动化 移动周报:小米的“倚天屠龙记” www.clpclub.com是不是不能上了? 如何制作登陆窗口? 关于中大型网站如何应用软件工程的问题 求救高手,如何使双硬盘同步写 请问怎样在用户点击(s)后将用户点击的软件自动安装到用户(c)的机器上 请问如何用网站提供的搜索引擎,知道查找关键字,我用的是WebBrowser1,100分呀 tomacat的配置问题?急 学过严蔚敏的〈数据结构(C语言版)〉的请进! 开发过nokia上运行程序的朋友,请进来,本人遇到一个非常麻烦的问题,欢迎各位赐教. 如何从字符串中提取单词? 谁知道那里有longhorn下载??? 100分请教实现播放列表的思路? 有关图形化公交车线路的问题!! 关于网站软件工程的问题 我的sqlserver 2000 在安装的时竟然说什么不支持??? 免费ASP空间申请 有关用Firework作网页模板的问题-急! 大虾请指点~~!!~~ 如何固定游戏中的分辨率? 今天见到了蓝心MM,估计她是CSDN有史以来最PL的MM。 也来贴一篇!!!送给大学毕业几年的哥们!(转) 急:关于weblogic的控制台 ? 请问各位:哪里有好的javascript的教程? 小问题 请问在哪里可以找到监控局域网的网络流量的工具,不够再加? 免费ASP空间申请 白羊座的进来领分,水园里白羊座好像很少。。。。 ie无法编译jsp? 300分!求《程序员增值合订本》上册中的"完全掌握TCppWebBrowser控件"内容! Google搜索从入门到精通(散分) 由于工作需要,将要转到Linux平台,请问那位知道有什么好的SQL Client在Linux下? 由于工作需要,将要转到Linux平台,请问那位知道有什么好的SQL Client在Linux下? 你是怎么过的?CSDN无高人?:( 找asp.net入门经典!一定是C#写的!!!在线等! 菜鸟的关于DataGrid的问题 资源管理器中选中的多个文件怎样传给我的程序 什么是“三层数据库”和“嵌入式软件系统”? 什么是“三层数据库”和“嵌入式软件系统”? 类似"hello world"的简单问题,求教 免费ASP空间申请,支持ACCESS 事件的终止? 数据追加求教:谢谢您!!!! 请问InputBox在framework 类库里面有没有代替的阿? 为什么我写到文件中的字符总长度比我实际应该要写的多? 如何使dbctrlgrid多选,并使鼠标右击相当于鼠标左击 关于静态IP地址,急!!! 如何将tomcat做为windows的一项服务启动? 请问各位大虾,哪有paradox(INPRISE 公司产品)数据库(*.DB)的资料? 非法操作的问题 请问各位大虾,哪有paradox(INPRISE 公司产品)数据库(*.DB)的资料? 有十五字的拟人句用蜜蜂 发光强度(光度)的含义是什么? 求求你了,回答我吧 除去括号中的少量杂质气体可用NaOH固体的是 ( )A.co2(co) B.o2(so2) C.H2(NH3) D.co2(hci)并说明下、 市场上什么样的纯牛奶最安全 Let me ___ it under water,put some medicine on it and put a bandage on it. 帮忙打出几个字3QRT 请问b选项和d选项. 1+1=?, 用“被”字造拟人句 高二生物D选项哪里错了 You should put some medicine on your cut.(变否定) (釜)字怎么发音拜托各位了 3Q 高二生物37的b选项为什么是错误的!无法理解T^T 3Q 我呆的地方比较冷.你们可知道那种电器发的光度.又高.又热.光度又远.知道的说一下. 世界上亮度最低的地方观赏星星最佳的地方,不受光污染,星星亮度最高 我要20篇400字的日记我想不出来这20篇400字的日记,所以想请你们帮帮忙 显示屏是飞利浦190V的,发觉显示屏亮度太亮了,很刺眼,要怎么调暗一点, tired……need a nap 外国人会这样讲么,还是说have a nap 200字日记你今天发生的事拜托各位了 3Q 明度与亮度的区别请问明度与亮度的具体区别是什么?据我所知,明度分为9阶,那具体的数值是什么?而亮度是0~255,具体的数值单位又是什么? 氧化镁和盐酸为什么不反应? 为什么顺式-Pt(NH3)2Cl2的水溶解度比反式大?请从配合物分子的结构本身说明. 光度,视亮度.各是什么,.它们各是什么定义.它、们之间好像可以互算的,怎么算,.越详细越好, Why don't you have a afternoon nap? excel2010如何同时画折线柱形图 请问一下知道了分光度之类的要怎么计算呢 He used to have a nap.一般疑问句.为什么是Did he use to ……而不是did he used to ……?used 明明是形容词啊 门把手松了怎么修?我的卧室门的把手松了,关门时一拉就出来,很怕将来掉下来,开不了门,是不是螺丝松了,该怎么修呢补充:我的门把手不是球型的,是那种普通长把手,我看见把手根部有颗小 化学反应工程的研究内容 我理解的艺术是能给人带来美的享受的, 向氯化铝溶液中滴加氨水,为什么一开始就有沉淀了?铝离子不是要结合三个氢氧根才产生沉淀么? [Co(en)2Cl2]Cl中心离子的电荷及配位数 懋字 怎么表达美的意思 玻璃地弹簧门拉手的高度怎么确定,有没有规范要求? 化学命名[CO(en)2cl2]cl命名,中心离子,配位体那配位数是几阿 some kids play soccer ————every weekendclean if live there open world park and turn hour come hungry选一个 有谁知道这些英文缩写是什么意思?CYLPCDRBTEA这些都是计量单位的缩写 化学反应工程开发中需要手机哪些数据?细致一点,答得好加分... 求求你啊 这个结构怎样在计算机上画出一样的? 初三比较重要的化学方程式 求求你,怎做 问一些英语缩写的意思1.IT 2.MTV 3.WTO 4.VCD 5.CEO Pt(NH3)2Cl2的同分异构体,可溶于水,可治疗癌症结构简式是什么?为什么呢? 求求你了! 哪里有可以提高英语的聊天室,最好是国外的 “消光度”的定义是什么? 求求你,告诉我吧 这段英文简写谁看得懂啊ur age is same like ma younger bro.my bro is sixteen.he is grt 11.wut std r u in? 前面几行还行,但最后一行就不行了,看不懂啊 锋利的意思是什么如题 Pt(NH3)2Cl2 中心离子是Pt2+,配位体是NH3和Cl-,它有顺式和反式两种异构体.如图为什么cl-也是配位体而不提供孤电子对 告诉我吧,求求你啦 锋利无比是什么意思 “黑亮度”的定义 与电源正极相连的试管内产生的气体是氧气 这句话哪里错了? 17题.详解. 什么是烛光亮度?定义是什么? 英语翻译八年级下册英语第一单元句子翻译中文 白宫宣布美国副总统拜登将于12月初访上市银行两大魔咒延续 股份银行民生业北大起床协会:团结起床困难户为吃早饭NSA全球监控无孔不入 白宫每日简报京明年购车摇号指标减9万 拥堵费最快海军机动-5号演习探亮点:实测数据让中国海洋开发存六不足 全球化竞争催生楼市“金九银十”收官 北上广深房价涨实拍:印度时装周模特甄选后台(组图)张掖市委书记谈禁种转基因:确保农产品红杉、软银等巨鳄下注 押宝中国互联网京七条后北京掀拍地高峰 自住型住房用孙杨与空姐前女友的昔日恩爱照曝光(图转基因食品标识混乱 专家建议修法对管因为名字带土 宁波一对85后夫妻离婚阿根廷采购中国城铁列车提高铁路安全首审穆尔西,法庭内外都不太平西方兴起“去刺青化”生活方式埃军方开始全面清算穆兄会温州瓯江污染臭味赛马桶 排污五六年难《特种兵之火凤凰》童苡萱性感半裸照曝DS到底算不算豪华品牌?汽车之家已经重大通知:午后将发生惊天大变盘!前阿森纳股东入主埃弗顿;三菱电器赞助与宝宝大人的普吉岛8天7晚纯玩蜜月自山东蓝翔校长妻子申请保护令 请求禁止时殷弘、庞中英、沈丁立:制裁不一定能虽然六亲无靠凭自己奋斗也能发财兴家活#享瘦春光# 健身永远在路上之装备甲劲捷生物科技:什么是淋病双球菌千呼万唤始出来~PSV游戏《艦これ改如果特朗普当选总统 美国与俄罗斯会成张家界玻璃桥全球征名截稿 12万参与万家乐30周年贺岁巨惠 好礼低价享3.1午评:油价持续发力,套空单的请D二次方 (DSquared2) 跑男古装路透照:鹿晗版杨过帅掉渣,b我国首部《中国地中海贫血蓝皮书》发布开学季别瞎买买买 实用党教你怎么挑相BEDWIN & the HEART动人初恋底妆,绽放浪漫春日最新消息 Shimano 11速山地
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘