Pascal
Помогите! Хочу узнать свободную часть диска, ввожу номер диска, а он все время выводит значение 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;
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;
Вот рабочий код:
Проверьте вот такой кодбудет работать.
Вводите 3 и более(сколько там у вас дисков).
Если на дисках свободно 2 и более ТБ то ваш код и не мог работать. Ну пока вроде всё.
Код:
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.
{$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 и более ТБ то ваш код и не мог работать. Ну пока вроде всё.