Функция DiskExist() 

При помощи этой функции производится определение наличия диска и его типа.

DiskExist( DiskName )  - Возвратить тип диска

DiskName  - Буква обозначения диска, например, 'c'.

Возвращает код типа диска или 0, если тип диска неизвестен.

Прототип: DiskExist(String),Byte

DiskExist FUNCTION (DiskName)

DrStr cstring(6)

  CODE

  DrStr = DiskName & ':\'
  case GetDriveType( DrStr )
  of 2
    return( 2 )   ! Сменный диск
  of 3
    return( 3 )   ! Жесткий диск
  of 4
    return( 4 )   ! Сетевой диск
  of 5
    return( 5 )   ! CDROM
  of 6
    return( 6 )   ! RAM диск
  else
    return( 0 )   ! Not Defined
  .

Использует функцию GetDriveType Windovs API, которая имеет следующий прототип:

OMIT('***',_WIDTH32_)
  GetDriveType(SIGNED),WORD,PASCAL
***
COMPILE('***',_WIDTH32_)
  GetDriveType(*LPCSTR),UNSIGNED,PASCAL,RAW,NAME('GetDriveTypeA')
***