Здравствуйте.
Подскажите функцию которая бы возвращала путь к программе,
то есть в программе нажимаем кнопочку и скажем в label пишется путь где она лежит на жестком диске
Баламучу слегка.
Участник клуба
Регистрация: 01.11.2006
Сообщений: 1,585
ExtractFilePath(Application.ExeName)
Регистрация: 28.01.2009
Сообщений: 20,999
мне всетаки кажется что лучше уж сразу
ExtractFilePath(ParamStr(0));
учитывая что
function TApplication.ExeName:string; begin Result:=ParamStr(0); end;
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Форумчанин
Регистрация: 05.07.2010
Сообщений: 136
мне всетаки кажется что лучше уж сразу
По-большому счету всё равно. Имхо, Application.ExeName более понятно, впрочем, кому как.
Регистрация: 28.01.2009
Сообщений: 20,999
| По-большому счету всё равно. |
порой нужна наивысшая производительность, и лишний call тогда лучше убрать+мой вариант работает и в консоли.
Файл настроек программы (ini файл) Delphi
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Баламучу слегка.
Участник клуба
Регистрация: 01.11.2006
Сообщений: 1,585
В вопросе прозвучало «label» и потому мысль о консоле как-то не пришла в голову. Хотя конечно, Пепел Феникса здесь абсолютно прав.
Погулять вышел
Участник клуба
Регистрация: 17.05.2010
Сообщений: 1,573
А если человек хотел узнать путь не к самой программе, а только к МЕСТУ ГДЕ ОНА ЛЕЖИТ )))
Никогда не знаешь, где тебе повезет. (Фрай)
Участник клуба
Регистрация: 28.03.2007
Сообщений: 1,814
Вы сами то поняли что спросили
Попробуйте выполнить следующий код
label1.Caption:=ExtractFilePath(Application.ExeName)
и посмотрите что будет.
Источник: www.programmersforum.ru
Путь к EXE программы
В переменной MyDIR будет храниться путь до папки в которой расположена программа.
Но это не единственный вариант. Можно используя функцию:
function ParamStr(Index: Integer): string;
Функция ParamStr(Index: Integer) возвращает параметр под номером Index. С помощю этой функции можно прочесть параметр, с которым она запущена. Но нулевой параметр всегда будет путь до файла программы.
MyDIR:=ExtractFileDir(ParamStr(0));
Примечание. В обоих случаях определяется путь к директории с EXE файлом программы, без «» на конце.
Просмотров: 26221
Порядок вывода комментариев:
Всё о Delphi & Pascal / Из музыканта в программисты / Интервью с Delphi Developer
0 
Спам
( 08.06.2011 )
3. Senk
SnAtVB
Спасибо! помогло!
0 Спам
( 19.06.2010 )
2. ice_sphere
Да, но лишь в том случае, если текущую папку не меняли через ChDir()
0 Спам
( 18.06.2010 )
1. SnAtVB
Я считаю проще будет GetCurrentDir
Последние комментарии:
Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам.
Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации.
Источник: delphidevelop.ru
delphi путь к exe
Функция ParamStr(0) — возвращает нулевой параметр командной строки, т.е. полное имя исполняемого файла. Функция ExtractFilePath(FileName:string) — возвращает каталог, в котором лежит переданный ей файл. Сочетание этих функций вернёт путь к exe файлу: ExtractFilePath(ParamStr(0)).
В переменной MyDIR будет храниться путь до папки в которой расположена программа.
Но это не единственный вариант. Можно используя функцию:
Функция ParamStr(Index: Integer) возвращает параметр под номером Index. С помощю этой функции можно прочесть параметр, с которым она запущена. Но нулевой параметр всегда будет путь до файла программы.
Примечание. В обоих случаях определяется путь к директории с EXE файлом программы, без «» на конце.
Обсудить на форуме
Delphi , Программа и Интерфейс , EXE файл
Статья Получить путь к EXE по дескриптору окна раздела Программа и Интерфейс EXE файл может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
Источник: softlast.ru