获取磁盘空间

procedure TForm2.Button1Click(Sender: TObject);
var
  FreeAvailable, TotalSpace: Int64;
  f, t: integer;
begin
  if GetDiskFreeSpaceEx(PChar(‘c:‘), FreeAvailable, TotalSpace, nil) then begin
    t := TotalSpace div (1024*1024*1024);
    Memo1.Lines.Add(t.ToString + ‘GB total‘);
    f := FreeAvailable div (1024*1024*1024);
    Memo1.lines.Add(f.ToString + ‘GB free‘);
  end;
end;