Delphi彻底更换桌面壁纸及剪贴板监控程序,需要使用到下列delphi类库:   Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,   StdCtrls,registry,Clipbrd,ExtCtrls{监视剪贴板单元};   定义函数实现壁纸的注册表修改:   procedureTForm1.Button2Click(Sender:TObject);   Var   Reg:Tregistry;//Tregistry对象在Registry单元中声明,需用Uses令引用