SysInfo mit einigen Fragen

[RWarnecke]

Ich benutze gerne diese Funktion um die Größe der Platte anzuzeigen.

Delphi-Quellcode:

////////////////////////////////////////////////////////////////////////////////
//
//  Funktion zum bestimmen der Größe in Byte, KiloByte, MegaByte, GigaByte oder
//  TeraByte
//
function FormatSize(SizeB: Extended): String;
begin
  if SizeB>1099511627776 then result:=Format('%f TB',[SizeB/1024/1024/1024/1024]) else
  if SizeB>1024*1024*1024 then result:=Format('%f GB',[SizeB/1024/1024/1024]) else
  if SizeB>1024*1024 then result:=Format('%f MB',[SizeB/1024/1024]) else
  if SizeB>1024 then result:=Format('%f KB',[SizeB/1024]) else
  if SizeB>=0 then result:=Format('%f Byte',[SizeB]);
end;