如何屏蔽WINDOWS剪贴板(100分)

近来，发现一个软件，启动后WINDOWS剪贴板程序就无法正常使用，所有的复制粘贴操作均无效，用DELPHI的ClipBoard对象无法使用，请问这是怎么实现的

Procedure TForm1.Wm1(Var Msg: TMessage); // message WM_DRAWCLIPBOARD;
Begin
Clipboard.Clear;
End;

Procedure TForm1.Button1Click(Sender: TObject); //add chain
Begin
NextChain := SetClipboardViewer(Handle);
End;

Procedure TForm1.Button2Click(Sender: TObject); //remove from chain
Begin
ChangeClipboardChain(Handle, NextChain);
End;

接受答案了.