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

Как добавить группу в 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;


DelphiWorld 6.0

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...