 Обзор папок!, Как сделать? |
ВНИМАНИЕ!
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
| Артемий |
 6.09.2006 14:02
Сообщение
#1
|
 Помощник капитана  Группа: Пользователи Сообщений: 601 Пол: Мужской Реальное имя: Артем Репутация:  2   |
Как создать обзор папок на примере картинки в комплекте?
Сообщение отредактировано: volvo - 7.12.2006 11:34 Эскизы прикрепленных изображений 
-------------------- Dum spiro spero!
|
   |
 
|
  |
Ответов
| Артемий |
9.09.2006 17:22
Сообщение
#2
|
|
Помощник капитана Группа: Пользователи Сообщений: 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 - 9.09.2006 17:23 -------------------- Dum spiro spero!
|
|
|
|
Сообщений в этой теме
Артемий2 Обзор папок! 6.09.2006 14:02
volvo Uses
..., ShlObj, ComObj, ActiveX;
...
function... 6.09.2006 14:20
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 31.07.2025 0:43 |