Получение пути где находится программа

[Lokos]

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

[Баламут]

ExtractFilePath(Application.ExeName)

[Пепел Феникса]

мне всетаки кажется что лучше уж сразу

ExtractFilePath(ParamStr(0));

учитывая что

function TApplication.ExeName:string;
begin
 Result:=ParamStr(0);
end;

[igh0st]

Сообщение от Пепел Феникса

мне всетаки кажется что лучше уж сразу

По-большому счету всё равно. Имхо, Application.ExeName более понятно, впрочем, кому как.

[Пепел Феникса]

По-большому счету всё равно.

порой нужна наивысшая производительность, и лишний call тогда лучше убрать+мой вариант работает и в консоли.

[Баламут]

В вопросе прозвучало "label" и потому мысль о консоле как-то не пришла в голову. Хотя конечно, Пепел Феникса здесь абсолютно прав.

[DIgorevich]

А если человек хотел узнать путь не к самой программе, а только к МЕСТУ ГДЕ ОНА ЛЕЖИТ )))

[SERG1980]

Вы сами то поняли что спросили
Попробуйте выполнить следующий код

label1.Caption:=ExtractFilePath(Application.ExeName)

и посмотрите что будет.

[apromix]

Можно и так:

...
var
  D: String;
...
GetDir(0, D);

Переменная D будет содержать путь к программе, без последнего "\", GetDir вызывать только раз в событии OnCreate главной формы, а переменную D объявить как глобальную

[artemavd]

Ребята, я вас умоляю, хватит извращаться уже