Pojemność dysku

0

Hej
Mam problem. [glowa] Jak zrobić aby w gauge(chyba tak się pisze)
było pokazene ile mam wolnego miejsca na dysku C:/ a w drugim gauge było pokazene ile zajętego miejsca na dysku ??
Prosiłbym o kod.
Dzięki za odpowiedzi [hurra] !!

0

funkcje : diskFree(http://vcl.4programmers.net/viewapi.php?id=118) i diskSize (http://vcl.4programmers.net/viewapi.php?id=119) ... i + F1 oczywiście :).

0

begin
Gauge1.MinValue := 1;
Gauge2.MinValue := 1;
Gauge1.MaxValue := DiskSize(0) div 1024;
Gauge2.MaxValue := DiskSize(0) div 1024;
Gauge1.Progress := DiskFree(0) div 1024;
Gauge2.Progress := (DiskSize(0) div 1024) - (DiskFree(0) div 1024);
end;

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0