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

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

利用Delphi编程发送E-mail 利用Delphi编写Socket通信程序 利用Delphi开发网络数据库应用 在许多系统中,出于安全或其它原因,常常要求随时对键盘进行监控,一个专-Delphi资料 链接的视觉效果-Delphi资料 如何从域名名得到IP?-Delphi资料 如何动态改变/添加网络设置中的 TCP/IP 的 DNS 地址-Delphi资料 如何获取CapsLock 、 Insert 等键的状态?-Delphi资料 如何在程序中动态取得Win95/98的网络邻居中的工作组及计算机名?-Delphi资料 提高客户机/服务器应用系统性能的一些方法-Delphi资料 网络和通讯编程-Delphi资料 WebBrowser流程讲解及如何判断下载网页成功-Delphi资料 用Delphi 3.0实现运行于浏览器内的客户 用Delphi编写ASP的ActiveX 用Delphi编写CGI程序(五) 用Delphi编写CGI程序返回图象 用Delphi程序获取拨号连接的动态IP地址 用Delphi创建Internet快捷方式 用Delphi实现NetBIOS广播收发 用Delphi实现网络驱动器的映射和断开 用Delphi实现远程屏幕抓取 用DELPHI制作留言板 再谈用Delphi程序获取拨号连接的动态IP地址 在DELPHI程序中拨号上网 在DELPHI程序中获取网络资源信息 在Delphi程序中应用IE浏览器控件 在Delphi中调用NetscapeNavigator 在Delphi中使用flash控件 在Delphi中使用IP控件 在程序中动态取得Win95/98网络邻居中工作组及计算机名-Delphi资料 在程序中获取网络资源信息-Delphi资料 请问怎样加一个位图作为Dialog的背景? 写dll链接时出错? 有谁知道windows屏幕保护的通用密码? 请教光标定位 如何使用PFXImportCertStore函数将.pfx文件注册到系统中啊! 有谁知道windows屏幕保护的通用密码 有关JSP运行的问题。分数多多 一个非常菜的问题! 如何利用socket截获80端口的数据? ji.ji.ji... 如何防止内存泄漏001 有谁知道windows屏幕保护的通用密码, xiaoxi777(小溪):请教你刚才的问题 有谁知道windows屏幕保护的通用密码,帮帮忙 在Unicode转换中,_T()与L到底怎么用,有什么区别? 关于利用QQ广告入侵 有没有深圳的阿,我快失业了,哪里要PB程序员啊 有谁知道windows系统的屏幕保护的通用密码 如何自动刷新网页?在线等待! 有谁知道window系统的屏幕保护的通用密码 怎样建设Java服务器?? 我用DELPHI打开了一个FOXPRO表,我想把FOX表的一个数字型字段(N.9.2)的一个数据(99.9)传给DELPHI中的一个变量,问这个变量是什么型的,是string,integer.? 请教Powerdesigner??? 一个ADO的问题,送上38分! 怎样在VB.NET中运行IE 在对话框显示时,怎样得到其位置? 上午62,下午54,有希望不? 关于串口打操作 一个关于InstallShield的小问题 本人朱小军,专门发帖子说有好东东,但是呢,每次都失信,各位,不要再相信我了。进来投一票吧。 关于串口的操作 如何在Delphi中调用函数StrTok? 那位大哥能否帮一下忙,详细告诉一下怎么安装fastreport,谢谢 请教一个 runtime的问题! 怎样使网页自动关闭且不出现提示框? double 和 str 如何转换? 如何将数据保存的二进制文件及如何读到及如何查询其中的数据??? 请教一个关于SQL语句的问题 高手请进,或许你知道 TechnoFantasy(www.applevb.com) 请进来取分,Taozc。 问大家一个基础问题? 怎么让FRAME启动时就为最大化的状态? 我想向各位高手请教关于对象序列化的问题! 现在很急,多谢各位! 如何获得像资源管理器上的桌面上的我的电脑,网上邻居等等 求救,关于打印机。 紧急!!!请教各位大虾: VC6上的MDI程序,我要在VC。net上运行,该怎么合理的修改?? 我也要《全套国标软件设计文档》,有谁收到了可以发一份给我吗?谢谢. mdb删除的问题,应该很简单吧 紧急求助,各位大虾: VC6上的MDI程序,我要在VC。net上运行,该怎么合理的修改?? 关于失去焦点的问题,求教 求教:怎样屏蔽系统的英文错误信息,而显示中文信息提示用户操作? 两个镁离子用数字和符号怎么表示 讲解初三有关圆的知识 硫酸铝钾和水反应生成什么 !“有一只质量为10g的瓶子,单独装满某种液体时,总质量为40g,单独装金属块时总质量为90g,先装入金属块,再加满液体,质量为100克,金属块的密度为8乘10的三次方千克/立方米.求液体的密度为? 不 用圆的知识解释井盖为什么是圆的 冬天在菜窖放几桶水 防止菜被冻坏 这是什么原理啊 从物理角度回答升华是升温还是降温 凝华呢 一个瓶子装满水后称得瓶子和水的总质量为500g,若在瓶中投入金属块若干粒,称得溢水的质量为100克.此时剩余水瓶及金属块的总质量为670g.求金属块的密度呃,用公式求.其他答案我没看懂 浓硫酸与浓硝酸配成王水的比例是多少 氧化铝怎么生成氢氧化铝 向氯化铝溶液中滴加氢氧化钠溶液至过量,反应方程式 少量氨与氯化铝溶液反应能产生氢氧化铝沉淀吗? 在北方,冬天的菜窑里放几桶水,这样做是为了利用水的_____来使菜窑保持一定的温度,使菜不能冻坏. 氢氧化铝和氢氧化钠的反应方程式 次氯酸,浓硝酸,浓硫酸,Cl2,王水,F2,那个氧化性强N和S的非金属性那个强次氯酸能和Cu反应吗方程式是什么 王水 金箔 方程式 质量为68g的空瓶子,装满水后的总质量为184g,若先在瓶中放满煤油,煤油质量是多少?p油=0.8*10³kg/m³ 向Alcl3溶液中加入过量NaoH溶液的总反应方程式是什么 将氯化铝溶液和氢氧化钠溶液等体积混合,得到的沉淀物中铝元素的质量和溶液中铝元素的质量相等,试求原氯本题存在两个化学方程式:AlCl3+3NaOH=Al(OH)3+3NaClAl(OH)3+NaOH=NaAlO2+2H2O设:AlCl3和 质量为68g的空瓶子,装满水后的总质量的184g;若先在瓶中放入一个37.3g的金属块,然后再装满水,发现总质 王水是什么?请谈谈王水的化学原理及前沿应用. 为什么王水的酸性那么强?讲的越基础越好,2009-11-5 07:14回答的同学,我记得是盐酸和硝酸吧 质量为89g的空瓶子,装满水后总质量为184g,若先在瓶中放37.3g的一金属块,再装满质量为89g的空瓶子,装满水后总质量为184g,若先在瓶中放37.3g的一金属块,再装满总质量 128g,则瓶子容积为多 逆王水的原理是什么 瓶子为什么会瘪?矿泉水瓶子装了开水后.盖紧就会变瘪.这是为什么?为什么会变瘪? 质量68g瓶子,装满水后质量为184g,若在瓶中放入37.3g的金属块,再装水质量为184g,则此金属密度为( ) 每日c的那种塑料瓶子能装开水吗?经常看到有人这么装,有问题吗?瓶子会烫溶化漏水吗?我不是拿来喝的,是用来当暖水袋的 瓶子瘪了的教案 0.04mol氯化铝和0.16mol氢氧化钠混合 产生氢氧化铝沉淀多少克还有一个题向200ml0.1mol/l的naoh溶液中逐滴加入100ml0.1mol/l alcl3溶液 可得沉淀多少克 哪种塑料瓶子可以装开水? 怎样使瓶子变瘪? 一个瓶子装满水后的质量为190g,在瓶中放入一快质量为37.3g的金属片,称得总质量为224g,求该金属的密度? 大瓶午后红茶的瓶子能够装开水吗,这种塑料能够承受开水吗 为什么瓶子会变瘪?我把一个软矿泉水瓶中装了三分之一的水,然后把它放入冰箱,一段时间取出发现瓶子变瘪,瓶子为何会变瘪? 氢氧化铝沉淀中加入氢氧化钠溶液会生成四羟基合铝酸钠还是偏铝酸钠?二者有何不同?二者究竟有何不同呢? 塑料瓶子可以装开水喝吗?塑料的杯子和饮料瓶子可以装开水喝吗? 为什么瘪气球在瓶子里吹不大?行不. 烧碱加入氯化铝溶液中是生成简单的氢氧化铝沉淀还是生成较复杂的羟基铝,或者说生成氢氧化铝或羟基铝的条可是烧碱和氯化铝总能生成羟基铝啊,什么条件啊 王水化学式,化学名称是? 把碳酸钠溶液预氯化铝混合,产生的沉淀是氢氧化铝吗? 氢氧化铝和氢氧化钠反应到底生成四羟基合铝酸钠还是偏铝酸钠 向20ml某物质的量浓度的氯化铝溶液中滴加2mol/lNaOH溶液时,得到氢氧化铝沉淀质量与所滴加NaOH溶液的体积关系如图.(1)图中A点表示的意义(2)图中B点表示的意义(3)上述两步反应的总的离子方程式 用0.5N的力匀速拉动一块木块,和用0.8N匀速拉动同一块木块,请问木块两次受到的摩擦力相同吗?不是说物体处于平衡状态时,两边受力是相同的吗?照这么说用0.8N匀速拉动同一块木块时,木块受到 一个空瓶装满水后质量为64克,装满酒精后质量为56克,咋空瓶的质量是多大?空瓶的容积是多少立方米?楼要完整的过程! 为什么将底部有孔的瓶子的盖子拧紧 力物体发生形变时会产生一个反抗形变的力,叫做( ),物体的( )越大,这个力就越大. 一个空瓶装满水后64Kg,装满酒精后质量为56Kg,求空瓶的质量和它的容积. 给瓶子里的水加热时,盖上盖子,是使瓶子里气压增大还是减小?1、水烧开后,盖上盖子,使瓶子里气压增大还是减小?2、为什么烧瓶中的水加热至沸腾,用橡皮塞塞紧瓶口,倒置瓶口,热水停止了沸 物理学是研究力热声光电等方面的知识,请各举一例力:热:声:光:电: 请问过氧化钠与过量氯化铝反映的化学反应方程式, 为了是AlCl3溶液中的铝离子尽可能全部转化为Al(OH)3沉淀,最合适的试剂是 A.氢氧化钠溶液 B.KOH溶液C氨水 D盐酸 熟悉陌生的力.1.贝贝用绳拴住水桶从井中提水,水桶受到一个向上的拉力,它的施力物体是 ;手受到一个向下的拉力,它的施力物体是 .2.在跳板跳水这一运动项目中,运动员对跳板施力的同时,也 镁离子正点符号前面的2含义是什么 要使硫酸铝溶液中的铝离子全部沉淀下来,适宜的试剂是A、盐酸B、氨水C、氢氧化钠D、二氧化碳 要王水溶解Au,Pt,Ir的化学式及还原方法和还原的化学式 2个镁离子的符号符号方式 用圆的知识解释一下瓶子的盖为什么是圆的? 什么和水反应生成甲烷和氢氧化铝? 镁离子的微粒符号怎么写 用圆的知识解释日常生活中,人们围观时为什么会自然地形成圆形呢?更好的加10. 硫酸铝钾与水的反应后你即然说酸碱不共存,并且我们知道此反应必生成氢氧化铝,所以你说错了,不信你查书
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn