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

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

看15岁的谷歌的前21位员工现在都在做什么 分析师:三星将失去中国市场份额的头把交椅 5款工具助你写出更好的Java代码 Noitom:"中国创造"的动捕技术 缘创派:帮助技术人员寻找创业伙伴 Nginx创始人Igor Sysoev解读Nginx的发展史 对女性友好的编程语言 ISC2013专家云集,畅谈全球网络安全 CTO俱乐部第109期下午茶:数据库之分久必合,合久必分 CloudConvert:支持移动应用的格式转化服务 Angular.js VS. Ember.js:谁将成为Web开发的新宠? 斯卡利沉寂多年后首谈乔布 他的离开错在董事会不在我 CTO如何避免决策失控(二):遭遇棘手问题的七种迹象 微软面向开发者提前发布Windows 8.1 安抚不满情绪 PostgreSQL 9.3发布,可靠性、可用性获得较大提升! Web设计的新宠儿:卡片式设计 LSI:从“计算”架构到“数据流”架构的变迁 [开源推荐]TurboGears:一站式的Python开发框架集合 腾讯云公测终究还是来了 BAT云大战将开启? iOS 7将从这三方面影响IT界 超越Google,他企图将整个互联网塞进1台电脑 2013互联网安全大会议题先睹为快之CSA中国理事赵粮 移动建站工具(二):分秒钟DIY一个移动网站 2013上半年中国移动互联网报告,在线完整版 iOS开发者必备:九大设计类工具 已到“迟暮之年”?微软投资者提议两“救世主”外部候选 【SDCC讲师专访】Joseph G. Brown:云带来的软件销售方式变革 用户界面设计攻略:设计师需注意的九大要点 Google Glass的竞争对手来了:看YC演示日的五款新孵化项目! GPU Saturday技术沙龙:OpenCL程序员眼中的下一代APU架构 黑帽大会演讲中国第一人:从攻到防,从白帽黑客到创业者 MSComm控件在设计时运行没问题,但打包后装到别的机子老是出现“没有注册类”,求救? delphi 做的数据库应用程序如何移植?? copysign怎么用啊? 如何将一个网页的所有链接均自动加为绝对链接? 技术与数学的问题 本人写了一个设置纸张方向和大小的函数,其中MyDevMode.dmPaperSize = psize '若vbPRPSA3 设置纸大小为A3,但在VB对象库中找不A2张对应值 tomcat4.1.24中的sevlet问题 我下载了linux的iso文件,可怎么安装啊!! 我想问一下,有关于计数器的相关的信息? 救急:是否可以在两个页面(两个单独打开得ie浏览器页面)传递参数,如何实现啊? JDBC相关的两个问题 Oracle8.1.6怎样连接SQL SERVER2000 ?(在线等待) inserted表问题 急!!!关于FileSystemObject问题,在线等 dll 编译问题 请教 请教关于iterator与container? 谁有mixerAPI的中文资料,如(mixerGetLineInfo)我需要弄懂原理(不需要MSDN) 请问“怎么样才能修改以有的flash文件”,拜托,在线等待 如何使相同的子窗口显示一个? ?请教高手有关Align的问题。 高手帮我谢谢注释~~高分相赠~~~~谢谢高手~~~~ 各位大牛们,小弟想请教大家对FlowMIS这个平台有多少了解,用此平台进行二次开发(企业信息系统)好不好。 SQL SERVER2000 怎样连接Oracle8.1.6(在线等待) C语言程序设计 如何在英文字符集的客户端访问服务器为中文的数据库? 那4M是不是让诺基亚给偷了?! 如何调用ResetPrinter函数设置默认打印机 listview使用的问题 delphi的打包问题 请大家推荐一个短信网关 调查:当你身边响起神圣的国歌时,你会不会不由自主站起来,手放到胸前,跟着节奏一起唱起来?(有感而发) 请问如何调用.chm的帮助文件? 如何调用系统默认打印机的属性! 请教新手问题~~~麻烦哪为大侠给解释解释~谢~ 如何用struts实现阴阳色列表? 怎么用vb建立一个数据库呀?注意,不是一个表,是一个数据库! 如何调用系统默认打印机的属性! 一个很老很过时的数码相机。 郁闷,超级简单题目 初学ASP,请教学习心得 我的机器怎么老死机?? 两级表单动态联接?急,急,急!!!!!????? ---见了鬼了,Jre不好用!!!--- 寻求把中文字符串转换为十六进制的串的ORACLE函数? 电力学院惊魂 一條語句 數據庫日誌就寫滿了 怎样获得系统的字体!急!谢谢了! 谁有用java做的聊天系统程序(当作业)分不够可再给 在CB中如何动态的管理窗体 如何调用系统默认打印机的属性! API动态调用问题(很奇观) 有5盒糖,乙有4盒糕,值44元.如果甲、乙两人对换一盒,每人所有物品的价值相等.一盒糖、一盒糕值多少元 at the most等同于ultimately吗? 我都14岁了,怎么还没长卵毛,我同学比我小都很长了我都14岁了,怎么还没长卵毛,我同学比我小都很长了.我爸爸六年级就有了 收集保护环境的句子我要求限时到6点,现在是3月3日 17:36计时开始6点到,555,我的要求没达到 6×4和6×2牵引车主要运用于什么运输,运输距离怎么样 拟写治水必躬亲提纲(明确本文内容,观点及论证方法) 一辆汽车绕一棵大树不停的开,且使车子与大树之间保持有20m的距离 司机应该怎样确定开车的路线 半挂车车头有6*4的和6*2的,这两种车各有什么特点 治水必躬亲本文论述了什么道理 说明治水不但要还要 Component是什么意思 物理题一汽车行驶时遇到紧急情况,驾驶员迅速正确地使用制动器在最短距离内将车停住,称为紧急制动.设一汽车行驶时遇到紧急情况,驾驶员迅速正确地使用制动器在最短距离内将车停住,称 甲有五盒糖,乙有四盒糕,共值22元,如果甲乙两人对换一盒,则每人物品的价值相等,求如果甲乙两人对换两盒,甲乙两人所有的物品的价值是否相等?若不等,哪个多?多多少? vhdl中COMPONENT是什么意思谢谢 谁的胳膊比腿长(动物) 婷婷有5盒糖,佳佳有4盒糕,共22元,两人对换一盒,每人所有物品的价值相等,一盒糕,一盒糖分别多少元? component repository是什么意思 动物生出来 有没有却胳膊少腿的? 200以下求推荐偷窥女生宿舍的望远镜,求清晰女生宿舍距离差不多不到100米,平常也看看运动会演唱会什么的,没办法不是我屌丝,是有一群屌丝舍友……总之就这样吧,不要太贵了. For nearly a day they waited for an answer,only____to cime again next day.A.to be toldB.being told 哪些动物有胳臂 影子的方向随着什麽的方向改变而改变?(一定要正确!) 屋顶上的鸽子在"咕咕"的叫着.改成拟人句提前声明:前面有三个例题:::::小鸟在树林里唱歌;蟋蟀们在这里弹琴;蚊子在到处吹着喇叭. pig-headed 的 英文释义 什么动物没有嘴,却可以吃东西? 为什么我安装东西安装了一半总是出现destination component 下午放学回家,小明做作业,开始时看见钟面上分针略超过时针,完成作业时,发现分针与时针恰好互换位置,那么小明做作业用了多少时间? 高中在差班,努力学能考上北大么或复旦. 建筑物的体积规模是哪一个词语的意思啊 “艰难困苦,玉汝于成”解释 嘴张得大的动物,猜一下是哪只或哪几只,谢谢啦 gssg是什么氨基酸的缩写或者什么肽键什么的 某人家有两个旧钟,一个每天快20分钟,另一个每天慢30分钟.现在将两个钟同时调到标准时间,问至少经过多少天两个钟同时显示标准时间? 找一篇文章!在《读者》上刊登过,是写一个补习生努力吃苦最终考上北大了.里头有几句是写和一个同去自习室上自习,大年三十还去!学完回去还能赶上赵本山的小品.低年级的学生向他求教经 小学数学教科书的公式,只要是由什么方法得到的 艰难困苦,玉汝于成 求复旦博雅杯征文获奖的文章最好是古代诗歌或是宗教类的,好的话追加分数 甲有5盒糖,乙有4盒糕,如果甲乙两人互换一盒,则每人所有物品价值相等.一盒糕,一盒糖值多少元?列出算式 时钟的指针在四点和五点之间,何时成直角?(我会列示但是不知道意思,必有重谢!)得的得数是分数,看表看不出来! 三个首字母填词!英语!1.It's a p______ that you failed the exam.But don't give up.2.He practises playing basketball every day.He's really a h_______ player.3.He is an unusual person.We all think he's s________. 怎样在PPT的模板中加入公司的log?导入的步骤是什么? 这是什么动物,腿还挺长的,说的仔细一点他吃什么 为加快西部大开发,某自治区决定新修一条公路,甲、乙两工程队承包此项工程.如果甲工程队单独施工,则刚好如期完成;如果乙工程队单独施工就要超过6个月完成,现在甲、乙两队先共同施工4 not only is a stupid women,but also is a stupid pig 艰难困苦 玉汝于成阅读答案 几道让人头疼的初一数学题1、在数1,2,3,…,2007前添符号“+”和“—”,并依次运算,所得可能的最小非负数是多少?2、一串数1/1,-1/2,2/2,-1/2,1/3,-2/3…(1)是否存在数7/11,若存在是第几个数? 怎么在ppt中弄企业log? 一面钟的时针长15厘米,分针长18厘米,一昼夜分针与时针的尖端所走路程比是多少? 如何快速长卵毛 Forever stupid pig ,this is my loue 9.“艰难困苦,玉汝于成”这句话告诉我们的道理是   A.要想取得成功,就应主动去寻找困难和挫折   B at most 深圳靠近海的地方哪里好玩? 艰难困苦,玉汝于成 是什么意思 卵毛有什么作用? 为什么靠近海的地方温度差异很大 1.在10点与11点之间,两针在什么时刻成一条直线?2.从中午12:00(不含这一时刻)到晚上12:00,(包含这一时刻)这12个小时中,时针与分针共重合了多少次? 怎么才能让男人卵毛长的快点啊长了几年了怎么才这么点啊.怎么回事.怎么变多点啊、、自卑死了.刮了不是没了. 三路车和六路车的数学问题金城路是3路车和6路车的起点站,3路车每隔5分钟发一次车,6路车每隔3分钟发一次车.两路汽车同时发车后,至少再过多长时间又同时发车? 一、阅读第六课《向往奥运》的第五自然段,回答下列问题.1.作者怀念爱放体育明星的那些日子,是因为_________________________________________________________________.作者渴望2008年北京奥运会到来的时候, 卵毛会不会变白 国企携大单与民企对接 诚意足够但难消秋风阵阵喷嚏连天 不是感冒是过敏钓鱼岛史上从未属日本2000万港元赔款大多来自华人捐助印火星探测器欲争亚洲第一老虎VS小麦,谁是王中王?“娜”功败垂成总理被窃听伤了德国人的心一起来做“土豪”吧!日本学者著书称:钓鱼岛从历史上看从未我海军抗干扰西太平洋演练合同打击纽约华裔社区发生命案5人被杀 死者包悉尼歌剧院走过40年美丽旅程欧债危机对欧盟的重新排序全球最大海上书店抵达巴林中俄舞台艺术对话举办美最大银行被罚130亿美元“北京中轴线”展在开罗举办奥巴马称对特工可能监听默克尔电话之事壮汉翻拍性感照做广告 翘臀又嘟嘴(高窃听默克尔,奥巴马早就知情?索契冬奥会:加拿大男子冰壶队摘金(图赴比利时大熊猫装箱 娘家人期望早日产北京连续三天出现雾和霾 空气污染连升韩国可口可乐瓶上留言为金妍儿加油 网金秀贤紧抱Angelababy 粉丝网友实名举报\"云南元谋交警大队中队云南金融机构累计支持“三重”项目融资中国红十字会人道援助物资运抵缅甸克钦云南启动“湿地使者行动”关注高原湿地72年江青对外国记者泄露何机密引毛泽食疗养生:常吃大葱有七大神效 壮阳补播报:韩寒晒女儿萌照遭调侃 路学长病云南将推出异地考试检车等便民服务4种情形可申请机动车变更号牌 办理手那曲再迎副省级地委书记 海南陕西2高中纪委通报首轮10个被中央巡视单位的中国遏制公款消费 专家称短期拖累经济西藏那曲再迎副省级地委书记 海南陕西水土保持有了补偿办法 矿产资源开发从香港特区政府本月24日起在各口岸进行堂吉伟德:本科生导师制是张放大的责任
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘