Скачать: CL | DM;

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

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

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

---

← →
Плохиш ©   (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.

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

---

← →
КаПиБаРа ©   (2004-09-22 06:29) [17]

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

При запуске своей проги получаеш геморой.
Садись... два...

=======================================
Не могу молчать, когда меня не слушают!
=======================================


---

← →
HF-Trade ©   (2004-09-22 07:25) [18]

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


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

---

← →
antonn ©   (2004-09-22 07:27) [19]

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

---

← →
КаПиБаРа ©   (2004-09-22 07:36) [20]

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

==============================
Человек, любящий жизнь,
не насилует ее своими мыслями.
==============================


---

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

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

---

← →
Tano ©   (2004-09-22 22:09) [23]

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

---

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

Скачать: CL | DM;



Память: 0.5 MB
Время: 0.023 c