使用Delphi獲取系統信息

     使用Delphi獲取系列信息<?XML:namespace prefix = o ns = "urn:schemas-microsoft-com:office:Office" />

 

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