Путь к папке. Подскажите функцию.

← →
Солдат (2008-11-14 07:46) [0]

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

← →
Сергей М. © (2008-11-14 08:16) [1]

ExtractFilePath()

← →
Anatoly Podgoretsky © (2008-11-14 09:02) [2]

Одной функцией не обойдешь, таких просто нет.

← →
Zhekson (2008-11-14 10:04) [3]

ExtractFilePath(paramstr(0));

← →
MsGuns © (2008-11-14 14:21) [4]

ExtractFilePath(Application.ExeName)

← →
Ega23 © (2008-11-14 14:29) [5]

> ExtractFilePath(Application.ExeName)

Показать тебе, где это не сработает? В отличие от [3].

← →
Anatoly Podgoretsky © (2008-11-14 14:37) [6]

> Ega23 (14.11.2008 14:29:05) [5]

Да нет никакой проблемы, это может не откомпилироваться, если конечно не делать хак.

← →
Правильный$Вася (2008-11-14 15:34) [7]

> Ega23 © (14.11.08 14:29) [5]

ты лучше автору покажи
а Ганз сам знает, просто другой вариант привел

← →
Ega23 © (2008-11-14 15:45) [8]

> ты лучше автору покажи
> а Ганз сам знает, просто другой вариант привел

Ущербный вариант. А подсказывать мне нечего - в [3] всё раскрыто.

← →
{RASkov} © (2008-11-14 16:16) [9]

в [4] тоже самое что и в [3] если есть Application... А если нет, то и не откомпилится.....

← →
Ega23 © (2008-11-14 17:27) [10]

> в [4] тоже самое что и в [3] если есть Application... А
> если нет, то и не откомпилится.....

Фигу, можно штобы и откомпилилось, но на выполнении через ошибку вылетело.
С написанием хак-класса и подменой Application
:)

← →
Правильный$Вася (2008-11-14 18:47) [11]

> С написанием хак-класса и подменой Application

можно и функцию одноименную сделать вместо нужной
только какое отношение все это к сабжу имеет?

← →
Palladin © (2008-11-14 18:50) [12]

ну что? из-за пустяка тему на двести постов будем раздувать? :)

← →
АИК (2008-11-15 09:44) [13]

А я такую штуку только что придумал :о)
var Dir: string; F_dlin, D_dlin: Integer; begin dir:= Paramstr(0); D_dlin:= Length(dir); F_dlin:= Length(Application.Title); D_dlin:= D_dlin- F_dlin-3; delete (dir, D_dlin, F_dlin+4); Label1.Caption:= dir; end;

← →
{RASkov} © (2008-11-15 09:59) [14]

> [13] АИК (15.11.08 09:44)

Ты лучше больше так не придумывай... :)

← →
АИК (2008-11-15 10:07) [15]

Зато если самому присвоить F_dlin вместо Application.Title размер имени файла то можно и без Application обойтись, только вот беда если имя приложения кто-то потом поменяет. Не знаю как вы но я вообщета в маленьких прогах так делаю

← →
Anatoly Podgoretsky © (2008-11-15 10:33) [16]

> АИК (15.11.2008 9:44:13) [13]

Малым детям не показывать.

← →
АИК (2008-11-15 10:34) [17]

Доработал
Function MyDir: String; var Dir: string; F_dlin, D_dlin, i: Integer; begin dir:= Paramstr(0); D_dlin:= Length(dir); For I:=D_dlin Downto 0 do If dir[i] = "\" then begin F_dlin:= D_dlin-i; Break; end; D_dlin:= D_dlin- F_dlin+1; delete (dir, D_dlin, F_dlin); result:= dir; end;

← →
АИК (2008-11-15 10:35) [18]

> Anatoly Podgoretsky © (15.11.08 10:33) [16]
> > АИК (15.11.2008 9:44:13) [13]Малым детям не показывать.
>

А эта годится?

← →
{RASkov} © (2008-11-15 11:12) [19]

> [17] АИК (15.11.08 10:34)

Если и делать велосипед, то нужно красиво:
function MyDir: String; begin Result:=Copy(ParamStr(0), 1, LastDelimiter(PathDelim, ParamStr(0))-1); end;
Если без -1 то будет MyPath)
:о)

← →
{RASkov} © (2008-11-15 11:15) [20]

> [10] Ega23 © (14.11.08 17:27)
> С написанием хак-класса и подменой Application

Дык ParamStr(0) тоже можно подменить ;)

← →
Юрий Зотов © (2008-11-15 12:17) [21]

Необычайно плодотворное обсуждение темы выеденного яйца.

← →
CodeMaster © (2008-11-15 12:33) [22]

> Юрий Зотов © (15.11.08 12:17) [21]
>
> Необычайно плодотворное обсуждение темы выеденного яйца.
>

Дааа такое обсуждение из-за ExtractFilePath(ParamStr(0))

> АИК (15.11.2008 10:34:17) [17]

А что это делает, отступы хоть и важны, но сути не меняют.

> {RASkov} (15.11.2008 11:15:20) [20]

Мы наш, мы новый мир построим.

> [24] Anatoly Podgoretsky © (15.11.08 14:48)

А почему нет, раз "аппликатион" заменили зачем-то, и уже "екзенаме" выдает ошибку, то почему до кучи не заменить все в этом чокнутом мире?
:о)

← →
АИК (2008-11-15 15:15) [26]

Ежа - известный провокатор. Если под настроение ;))

> АИК (15.11.2008 15:15:26) [26]

Плохой у тебя предподователь, если на вопрос что это делает, "препод" тебя учил отвечать "Незнаю".

> MsGuns (15.11.2008 15:16:27) [27]

> Если под настроение ;))

То мы ему поможем.

← →
Smile (2008-11-15 15:37) [30]

Обычно у Anatoly Podgoretsky © был принцип:
один вопрос - одна ветка
А сегодня, я что-то потерялся в количестве вопросов, да и Солдата потерял:(

Путь к папке. Подскажите функцию. Найти похожие ветки