Indigo Rose AutoPlay Media Studio (часть 1) - [79] :: Программы

DenVl
Цитата:

Как сделать так, чтоб в Menu Bar (допустим Menu > SubMenu > ...) отображались все CD-ROMы (вместо многоточия)

Код:

-- tCD - таблица CD-приводов, должна уже существовать

-- Добавляем/заменяем подменю для отображения CD-приводов
function AddItem(cText, nID, lChecked, lEnabled, nSubMenu)
tblMenu[1].SubMenu[1].SubMenu[nSubMenu] = {}; -- создаем пункт подменю
tblMenu[1].SubMenu[1].SubMenu[nSubMenu].Text = cText; -- текст пункта подменю
tblMenu[1].SubMenu[1].SubMenu[nSubMenu].ID = nID; -- идентификатор пункта подменю
tblMenu[1].SubMenu[1].SubMenu[nSubMenu].Checked = lChecked; -- отмеченный/неотмеченный пункт подменю
tblMenu[1].SubMenu[1].SubMenu[nSubMenu].Enabled = lEnabled; -- активный/неактивный пункт подменю
end

tblMenu = Application.GetMenu(); -- получаем структуру меню приложения
if (tCD) then -- если есть CD-приводы
tblMenu[1].SubMenu[1].SubMenu = {}; -- создаем пустое подменю
nItem = 1; -- порядковый номер пункта подменю
for n, cText in tCD do -- в цикле создаем пункт подменю для каждого CD-привода
nID = 1000 + nItem; -- уникальный идентификатор для каждого пункта подменю
AddItem(cText, nID, false, true, nItem); -- заполняем структуру пункта подменю
nItem=nItem+1; -- наращиваем порядковый номер пункта подменю
end
Application.SetMenu(tblMenu);     -- сохраняем меню
end

tblMenu[1] - первый пункт горизонтального меню
tblMenu[1].SubMenu[1] - первый пункт подменю, первого пункта горизонтального меню

Timur1976

Код:

Shell.Execute("C:\\Documents and Settings", "open", "", "", SW_SHOWNORMAL);

Модерирует : gyra, Maz
Widok (03-09-2007 23:10): лимит страниц. продолжаем здесь	Версия для печати • Подписаться • Добавить в закладки
Страницы: 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 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101