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

Вниз

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

 
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


 
Leran2002   (2002-08-12 13:33) [3]

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



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

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

Наверх




Память: 0.44 MB
Время: 0.006 c
3-71017
RangerBetta
2002-07-31 08:17
2002.08.22
Подскажите SQL WHere


1-71091
Внук
2002-08-12 15:37
2002.08.22
SetLength в dpr-файле


1-71255
KPY
2002-08-12 06:49
2002.08.22
Помогите с новым типом


4-71442
Arick
2002-06-20 14:15
2002.08.22
HICON->HBITMAP


6-71278
Новеньки в Делфи
2002-06-11 02:02
2002.08.22
свой сервер, помогите теорией





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский