Описание функции

IsVirtualDisk

Проверяет является ли диск виртуальным

IsVirtualDisk(DriveLetter$)

Параметры

DriveLetter$ Диск, например C:

Возвращаемое значение

Успех:Возвращает:
0 - диск не виртуальный
1 - диск виртуальный

Примечания

Используйте GetDrives(). Если необходимо проверить диск на ошибки, то приходится исключать виртуальные диски.

Пример

EnableExplicit

Procedure IsVirtualDisk(DriveLetter$)
    Protected lpTargetPath$ = Space(#MAX_PATH)
    QueryDosDevice_(@DriveLetter$, @lpTargetPath$, #MAX_PATH)
    If Left(lpTargetPath$, 7) <> "\Device" Or (DriveLetter$ = "X:" And Left(lpTargetPath$, 15) = "\Device\Ramdisk")
        ProcedureReturn 1
    Else
        ProcedureReturn 0
    EndIf
EndProcedure

Debug IsVirtualDisk("C:")