| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Формирование Меню по списку файлов и папок

DelphiN! ©   (2004-09-08 08:51:00) 

Не у кого случайно нет процедуры для динамического формированнию меню со списком файлов и папок по заданному пути(как в Пуске)

Например указал процедуре путь к папке "Программы" Windows-a, и она сформировала popmenu следующего вида:

Main -> Программы ->
                   Стандартные -> ...
                   Программа.exe
                   Программа2.exe

Заранее благодарен

---

Fredy314   (2004-09-08 09:22:00) [1]

Я когдато делал такое, но исходники не сохранились.

Там от заданого каталога рекурсивно вызываеш процедурку типа етой

Procedure SubDirMenu(dir:String;UpM:TMenuItem);
{fRec;M;}
Begin
FindFirst(dir+'*.*',faAnyFile,fRec)
While {} do
Begin
 M:=TMenuItem.Create;
 M.Name:=FRec.FileName;{и тд. и тп.}
 if (fRec.attr and faDir)Then
If (FRec.FileName<>'.')and(FRec.FileName<>'..') Then
                              SubDirMenu(dir+FRec.FileName+'\',M);
 FindNext(FRec);
End;

end;

В нужном тебе месте вызываеш
   MainMenu1.Items.Crear;
   SubDirMenu(Dir,MainMenu1.Items);
где MainMenu1 пустой заранее созданый компонент

НОгами не бейте ето только набросок по памяти.

---

TUser   (2004-09-08 09:10:00) [2]

FindFirst, FindNext
TMenuItem.Create

---

Наверх