Verificar espaço em disco....
:?: E ai galera gostaria de saaber se alguem sabe como fazer o Delphi verificar o espaço livre em um partição C: de um HD......
Agardo uma ajuda valeu.....
Agardo uma ajuda valeu.....
Lemaf
Curtidas 0
Respostas
Edilcimar
15/10/2005
tirado do help do delphi
This example uses a form with a label on it. When the following code executes, it displays a message in the label indicating the number of KB free, and what percentage of the entire disk space that represents.
var
S: string;
AmtFree: Int64;
Total: Int64;
begin
AmtFree := DiskFree(0);
Total := DiskSize(0);
S := IntToStr(AmtFree div Total) + ´percent of the space on drive 0 is free: ´ (AmtFree div 1024) + ´ Kbytes free. ´;
Label1.Caption := S;
end;
This example uses a form with a label on it. When the following code executes, it displays a message in the label indicating the number of KB free, and what percentage of the entire disk space that represents.
var
S: string;
AmtFree: Int64;
Total: Int64;
begin
AmtFree := DiskFree(0);
Total := DiskSize(0);
S := IntToStr(AmtFree div Total) + ´percent of the space on drive 0 is free: ´ (AmtFree div 1024) + ´ Kbytes free. ´;
Label1.Caption := S;
end;
GOSTEI 0
Lemaf
15/10/2005
Valeu pela dica..... :P
GOSTEI 0