Delphi 7.0 彻底更换桌面壁纸及剪贴板监控程序范例.rar

Delphi彻底更换桌面壁纸及剪贴板监控程序，需要使用到下列delphi类库： 　　Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 　　 StdCtrls, registry, Clipbrd, ExtCtrls{监视剪贴板单元}; 　　定义函数实现壁纸的注册表修改： 　　procedure TForm1.Button2Click(Sender: TObject); 　　Var 　　 Reg:Tregistry; //Tregistry 对象在Registry 单元中声明，需用Uses令引用Registry单元 　　Begin 　　 Reg:=Tregistry.Create;{创建Tregistry对象的实例} 　　 Reg.Rootkey:= Hkey_Current_User;{设置根键名称} 　　 Reg.OpenKey('Control Panel\Desktop',False); {打开Control Panel\Desktop 路径对应的主键} 　　 Reg.WriteString('TileWallPaper', '0'); 　　 Reg.WriteString('Wallpaper','C:\C:\My Documents\Beautiful.bmp') ; //向TileWallpaper 和Wallpaper串覆盖写入新值 　　 Systemparametersinfo(SPI_SETDESKWallpaper,0,Nil,SPIF_SendChange);{向Windows发送消息，通知Windows更换壁纸} 　　 Reg.CloseKey;{将更改内容写入注册表并关闭} 　　 Reg.Free;{释放对象} 　　End; 　　//处理剪切板内容，剪贴板监控功能： 　　//将WM_DRAWCLIPBOARD消息传递到下一个观察链中的窗口 　　SendMessage(NextClipHwnd,AMessage.Msg,AMessage.WParam,AMessage.LParam); 　　//查询剪贴板中特定格式的数据内容 　　if (Clipboard.HasFormat(CF_TEXT) or Clipboard.HasFormat(CF_OEMTEXT)) then 　　begin 　　 //处理剪贴板中文本内容 　　 Memo1.Lines.Add(Clipboard.asText) ; 　　End Else 　　if Clipboard.HasFormat(CF_BITMAP) Then 　　Begin 　　 //处理剪贴板中图片内容 　　 Bitmap := TBitmap.Create; 　　 try 　　 Bitmap.Assign(Clipboard); 　　 Image1.Canvas.Draw(0, 0, Bitmap); 　　 finally 　　 Bitmap.Free; 　　 end; 　　End ;如需完整源码，请在本面底部下载链接下载。