PROGRAMERO

Nesse exemplo mostraremos como recuperar informações como setores, bytes por setores e aghrupamentos livres, o exemplo completo pode ser baixado aqui . Insira no formulario um Edit para receber o caminho do diretorio, um memo para mostrar as informações e um botão para iniciar a consulta, segue a codificação do click do botão: var   SetoresPorAgrup, BytesPorSetor, AgrupLivres,   TotalAgrup: DWord; begin   Memo1.Clear;   if GetDiskFreeSpace( pchar(Edit1.Text) , SetoresPorAgrup,       BytesPorSetor, AgrupLivres, TotalAgrup) then   with Memo1.Lines do begin     Add( '------------------------------------------------------------------' );     Add( '----- Informações sobre a unidade [' +Edit1.Text+ '] -----' );     Add( 'Setores por agrupamento: ' + IntToStr(SetoresPorAgrup));     Add( 'Bytes por seto...