Como descobrir o espaço em disco disponível via Delphi.
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.
Vamos ao entendimento!
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.
Vamos ao exemplo!
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; |
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.
-
Giovani Da Cruz
-
2.639 views
- 0 comentários
- 4 de outubro de 2020
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Posts Relacionados - Continue Aprendendo