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.
Помогите решить проблему, срочно необходимо сдать программу.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.09.2012, 23:22
Ответы с готовыми решениями:

Диалог выбора папки
Привет. Как мы знаем есть диалог открытия(open dialog), а можете дать мне типо такого же диалого...

Открыть диалог выбора папки
Мне нужно что бы при нажатие на кнопку отрывался диалоговое окно в котором можно выбрать директорию...

Как открыть шаблон Word-a из папки в корневой папки программы :)
Таккая проблема у меня реализован вывод данных программы в ворд по Bookmarks сейчас подгрузга...

После выбора папки в FolderBrowserDialog необходимо вывести путь до этой папки в текстовое поле
После выбора папки в FolderBrowserDialog необходимо вывести путь до этой папки в текстовое поле

2
1300 / 706 / 107
Регистрация: 25.05.2011
Сообщений: 2,158
Записей в блоге: 51
09.09.2012, 13:45 2
Лучший ответ Сообщение было отмечено как решение

Решение

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


Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
// 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 адрес папки
0
MaD-oK
10.09.2012, 10:06 3
Помогло, только вопрос в том, что при сохранении в Edit указывается полный путь (C:\База данных\Конструкторская документация\1.Опоры уличного освещения\1.Круглые конические опоры уличного освещения с толщиной стенки 4 мм\KO32). А хотелось бы указания пути (База данных\Конструкторская документация\1.Опоры уличного освещения\1.Круглые конические опоры уличного освещения с толщиной стенки 4 мм\KO32). Для того, чтобы где бы не находилась папка с программой не приходилось менять путь к файлам...

Так же возникает второй вопрос: Как работать с данной базой данных по сети, так как при открытии по сети данной папки происходит открытие папок, например: с данной строкой \\Home\База данных\ Конструкторская документация\1.Опоры уличного освещения\1.Круглые конические опоры уличного освещения с толщиной стенки 4 мм\KO32.
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.09.2012, 10:06
Помогаю со студенческими работами здесь

Как показать диалог выбора папки
Как показать диалог выбора папки ? Без использования DirectoryListBox. Меня интересует путь к...

Как запустить диалог выбора папки на wpf?
Смотрел FolderBrowserDialog... Но, толку с него никакого, ибо он подчеркивается Что подскажете...

Как сделать нормальный диалог выбора папки?
Нормальный - это например как у paint, когда мы выбираем папку куда сохранить. Просто бздюха...

Как в консольном приложении использовать диалог выбора файла/папки
как в консольное приложение вставить диалог выбора файла/папки?


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru