DiskFree: Porovnání verzí

Z Delphi & Pascal (česká wiki)
Skočit na navigaci Skočit na vyhledávání
m (1 revízia: Uses DOS)
 
Řádek 34: Řádek 34:
 
  {Diskfree.PAS}
 
  {Diskfree.PAS}
 
  {Vzorový příklad pro funkci DiskFree.}
 
  {Vzorový příklad pro funkci DiskFree.}
 +
 
  { Pro Windows: }
 
  { Pro Windows: }
 
  { uses WinDos, WinCrt; }
 
  { uses WinDos, WinCrt; }

Aktuální verze z 12. 1. 2014, 22:35

Vrací počet volných bajtů v určené diskové jednotce.

Deklarace
function DiskFree(Drive: Byte): Longint;
Režim
Windows, Reálný, Chráněný
Poznámky
kde
0 Aktuální jednotka
1 Mechanika A
2 Mechanika B
3 Disk C
atd.
Návratová hodnota
-1, pokud je číslo diskové jednotky neplatné.
Viz také
DiskSize
GetDir


Vzorový příklad

{Diskfree.PAS}
{Vzorový příklad pro funkci DiskFree.}

{ Pro Windows: }
{ uses WinDos, WinCrt; }

uses Dos;
begin
  Writeln(DiskFree(0) div 1024, ' Kbajtů volných ');
end.