Как создать обзор папок на примере картинки в комплекте?
Сообщение отредактировано: volvo -
Обзор папок!, Как сделать? |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.
Обзор папок!, Как сделать? |
Артемий |
Сообщение
#1
|
Помощник капитана Группа: Пользователи Сообщений: 601 Пол: Мужской Реальное имя: Артем Репутация: 2 |
Как создать обзор папок на примере картинки в комплекте?
Сообщение отредактировано: volvo - Эскизы прикрепленных изображений -------------------- Dum spiro spero!
|
volvo |
Сообщение
#2
|
Гость |
Uses |
Артемий |
Сообщение
#3
|
Помощник капитана Группа: Пользователи Сообщений: 601 Пол: Мужской Реальное имя: Артем Репутация: 2 |
А я вот надыбал покороче
Код var Root: string; // корневой каталог pwRoot : PWideChar; begin Root := ''; // корневой каталог - папка Рабочий стол GetMem(pwRoot, (Length(Root)+1) * 2); pwRoot := StringToWideChar(Root,pwRoot,MAX_PATH*2); if not SelectDirectory('Выберите папку WINDOWS/FONTS', pwRoot, Dir) then Dir :='' else Dir := Dir+'\'; Но твой способ не пробовал поэтому что удобнее, а что лучше судить не могу! Сообщение отредактировано: Артемий2 - -------------------- Dum spiro spero!
|
Текстовая версия | 29.03.2024 13:24 |