Diskfree.PAS

Language:
Русский
English

  {Diskfree.PAS}
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
  {Sample code for the DiskFree function.}

  uses WinDos,WinCrt;

  begin
    Writeln(DiskFree(0) div 1024, ' Kbytes free ');
  end.

Тэги:
| G+
Код для вставки: :: :: :: ::
Поделиться: // //