Windows - criando grupos de programas

// Para criar o grupo com os items -->>

procedure TForm1.CriaGrupo;

var

  Cmd  : TStrings;

  Temp : String;

begin

  Temp := '';

  Temp := Application.Exename;

  Cmd := TStringList.Create;

  try

   with Cmd do

    begin

     Clear;

     Add('[CreateGroup(Minha Aplicação)]');

     Add('[AddItem(' Temp ',Meu Programa)]');

    end;

    Dde.ExecuteMacroLines(Cmd,True);

  finally

    Cmd.Free;

  end;

end;

// Para apagar o grupo -->>

procedure TForm1.ApagaGrupo;

var Cmd: TStrings;

begin

     Cmd := TStringList.Create;

     try

       with Cmd do

       begin

         Clear;

         Add('[ShowGroup("Minha Aplicação",1)]');

         Add('[DeleteGroup("Minha Aplicação")]');

         Add('[Reload("Minha Aplicação")]');

       end;

       Dde.ExecuteMacroLines(Cmd,False);

     finally

       Cmd.Free;

     end;

end;