WinAPI: GetDiskFreeSpaceEx - 获取磁盘容量信息
2011-09-13 09:31
447 查看
WinAPI: 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;
本文转自:/article/6945724.html
//声明:
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;
本文转自:/article/6945724.html
相关文章推荐
- WinAPI: GetDiskFreeSpaceEx - 获取磁盘容量信息
- WinAPI: GetDiskFreeSpace - 获取磁盘组织与容量信息
- 文件磁盘相关函数[15]-获取磁盘空间信息 WinAPI:GetDiskFreeSpaceEx;
- 获取磁盘类型及剩余空间 GetDiskFreeSpaceEx GetDriveTypeW GetVolumeInformation
- GetDiskFreeSpaceEx磁盘空间
- 磁盘容量(GetDiskFreeSpace函数和GetDiskFreeSpaceEx函数)
- 获得磁盘剩余空间:GetDiskFreeSpaceEx
- GetDiskFreeSpaceEx 函数
- GetDiskFreeSpaceEx函数
- GetDiskFreeSpaceEx函数
- GetDiskFreeSpaceEx 函数介绍
- GetDiskFreeSpaceEx()
- Obtaining Disk Space Information获取磁盘空间信息
- GetDiskSerial DLL获取硬盘信息
- WinAPI: GetSystemMetrics - 获取系统度量等数值信息
- 获取与一个磁盘的组织以及剩余空间容量有关的信息以及代码测试
- WinApi学习笔记-获取电脑中磁盘信息
- [WinAPI] API 8 [获取磁盘空间信息]
- WinAPI: GetSystemInfo - 获取系统信息
- WinAPI: GetSystemPowerStatus - 获取系统电源状态的信息