| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Путь к папке. Подскажите функцию. [D7, XP]
Солдат © (2008-11-14 07:46:00)Подскажите функцию, которая возвращает, путь к папке из которой было запущено выполняемое приложение.
Leonid Troyanovsky (2008-11-15 15:57:00) [1]
> {RASkov} © (15.11.08 11:12) [19]
Не раскрыта тема GetCommandLine.
Ну, и FindFirstFile, до кучи.
--
Regards, LVT.
AIK (2008-11-15 15:50:00) [2]
> Anatoly Podgoretsky © (15.11.08 15:30) [28]
Неее как отвечать он меня неучил, он меня как писать учил
Smile (2008-11-15 15:37:00) [3]Обычно у
Anatoly Podgoretsky ©был принцип:
один вопрос - одна ветка
А сегодня, я что-то потерялся в количестве вопросов, да и Солдата потерял:(
Anatoly Podgoretsky (2008-11-15 15:31:00) [4]> MsGuns (15.11.2008 15:16:27) [27]
> Если под настроение ;))
То мы ему поможем.
Anatoly Podgoretsky (2008-11-15 15:30:00) [5]> АИК (15.11.2008 15:15:26) [26]
Плохой у тебя предподователь, если на вопрос что это делает, "препод" тебя учил отвечать "Незнаю".
MsGuns (2008-11-15 15:16:00) [6]Ежа - известный провокатор. Если под настроение ;))
АИК (2008-11-15 15:15:00) [7]
> Anatoly Podgoretsky © (15.11.08 14:46) [23]
Незнаю... меня препод так учил
{RASkov} (2008-11-15 14:51:00) [8]> [24] Anatoly Podgoretsky © (15.11.08 14:48)
А почему нет, раз "аппликатион" заменили зачем-то, и уже "екзенаме" выдает ошибку, то почему до кучи не заменить все в этом чокнутом мире?
:о)
Anatoly Podgoretsky (2008-11-15 14:48:00) [9]> {RASkov} (15.11.2008 11:15:20) [20]
Мы наш, мы новый мир построим.
Anatoly Podgoretsky (2008-11-15 14:46:00) [10]> АИК (15.11.2008 10:34:17) [17]
А что это делает, отступы хоть и важны, но сути не меняют.
CodeMaster (2008-11-15 12:33:00) [11]
> Юрий Зотов © (15.11.08 12:17) [21]
>
> Необычайно плодотворное обсуждение темы выеденного яйца.
>
Дааа такое обсуждение из-за ExtractFilePath(ParamStr(0))
Юрий Зотов (2008-11-15 12:17:00) [12]Необычайно плодотворное обсуждение темы выеденного яйца.
{RASkov} (2008-11-15 11:15:00) [13]> [10] Ega23 © (14.11.08 17:27)
> С написанием хак-класса и подменой Application
Дык ParamStr(0) тоже можно подменить ;)
{RASkov} (2008-11-15 11:12:00) [14]> [17] АИК (15.11.08 10:34)
Если и делать велосипед, то нужно красиво:
function MyDir: String;
begin
Result:=Copy(ParamStr(0), 1, LastDelimiter(PathDelim, ParamStr(0)) -1);
end;
Если без -1 то будет MyPath)
:о)
АИК (2008-11-15 10:35:00) [15]
> Anatoly Podgoretsky © (15.11.08 10:33) [16]
> > АИК (15.11.2008 9:44:13) [13]Малым детям не показывать.
>
А эта годится?
АИК (2008-11-15 10:34:00) [16]Доработал
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;
Anatoly Podgoretsky (2008-11-15 10:33:00) [17]> АИК (15.11.2008 9:44:13) [13]
Малым детям не показывать.
АИК (2008-11-15 10:07:00) [18]Зато если самому присвоить F_dlin вместо Application.Title размер имени файла то можно и без Application обойтись, только вот беда если имя приложения кто-то потом поменяет. Не знаю как вы но я вообщета в маленьких прогах так делаю
{RASkov} (2008-11-15 09:59:00) [19]> [13] АИК (15.11.08 09:44)
Ты лучше больше так не придумывай... :)
АИК (2008-11-15 09:44:00) [20]А я такую штуку только что придумал :о)
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;
| |
Страницы: 