Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Текущий каталог программы [D5, D6, Win95/98, WinXP]


staratel ©   (2002-08-12 14:30:00) 

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


Leran2002   (2002-08-12 14:56:00) [1]

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




Anatoly Podgoretsky   (2002-08-12 14:52:00) [2]

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


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

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

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

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


Leran2002   (2002-08-12 14:44:00) [4]

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

SetCurrentDir(ExtractFileDir(ParamStr(0));


Lord Warlock   (2002-08-12 14:34:00) [5]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо