Форум: "Основная";
Текущий архив: 2003.09.29;
Скачать: [xml.tar.bz2];

Вниз

Как определить папку работ-го приложения?   Найти похожие ветки 

← →
maxXP   (2003-09-15 22:25) [0]

Как определить ПАПКУ раб-го приложения?

Как опред-ся путь раб-го приложения я знаю "Application.exename"

---

← →
8ung   (2003-09-15 22:49) [1]

function Getpath(path:string):string;
var
i : integer;
begin
Result := "";
for i := 1 to Length(path) do
begin
if pos("\",path)> 0 then
begin
Result := Result + copy(path,1,pos("\",path));
Delete(path,1,pos("\",path));
end;
end;
end;

---

← →
Guerrillero   (2003-09-16 00:39) [2]

ExtractFilePath

---

← →
AGGRESSOR   (2003-09-16 10:29) [3]

GetCurrentDir
(по умолчанию текущая директория и есть директория .exe файла)

---

← →
Плохиш_   (2003-09-16 10:38) [4]

>AGGRESSOR © (16.09.03 10:29) [3]

По чьему умолчанию?

---

← →
Vovchik_A   (2003-09-16 10:44) [5]

ParamStr(0)

---

← →
AGGRESSOR   (2003-09-16 10:46) [6]

>Плохиш_ (16.09.03 10:38) [4]

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

---

← →
ZEE   (2003-09-16 10:47) [7]

ExtractFilePath(Application.ExeName)
или
ExtractFilePath(ParamStr(0))

а GetCurrentDir - текущая директория, кот. может отличаться от той где лежит exe-шник

---

← →
ZEE   (2003-09-16 10:48) [8]

поправка
ExtractFilePath - на самом деле путь
а директория определяется
ExtractFileDir

---

← →
Плохиш_   (2003-09-16 10:50) [9]

>AGGRESSOR © (16.09.03 10:46) [6]

c:\tmp> d:\nnn\prog.exe
Ну-ка, раскажи какой директорий будет/станет рабочей?

И про дядю Билли то же не надо.

---

← →
AGGRESSOR   (2003-09-16 11:11) [10]

> c:\tmp> d:\nnn\prog.exe
Это все верно, но вопрос был "Как определить ПАПКУ раб-го приложения", а это немного другое. А вообще лучше сделать как сказал ZEE ©

---

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

Форум: "Основная";
Текущий архив: 2003.09.29;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.84 c