Скачать: CL | DM;

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

← →
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)));

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c