function GetBytesPerCluster(const ADrive: String): Int64;
var
SectorsPerCluster: DWORD;
BytesPerSector: DWORD;
Dummy: DWORD;
begin
if GetDiskFreeSpace(PChar(ADrive), SectorsPerCluster, BytesPerSector, Dummy, Dummy) = 0 then
Exit(0);
Result := SectorsPerCluster * BytesPerSector;
end;
'Windows > RAD Studio' 카테고리의 다른 글
[Win32] 메모리 사용량 확인 (0) | 2015.05.06 |
---|---|
[C++, Win32] Thread safe FreeAndNil (0) | 2015.04.28 |
[Del] Compiler Directive (0) | 2014.12.08 |
WMI (Windows Management Instruments) 이용 쉽게하기. (하드웨어 정보) (0) | 2014.01.09 |
[BCB] 관리자 권한 확인 (0) | 2013.07.09 |