segunda-feira, 9 de janeiro de 2012

(Delphi) Pegar espaço do hd

Saudações!

Para pegar o espaço livre, usado ou total do hd (disco rigido ou hard disk) basta usar o seguinte código




          total := (DiskSize(3) div  1000000);
          livre := (DiskFree(3) div  1000000);
          usado := (DiskSize(3) -DiskFree(3)) div  1000000;


Também não esqueça de declarar as variáveis usando

var total, livre, usado:integer;

As divisões servem para retorna o resultado em megabytes

O número três indica o hd para coletar as informações. No meu caso, C:/

Abraço!

Nenhum comentário:

Postar um comentário