《使用Delphi获取系列信息》由会员分享，可在线阅读，更多相关《使用Delphi获取系列信息（1页珍藏版）》请在金锄头文库上搜索。
1、使用 Delphi 获取系列信息De1phi 以其优良的可视化编程，灵活的 WindowsAPI 接口，丰富的底层操作越来越受到 编程爱好者的青睐。在Delphi中，通过调用Windows API，可以很方便地获取系统信息、这有助于我们编写 出更好的Windows应用程序。以下程序在Delphi3.0 ForWindows 9x下编译通过。一、用 Get Dr iveType 函数获取磁盘信息Lbl DriveType:Tlabel;DriveType:WORD; /定义驱动器类型变量DriveType:二GetDriveType(RootPathName);/获得 RootPathName
2、所对应的磁盘驱动器信息case DriveTypeof DRIVE_REMOVABLE:Lbl_DriveType.Caption: 二软盘驱动器 DRIVEFIXED : LblDriveType.Caption:二硬盘驱动器DRIVE_REMOTEL: bl_DriveType.Caption:二网络驱动器DRIVE_CDROML:bl_DriveType.Caption:二光盘驱动器DRIVE_RAMDISKL: bl_DriveType.Caption:二内存虚拟盘 end; /将该磁盘信息显示在 Lbl_DriveType 中二、用 GlobalMemoryStatus 函数获取内存
3、使用信息 MemStatus: TMEMORYSTATUS/定义内存结构变量 Lbl_Memory:Tlabel;MemStatus.dwLength:size of(TMEMORYSTATUS); 二GlobalMemoryStatus(MemStatus);/返回内存使用信息Lb1_Memory.Caption:format (共有内存:dKB可用 内存:dKB；MemStatus.dwAvailPhysdiv l024，MemStatus.dwTotalPhysdivl024J) ;/将内存信息显示在Lb1Memory中 二、用GetSystemlnfo函数获取CPU信息Syslnfo:
4、 TSYSTEMINFO;Lb1 CPUName:T1abe1GetSystemlnfo(Syslnfo) ;/获得 CPU 信息 case Syslnfo.dwProcessorTypeofPROCESSOR_INTEL_386:Lb1_CPUName.Caption:format( %d%s， Syslnfo. dwNumberOfProcessor s，Inte180386 J);PROCESSOR_INTEL_486:Lb1_CPUName.Caption:format( %d%s， Syslnfo. dwNumberOfProcessor s，Inte1 80486 J) ;PROC
5、ESSOR_INTEL_PENTIUM:Lb1_CPUName.Caption: format( %d%s， Syslnfo. dwNumberOfProcessors，Inte1 Pentium J) ;PROCESSORMIPSR4000:Lb1CPUName.Caption:format( %d%s，Syslnfo. dwNumberOfProcessor s，MIPS R4000J);PROCESSOR ALPHA064:Lb1CPUName.Caption:forrr 阻t(%d%s,Syslnfo. dwNumberOfProcessor s，ALPHA21064J);end;/ /把CPU信息显示在Lb1CPUName中。(陕西杨波)
