Дерево каталогов диска

@Damik_ · Регистрация: 12.02.2013

Студворк — интернет-сервис помощи студентам

Как можно вывести дерево каталогов в ListView?

Добавлено через 3 часа 52 минуты
Где можно найти и установить ShellTreeView для Delphi XE? И как вывести в ShellTreeView дерево каталогов?

@Singleton · 29.04.2013, 20:43

Если нет особых предпосылок, ShellTreeView можно взять из Alphacontrols

@Damik_ · 29.04.2013, 20:45 **[ТС]**

я скачал AlphaControls. Ну как ее надо устанавливать? там нету ни типа setupa ни типа Install-а

@Singleton · 29.04.2013, 20:48

Увлекательное чтиво

@Damik_ · 29.04.2013, 21:29 **[ТС]**

Сообщение от noname06

Увлекательное чтиво

У меня есть файл ShellCtrls.dcu. После того как к нему указываю путь выходит еще одно окно где надо выбрать Package Name. Что здесь выбрать и в первом окне где указываем путь есть Install into a new package и Install into an existing package. какой выбрать?

Добавлено через 29 минут

Сообщение от noname06

Если нет особых предпосылок, ShellTreeView можно взять из Alphacontrols

Можете привести пример кода для вывода дерево каталогов в ShellTreeView?

@Singleton · 29.04.2013, 21:41

acntDelphiXE.dpk -> compile -> install
Пример поищу.

@Damik_ · 29.04.2013, 21:43 **[ТС]**

Сообщение от noname06

acntDelphiXE.dpk -> compile -> install
Пример поищу.

Установил ShellTreeView. Жду примера))) Заранее спасибо.

@volvo · 29.04.2013, 21:44

Damik_, ShellControls (TShellTreeView, TShellListView) In Delphi XE2

In Delphi XE2, the package is not installed by default and you have to install it manually. The source files are located inside the "$(ALLUSERSPROFILE)\Documents\RAD Studio\9.0\Samples\Delphi\VCL\ShellContr ols" folder. On Windows 7, the "$(ALLUSERSPROFILE)" is "C:\Users\Public". On Windows XP, the all users documents folder is "C:\Documents and Settings\All Users\Documents".

Устанавливаешь пакет dclshlctrls150.bpl и получаешь Shell-контролы:

@Damik_ · 29.04.2013, 21:45 **[ТС]**

Да устанавил. Теперь можете привести привер как можно вывести дерево каталогов диска С в ShellTreeView?

@volvo · 29.04.2013, 21:45

Сообщение от Damik_

пример кода для вывода дерево каталогов в ShellTreeView?

Не понял. Что, установить Root и заставить ShellTreeView делать свою работу - недостаточно, надо сделать это вручную? Зачем тогда устанавливал Shell-ы? Вручную мог бы и в TTreeView затолкать...

@Damik_ · 29.04.2013, 21:47 **[ТС]**

Нуу я вообще не знаю как использовать этот ShellTreeView. Мне короче при нажатии кнопки надо вывести дерево каталогов

@volvo · 29.04.2013, 21:49

"Короче", при нажатии кнопки напиши:

Delphi
1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellTreeView1.Root := 'C:\';
end;

@Damik_ · 29.04.2013, 21:58 **[ТС]**

Сообщение от UI

"Короче", при нажатии кнопки напиши:

Delphi
1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellTreeView1.Root := 'C:\';
end;

Теперь выходит ошибка file not found:'sTreeView.dcu'. Как можно исправить?

Добавлено через 3 минуты
Просто проект не компилируется если поставить на форму ShellTreeView

@Singleton · 29.04.2013, 22:04

Например, скопировать содержимое папки DelphiXE (для alphacontrols, т.е. та папка, где лежал *.dpk) в Delphi\Lib. Или создать новую папку и прописать к ней путь в Tools -> Environment options -> Library

@volvo · 30.04.2013, 01:01

Сообщение от Damik_

Просто проект не компилируется если поставить на форму ShellTreeView

Значит, читай до просветления пост №8. Говоришь вам, говоришь, как надо устанавливать - нет, вы ж сами всё знаете, всё уже установил, только, блин, не компилируется ничего, если компонент на форму положить... На фиг такая установка нужна? Может, лучше установить ПРАВИЛЬНО?

@Damik_ · 30.04.2013, 01:03 **[ТС]**

Спасибо Все сделал! Я не указал путь библиотекам

Новые блоги и статьи Все статьи Все блоги /
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .
wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .

@Damik_ 1 / 1 / 0 Регистрация: 12.02.2013 Сообщений: 83

	Дерево каталогов диска 29.04.2013, 20:20. Показов 5576. Ответов 15 Метки нет (Все метки) Как можно вывести дерево каталогов в ListView? Добавлено через 3 часа 52 минуты Где можно найти и установить ShellTreeView для Delphi XE? И как вывести в ShellTreeView дерево каталогов? 0

@Singleton 179 / 74 / 8 Регистрация: 27.12.2012 Сообщений: 432
	29.04.2013, 20:43
	Если нет особых предпосылок, ShellTreeView можно взять из Alphacontrols 0

@Damik_ 1 / 1 / 0 Регистрация: 12.02.2013 Сообщений: 83
	29.04.2013, 20:45 [ТС]
	я скачал AlphaControls. Ну как ее надо устанавливать? там нету ни типа setupa ни типа Install-а 0

@Singleton 179 / 74 / 8 Регистрация: 27.12.2012 Сообщений: 432
	29.04.2013, 20:48
	Увлекательное чтиво 1

@Singleton 179 / 74 / 8 Регистрация: 27.12.2012 Сообщений: 432
	29.04.2013, 21:41
	acntDelphiXE.dpk -> compile -> install Пример поищу. 0

@Damik_ 1 / 1 / 0 Регистрация: 12.02.2013 Сообщений: 83
	29.04.2013, 21:45 [ТС]
	Да устанавил. Теперь можете привести привер как можно вывести дерево каталогов диска С в ShellTreeView? 0

@Damik_ 1 / 1 / 0 Регистрация: 12.02.2013 Сообщений: 83
	29.04.2013, 21:47 [ТС]
	Нуу я вообще не знаю как использовать этот ShellTreeView. Мне короче при нажатии кнопки надо вывести дерево каталогов 0

@Singleton 179 / 74 / 8 Регистрация: 27.12.2012 Сообщений: 432
	29.04.2013, 22:04
	Например, скопировать содержимое папки DelphiXE (для alphacontrols, т.е. та папка, где лежал *.dpk) в Delphi\Lib. Или создать новую папку и прописать к ней путь в Tools -> Environment options -> Library 0

@Damik_ 1 / 1 / 0 Регистрация: 12.02.2013 Сообщений: 83
	30.04.2013, 01:03 [ТС]
	Спасибо Все сделал! Я не указал путь библиотекам 0