interfaceprocedure CreateGroup;
implementationprocedure TSetupForm.CreateGroup;
{ Для установки группы в Program Manager используем компонент TProgMan }var
ItemList: TStringList;
GroupName: string;
ItemName: string;
i: word;
begin{ Получаем из INI-файла строку GroupName }
GroupName := IniFile.ReadString('General', 'PMGroup', '');
{ Если один есть, устанавливаем группу }if GroupName <> '' thenbegin
ItemList := TStringList.Create;
try{ читаем элементы для установки }
IniFile.ReadSectionValues('PMGroup', ItemList);
with TProgMan.Create(Self) dotry
CreateGroup(GroupName);
for i := 0 to ItemList.Count - 1 dobegin{ получаем имя файла } 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;
Статья Как добавить группу в Program Manager раздела Технологии DDE может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.