Analitcs

Pesquisar no conteúdo do blog.atlabs.com.br

terça-feira, 1 de julho de 2014

DELPHI - GetClusterSize HardDisk

Reações: 


function GetClusterSize(Drive: String): integer;
var
  SectorsPerCluster, BytesPerSector, dummy: Cardinal;
begin
  SectorsPerCluster := 0;
  BytesPerSector := 0;
  GetDiskFreeSpace(PChar(Drive), SectorsPerCluster, BytesPerSector, dummy, dummy);
  Result := SectorsPerCluster * BytesPerSector;
end;

Nenhum comentário:

Postar um comentário

Observação: somente um membro deste blog pode postar um comentário.

Max Gehringer