程序为:
boolean rtn
ulong lu_sec, lu_byte, lu_num, lu_total
string ls_drive
ls_drive = ddlb_drive.text
if ls_drive = "C:" then
setnull(ls_drive)
end if
rtn = GetDiskFreeSpaceA(ls_drive, lu_sec, lu_byte, lu_num, lu_total)
IF rtn = false then
Messagebox("GetDiskFreeSpaceA", "Function Failed")
return
end if
Number of sectors per cluster.text = string(lu_sec)
Number of bytes per sector.text = string(lu_byte)
Number of free clusters.text = string(lu_num)
GetLogicalDriveStrings.text = string(lu_total)
//Process
ulong plspc,plbpc,plnumc,plnumtc
ulong plspace
if GetDiskFreeSpaceA(pspath,plspc,plbpc,plnumc,plnumtc) then
plspace=plspc*plbpc*plnumc
else
plspace=-1
end if