如何获得当前运行程序的磁盘空间啊！

$^(@&$(&$@#&,disksize();GetDiskFreeSpace()

解决方案 »

  1.   

    用disksize(a);取磁盘空间
    用diskfree(a);取可用空间
    a为1(A驱),2(B驱），3（C驱）.......
      

  2.   

    查一下GetCurrentDirectory() win32API & GetFreeSpaceForDrive Delphi 啦。 
      

  3.   

    很简单，先使用GetCurrentDirectory()获得程序所在的目录，在使用Copy函数截取第一个字符，一定是一个盘符，再使用GetFreeSpaceForDrive函数就可以了！
      

  4.   

    Linux2001,好象在DELPIH中没有你说的那个函数啊！
      

  5.   

    是不是要在程序中声明要用WIN32API啊！那怎么申明呢！不好意思，很菜的问题，很菜的人！
      

  6.   

    VAR
    b,c,d,e: dword;
    begin
    ...
    getdiskfreespace(pchar('c:\'),b,c,d,e);
    ...
    end;
      

  7.   

    b,sectors per cluster 每簇扇区数
    c,bytes per sector 每扇区字节数
    d,free clusters    空闲簇数
    e,number of clusters  簇总数
    ＯＫ？