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

    {
     -=> Quoting Christian Proehl to All <=-

     CP> Subject: Disk-detecting routines without DOS (and

     CP> Muelheim, den 20.05.94

     CP> Hello!

     CP> I have problem I don't know how to solve it.
     CP> Perhaps someone around the world knows more, please help me!

     use the bios call

      function $16, int $13
    }

    function DiskChange( DriveNmber :Byte) :Boolean;
    Begin
     ASm
       Mov AH, $16
       Mov DL, driveNmber
       Int $13
       Mov AL,AH;  { use AL & AH as a Return Value }
     End;
    End;

    Begin
      If DiskChange(0) then Write(' Disk has Changed in Drive ''A'' ')
       Else
         Write(' Disk Has changed ');
    end.

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