Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.08.22;
Скачать: [xml.tar.bz2];

Вниз

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

 
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 вся ветка

Форум: "Основная";
Текущий архив: 2002.08.22;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.009 c
1-71255
KPY
2002-08-12 06:49
2002.08.22
Помогите с новым типом


6-71286
atmospheric
2002-06-12 14:59
2002.08.22
HTTP запрос


3-71013
Fissher
2002-07-31 20:20
2002.08.22
Blob поле


6-71276
Big Lamer
2002-06-09 00:34
2002.08.22
Как организовать прием-посылку Popup-сообщений ?


14-71341
Sergo
2002-07-27 08:54
2002.08.22
TeeChart





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский