Главная страница
    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.029 c
3-41056
malkolinge
2003-10-24 11:29
2003.11.13
XML


1-41423
zapped
2003-11-04 12:29
2003.11.13
D5 vs D7, Threads, EThread Exception


7-42212
mdsns
2003-08-26 13:17
2003.11.13
Буфер CОМ-порта


14-41923
Style
2003-10-20 13:10
2003.11.13
Товарищи программеры простите меня за DelphiChallenge :(


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