Текущий каталог программы

← →
staratel (2002-08-12 14:30) [0]

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

← →
Lord Warlock (2002-08-12 14:34) [1]

Функция ExtractFilePath(ParamStr(0)) возвращает полный путь твоей программы, где бы она не находилась. Соответственно приписываешь к нему все что нужно.

← →
Leran2002 (2002-08-12 14:44) [2]

Вот тебе установка текущего каталога:

SetCurrentDir(ExtractFileDir(ParamStr(0));

← →
staratel (2002-08-12 14:49) [3]

P.S. Пробовал использовать API SetCurrentDirectory(@ProgramPath)- при компилировании ошибок не выдает, но и дополнительные программы не запускаются, объявлял примерно так:

path array[0..1] to PChar;
ProgramPath: string;
.....
SetCurrentDirectory(@ProgramPath);
path[0]:="\Дополнительный каталог\исполняемый файл";
path[1];="аналогично";
....

или я что-то делаю неправильно?
В Delphi я еще новичок.

← →
Anatoly Podgoretsky (2002-08-12 14:52) [4]

Многое, где инициализация ProgramPath, параметр передается неверно, надо Pchar(ProgramPath)

← →
Leran2002 (2002-08-12 14:56) [5]

SetCurrentDir(ExtractFileDir(ParamStr(0));
или
SetCurrentDirectory(PChar(ExtractFileDir(ParamStr(0)));

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