Функция позволяет определить тип устройства,
--------------------------------------------------------------------
1 Неопределенный тип
2 Устройство блочного доступа (гибкий, жесткий диск и проч.)
3 Сетевое устройство
4 Устройство посимвольного доступа (порт, монитор и проч.)
5 Оперативная память
--------------------------------------------------------------------
Описание
Функция позволяет определить тип устройства, при обращении к которому
произошла ошибка, и на основании этой информации предпринять
какие-либо действия. Применение данной функции полезно при анализе
значений, возвращаемых CT II-функциями, обеспечивающими возможность
обработки ошибок.
Примечания
. Функция поддерживается версиями DOS 3.1 и выше.
Примеры
. Определение устройства - источника ошибки:
nSource := ERRORORG()
IF nSource = 3
? "Ошибка в сети !"
ENDIF
See Also: ERRORACT()
ERRORBASE()
ERRORORG()
EXENAME()
Возвращает путь доступа к директории и имя файла прикладной программы.
------------------------------------------------------------------------------
Синтаксис
EXENAME() --> cProgram
Возвращаемое значение
cProgram - символьная строка, содержащая путь доступа к директории и
имя файла прикладной Clipper-программы.
Описание
Функция позволяет определить путь доступа к директории и имя EXE-файла
прикладной Clipper-программы, которая выполняется в текущий момент.
Примечания
. Выделение элементов из возвращаемой строки можно произвести с
помощью функции TOKEN().
Примеры
. Определение изменения пути доступа и имени Clipper-программы:
cOrigName := "C:\DATA\ADDRESS.EXE"
IF EXENAME() <> cOrigName
? "Имя программы или директория изменены !"
QUIT
ENDIF
