disksize.pas

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

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

Скачать disksize.pas