熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

使用Delphi獲取系列信息

2013-11-11 21:06:25  來源: 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
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.