使用Delphi獲取系列信息

2019-11-18 18:50:57

字體：大中小

供稿：網(wǎng)友

Delphi以其優(yōu)良的可視化編程，靈活的Windows API接口，豐富的底層操作越來越受到編程愛好者的青睞。
　　在Delphi中，通過調(diào)用Windows API，可以很方便地獲取系統(tǒng)信息，這有助于我們編寫出更好的Windows應(yīng)用程序。以下程序在Delphi3.0 For Windows 9x下編譯通過。
　　一、用GetDriveType函數(shù)獲取磁盤信息
　　Lbl_DriveType:Tlabel;
　　DriveType:Word; //定義驅(qū)動器類型變量
　　DriveType:=GetDriveType(RootPathName); //獲得RootPathName所對應(yīng)的磁盤驅(qū)動器信息
　　case DriveType of
　　DRIVE_REMOVABLE:Lbl_DriveType.Caption:= '軟盤驅(qū)動器';
　　DRIVE_FIXED : Lbl_DriveType.Caption:= '硬盤驅(qū)動器';
　　DRIVE_REMOTE: Lbl_DriveType.Caption:= '網(wǎng)絡(luò)驅(qū)動器';
　　DRIVE_CDROM: Lbl_DriveType.Caption:= '光盤驅(qū)動器';
　　DRIVE_RAMDISK: Lbl_DriveType.Caption:= '內(nèi)存虛擬盤';
　　end; //將該磁盤信息顯示在Lbl_DriveType中
　　二、用GlobalMemoryStatus函數(shù)獲取內(nèi)存使用信息
　　MemStatus: TMEMORYSTATUS; //定義內(nèi)存結(jié)構(gòu)變量
　　Lbl_Memory:Tlabel;
　　MemStatus.dwLength := size of(TMEMORYSTATU??
S);
　　GlobalMemoryStatus(MemStatus); //返回內(nèi)存使用信息
　　 Lbl_Memory.Caption := format('共有內(nèi)存: %d KB 可用內(nèi)存: %dKB',[MemStatus.dwAvailPhys div 1024,MemStatus.dwTotalPhys div 1024]);
　　//將內(nèi)存信息顯示在Lbl_Memory中
　　三、用GetSystemInfo函數(shù)獲取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_M　　PROCESSOR_ALPHA_21064:Lbl_CPUName.Caption:=format('%d%s',[SysInfo.dwNumberOfProcessors, 'ALPHA 21064']);
　　end;//把CPU信息顯示在Lbl_CPUName中。

上一篇：用Delphi編寫VxD設(shè)備驅(qū)動程序

下一篇：DELPHI中的消息處理機(jī)制

學(xué)習(xí)交流

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機(jī)

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機(jī)箱大愛...

熱門圖片

猜你喜歡的新聞

猜你喜歡的關(guān)注