Delphi 取得系統硬體資訊入門：磁碟、記憶體與 CPU 偵測

Delphi 憑藉優秀視覺化編程、靈活 Windows API 介面、豐富底層操作，深受程式設計愛好者青睞。透過呼叫 Windows API 可輕鬆取得系統資訊，助我們編寫更好的 Windows 應用程式。以下程式在 Delphi 3.0 / Windows 9x 編譯通過。

一、GetDriveType 取得磁碟機型態

var
  DriveType: Word;
  RootPathName: PChar;
begin
  DriveType := GetDriveType(RootPathName);
  case DriveType of
    DRIVE_REMOVABLE:  Label1.Caption := '軟碟機';
    DRIVE_FIXED:      Label1.Caption := '硬碟';
    DRIVE_REMOTE:     Label1.Caption := '網路磁碟機';
    DRIVE_CDROM:      Label1.Caption := '光碟機';
    DRIVE_RAMDISK:    Label1.Caption := '記憶體虛擬碟';
  end;
end;

二、GlobalMemoryStatus 取得記憶體使用狀況

var
  MemStatus: TMemoryStatus;
begin
  MemStatus.dwLength := SizeOf(TMemoryStatus);
  GlobalMemoryStatus(MemStatus);
  Label1.Caption := Format('總記憶體: %d KB  可用記憶體: %d KB',
    [MemStatus.dwTotalPhys div 1024, MemStatus.dwAvailPhys div 1024]);
end;

三、GetSystemInfo 取得 CPU 資訊

var
  SysInfo: TSystemInfo;
begin
  GetSystemInfo(SysInfo);
  case SysInfo.dwProcessorType of
    PROCESSOR_INTEL_386:     Label1.Caption := Format('%d x Intel 80386', [SysInfo.dwNumberOfProcessors]);
    PROCESSOR_INTEL_486:     Label1.Caption := Format('%d x Intel 80486', [SysInfo.dwNumberOfProcessors]);
    PROCESSOR_INTEL_PENTIUM: Label1.Caption := Format('%d x Intel Pentium', [SysInfo.dwNumberOfProcessors]);
    PROCESSOR_MIPS_R4000:    Label1.Caption := Format('%d x MIPS R4000', [SysInfo.dwNumberOfProcessors]);
    PROCESSOR_ALPHA_21064:   Label1.Caption := Format('%d x ALPHA 21064', [SysInfo.dwNumberOfProcessors]);
  end;
end;