Форум: "Начинающим";
Текущий архив: 2006.07.02;
Скачать: [xml.tar.bz2];
ВнизПредыдущий каталог Найти похожие ветки
← →
Новичок__ (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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.01 c