Permalink

0

GetDiskFreeSpace

procedure TForm1.Button3Click(Sender: TObject); Var   RootPath : String;   Sec_Cluster, Bytes_Sec, Free_Clusters, Total_Clusters : DWord; begin   // Set the Drive to check   RootPath := ‘C:\’;   GetDiskFreeSpace(PChar(RootPath), Sec_Cluster, Bytes_Sec, Free_Clusters, Total_Clusters);   // Lets put information into a … Weiterlesen