[Midmal]

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

Код:

UBPFD.TrimEx

[Aristarh Dark]

ExtractFilePath работает и для директорий, попробуй и увидишь.

[Страдалецъ]

Так он возвращает не родительскую директорию, а дочернюю по отношению к родительской (О завернул!)
А для получения родительской можно сделать так:

Код:

Var
  Path: String;
begin
 Path := 'C:\ParentDir\ChildDir\';
 Form33.Caption := Copy(Path,1,Length(Path)-PosEx('\',ReverseString(Path),2)+1);
end;

Если кто вспомнит как называется функция поиска строки справа, то можно сделать попроще.

[Aristarh Dark]

Страдалецъ, расскажи в чем отличия результатов?

Код:

Var
  Path: String;
begin
 Path := 'C:\ParentDir\ChildDir';
 ShowMessage(Copy(Path,1,Length(Path)-PosEx('\',ReverseString(Path),2)+1));
 ShowMessage(ExtractFilePath(Path));
end;

[Rokuell]

Aristarh Dark, А если так ?

Код:

Var
  Path: String;
begin
 Path := 'C:\ParentDir\ChildDir\';
 ShowMessage(Copy(Path,1,Length(Path)-PosEx('\',ReverseString(Path),2)+1));
 ShowMessage(ExtractFilePath(Path));
end;

Вариант 1 выдаёт: C:\ParentDir\
Вариант 2 выдаёт: C:\ParentDir\ChildDir\

[Страдалецъ]

Именно так. Челу же нужна родительская т.е. вышестоящая по отношению к выбранной. И вызов данной функции оправдан при вложенности более одного.

[Midmal]

Блин, похоже меня не так поняли, или я не правильно задал свой вопрос... Короче и проще говоря, мне надо узнать каким образом можно определить из какой папки запускается моя программа. Это можно выполнить конечно и таким образом

Код:

ShowMessage(Application.ExeName);

Но, результат поличится примерно такой G:\Soft\MyProgs\Projects1.exe
А можно ли просто получить такой результат G:\Soft\MyProgs\???

[AleD]

Сообщение от Midmal

Блин, похоже меня не так поняли, или я не правильно задал свой вопрос... Короче и проще говоря, мне надо узнать каким образом можно определить из какой папки запускается моя программа. Это можно выполнить конечно и таким образом

Код:

ShowMessage(Application.ExeName);

Но, результат поличится примерно такой G:\Soft\MyProgs\Projects1.exe
А можно ли просто получить такой результат G:\Soft\MyProgs\???

Код:

// Application.ExeName = C:\MyApp\App.exe (ещё можно ParamStr(0))
AppDir := ExtractFileDir(ParamStr(0));

я так всегда узнаю путь к ЕХЕшнику

[Midmal]

Ага, большое спасибо, мне очень помог твой метод, ещё раз спасибо большое!