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

← →
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

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

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

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

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

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