Fala galera do Show Delphi, tudo beleza?
Hoje vamos a dica de como verificar o espaço disponível em Disco.
Para isso vamos fazer uso da função DiskFree do Delphi.
A função DiskFree pele um paramento Byte, no caso
Para unidade C, informe 3;
Para a unidade D, informe 4;
E assim por diante.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | procedure TForm1.Button1Click(Sender: TObject); var S: string; AmtFree: Int64; Total: Int64; begin { Recuperando o espaço disponível na unidade C } AmtFree := DiskFree(3); { Recuperando o Espaço Total } Total := DiskSize(3); { Montando a mensagem } S := 'Espaço disponível na unidade C é de:' + #10#13 + IntToStr(AmtFree div 1024) + ' Kbytes' + #10#13 + IntToStr(AmtFree div 1024 div 1024) + ' Mbytes' + #10#13 + IntToStr(AmtFree div 1024 div 1024 div 1024) + ' Gbytes' + #10#13 + FormatFloat('##0.00 %', AmtFree / Total * 100) + ' disponíveis'; Label1.Caption := S; end; |
Para um melhor entendimento, o Giovani elaborou um vídeo.
Caso tenha interesse por este tipo de conteúdo assista e inscreva-se no canal.
Dúvidas deixe o seu comentário. Um abraço e até o próximo post.
