Delphi以其優良的可視化編程，靈活的Windows API接口，豐富的底層操作越來越受到編程愛好者的青睐。
在Delphi中，通過調用Windows API，可以很方便地獲取系統信息，這有助於我們編寫出更好的Windows應用程序。以下程序在Delphi3.0 For Windows 9x下編譯通過。
一、 用GetDriveType函數獲取磁盤信息
Lbl_DriveType:Tlabel;
DriveType:WORD; //定義驅動器類型變量
//獲得RootPathName所對應的磁盤驅動器信息
DriveType:=GetDriveType(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.dwNumberOfProcessors, Intel Pentium]);
PROCESSOR_MIPS_R4000:Lbl_CPUName.Caption:=
format(%d%s,[SysInfo.dwNumberOfP essors, MIPS R4000]);
PROCESSOR_ALPHA_21064:Lbl_CPUName.Caption:=
format(%d%s,[SysInfo.dwNumberOfProcessors, ALPHA 21064]);
end;//把CPU信息顯示在Lbl_CPUName中。
