[delphi] pojemność dysku

cześć. co mam zrobić aby delphi pobrało informacje o pojemności dysku "c" i wyświetliło wynik na np. lablu ( czy jak to się tam pisze :D) z góry dzięki.
POZDRAWIAM !!

--
!! Jak mam sie nauczyc programownia ? :-( !!

"jak mam się nauczyć programowania...." kup se ksiązki Adama.. moi to w 100 procentach pomogło...

--
Jeśli Coś wydaje Ci się trudne, spróbuj zrobić to na chłopski rozum.

wpisz
showmessage('Wolnego mam: '+inttostr(diskfree(3));

3 - C
bo 2- B
a 1 - A

czemu popatrz alfabet!

[cisza]
Osadnik

cześć. co mam zrobić aby delphi pobrało informacje o pojemności dysku "c" i wyświetliło wynik na np. lab...

Label1.Caption := Format('Wolne miejsce: %d MB',[DiskFree(0) div (10241024)]);
Label2.Caption := Format('Pojemność dysku: %d MB', [DiskSize(0) div (10241024)]);

DiskSize(0) // bieżący dysk (w bajtach)
DiskSize(3) // dysk C