Путь запускаемого exe - Общие вопросы Delphi

Stanislav · 19.11.2007, 17:04

Здравствуйте!
У меня вопрос такой как узнать путь к директории из которой запущен exe?

AlDelta · 19.11.2007, 17:12

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(Application.ExeName);
end;

Stanislav · 19.11.2007, 17:16

Извените за бональный вопрос а так ли будет если я хочу зогнать этот путь в переменную:

var
str:string;
begin
str:=Application.ExeName;
end;

AlDelta · 19.11.2007, 17:22

Цитата:

Код:

var 
str:string;
begin 
str:=Application.ExeName;
end;

Всё верно!

JTG · 19.11.2007, 18:29

Если так уж прям "путь к директории", то ExtractFilePath(Application.Exename )

19.11.2007, 17:04	#1
Stanislav Квадрокоптерист Участник клуба Подтвердите свой е-майл Регистрация: 29.09.2007 Сообщений: 1,824	Путь запускаемого exe Здравствуйте! У меня вопрос такой как узнать путь к директории из которой запущен exe? Я часть той силы, что вечно хочет зла, но вечно совершает благо..

19.11.2007, 17:12	#2
AlDelta Реанимируюсь... Участник клуба Регистрация: 19.07.2007 Сообщений: 1,445	Код: `procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(Application.ExeName); end;` Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живёте. Правила форума => Правила раздела => Для общего развития => Помощь студентам => Перед тем, как создавать тему, скачайте себе... P.S.: форум не песочница (с) название статьи на сайте MS: "Отмена принудительного отключения автоматического запуска в реестре Windows"

19.11.2007, 17:16	#3
Stanislav Квадрокоптерист Участник клуба Подтвердите свой е-майл Регистрация: 29.09.2007 Сообщений: 1,824	Извените за бональный вопрос а так ли будет если я хочу зогнать этот путь в переменную: var str:string; begin str:=Application.ExeName; end; Я часть той силы, что вечно хочет зла, но вечно совершает благо..

19.11.2007, 18:29	#5
JTG я получил эту роль Старожил Регистрация: 25.05.2007 Сообщений: 3,694	Если так уж прям "путь к директории", то ExtractFilePath(Application.Exename ) пыщь