使用Delphi获取系统信息

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

↓相关文章：