当前位置: 源码素材网 » Delphi源码 » 系统相关 » 详情页

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

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 ;如需完整源码,请在本面底部下载链接下载。

  • 相关标签:剪贴板 壁纸
  • 调试环境:Delphi7+
  • 文件大小:9.76K
  • 资源评级:
  • 更新时间:2018-07-30
  • 相关链接:暂无演示

源码测试截图:

Delphi 7.0 彻底更换桌面壁纸及剪贴板监控程序范例运行截图

相似源码:剪贴板 壁纸 Delphi源码下载:Delphi 7.0 彻底更换桌面壁纸及剪贴板监控程序范例 测试截图

下载声明:

本站资源仅供学习参考,禁止用于非法途径。若“Delphi 7.0 彻底更换桌面壁纸及剪贴板监控程序范例”源代码侵犯了您的权益,请尽快告诉我们。