//***** Items hinzufügen
procedure TfrmMain.AddMenuItems();
var
   SubMenuItem: TTBXSubmenuItem;
   MenuItem: TPopItem;
   SeparatorItem: TTBXSeparatorItem;
   GroupIcon: TIcon;
   AppIcon: TIcon;
   sGroupPath: String;
   sGroupName: String;
   slDirectories: TStringlist;
   slApplications: TStringlist;
   i, j: Integer;
   k, l: Integer; //***** Zähler für Icons
begin
   slDirectories := TStringlist.Create;
   slDirectories.Sorted := True;

   slApplications := TStringlist.Create;

   try
      k := 0; //***** Zähler für SubMenuItem-Icons
      l := 0; //***** Zähler für MenuItem-Icons
      imglistSubMenus.Clear;
      imglistMenus.Clear;

      GetSubDirs(ExtractFilePath(ParamStr(0)) + 'defs\', slDirectories);

      if slDirectories.Count > 0 then
      begin
         for i := 0 to slDirectories.Count - 1 do
         begin
            slApplications.Clear;

            sGroupPath := slDirectories.Strings[i];

            sGroupName := Copy(slDirectories.Strings[i], LastPos('\', slDirectories.Strings[i]) + 1,
             Length(slDirectories.Strings[i]) - LastPos('\', slDirectories.Strings[i]));

            //***** SubMenu einfügen
            SubMenuItem := TTBXSubmenuItem.Create(self);
            SubMenuItem.Name := 'SubMenuItem' + IntToStr(i);
            SubMenuItem.Caption := sGroupName;
            //***** Icon einlesen falls vorhanden
            if FileExists(sGroupPath + '\' + sGroupName + '.ico') = True then
            begin
               GroupIcon := TIcon.Create;
               GroupIcon.LoadFromFile(sGroupPath + '\' + sGroupName + '.ico');
               imglistSubMenus.AddIcon(GroupIcon);
               SubMenuItem.Images := imglistSubMenus;
               SubMenuItem.ImageIndex := k;
               Inc(k);
            end;
            popupTray.Items.Add(SubMenuItem);

            //***** Definitionsliste einlesen
            try
               slApplications.LoadFromFile(sGroupPath + '\' + sGroupName + '.txt');
            except
               on exception do
               begin
                  MessageBox(0, PChar('Kann Datei "' + sGroupPath + '\' + sGroupName + '.txt'
                   + '" nicht lesen'), 'Lesefehler', MB_ICONERROR or MB_OK);
               end;
            end;
         
            //***** für jede Zeile der Definitionsliste ein MenuItem anlegen
            for j := 0 to slApplications.Count - 1 do
            begin
               if slApplications.Strings[j] <> '' then
               begin
                  if LowerCase(slApplications.Strings[j]) = 'separator' then
                  begin
                     //***** Separator anlegen
                     SeparatorItem := TTBXSeparatorItem.Create(self);
                     SeparatorItem.Name := 'Sep' + IntToStr(i) + '_' + IntToStr(j);
                     SubMenuItem.Add(SeparatorItem);
                  end
                  else
                  begin
                     //***********************************************************************************
                     //* ANWENDUNGSNAME|COMMAND|KOMPLETTER ANWENDUNGSPFAD|PARAMETER|VERZEICHNIS|ALT.ICON *
                     //***********************************************************************************

                     MenuItem := TPopItem.Create(self);
                     MenuItem.Name := 'MenuItem' + IntToStr(i) + '_' + IntToStr(j);
                     MenuItem.Caption := ParseString('|', slApplications.Strings[j], 1);
                     MenuItem.sCommand := ParseString('|', slApplications.Strings[j], 2);
                     MenuItem.sExePath := '"' + ParseString('|', slApplications.Strings[j], 3) + '"';
                     MenuItem.sParameter := ParseString('|', slApplications.Strings[j], 4);
                     MenuItem.sDirectory := ParseString('|', slApplications.Strings[j], 5);
                     MenuItem.Hint := StringReplace(ParseString('|', slApplications.Strings[j], 3), '"', '', [rfReplaceAll]);
                     MenuItem.OnClick := ButtonClick;

                     //***** Icon der Anwendung laden sofern Anwendung vorhanden und kein alternatives
                     //***** Icon angegeben worden ist
                     if (FileExists(ParseString('|', slApplications.Strings[j], 3)) = True) and
                        (ParseString('|', slApplications.Strings[j], 6) = '') then
                     begin
                        AppIcon := TIcon.Create;
                        GetIconFromFileB(ParseString('|', slApplications.Strings[j], 3), AppIcon, True);
                        imglistMenus.AddIcon(AppIcon);
                        MenuItem.Images := imglistMenus;
                        MenuItem.ImageIndex := l;
                        Inc(l);
                     end
                     //***** ggf. alternatives Icon laden
                     else if ParseString('|', slApplications.Strings[j], 6) <> '' then
                     begin
                        if (FileExists(ParseString('|', slApplications.Strings[j], 6)) = True) and
                            (ParseString('|', slApplications.Strings[j], 6) <> 'na') then
                        begin
                           AppIcon := TIcon.Create;
                           GetIconFromFileB(ParseString('|', slApplications.Strings[j], 6), AppIcon, True);
                           imglistMenus.AddIcon(AppIcon);
                           MenuItem.Images := imglistMenus;
                           MenuItem.ImageIndex := l;
                           Inc(l);
                        end;
                     end;
                     SubMenuItem.Add(MenuItem);
                     FreeAndNil(AppIcon);
                  end;
               end;
            end;
         end;
         CreateMenuItem('Separator', '', 0, nil);
         CreateMenuItem('btnReload', 'neu laden', 3, ReloadClick);
         CreateMenuItem('Separator2', '', 0, nil);
         CreateMenuItem('btnAboutDialog', 'Info', 2, AboutClick);
         CreateMenuItem('btnBeenden', 'Beenden', 1, BeendenClick);
      end
      else
      begin
         CreateMenuItem('btnAchtung', 'ACHTUNG', 0, AchtungClick);
         CreateMenuItem('Separator1', '', 0, nil);
         CreateMenuItem('btnReload', 'neu laden', 3, ReloadClick);
         CreateMenuItem('Separator2', '', 0, nil);
         CreateMenuItem('btnAboutDialog', 'Info', 2, AboutClick);
         CreateMenuItem('btnBeenden', 'Beenden', 1, BeendenClick);
      end;
   finally
      FreeAndNil(slDirectories);
      FreeAndNil(slApplications);
   end;
end;