Как определить каталог из которого запущен .exe файл

[sheva_ya]

Проблема в следующем:
При запуске программы, в обработчике Form.Create, мне нужно узнать полный адрес каталога из которого запущен .exe файл, т.е. в таком виде D:\Programs\...\MyProgram\Project1. exe

[VadikV]

Application.ExeName дает полный путь с именем файла

[veniside]

Обычно используют ParamStr(0), т.к. Аппликейшн не всегда под рукой )

[Serge_Bliznykov]

Сообщение от veniside

Обычно используют ParamStr(0), т.к. Аппликейшн не всегда под рукой )

в общем случае, я с Вами согласен. Это и проще и более универсально.
если заглянуть чуть поглубже, то в модуле Forms:

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

справедливости ради надо отметить, что раз в вопросе TC прозвучало "в обработчике Form.Create" - то доступ к Application у него однозначно есть

[xwicked]

Ещё вариант, каким я пользуюсь(только каталог):

var
  dir : string;

begin
  // Получаем текущую директорию
  dir := GetCurrentDir;
end;

[veniside]

текущая директория имеет достаточно отдалённое отношение к "полный адрес каталога из которого запущен .exe файл".

[xwicked]

Сообщение от veniside

текущая директория имеет достаточно отдалённое отношение к "полный адрес каталога из которого запущен .exe файл".

Название темы: Как определить каталог из которого запущен .exe файл
потом, "полный адрес каталога из которого запущен .exe файл".

Вопрос не стоял об полном имени исполняемого файла.

Даже такой код:

var
  dir : string;

begin
  SetCurrentDir('C:\');
  // Получаем текущую директорию
  dir := GetCurrentDir;
end;
dir

возвращает ту директорию(каталог), из которой запущен исполняемый файл.

[veniside]

> Вопрос не стоял об полном имени исполняемого файла.

OK, принимается:

ExeDir = ExtractFilePath(ParamStr(0));

Но ни в коем случае не GetCurrentDir(), который может вернуть вобще что угодно.

> Даже такой код .... возвращает ту директорию(каталог), из которой запущен исполняемый файл.

хм.. а у меня такой код возвращает "С:\", как он и должен возвращать, хотя файл запущен совсем не из корня диска С:

[xwicked]

veniside, возможно, но я всегда использовал GetCurrentDir и никогда проблем не возникало. У меня побывало от Delphi7, до, сейчас 2010 - рабочий код приводил...
sheva_ya, есть выбор, что для Вас будет удобнее.

[veniside]

Видимо, у вас в проектах нет Open/Save диалогов, например. Они меняют текущую дерикторию. Да и файл может быть запущен с предустановленным рабочим (текущим) каталогом. Это легко проверить, создав shortcut на ваш файл и задав в свойствах shortcut-а какой угодно стартовый каталог, отличный от каталога с .ехе.