| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Такой вот вот вопрос по использованию скинов [D5, Win95/98]
MisterBin © (2002-04-28 09:30:00)Как можно сделать так, чтобы прога брала названия всех папок в директории SKINS и добавляла их в МЕНЮ(как у Winamp"a)?
Vovchik (2002-04-28 11:41:00) [1]var
dirinfo:Tsearchrec;
begin
if FindFirst(DirName+"\*.*", faAnyfile, DirInfo)=0 then
begin
repeat
if (DirInfo.Attr and faDirectory)=1 then
Menu.Items.Add(DirInfo.Name);
until FindNext(DirInfo)<>0;
end;
end;
Song (2002-04-28 09:58:00) [2]"Брать" названия - TSearchRec (FindFirst, FindNext)
Добавлять в меню - TMenuItem.Add; TMenuItem.Insert
| |
