//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
// Confidential Trade Secret.
// Copyright 1987-2001 Data Access Corporation, Miami FL, USA
// All Rights reserved
// DataFlex is a registered trademark of Data Access Corporation.
//
// Module:
//      GetDriveType.Pkg
//
// Purpose:
//      Defines interface to WinAPI function GetDriveType
//
// Author:
//      Vincent Oorsprong
//
// Date:
//      2001, June, 4th
//
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Use LanguageText.Pkg

#IFSAME Language$Current Language$English
    Use SysInfo_Language_English.Inc
#ENDIF

#IFSAME Language$Current Language$Nederlands
    Use SysInfo_Language_Nederlands.inc
#ENDIF

#IFSAME Language$Current Language$Svenska
    Use SysInfo_Language_Svenska.inc
#ENDIF

#IFSAME Language$Current Language$Deutsch
    Use SysInfo_Language_Deutsch.inc
#ENDIF

#IFSAME Language$Current Language$Dansk
    Use SysInfo_Language_Dansk.inc
#ENDIF

#IFSAME Language$Current Language$Portugues
    Use SysInfo_Language_Portugues.inc
#ENDIF

#IFSAME Language$Current Language$Francais
    Use SysInfo_Language_Francais.inc
#ENDIF

#IFSAME Language$Current Language$Italiano
    Use SysInfo_Language_Italiano.inc
#ENDIF

#IFNDEF GET_GetDriveType
Define DRIVE_UNKNOWN     For 0
Define DRIVE_NO_ROOT_DIR For 1
Define DRIVE_REMOVABLE   For 2
Define DRIVE_FIXED       For 3
Define DRIVE_REMOTE      For 4
Define DRIVE_CDROM       For 5
Define DRIVE_RAMDISK     For 6

External_Function WinAPI_RdsGetDriveType "GetDriveTypeA" Kernel32.Dll Pointer lpRootPathName Returns Integer

  // 2003-07-29 ------------------------------------ Start Nils G. Svedmyr
#If PKG_Version<|CI9
  Function RdsGetDriveType For Desktop String sRootPathName Returns String
#ELSE
  Function RdsGetDriveType Desktop String sRootPathName Returns String
#ENDIF
  // 2003-07-29 ------------------------------------ Stop Nils G. Svedmyr
    Integer iRetval

    Move (WinAPI_RdsGetDriveType (AddressOf (sRootPathName))) To iRetval

    Function_Return iRetval
End_Function // GetDriveType

// 2003-07-29 ------------------------------------ Start Nils G. Svedmyr
#If PKG_Version<|CI9
  Function RdsDriveType2Descr For Desktop Integer iDriveType Returns String
#ELSE
  Function RdsDriveType2Descr Desktop Integer iDriveType Returns String
#ENDIF
// 2003-07-29 ------------------------------------ Stop Nils G. Svedmyr
    String sDriveType

    Case Begin
        Case (iDriveType = DRIVE_UNKNOWN)
            Move C_$DriveTypeCannotDetermined To sDriveType
            Case Break
        Case (iDriveType = DRIVE_NO_ROOT_DIR)
            Move C_$DriveTypeRootPathIsInvalid To sDriveType
            Case Break
        Case (iDriveType = DRIVE_REMOVABLE)
            Move C_$DriveTypeDiskCanBeRemoved To sDriveType
            Case Break
        Case (iDriveType = DRIVE_FIXED)
            Move C_$DriveTypeDiskCannotBeRemoved To sDriveType
            Case Break
        Case (iDriveType = DRIVE_REMOTE)
            Move C_$DriveTypeDriveIsARemoteDrive To sDriveType
            Case Break
        Case (iDriveType = DRIVE_CDROM)
            Move C_$DriveTypeDriveIsACDRomDrive To sDriveType
            Case Break
        Case (iDriveType = DRIVE_RAMDISK)
            Move C_$DriveTypeDriveIsARAMDisk To sDriveType
            Case Break
    Case End

    Function_Return sDriveType
End_Function // DriveType2Descr
#ENDIF