Fórum Verificar espaço em disco.... #299585

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;

Valeu pela dica..... :P