本文整理自网络，侵删。
DDE(Dynamic Data Exchange)，称为动态数据交换。用于进程间的通讯，看看他如何来和Word交互。
在System页签下有TDdeClientConv组件，拖一个放到界面上，然后我们写如下代码：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleServer, StdCtrls, DdeMan;
type
TForm1 = class(TForm)
Button1: TButton;
DdeClientConv1: TDdeClientConv;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
//执行word的宏命令
procedure RunMacro(macname:PChar);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
//执行保存文件的宏命令
RunMacro('[FileSave]');
end;
procedure TForm1.RunMacro(macname: PAnsiChar);
var
macro: array [0..80] of char;
begin
//设置于word的连接
DdeClientConv1.SetLink('WinWord','System');
//打开连接
if not DdeClientConv1.OpenLink then
begin
ShowMessage('打开连接出错！');
end;
if not DdeClientConv1.ExecuteMacro(macname,False) then
begin
ShowMessage('执行宏命令出错！');
end;
end;
end.
相关阅读 >>
winapi 字符及字符串函数(10): lstrcpy - 复制字符串
Delphi 获取随机字符串的方法 getrandomstring
Delphi 为当前窗口客户区捉图: getformimage
Delphi 使用shellexecuteex运行应用程序并等待完成
[Delphi] 计算目录大小的函数，获得目录文件列表，计算文件的大小
更多相关阅读请进入《Delphi》频道 >>
