По SetCurrentDir

[qivi]

Использую в одной процедуре SetCurrentDir с относительным путём. Как в другой процедуре вернуть каталог по умолчанию тот в котором лежит исполняемый файл?

[zub]

SetCurrentDir(ExtractFilePath(paramstr(0)))?

Но лучше сначала запомнить текущий каталог GetCurrentDir, а потом вернуть SetCurrentDir, т.к. текущий каталог не всегда тот где лежит исполняемый файл

[Nik]

SetCurrentDir(ExtractFilePath(paramstr(0)))?

Всегда интересовало, что (в теории) работает быстрее

Код: Выделить всё

ExtractFilePath(paramstr(0))

или

Код: Выделить всё

ExtractFilePath(Application.ExeName)

?

[Mr.Smart]

В первом случае вызывается функция, а во втором метод. Первый случай будет побыстрее. Я так думаю

[shraibikus]

Так-же стоит отметить, что второй случай не всегда применим.
Например при разработке консольного приложения