Любой путь программы

позволяет располагать программу в любом месте на диске

Любой путь программы

*процедура определения и установка пути программы
*отучает программу от привязанности к пути на диске

xp=ALLTRIM(SYS(16))
xpl=LEN(xp)
i=1
DO WHILE LEFT(RIGHT(xp,i),1)#''
i=i+1
xpl=xpl-1
ENDDO
xp=LEFT(xp,xpl)
SET DEFAULT TO &xp
retu

Автор: Pyhar

Автор публикации

не в сети 6 месяцев

admin

0
Комментарии: 0Публикации: 107Регистрация: 10-12-2000
0
Оставить комментарий
Авторизация
*
*
Регистрация
*
*
*
Пароль не введен
*
Генерация пароля