如何通过发送消息让word复制已选择的内容至剪切板？（要实例）(200分)

raindu · 2002-01-24

以下答案就不用回答了： １、查以前的贴子（已查过，没有能实现的） ２、keybd_event发送Control+c（也试过，无效） ３、SendMessage Control+C至word（未能成功） ４、PostMessage ^^^^^^^^^^^^^^^^^^^^^^^^^^; 请各位高手附一实现实例，要求如下： 在一Delphi窗体上放一edit和一button,按下button后如果word中有已选好的内容 则在edit中显示之。 如果分数不够还可再加。

hllu · 2002-01-24

automation word.

jiangxiancheng · 2002-01-24

同意楼上，用自动化。

raindu · 2002-01-24

我现在的应用只能通过[red]发送消息[/red]来完成，不能采用自动化。

yyanghhong · 2002-01-25

Take a look the Drag Drop component suite, there are lots of code about clipboard http://delphi.mychangshu.com/dispdoc.asp?id=576

j_shen2000 · 2002-01-26

这有什么难的，留下MAIL地址，给你一个完整的例程。

nickylin · 2002-01-26

J_shen2000： 也发给我看看呢。lin@esquel.com 最好里面不要有太多的中文，容易乱码。 谢了先。

raindu · 2002-01-27

tks. Please send to this mail box: dzm_china@yahoo.com

zhangmcn · 2002-01-27

是用Clipboard不行吗？

raindu · 2002-01-27

我的问题是如何通过API[red]发送消息[/red]将选定内容复制到剪切板.

raindu · 2002-01-29

j_shen2000 一直未收到你的答案，何时可给我发送一下？ 以早日结束我的问题，多谢。

j_shen2000 · 2002-01-29

不会吧，nickylin都收到了，再给你发一遍。

raindu · 2002-01-29

j_shen2000，你好。 例子收到了，不过很遗憾，我现在的应用只能通过[red]发送消息[/red]来完成， 不能采用自动化。 难道此题真的是无解吗？

bubble · 2002-01-29

我给你发了个例子，看行不行。 加多少分我要多少分。^_^

j_shen2000 · 2002-01-29

那更简单，说吧加多少分，我直接贴出来。

j_shen2000 · 2002-01-29

算了，不跟你闹了，代码如下： function EnumWindowsProc(AHWnd: HWnd;LPARAM: lParam): boolean; stdcall; var    WndCaption: array[0..254] of char; begin     if (GetWindowText(AHWnd, @WndCaption, 254)<>0) and (pos('Microsoft Word',wndcaption)<>0) then       postmessage(Ahwnd,wm_copy,0,0);     Result:=TRUE; end; procedure Tform1.button1Click(Sender: TObject); begin   EnumWindows(@EnumWindowsProc, 0);   memo1.PasteFromClipboard; end;

raindu · 2002-01-30

j_shen & bubble:   你们的例子已收到，多谢。   现在我还有如下问题： Point Point; HANDLE hEdit,hWord; GetcursorPos(&Point); hEdit=WindowFromPoint(Point); hWord=FindWindow("OpusApp",NULL); 为何hEdit<>hWord？     不管能否解答请给我回复一下，我准备给各位加分了。

j_shen2000 · 2002-01-30

你在什么事件里激发程序的，能确保此时光标在WORD上吗？OpusAPP可是WORD的CLASSNAME。

j_shen2000 · 2002-01-30

光标本身可是一个共享资源，不信，你用下面的例程可以很清楚的看到，其实你在点击button1 的时候，光标控制实际是在button1上。 procedure TForm1.Button1Click(Sender: TObject); var point:tpoint;     hedit,hwindow:thandle;     cap:array [0..255] of char; begin   getcursorpos(point);   hedit:=windowfrompoint(point);   if getwindowtext(hedit,@cap,254)<>0 then showmessage(cap)   else showmessage('notext');   showmessage(inttostr(hedit));   hwindow:=findwindow('OpusApp',nil);   showmessage(inttostr(hwindow)); end; 其实你用光标，不如用插入标记。例如下面的例程，注意一点，必须保证插入标记在WORD上 ，所以在点击BUTTON1时，必须先将插入标记放到WORD上，否则十有八九返回的是DELPHI的编辑 器句柄。 procedure TForm1.Button1Click(Sender: TObject); var point:tpoint;     hedit,hwindow:thandle;     cap:array [0..255] of char; begin   getcaretpos(point);//**********   hedit:=windowfrompoint(point);   if getwindowtext(hedit,@cap,254)<>0 then showmessage(cap)   else showmessage('notext');   showmessage(inttostr(hedit));   hwindow:=findwindow('OpusApp',nil);   showmessage(inttostr(hwindow)); end;

raindu · 2002-01-30

多谢各位的帮助，问题都已解决。其实是我自己太粗心了。 其实问题的实质在于取得word窗体的句柄，而不是当前窗                                        ^^^^^^^^^^^ 口的句柄。我将消息发送给的编辑窗口,所以word未作出反 应。 j_sheng2000你的例程中下句 postmessage(Ahwnd,wm_copy,0,0);似应改为sendmessage为 好，不然通常第一次取不到选定内容，而要到第二次才能成 功。（在poffice97下） 再次谢谢所有参与此问题讨论的人。

如何通过发送消息让word复制已选择的内容至剪切板？（要实例）(200分)

raindu

Unregistered / Unconfirmed

hllu

Unregistered / Unconfirmed

jiangxiancheng

Unregistered / Unconfirmed

raindu

Unregistered / Unconfirmed

yyanghhong

Unregistered / Unconfirmed

j_shen2000

Unregistered / Unconfirmed

nickylin

Unregistered / Unconfirmed

raindu

Unregistered / Unconfirmed

zhangmcn

Unregistered / Unconfirmed

raindu

Unregistered / Unconfirmed

raindu

Unregistered / Unconfirmed

j_shen2000

Unregistered / Unconfirmed

raindu

Unregistered / Unconfirmed

bubble

Unregistered / Unconfirmed

j_shen2000

Unregistered / Unconfirmed

j_shen2000

Unregistered / Unconfirmed

raindu

Unregistered / Unconfirmed

j_shen2000

Unregistered / Unconfirmed

j_shen2000

Unregistered / Unconfirmed

raindu

Unregistered / Unconfirmed

Similar threads