unit Unit1;interfaceuses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, DdeMan;type
TForm1 = class(TForm)
DdeConv: TDdeClientConv;
Word: TButton;
procedure WordClick(Sender: TObject);
private
public
end;{DdeConv properties are : }
{ ConnectMode : ddeManual }
{ DdeService : [None] }
{ DdeTopic : [None] }
{ FormatChars : False }
{ Name : DdeConv }var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.WordClick(Sender: TObject);
begin
if DdeConv.SetLink( 'WINWORD', 'D:\WINWORD\DDETEST' ) and
DdeConv.OpenLink then
begin
ShowMessage( 'Link with WinWord established !' ) ; { be sure the link exist }
DdeConv.PokeData( 'Bm1', 'Data from Delphi !' ) ; { insert 'Data from Delphi' in word document }
DdeConv.CloseLink ;
end ;
end;end.
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, DdeMan;type
TForm1 = class(TForm)
DdeConv: TDdeClientConv;
Word: TButton;
procedure WordClick(Sender: TObject);
private
public
end;{DdeConv properties are : }
{ ConnectMode : ddeManual }
{ DdeService : [None] }
{ DdeTopic : [None] }
{ FormatChars : False }
{ Name : DdeConv }var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.WordClick(Sender: TObject);
begin
if DdeConv.SetLink( 'WINWORD', 'D:\WINWORD\DDETEST' ) and
DdeConv.OpenLink then
begin
ShowMessage( 'Link with WinWord established !' ) ; { be sure the link exist }
DdeConv.PokeData( 'Bm1', 'Data from Delphi !' ) ; { insert 'Data from Delphi' in word document }
DdeConv.CloseLink ;
end ;
end;end.
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货