Как получить путь к exe файлу своего приложения

← →
Illin © (2004-09-21 11:18) [0]

← →
Плохиш © (2004-09-21 11:18) [1]

paramstr(0)

← →
m52 (2004-09-21 11:44) [2]

Самое надежное, это
Application.ExeName

← →
КаПиБаРа © (2004-09-21 11:48) [3]

m52 (21.09.04 11:44) [2]
Ню-ню... особенно надежно для консольного приложения.
======================================= На вопрос "Что вы здесь делаете?" 72% респондентов ответили отрицательно. =======================================

← →
Рамиль © (2004-09-21 11:52) [4]

m52 (21.09.04 11:44) [2]
property ExeName: string read GetExeName; function TApplication.GetExeName: string; begin Result := ParamStr(0); end;

← →
Zhekson (2004-09-21 11:59) [5]

>Рамиль © (21.09.04 11:52) [4]

Зачем так закручено??? Чем будет отличаться например:
public exe_name: string; procedure TForm1.FormCreate(Sender: TObject); begin exe_name := ParamStr(0); end;

← →
Ozone © (2004-09-21 12:01) [6]

Zhekson (21.09.04 11:59) [5]

LOL :)))

← →
Рамиль © (2004-09-21 12:03) [7]

Zhekson (21.09.04 11:59) [5]
Это отрывок кода TApplication

← →
Zhekson (2004-09-21 12:13) [8]

>Ozone © (21.09.04 12:01) [6]

Я ещё не обиделся, т.к. не знаю, что такое LOL. Но всё равно ценю твой талант - помогать людям, а не умничать, как некоторые...

> Рамиль © (21.09.04 12:03) [7]

торможу. Спасибо, что не LOL :)))

← →
Sandman25 © (2004-09-21 12:26) [9]

[5] Zhekson (21.09.04 11:59)

Лучше в initialzation засунуть, чтобы не считать заново для каждого объекта.

← →
Ozone © (2004-09-21 12:28) [10]

Zhekson (21.09.04 12:13) [8]

И не надо обижаться... :)

← →
Zhekson (2004-09-21 12:30) [11]

>Sandman25 © (21.09.04 12:26) [9]

согласен на 100%. спасибо.

← →
Zhekson (2004-09-21 12:40) [12]

>Ozone © (21.09.04 12:28) [10]

Да я и не обижаюсь.

А вообще я тебе вот, что скажу:
Всё нужно делать красиво и подкалывать в том числе, а LOL - абривиатура трёх, не родных, слов, т.е. т(в)ы обозначил, то что понял, что я торможу, а поправить меня не можешь или не хочешь. Не больше, не меньше.

В итоге: Чего т(в)ы добивался своим LOL_ом?

← →
ghg © (2004-09-21 13:05) [13]

если именно путь то
ExtractFilePath(application.exename)
либо
ExtractFilePath(paramstr(0))

← →
Dimaxx (2004-09-21 22:17) [14]

GetModuleFilename - так можно получить откуда угодно. Хоть из библиотеки. Подсовываем HInstance и вперед.

← →
Defunct © (2004-09-22 00:16) [15]

Zhekson (21.09.04 12:40) [12]
LOL ;)

LOL - Laugh Out Loud

Это не обзывательство, просто признак того что кому-то смешно, а ваши постинги действительно веселят ;)

← →
HF-Trade © (2004-09-22 00:32) [16]

Пример-

procedure TForm1.FormCreate(Sender: TObject);
Begin
Label1.Caption:=GetCurrentDir;
end;
end.

При запуске своей проги получаеш ее директорию.

HF-Trade © (22.09.04 0:32) [16]
При запуске своей проги получаеш ее директорию.

При запуске своей проги получаеш геморой.
Садись... два...
======================================= Не могу молчать, когда меня не слушают! =======================================

> КаПиБаРа © (22.09.04 06:29) [17]
> При запуске своей проги получаеш геморой.
> Садись... два...

Хочу триии...
А в чем гимор?

extractFilename(paramstr(0)) - имя
extractfilepath(paramstr(0)) - путь

HF-Trade © (22.09.04 7:25) [18]
Создай ярлык для приложения. Создай на диске C каталог "Геморой". В поле рабочая папка ярлыка напиши "c:\Геморой".
Теперь для получения гемороя достаточно запустить приложение.
============================== Человек, любящий жизнь, не насилует ее своими мыслями. ==============================

HF-Trade © (22.09.04 7:25) [18]
Запусти приложение
ShellExecute(Self.Handle, "open", Project1.exe, nil, "C:\", SW_SHOWNORMAL);
и посмотри что дает в нем GetCurrentDir

Тройки не заслуживаешь, если только с минусом:)

← →
Stefan (2004-09-22 10:45) [22]

Попробую так (используется в библиотеках + если в проге нет формы, а значит и Application)

// Получить путь к ЕХЕ-файлу
GetModuleFileName(0, Buf, MAX_PATH);

Только не забудь перевести Char (переменная Buf) в String

Со времен Pascal использую ParamStr(0) - так как более стандартного и надежного нету.
RootAppDir:=ExtractFilePath(ParamStr(0)) - дает искомый путь. Эту ерунду лучше писать в initialize какого-нибудь общего для программы модуля - сборника сервисных функций, который в главном файле проекта должен быть прописан в USES первым (на тот случай, если при инициализации остальных модулей путь нужен).

Как получить путь к exe файлу своего приложения Найти похожие ветки