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

Вниз

Получить директорий из которого запущен exe-файл   Найти похожие ветки 

 
Евгений Т.   (2003-10-28 18:04) [0]

Здравствуйте !
Моя проблема такова: нужно в программе на Delphi получить директорий, из которого она будет запущена в виде exe-файла.
И еще один связанный вопрос: из exe-файла нужно вызывать файл помощи в формате CHM. Каталог, из которого будет запускаться exe файл заранее не известен. Решение помещать exe и chm файл в один
каталог и использовать конструкцию вида
if FileExists("Georef.chm") then
ShellExecute(Handle, "open", "Georef.chm",
nil, nil, SW_SHOWNORMAL);
не работает, если в ходе работы программы текущий системный каталог меняется.
С уважением, Евгений.


 
Юрий Федоров   (2003-10-28 18:06) [1]

ExtractFileDir(paramStr(0)) - папка exe


 
Ferr   (2003-10-28 18:49) [2]

или ExtractFilePath(Application.ExeName)+"Georef.chm"


 
Vlad   (2003-10-28 18:52) [3]

ShellExecute(Handle, "open", ".\Georef.chm",nil, nil, SW_SHOWNORMAL);
Запустит файл из той же директории, где exe


 
Palladin   (2003-10-28 19:09) [4]


> Vlad © (28.10.03 18:52) [3]

не обманывай народ


 
Vlad   (2003-10-28 19:14) [5]

>Palladin © (28.10.03 19:09) [4]
ну да, PChar() забыл


 
DVM   (2003-10-28 19:17) [6]


> Vlad © (28.10.03 18:52) [3]
> ShellExecute(Handle, "open", ".\Georef.chm",nil, nil, SW_SHOWNORMAL);
> Запустит файл из той же директории, где exe

Если программа не сменит теущую директорию до этого


 
Palladin   (2003-10-28 19:18) [7]


> Vlad © (28.10.03 19:14) [5]

нет, косяк именно указанный DVM © (28.10.03 19:17) [6]

осбенно текущие директории любят менять TSave/TOpenDialog


 
Anatoly Podgoretsky   (2003-10-28 19:21) [8]

Да и программа ни причем, можно запустить из ярлыка, со смененой рабочей папкой. А уж про возможности программы можно и не говорить.



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

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

Наверх





Память: 0.46 MB
Время: 0.036 c
3-40856
Вованчик
2003-10-21 15:03
2003.11.13
Select


14-42045
Malkolinge
2003-10-15 15:53
2003.11.13
Хлопци е така гра - Starcraft.


1-41242
MaxwellZ
2003-10-31 23:43
2003.11.13
Выбрать директорию


1-41516
AlexGreG
2003-10-28 13:10
2003.11.13
... ShellExecute ...


4-42266
westlion
2003-09-13 20:32
2003.11.13
кнопка





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