Главная страница
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.039 c
1-1094645424
V l a d i m i r
2004-09-08 16:10
2004.09.26
Создать документ Word


4-1092430217
GuAV
2004-08-14 00:50
2004.09.26
Подмена WinAPI функции в своём приложении.


6-1090148743
mrGrey
2004-07-18 15:05
2004.09.26
Автозаполнение.


8-1088750197
maxistent
2004-07-02 10:36
2004.09.26
Поворот битмапа по/против часовой стрлк


14-1094312068
Soft
2004-09-04 19:34
2004.09.26
Borland Delphi 7 Enterprise Edition (2CD) $60