[Mag992]

Всем привет!)
У мну вот такая задача: Сделать динамическое popupmenu, которое создается с капшинами из тхт файла, и привязать к каждой созданной кнопке меню открытие какого либо файла.
Помогите связать нажатие любого пункта меню и имя файла по порядку в папке)
чтоб было:
Кнопарь 1 = вызов файла, первого в папке
Кнопарь 2 = вызов второго, следующего за первым файла
......
Скажем, есть в папке файлы AIMP.exe и рисунок.bmp,
Первый элемент всплывающего меню соответственно вызовет аимп, а второй открое рисунок))

Использую вот такой код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74

procedure TMain_Form.PopupMenu1Popup(Sender: TObject); var   Menu, MSub: TmenuItem;   m,sm:string;   i:integer; begin with (Sender as TPopupMenu) do //очищаю динам меню от барахла   while Items.Count > 0 do     begin       Items.delete(0);       Items[0].Free;     end;   AssignFile(MenuFile, 'MenuItems.txt'); Reset(MenuFile);   While not eof(MenuFile) do //заполняю капшинами из файла   begin     Readln(MenuFile, m);     with (Sender as TPopupMenu) do       begin         Menu:=TMenuItem.Create(self);         Menu.Caption := m;         Menu.OnClick := MyClick;         Items.Insert(0, Menu);       end;   end;   Menu:=TMenuItem.Create(self); with (Sender as TPopupMenu) do   Items.Insert(1, Menu);   AssignFile(SubMenuFile, 'SubMenuItems.txt'); Reset(SubMenuFile); While not eof(SubMenuFile) do //создаю подменю и тож заполняю из файла   begin     Readln(SubMenuFile, sm); with Menu do   begin     Caption:='Подменю';     MSub:= TMenuItem.Create(self);     MSub.Caption:=sm;     MSub.OnClick:=MyClick;   end;   Menu.Insert(0, MSub); end; Listbox1.Clear; FauJIbl('\', '*.*', Listbox1.Items); //поиск файлов в текущей папке    //for i:=0 to Popupmenu1.Items.Count-1 do   //PopupMenu1.Items.Items[i].Caption:=Listbox1.Items[i]; end;   procedure TMain_Form.MyCLick(Sender: TObject);   begin  beep; end;   Procedure FauJIbl(StartDir: String; Mask:string; List:TStrings); Var   SearchRec:TSearchRec; Begin // IF Mask ='' then Mask:= '*.*';  IF FindFirst(StartDir+Mask, faAnyFile, SearchRec) = 0 then    Begin     Repeat      IF (SearchRec.Attr and faDirectory) <> faDirectory then         List.Add(StartDir + SearchRec.Name) ;     Until FindNext(SearchRec) <> 0;     FindClose(SearchRec);   End; end;

[Mag992]

можно забивать имена файлов в стринговый массив, а потом для каждой попапменю кнопки последовательно делать открытие файла с именем массив_имен[и]? Если да, то как?