急，delphi如何取得磁盘C的剩余空间
我想取得磁盘C的剩余空间
var
FreeS,TotalS:Int64;
TotalF:Int64;
begin
GetDiskFreeSpaceEx('c:',FreeS,TotalS,@TotalF);
end;
这里编译会报错，不能为int64型，使用Integer型是可以的，但这里的返回值是字节，使用int32型肯定是不行的，那该怎么做呢？
急求大侠帮忙啊
[解决办法]
方法应该很多吧,

var
  d1,d2,d3,d4: DWORD;
begin
  GetDiskFreeSpace('C:',d1,d2,d3,d4);

  Memo1.Clear;
  with Memo1.Lines do
  begin
    Add(Format('一个簇内的扇区数: %d',[d1]));
    Add(Format('一个扇区内的字节数: %d',[d2]));
    Add(Format('剩余簇数: %d',[d3]));
    Add(Format('总簇数: %d',[d4]));
    Add(Format('剩余空间: %f GB',[d3/1024/1024/1024*d2*d1]));
    Add(Format('总空间: %f GB',[d4/1024/1024/1024*d2*d1]));
  end;
end;