|
Вопрос # 4 893/ вопрос решён / |
|
Здравствуйте, уважаемые эксперты!
Как в свойстве InitialDir компонента OpenDialog задать папку, в которой лежит программа?
Мне нужно сделать так, чтобы указанное свойство всегда соответствовало пути к моему рабочему файлу на разных компьютерах.
 |
Вопрос задал: KwaK (статус: Посетитель)
Вопрос отправлен: 7 января 2011, 19:42
Состояние вопроса: решён, ответов: 1.
|
Ответ #1. Отвечает эксперт: VJe@n
Здравствуйте, KwaK!
если в редакторе свойств, то поставить точку '.' (без кавычек) :)
если при исполнении программы, то:
1. InitialDir := '.';
2. InitialDir := ExtractFilePath(Application.ExeName);
 |
Ответ отправил: VJe@n (статус: 1-ый класс)
Время отправки: 7 января 2011, 20:39
Оценка за ответ: 5
|
Мини-форум вопроса
Всего сообщений: 4; последнее сообщение — 8 января 2011, 19:22; участников в обсуждении: 3.
|
VJe@n (статус: 1-ый класс), 7 января 2011, 19:56 [#1]:
если в редакторе свойств, то поставить точку '.' (без кавычек) 
если при исполнении программы, то:
1. InitialDir := '.';
2. InitialDir := ExtractFilePath(Application.ExeName);
У меня сегодня радость!
Я сегодня сделал гадость! :)
|
|
KwaK (статус: Посетитель), 7 января 2011, 20:13 [#2]:
а почему в мини-форуме, ведь это полный ответ на поставленный вопрос?
|
|
VJe@n (статус: 1-ый класс), 7 января 2011, 20:38 [#3]:
исправлено
У меня сегодня радость!
Я сегодня сделал гадость! :)
|
7 января 2011, 20:56: Статус вопроса изменён на решённый (изменил автор вопроса — KwaK): предложенное решение соответствует поставленной задаче
8 января 2011, 11:14: Вопрос перемещён из тематического раздела Delphi » Взаимодействие с Windows в раздел Delphi » Работа с компонентами и библиотеками модератором Ерёмин А.А.
|
mirt.steelwater (статус: Посетитель), 8 января 2011, 19:22 [#4]:
OpenDlg.InitialDir := ExtractFilePath ( ParamStr (0) );
Ⓐ свобода сопротивление солидарность
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|