GROUPFILE и ADDITEM для групп

Previous  Top  Next

    
 

 

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

Code:

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;

 

 

©Drkb::03192

       

Взято с http://delphiworld.narod.ru