[Back to HARDWARE SWAG index] [Back to Main SWAG index] [Original]

    {
    > Is there any way to find the size of each allocation Unit in a Hard drive?
    }

    Uses Dos;

    Function clustsize (drive : Byte) : Word;
    Var
      regs : Registers;
    begin
      regs.cx := 0;         {set For error-checking just to be sure}
      regs.ax := $3600;     {get free space}
      regs.dx := drive;     {0=current, 1=a:, 2=b:, etc.}
      msDos (regs);
      clustsize := regs.ax * regs.cx;      {cluster size!}
    end;

    begin
      Writeln(ClustSize(0));
    end.

[Back to HARDWARE SWAG index] [Back to Main SWAG index] [Original]