Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС
выпущен 4 ноября!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Как добавить группу в Program Manager


 interface
 
 procedure CreateGroup;
 
 implementation
 
 procedure TSetupForm.CreateGroup;
 { Для установки группы в Program Manager используем компонент TProgMan }
 var
   ItemList: TStringList;
   GroupName: string;
   ItemName: string;
   i: word;
 begin
   { Получаем из INI-файла строку GroupName }
   GroupName := IniFile.ReadString('General', 'PMGroup', '');
   { Если один есть, устанавливаем группу }
   if GroupName <> '' then
   begin
     ItemList := TStringList.Create;
     try
       { читаем элементы для установки }
       IniFile.ReadSectionValues('PMGroup', ItemList);
       with TProgMan.Create(Self) do
       try
         CreateGroup(GroupName);
         for i := 0 to ItemList.Count - 1 do
         begin
           { получаем имя файла } ItemName := Copy(ItemList.Strings[i], 1,
             Pos('=',
             ItemList.Strings[i]) - 1);
           { прибавляем путь к имени файла и добавляем элемент }
           AddItem(GetTarget(ItemList.Values[ItemName][1]) + ItemName, ItemName);
         end;
       finally
         Free;
       end;
     finally
       ItemList.Free;
     end;
   end;
 end;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS