{******************************************}
{* Routinen (Prozeduren), um Laufwerke zu *}
{* sperren oder freizugeben               *}
{******************************************}

PROCEDURE LockDrive(Drive : BYTE);
{ Sperrt ein Laufwerk. Drive : A=0, B=1 etc.
  arbeitet mit MSDOS 4.x aufw„rts }
VAR r : REGISTERS; {Variablen}
BEGIN
  r.ax := $5F08;   {Registerzuweisungen}
  r.dl := Drive;
  Intr($21,r);     {Interruptaufruf}
  { Hier kann das Carry-Flag �berpr�ft werden, ob ein Fehler
    auftrat. Wenn dem so ist, ist der Fehler-Code in r.ax }
END;

PROCEDURE UnLockDrive(Drive : BYTE);
{ Entsperrt ein Laufwerk. Drive : A=0, B=1 etc.
  arbeitet mit MSDOS 4.x aufw„rts }
VAR r : REGISTERS;
BEGIN
  r.ax := $5F07;
  r.dl := Drive;
  Intr($21,r);
 { Hier kann das Carry-Flag �berpr�ft werden, ob ein Fehler
    auftrat. Wenn dem so ist, ist der Fehler-Code in r.ax }
END;