powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Вычислить путь к программе
9 сообщений из 9, страница 1 из 1
Вычислить путь к программе
    #32356430
Фотография AngelOKES
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Подскажите плиз как опредилить откуда запущена программа?
...
Рейтинг: 0 / 0
Вычислить путь к программе
    #32356435
Фотография Hel!Riser
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
SYS(16)
...
Рейтинг: 0 / 0
Вычислить путь к программе
    #32356466
Фотография AngelOKES
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
sys(16) мне вернул

"PROCEDURE FORM1.LOAD C:\test\MAIN.SCT"

чтобы получить путь надо

right(sys(16),len(sys(16))-21) то получаеться:

C:\test\MAIN.SCT

а если

left(right(sys(16),len(sys(16))-21),len(right(sys(16),len(sys(16))-21))-9)

то C:\test

правда так заумно, но вроде все правильно

Спасибо за подсказку
...
Рейтинг: 0 / 0
Вычислить путь к программе
    #32356596
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Все несколько проще. Если тебя интересует директория по умолчанию, то это

?FullPath('')

Здесь кавычки в качестве параметра обязательны, ну или

?SYS(5)+SYS(2003)

К сведению. Попробуй такую функцию:

?JUSTFNAME(SYS(16))

Функция JUSTFNAME() появилась только начиная с версии VFP6. В более ранних версиях они были в библиотеке FoxPro.fll
...
Рейтинг: 0 / 0
Вычислить путь к программе
    #32356611
Фотография AngelOKES
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ВладимирМ

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

sys(16) работает нормально, если есть другое предложение, то пиши
...
Рейтинг: 0 / 0
Вычислить путь к программе
    #32356722
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Опиши ситуацию, когда директория из которой произошел запуск проги (EXE) - это не есть директория по-умолчанию.

Как правило, та директория откуда запустили EXE автоматически становится директорией по умолчанию. Если это не так, то путь доступа к файлу обычно прописывается явно, как один из параметров и вопрос его определения опять не стоит.
...
Рейтинг: 0 / 0
Вычислить путь к программе
    #32356761
Crip
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
AngelOKES
А если sys(16,0)?
...
Рейтинг: 0 / 0
Вычислить путь к программе
    #32357313
Прожиг
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Вот тебе и текущий и системный и то что было до этого.

Declare Integer GetCurrentDirectory in Win32Api Integer, string @
Declare Integer GetSystemDirectory in Win32Api string @, Integer

ln_MaxSize = 255
lc_BuffSystemDir = SPACE(ln_MaxSize)
lc_BuffCurrentDir = SPACE(ln_MaxSize)

GetCurrentDirectory(ln_MaxSize,@lc_BuffCurrentDir)
GetSystemDirectory(@lc_BuffSystemDir,ln_MaxSize)


lc_app = addbs(lc_BuffCurrentDir)+ADDBS("LIB")
lcAddIns = addbs(lc_BuffCurrentDir)+ADDBS("DBF")

lc_CurrPath = addbs(ALLTRIM(lc_BuffCurrentDir))+";";
+addbs(ALLTRIM(lc_BuffSystemDir))+";"+;
lc_app+";"+;
lcAddIns+';'+;
SET("PATH")

set path to
set path to (lc_CurrPath)
...
Рейтинг: 0 / 0
Вычислить путь к программе
    #32358051
oleg_km
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
2 ВладимирМ

По-моему, если запустить программу ярлыком, где указан рабочий каталог - не каталог программы, или CreateProcess тоже можно указать программе другой каталог. Тогда и в VFP тоже эти каталоги не будут равны

Я на такое напоролся в COM-DLL, где в VFP каталог по умолчанию оказался каталог вызывающего приложения, а путь к DLL я определял через API
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Вычислить путь к программе
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]