diskfree.pas

Пример программы для функции DiskFree.

Код примера
  {Diskfree.PAS}
  { Пример программы для функции DiskFree }
 
   Uses WinDos, WinCrt;
 
   Begin
  WriteLn('Свободно ', DiskFree(0) Div 1024, ' кбайт.');
 End.

Скачать diskfree.pas