Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 6470
Последний выпуск: 19.06.2015

Pascal

86K
07 марта 2013 года
Никита Палиенко
2 / / 02.01.2013
Помогите! Хочу узнать свободную часть диска, ввожу номер диска, а он все время выводит значение 999934 кб. где ошибка?
procedure Disk_Free;
Var Drive: Byte; a: Longint;
Begin
Write ('Enter Drive Number: ');
Read (Drive);
a:= DiskFree(Drive) Div 1024;
WriteLn ('Free: ', a, ' kb');
End;
456
07 марта 2013 года
QWERYTY
595 / / 25.03.2012
Вот рабочий код:

Код:
program Project1;

{$APPTYPE CONSOLE}


uses
  SysUtils;



procedure Disk_Free;
var
Drive: BYTE;
a: INT64;
Begin
   Writeln('Enter Drive Number: ');
   Readln(Drive);
   a := DiskFree(Drive) Div 1024;
   if a <= 0 then Writeln('Drive not found') else
   Writeln('Free: ', a, ' kb');
end;



begin
  try
    { TODO -oUser -cConsole Main : Insert code here }

     Disk_Free;


     Readln;

  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Проверьте вот такой кодбудет работать.
Вводите 3 и более(сколько там у вас дисков).
Если на дисках свободно 2 и более ТБ то ваш код и не мог работать. Ну пока вроде всё.

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог