Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.09.26;
Скачать: CL | DM;

Вниз

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

 
DelphiN! ©   (2004-09-08 08:51) [0]

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

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

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

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


 
TUser ©   (2004-09-08 09:10) [1]

FindFirst, FindNext
TMenuItem.Create


 
Fredy314 ©   (2004-09-08 09:22) [2]

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

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

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 пустой заранее созданый компонент

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



Страницы: 1 вся ветка

Текущий архив: 2004.09.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.049 c
3-1093763657
Desperado
2004-08-29 11:14
2004.09.26
Query сжирает всю память


14-1094803291
Pat
2004-09-10 12:01
2004.09.26
Клиент для форумов, использующих phpBB


8-1088672139
Tatarin
2004-07-01 12:55
2004.09.26
Эквалайзер


1-1095012576
suharew
2004-09-12 22:09
2004.09.26
TreeView


14-1094377822
Baron
2004-09-05 13:50
2004.09.26
Кто играл на деньги