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