Текущий архив: 2006.07.02;
Скачать: CL | DM;

Вниз

Предыдущий каталог   Найти похожие ветки 

← →
Новичок__   (2006-06-12 19:42) [0]

На форме рассположен Button при нажатии, которого выводиться путь к файлу.
Подскажите, пожайлуста, как можно определить путь к предыдущему каталогу относительно exe файла?

Например:
C:\Katalog1\Katalog2\File.exe

...после нажатия на Button вывести message: "C:\Katalog1"

---

← →
Rial ©   (2006-06-12 19:44) [1]

ExtractFileDir(FileName)

---

← →
begin...end ©   (2006-06-12 19:48) [2]

ExtractFileDir(ExtractFileDir(FileName))

---

← →
Dmitrij_K   (2006-06-12 19:52) [3]

Вроде так
function GetPrevDir(const aFileName:AnsiString):AnsiString;
var j,k,r:Integer;
begin
 r := 0;
 k := Length(aFileName);
 for j:=k downto 1 do
 begin
   if aFileName[j]="\" then Inc(r);
   if r=2 then
   begin
     k := j;
     break;
   end;
 end;
 result := copy(aFileName,1,k);
end;

---

← →
Новичок__   (2006-06-12 20:13) [4]

Всем спасибо за оперативную помощь. Опробовал ExtractFileDir и GetPrevDir всё отлично идёт.

---

Страницы: 1 вся ветка

Текущий архив: 2006.07.02;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.041 c