求教高手,想增强复制、粘贴功能,可是不知从何下手。(100分)

A

ahai227

Unregistered / Unconfirmed
GUEST, unregistred user!
我想实现:
1.按ctrl-c复制第一个字符串,按ctrl-shift-c在前一个字符串后面接上一个串。
2.按alt- shift -1复制第一个字符串,按alt- shift -2复制第2个字符串,。。。。。。
然后按ctr-alt –1粘贴第一个字符串,按ctr-alt –2粘贴第2个字符串。。。。。
想写成一个程序,或控件。
当执行该程序在word或写字板里都可以实现上面所说的功能。
请各位高手指点。
 
非常的简单,首先在uses中加入ClipBroad单元

然后调用ClipBroad对象的GetTextBuffer和SetTextBuffer,具体内容你可以参考帮助信息
注意ClipBroad就象是Printer对象一样的对象,加入单元后可直接使用!
 
直接控制剪切板的内容就可以了。
 
我觉得难的是后面:想写成一个程序,
当执行该程序在word或写字板里都可以实现上面所说的功能。
请各位指教。
 
让你们先说说
 
如果要在所有的程序中都实现该功能,必须截获键盘消息,
这样得做一个 键盘勾子(HOOK)。
 
监视ClipBroad对象. :O 做成hook也行,捕捉每次ClipBroad的更改,然后按照你的要求修改剪贴板内容.
 
谢谢各位的答复!!
另请问如何得到当前窗口的句柄。
想通过sendmessage发个粘贴的命令给当前的窗口
 
怎么没人理我??
是不是分少了?分可以另外加。
谢谢了,有谁能一下吗!
 
var
MouseHookStruct: ^TMOUSEHOOKSTRUCT;

SendMessage(MouseHookStruct.hwnd,WM_PASTE,0,0);
可是不知道为什么在word中没用。qq和文本文档中可以。
 
接受答案了.
 

Similar threads

S
回复
0
查看
986
SUNSTONE的Delphi笔记
S
S
回复
0
查看
804
SUNSTONE的Delphi笔记
S
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
683
import
I
顶部