C++基础解析十四

    一、GetDiskFreeSpace-获取磁盘组织与容量信息

    //声明:
　　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;
　　//效果图:

    二、GetDiskFreeSpaceEx-获取磁盘容量信息

    //声明:GetDiskFreeSpaceEx(
　　lpDirectoryName: PChar;　　　　　　　　　{磁盘根路径}
　　var lpFreeBytesAvailableToCaller: TLargeInteger; {可用空间}
　　var lpTotalNumberOfBytes: TLargeInteger;　　　 {总空间}
　　TotalFree: PLargeInteger　　　　　　　　 {剩余空间}
　　): BOOL;//举例:procedure TForm1.FormCreate(Sender: TObject);
　　var
　　d1,d2,d3: Int64;
　　begin
　　GetDiskFreeSpaceEx('C:',d1,d2,@d3);
　　Memo1.Clear;
　　with Memo1.Lines do
　　begin
　　Add(Format('可用空间: %f GB',[d1/1024/1024/1024]));
　　Add(Format('总空间: %f GB',[d2/1024/1024/1024]));
　　Add(Format('剩余空间: %f GB',[d3/1024/1024/1024]));
　　end;
　　end;//效果图:

3COME考试频道为您精心整理，希望对您有所帮助，更多信息在http://www.reader8.net/exam/