获取CPU内存磁盘使用情况

获取CPU内存磁盘使用情况

program hardware;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  {$IFDEF mswindows}        Winapi.Windows, {$ENDIF}
  {$IFDEF posix}
  posix.SysStatvfs, {$ENDIF}
  system.Classes,
  System.Math,
  System.SysUtils;

var
  Times: TThread.TSystemTimes;

function CPUUsage: string;
begin
  result := 'cpu usage: ' + TThread.GetCPUUsage(Times).ToString + '%';
end;

{$IFDEF posix}
function meminfo: string;
var
  FS: TFileStream;
  ch: Char;
  Line: string;
  mem, res: TStringList;
begin
  result := '';
  FS := TFileStream.Create('/proc/meminfo', fmOpenRead);
  mem := TStringList.create;
  res := TStringList.create;
  try
    Line := '';
    ch := #0;
    while (FS.Read(ch, 1) = 1) and (ch <> #13) do
    begin
      Line := Line + ch;
    end;
    mem.text := line;
    mem.NameValueSeparator := ':';
    var total: string := mem.Values['MemTotal'];
    var available: string := mem.Values['MemAvailable'];
    var ifree: string := mem.Values['MemFree'];
    res.Values['MemTotal'] := total;
    res.Values['MemAvailable'] := available;
    res.Values['MemFree'] := ifree;
    result := res.text;
  finally
    FS.Free;
    mem.free;
    res.free;
  end;
end;
{$ENDIF}
{$IFDEF posix}

function diskinfo: string;
var
  disk: _statvfs;
  res: tstringlist;
begin
  result := '';
  res := tstringlist.Create;
  try
    statvfs('/', disk);
    var available: Single := disk.f_bsize * disk.f_bavail;
    var capacity: Single := disk.f_bsize * disk.f_blocks;
    var used: Single := (disk.f_blocks - disk.f_bfree) * disk.f_frsize;
    res.Values['DiskUsed'] := floattostr(roundto(used / 1024 / 1024, 2)) + ' MB';
    res.Values['DiskTotal'] := floattostr(roundto(capacity / 1024 / 1024, 2)) + ' MB';
    res.Values['DiskAvailable'] := floattostr(roundto(available / 1024 / 1024, 2)) + ' MB';
    result := res.text;
  finally
    res.free;
  end;
end;
{$ENDIF}

{$IFDEF  mswindows}

function memInfo: string;
var
  info: TMemoryStatus;
begin
  result := 'memory: ';
  GlobalMemoryStatus(info);
  result := result + inttostr(info.dwMemoryLoad) + '%';
end;

function diskInfo(const disk: string = 'c:'): string;
var
  FreeSpace, TotalSpace: Int64;
begin
  if System.SysUtils.GetDiskFreeSpaceEx(PChar(disk), FreeSpace, TotalSpace, nil) then
  begin
    var res: tstringlist := tstringlist.Create;
    try
      var t: Single := roundto(TotalSpace / 1024 / 1024, 2);
      res.Values['DiskTotal'] := t.ToString + ' MB';
      t := roundto(FreeSpace / 1024 / 1024, 2);
      res.Values['DiskFree'] := t.ToString + ' MB';
      result := res.Text;
    finally
      res.free;
    end;
  end;
end;
{$ENDIF}

begin
  try
    TThread.GetSystemTimes(Times);
    while True do
    begin
      writeln(CPUUsage);
      writeln(diskInfo);
      writeln(meminfo);
      sleep(5000);
    end;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.