我要解决这个问题就使用ClipBoardViewer Chain的技术,将你的程序
加入系统的ClipBoardViewer Chain中:
FwndNextViewer := SetClipboardViewer(Self.Handle);
然后相应这两个消息:
procedure WMChangeCBChain(var Msg: TMessage);
message WM_CHANGECBCHAIN;
procedure WMDrawClipBoard(var Msg: TMessage);
message WM_DRAWCLIPBOARD;
在WMDrawClipBoard事件中处理剪贴板变化的事件。
在程序退出时使用:
ChangeClipboardChain(Self.Handle, FwndNextViewer);