Каталог программы

← →
staratel © (2002-08-12 13:20) [0]

Люди, помогите кто может!
Как установить текщим каталог для работающей программы.
В этом же каталоге находятся два подкаталога из которых
нужно запустить дополнительные приложения так, чтобы не прописывать полный путь расположения приложений, т. е. сделать независимым от диска. В BASICE это делается просто, в Delphi?!
Если можно лучше привести простенький пример.

← →
Skier © (2002-08-12 13:24) [1]

>staratel
Пляши от Application.ExeName

А также ExtractFileDir или ExtractFilePath...

← →
Слесарь Матерящийся (2002-08-12 13:30) [2]

SetCurrentDirectory() Win32 API

ExtractFilePath(ParamStr(0)) – путь к твоей проге, с завершающим слэшем (например: c:\MyProga\)
ParamStr(0) – имя exe файла с полным путем к нему (например: c:\MyProga\MyExe.exe)
Вместо ParamStr(0), можно написать Application.ExeName, но ParamStr(0) короче.
Я не знаю но мне не нравиться использовать директории по умолчанию, сам не знаю почему, привык прописывать всегда точные пути, типа такого:
DataPath:= ExtractFilePath(ParamStr(0));
ShellExecute(Application.Handle,"open",
PChar(DataPath+"Testirov.exe"),"",nil,SW_SHOWNORMAL);

Каталог программы Найти похожие ветки