使用函数BOOL GetDiskFreeSpace( LPCTSTR lpRootPathName, // address of root path LPDWORD lpSectorsPerCluster, // address of sectors per cluster LPDWORD lpBytesPerSector, // address of bytes per sector LPDWORD lpNumberOfFreeClusters, // address of number of free clusters LPDWORD lpTotalNumberOfClusters // address of total number of clusters );这里有一个例子：function TsysInfo.GetDrive(drive:String):String;Var i:integer; buffer :String; spc, bps, nofc,tnoc:dword; //用于存放磁盘容量的变量Begin i:=getdrivetype(pchar(drive+':/')); buffer:=' '+drive+': '; case i of DRIVE_UNKNOWN : buffer:=buffer+'未知类型'; DRIVE_REMOVABLE: buffer:=buffer+'软盘'; DRIVE_FIXED : begin buffer:=buffer+'硬盘'; if getdiskfreespace(pchar(drive+':/'),spc,bps,nofc,tnoc) then begin buffer:=buffer+'总容量: '+inttostr((spc*bps*tnoc) div (1024*1024))+'MB'; buffer:=buffer+'剩余: '+inttostr((spc*bps*nofc) div (1024*1024))+'MB'; end; end; DRIVE_REMOTE : buffer:=buffer+'网络驱动器'; DRIVE_CDROM :buffer:=buffer+'CD-ROM驱动器'; DRIVE_RAMDISK:buffer:=buffer+'RAM虚拟驱动器'; end; result := buffer;End;转载
