使用Delphi獲取系列信息




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