Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

GROUPFILE и ADDITEM для групп

01.01.2007
Вот код для создания файла группы и добавления в группу файла-элемента. Чтобы использовать эту процедуру, определите DDE clientconv App как ProgMan.

procedure TMainForm.CreateWinGroup(Sender: TObject);
var
 
Name: string;
  Name1
: string;
 
Macro: string;
  Macro1
: string;
 
Cmd, Cmd1: array[0..255] of Char;
begin
 
{destDir - dos-каталог, хранящий YourFile.Ext'}
  Name := '
GroupName';
  Name1 := destDir + '
YourFile.Ext, FileName_in_Group ';
  Macro := Format('
[CreateGroup(%s)]', [Name]) + #13#10;
  Macro1 := Format('
[Additem(%s)]', [Name1]) + #13#10;
  StrPCopy(Cmd, Macro);
  StrPCopy(cmd1, Macro1);
  DDEClient.OpenLink;
  if not DDEClient.ExecuteMacro(Cmd, False) then
    MessageDlg('
Невозможно создать группу ' + Name, mtInformation, [mbOK], 0)
  else
  begin
    DDEClient.ExecuteMacro(Cmd1, False);
  end;
  DDEClient.CloseLink;
end;

https://delphiworld.narod.ru/

DelphiWorld 6.0