MyDIR:=ExtractFileDir(Application.ExeName);
В переменной MyDIR будет храниться путь до папки в которой расположена программа.
Но это не единственный вариант. Можно используя функцию:
function ParamStr(Index: Integer): string;
Функция ParamStr(Index: Integer) возвращает параметр под номером Index. С помощю этой функции можно прочесть параметр, с которым она запущена. Но нулевой параметр всегда будет путь до файла программы.
MyDIR:=ExtractFileDir(ParamStr(0));
Примечание. В обоих случаях определяется путь к директории с EXE файлом программы, без "\" на конце.
Просмотров: 26221
2. ice_sphere
Да, но лишь в том случае, если текущую папку не меняли через ChDir()
|
Copyright © 2008 - 2018 Программирование на Delphi для начинающих и не только.
Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам.
Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации.