使用Delphi獲取系列信息

Delphi以其優良的可視化編程靈活的Windows API接口豐富的底層操作越來越受到編程愛好者的青睐

　　在Delphi中通過調用Windows API可以很方便地獲取系統信息這有助於我們編寫出更好的Windows應用程序以下程序在Delphi For Windows x下編譯通過

　　一 用GetDriveType函數獲取磁盤信息

　　Lbl_DriveType:Tlabel;

　　DriveType:WORD; //定義驅動器類型變量

　　DriveType:=GetDriveType(RootPathName); //獲得RootPathName所對應的磁盤驅動器信息

　　case DriveType of

　　DRIVE_REMOVABLE:Lbl_DriveTypeCaption:= 軟盤驅動器;

　　DRIVE_FIXED : Lbl_DriveTypeCaption:= 硬盤驅動器;

　　DRIVE_REMOTE: Lbl_DriveTypeCaption:= 網絡驅動器;

　　DRIVE_CDROM: Lbl_DriveTypeCaption:= 光盤驅動器;

　　DRIVE_RAMDISK: Lbl_DriveTypeCaption:= 內存虛擬盤;

　　end; //將該磁盤信息顯示在Lbl_DriveType中

　　二 用GlobalMemoryStatus函數獲取內存使用信息

　　MemStatus: TMEMORYSTATUS; //定義內存結構變量

　　Lbl_Memory:Tlabel;

　　MemStatusdwLength := size of(TMEMORYSTATU

S);

　　GlobalMemoryStatus(MemStatus); //返回內存使用信息

　　 Lbl_MemoryCaption := format(共有內存: %d KB 可用內存: %dKB[MemStatusdwAvailPhys div MemStatusdwTotalPhys div ]);

　　//將內存信息顯示在Lbl_Memory中

　　三 用GetSystemInfo函數獲取CPU信息

　　SysInfo: TSYSTEMINFO;

　　Lbl_CPUName:Tlabel;

　　GetSystemInfo(SysInfo);//獲得CPU信息

　　case SysInfodwProcessorType of

　　PROCESSOR_INTEL_:Lbl_CPUNameCaption:=format(%d%s[SysInfodwNumber Of ProcessorsIntel]);

　　PROCESSOR_INTEL_:Lbl_CPUNameCaption:=format(%d%s[SysInfodwNumber Of Processors Intel ]);

　　PROCESSOR_INTEL_PENTIUM:Lbl_CPUNameCaption:=format(%d%s[SysInfodwNum

berOfProcessors Intel Pentium]);

　　PROCESSOR_MIPS_R:Lbl_CPUNameCaption:=format(%d%s[SysInfodwNumberOfProcessors MIPS R]);

　　PROCESSOR_ALPHA_:Lbl_CPUNameCaption:=format(%d%s[SysInfodwNumberOfProcessors ALPHA ]);

　　end;//把CPU信息顯示在Lbl_CPUName中

From:http://tw.wingwit.com/Article/program/Delphi/201311/8514.html