Mega Code Archive

 

Categories / Delphi / Hardware

 

Harddisk info

//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;