Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.10;
Скачать: 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 вся ветка

Текущий архив: 2004.10.10;
Скачать: CL | DM;

Наверх




Память: 0.52 MB
Время: 0.039 c
3-1095152992
Medik
2004-09-14 13:09
2004.10.10
запрос в SQL Server 2000 и Paradox


4-1093870145
wal
2004-08-30 16:49
2004.10.10
Стандартные ресурсы


14-1095432622
reticon
2004-09-17 18:50
2004.10.10
не пущает в домен...


4-1094224836
Burmistroff
2004-09-03 19:20
2004.10.10
Обнаружение утечек памяти


3-1094805144
sashuly
2004-09-10 12:32
2004.10.10
Сортировка в TTAble