Как в Delfi 7 при нажатии Batton открыть диалог выбора папки в подкаталоге программы и сохранить путь папки в Edit

08.09.2012, 23:22. **Показов** 3798. **Ответов** 2

Как в Delfi 7 при нажатии Batton открыть диалог выбора папки в подкаталоге программы и сохранить путь папки в Edit. С условием, что данная программа будет находится в сетевом окружении, и при нажатием на Batton, будет происходить открытие папки указанного адреса, из подкаталога программы, находящегося заведомо сохраненного из Edit в ячейку БД MS Acess подключенного через ADOConnection, ADOQuery, ADOTable.
Помогите решить проблему, срочно необходимо сдать программу.

@Alex_pac · 09.09.2012, 13:45

открыть диалог выбора папки

Delphi

// uses ShellApi, FileCtrl;
 
procedure TForm1.Button6Click(Sender: TObject);
const
     SELDIRHELP = 1000;
var
   dir: String;
begin
   dir := 'C:';
   if SelectDirectory( dir,  [sdAllowCreate,  sdPerformCreate, sdPrompt], SELDIRHELP  ) then begin
     // переменная dir содержит адрес
   end;
end;

будет происходить открыт папки

Delphi

1	ShellExecute(handle,'explore',PChar(dir),'','',SW_NORMAL); // dir адрес папки

10.09.2012, 10:06

Помогло, только вопрос в том, что при сохранении в Edit указывается полный путь (C:\База данных\Конструкторская документация\1.Опоры уличного освещения\1.Круглые конические опоры уличного освещения с толщиной стенки 4 мм\KO32). А хотелось бы указания пути (База данных\Конструкторская документация\1.Опоры уличного освещения\1.Круглые конические опоры уличного освещения с толщиной стенки 4 мм\KO32). Для того, чтобы где бы не находилась папка с программой не приходилось менять путь к файлам...

Так же возникает второй вопрос: Как работать с данной базой данных по сети, так как при открытии по сети данной папки происходит открытие папок, например: с данной строкой \\Home\База данных\ Конструкторская документация\1.Опоры уличного освещения\1.Круглые конические опоры уличного освещения с толщиной стенки 4 мм\KO32.

MaD-oK
		1
	Как в Delfi 7 при нажатии Batton открыть диалог выбора папки в подкаталоге программы и сохранить путь папки в Edit 08.09.2012, 23:22. Показов 3798. Ответов 2 Метки нет (Все метки) Как в Delfi 7 при нажатии Batton открыть диалог выбора папки в подкаталоге программы и сохранить путь папки в Edit. С условием, что данная программа будет находится в сетевом окружении, и при нажатием на Batton, будет происходить открытие папки указанного адреса, из подкаталога программы, находящегося заведомо сохраненного из Edit в ячейку БД MS Acess подключенного через ADOConnection, ADOQuery, ADOTable. Помогите решить проблему, срочно необходимо сдать программу. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь

MaD-oK
	10.09.2012, 10:06	3
	Помогло, только вопрос в том, что при сохранении в Edit указывается полный путь (C:\База данных\Конструкторская документация\1.Опоры уличного освещения\1.Круглые конические опоры уличного освещения с толщиной стенки 4 мм\KO32). А хотелось бы указания пути (База данных\Конструкторская документация\1.Опоры уличного освещения\1.Круглые конические опоры уличного освещения с толщиной стенки 4 мм\KO32). Для того, чтобы где бы не находилась папка с программой не приходилось менять путь к файлам... Так же возникает второй вопрос: Как работать с данной базой данных по сети, так как при открытии по сети данной папки происходит открытие папок, например: с данной строкой \\Home\База данных\ Конструкторская документация\1.Опоры уличного освещения\1.Круглые конические опоры уличного освещения с толщиной стенки 4 мм\KO32.

Опции темы

Как в Delfi 7 при нажатии Batton открыть диалог выбора папки в подкаталоге программы и сохранить путь папки в Edit

Решение