//drony@mynet.com
//icq:266148308
procedure TForm1.Button1Click(Sender: TObject);
Var
RootPath : String;
Sec_Cluster, Bytes_Sec, Free_Clusters, Total_Clusters : DWord;
begin
RootPath := 'C:\';
GetDiskFreeSpace(PChar(RootPath), Sec_Cluster, Bytes_Sec, Free_Clusters, Total_Clusters);
ListBox1.Items.Add('RootPath : ' + RootPath);
ListBox1.Items.Add('Sectors Per Cluster : ' + IntToStr(Sec_Cluster));
ListBox1.Items.Add('Bytes Per Sector : ' + IntToStr(Bytes_Sec));
ListBox1.Items.Add('Free Clusters : ' + IntToStr(Free_Clusters));
ListBox1.Items.Add('Total Clusters : ' + IntToStr(Total_Clusters));
ListBox1.Items.Add('Free Bytes : ' + IntToStr(Bytes_Sec * Sec_Cluster * Free_Clusters));
ListBox1.Items.Add('Total Bytes : ' + IntToStr(Bytes_Sec * Sec_Cluster * Total_Clusters));
end;