Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

GROUPFILE и ADDITEM для групп

Delphi , Технологии , DDE

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;

Статья GROUPFILE и ADDITEM для групп раздела Технологии DDE может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: DDE ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
21.09.2020 11:23:34/0.011070013046265/0