No wiec tak mam cos takiego:
var
Ss:string;
df,ds:integer;
begin
ss:=lstnapedow.Text;
delete(ss,2,2);
df := DiskFree(Ord(ss[1]) - 64);
ds := DiskSize(Ord(ss[1]) - 64);
showmessage(inttostr(df));
showmessage(inttostr(ds));
No i teraz opis do tego :-)
lstnapedow to jest TComboBox i w nim jest text typu 'C:\' i chcialbym zobaczyc ile jest wolnego
miejsca na dysku i jaka dysk ma pojemnosc no ale o ile wolne miejsce pokazywane dobrze to ile dysk ma
pojemnosci juz jest pokazywane ze na dysku jest - iles tam miejsca. To chyba troche cos nie tak :-)
--pozdrawiam PEDROS {hello}
Nie uzywajcie irca i tak nie ma tam nic ciekawego. Niech nikt tam nie wchodzi ;)
Delphi6