随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

//声明:
GetDiskFreeSpace(
  lpRootPathName: PChar;             {磁盘根路径}
  var lpSectorsPerCluster: DWORD;    {一个簇内的扇区数}
  var lpBytesPerSector: DWORD;       {一个扇区内的字节数}
  var lpNumberOfFreeClusters: DWORD; {剩余簇数}
  var lpTotalNumberOfClusters: DWORD {总簇数}
): BOOL;

//举例: procedure TForm1.FormCreate(Sender: TObject); 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;
//效果图:

posted on 2008-02-11 14:55  万一  阅读(...)  评论(...编辑  收藏