Советы по Delphi

         

GROUPFILE и ADDITEM для групп


Вот код для создания файла группы и добавления в группу файла-элемента. Чтобы использовать эту процедуру, определите 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;

[001423]



Содержание раздела