Author: Christian Cristofori

I wanted to simulate the "favorites" of IE

Answer:

First of all, add this: 
1   
2   procedure CreateTreeMenus(Path: string; Root: TMenuItem);
3   var
4     SR: TSearchRec;
5     Result: Integer;
6     Item: TMenuItem;
7   begin
8     Path := IncludeTrailingBackSlash(Path);
9     Result := FindFirst(Path + '*.*', faDirectory, SR);
10    while (Result = 0) do
11    begin
12      if (((SR.Attr and faDirectory) <> 0) and (SR.Name <> '.') and (SR.Name <> '..'))
13        then
14      begin
15        Item := TMenuItem.Create(Self);
16        Item.Caption := SR.Name;
17        Root.Add(Item);
18        CreateTreeMenus(Path + SR.Name, Item);
19      end;
20      Result := FindNext(SR);
21    end;
22    SysUtils.FindClose(SR);
23  end;
24  
25  //Then call the function in this way: 
26  
27  CreateTreeMenus('C:\MyApp\MyFavs', mnuPreferiti);