再次提问，一个比较不常见的问题，请各位高人相助。谢谢，在下感激不尽，大家都进来看看！

Question

我想写一个性能测试软件，在这个软件中涉及到当硬盘空间很小的时候（甚至系统提示低磁盘空间），我们被测试的软件是否能正常工作。
我的问题是：我想写一个消耗硬盘空间的程序，也就是我们可以随心的控制所剩硬盘空间的大小（最好不要用不停的向硬盘写文件的形式来达到，这样不但很慢，而且不够实际）。请问有没有人做过这方面的？有没有现成的API可以调用？或者通过给一个文件分配一定的空间，但实际不向文件里面写东西，来实现达到他占用一定空间。

Answer 1

这个问题其实很简单，你只要动态设置回收站的大小就可以了，硬盘空间自然就变小了，而且不可用，意思是你只要调用一些与回收站有关的API就行了！

Answer 2

var
  f:TFileStream;
begin
  f := TFilestream.create('c:\1',fmcreate);
  f.size := 1000000000;
  f.free;
end;速度很快。