|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
решение найдено. добавить:
Код:
SaveDialog1.FileName:=NameResult; if SaveDialog1.Execute then begin NameResult := SaveDialog1.FileName; Macros := PChar(Command); // Преобразуем тип String в PChar DDE.OpenLink; // Открываем соединение с Word DDE.ExecuteMacro(Macros, false); // Отправляем команды на выполнение end; |