| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Предыдущий каталог

Новичок__ ©   (2006-06-12 19:42:00) 

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

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

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

---

Новичок__   (2006-06-12 20:13:00) [1]

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

---

Dmitrij_K   (2006-06-12 19:52:00) [2]

Вроде так
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;

---

begin...end   (2006-06-12 19:48:00) [3]

ExtractFileDir(ExtractFileDir(FileName))

---

Rial   (2006-06-12 19:44:00) [4]

ExtractFileDir(FileName)

---

Наверх