此程序如何修改?
float GetTheFreeSpace(AnsiString ThePath)
{
ULARGE_INTEGER FreeSpaceToCall,TotalSpace,FreeSpace;
AnsiString drv = ExtractFileDrive(ThePath);
float TheFreeSpace;
::GetDiskFreeSpaceEx(drv.c_str(),&FreeSpaceToCall,&TotalSpace,&FreeSpace);
TheFreeSpace=FreeSpace.QuadPart/1024/1024;
return TheFreeSpace;
}