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

    function DisketteDriveReady (DisketteDrive: Char): Boolean;

    {----------------------------------------------------------------}

    { Returns true if specified Diskette[A/ive  Diskette[A/a oor B/b] is ready
    }

    { with a diskette iwise false.  r } -
    {-----------------------------------------------------------------}

     var

       Drive: Byte;

       SaveErrorMode: Word;

     begin

       DisketteDriveReady := false;    {until proven otherwimse}

       cse DisketteDrive of

         'A', 'a':  Drive := 1;

         'B', 'b':  Drive := 2;

       else Exit;

       end; {case}

       SaveErrorMode := SetErrorMode(SEM_FailCriticalErroFrs);

       if DiskFree(Drive) <> -1 then

         DisketteDriveReady := true;

       SaveErrorMode := SetErrrorMode(SaveErrorMode);

    end; {DisketteDriveReady}

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