просмотр свободного места на указанном диске

[ыыф]

Привет
у меня есть код
Код Delphi

i := 2 to 6 do
begin
space := DiskFree(i);

if space >= 0
then ShowMessage('Свободное место на диске = '+Chr(i+64)+
FloatToStrF(space, ffNumber, 20, 0))
else ShowMessage(Chr(i+64)+'Диск не существует');
end;
он просматривает диски по очереди
возможно ли сделать просмотр свободного места по указанному в Edit-е диску?


пробывал ещё

var
FreeBytesAvailableToCaller: TLargeInteger;
FreeSize: TLargeInteger;
TotalSize: TLargeInteger;
begin
GetDiskFreeSpaceEx('c:', FreeBytesAvailableToCaller,
Totalsize,
@FreeSize);
end;

но тот даже ваще ничего не выводил

[misher]

У меня существуют диски под номер С и D (т.е. 3 и 4). По этому ввожу номер в едит, вам если нужно букву, то вы получайте текст из edit и в зависимости от буквы присваивайте цифру. Вывожу в Кбайтах, разделите X еще на 1024, получите Мб.

procedure TForm1.Button2Click(Sender: TObject);
var
   X: real;
   i: integer;
begin
    i:= strtoint(Edit1.Text);
   X:= DiskFree(i)/1024;
   MessageDlg('Свободно: '+ floatToStr(X)+' Кб', mtInformation, [mbOk], 0);
end;

end.