Delphi彻底更换桌面壁纸及剪贴板监控程序，需要使用到下列delphi类库： 　　Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 　　 StdCtrls, registry, Clipbrd, ExtCtrls{监视剪贴板单元}; 　　定义函数实现壁纸的注册表修改： 　　procedure TForm1.Button2Click(Sender: TObject); 　　Var 　　 Reg:T

用于监控一个或者几个程序打卡和关闭,测试可以正常使用。