Получение пути запуска

[Darth]

Есть программа, допустим лежит на C:\program\program.exe
и есть .bat файл запускающий эту программу, допустим на диске d:\BAT\1.bat
Как можно в программно получить путь, откуда она была запущена, т.е. путь d:\BAT?
Изначально неизвестно в какой папке находиться .bat, известна только папка самой программы

[Hollander]

Как ты узнаешь что нужно запустить d:\BAT\1.bat?

[Darth]

структура .bat файла

@Echo OFF
с:\program\program.exe
@echo ON
exit

не программа запускает батник, а батник программу. И запускают его(батник) руками.

[Arigato]

Если батник лежит в другой папке, нежели программа, то при запуске программы текущим будет путь не до программы, а до батника. А значит поступай так:

GetDir (0, S);

[Darth]

поступил куда проще, в батнике

@Echo OFF 
с:\program\program.exe "%~dp0"
@echo ON
exit

и в программе, при запуске:

path:=UpperCase(ParamStr(1));

в переменную path заносится то что нужно

[Arigato]

Мне не кажется, что этот вариант оказался проще. Ну да главное, что бы задача была решена