📄 00405.htm
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>1</title>
</head>
<body bgcolor="#000000" text="#FFFFFF" link="#FFFFFF">
<p align="left"><span style="BACKGROUND-COLOR: #ff0000"><a href="00405.zip">源程序下载</a></span><b><span style="background-color: #000080"><br>
</span><span style="background-color: #000000"><br>
</span><span style="background-color: #000080">
<a name="1"></a>
1：改变壁纸</span></b><span style="background-color: #000000"><br>
procedure TForm1.Button1Click(Sender: TObject);<br>
var<br>
THEPCHAR:pchar;<br>
begin<br>
THEPCHAR:='C:\My Documents\Beautiful.bmp';<br>
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, THEPCHAR,
SPIF_SENDWININICHANGE);<br>
end;<br>
<br>
</span><span style="background-color: #000080"><a name="2"></a><b>2：永久性改变壁纸</b></span><span style="background-color: #000000"><b><br>
</b> 在Windows95/98中，都是使用注册表对系统数据进行管理,有关壁纸的设置数据保存在Hkey_Current_User\Control Panel\Desktop的Wallpaper和TileWallpaper 等键值中,只要成功修改了这两个键值,然后发消息给Windows即可更换壁纸。<br>
<br>
procedure TForm1.Button2Click(Sender: TObject);<br>
Var <br>
Reg:Tregistry; //Tregistry 对象在Registry 单元中声明，需用Uses令引用Registry单元<br>
Begin<br>
Reg:=Tregistry.Create;{创建Tregistry对象的实例}<br>
Reg.Rootkey:= Hkey_Current_User;{设置根键名称}<br>
Reg.OpenKey('Control Panel\Desktop',False); {打开Control Panel\Desktop 路径对应的主键}<br>
Reg.WriteString('TileWallPaper', '0');<br>
Reg.WriteString('Wallpaper','C:\C:\My Documents\Beautiful.bmp') ; //向TileWallpaper 和Wallpaper串覆盖写入新值<br>
Systemparametersinfo(SPI_SETDESKWallpaper,0,Nil,SPIF_SendChange);{向Windows发送消息，通知Windows更换壁纸}<br>
Reg.CloseKey;{将更改内容写入注册表并关闭}<br>
Reg.Free;{释放对象}<br>
End;<br>
<br>
</span><b><span style="background-color: #000080"><a name="3"></a>3：监视剪贴板内容 </span><span style="background-color: #000000"><br>
</span></b><span style="background-color: #000000">Windows使用剪贴板观察器和观察链。剪贴板观察器是一个显示剪贴板当前内容的窗口。通常它应该至少能显示三种普通格式的内容：文字CF_TEXT、位图CF_BITMAP、元文件CF_METAFILEPICT。剪贴板观察链是一系列相互独立的剪贴板观察窗口，它们都能够接受当前发送到剪贴板的内容。大致按照以下步骤在窗口中处理有关剪贴板的内容。 <br>
<br>
首先，使用SetClipboardViewer(HWND)函数向剪贴板观察链中加入一个观察窗口。当剪贴板的内容发生变化时，该窗口会接收到一个WM_DRAWCLIPBOARD消息。该函数需要传递的参数是观察窗口的句柄。返回值也是一个窗口句柄类型，标识了将要加入的下一个窗口。 <br>
然后，响应WM_DRAWCLIPBOARD消息处理剪贴板内容的变化。 <br>
最后，在程序退出或关闭时需要调用ChangeClipboardChain函数来将自己从观察链中删除。然后调用SendMessage函数把这些消息传递到观察链中的下一个观察窗口。函数ChangeClipboardChain原型如下： <br>
BOOL ChangeClipboardChain(<br>
HWND hWndRemove, //将要删除的窗口的句柄<br>
HWND hWndNewNext //观察链中下一个窗口的句柄<br>
); <br>
<br>
Delphi的clipbrd.pas单元中定义了一个类TClipboard，它封装了Windows剪贴板，简化了大量复杂的处理过程。我们在程序中可以直接调用全局函数Clipboard，该函数用于返回TClipboard对象实例，使用这个实例对剪贴板进行剪切、复制和粘贴等操作。下面是TClipboard对象的几个常用的方法和属性的简单介绍。 <br>
<br>
方法： <br>
Assign：将指定的对象放入剪贴板中。 <br>
Open：打开剪贴板，防止其他程序改写剪贴板。在向剪贴板加入多项数据时尤其有用。 <br>
Close：关闭剪贴板。应该与打开剪贴板成对使用。 <br>
Clear：清空剪贴板。 <br>
GetAsHandle：返回剪贴板中指定格式数据的句柄。使用前必须打开剪贴板。 <br>
GetComponent：返回剪贴板中的一个控件。Delphi自己使用得多。 <br>
HasFormat：查询剪贴板中是否有指定格式的内容。 <br>
属性： <br>
AsText：用于读写剪贴板文字内容。 <br>
FormatCount：读剪贴板中数据格式的种数。 <br>
Formats：返回剪贴板中各种格式的列表。 <br>
<br>
此外，Delphi中的许多控件中也封装了有关剪贴板处理的操作。下面的一个处理剪贴板的简单例子，只是将剪贴板的文字内容显示为窗口标题。 <br>
<br>
需要注意的是，在处理剪贴板内容变化的消息WM_DRAWCLIPBOARD的过程和关闭窗口事件中使用函数sendmessage把WM_DRAWCLIPBOARD或WM_CHANGECBCHAIN消息传递到观察链中的下一个窗口是必要的，否则有可能其他窗口不能获得类似消息。另外，在使用网络蚂蚁时笔者曾经碰到不能设置剪贴板格式的情况，在此提醒读者注意检查RegisterClipboardFormat等函数的返回值。 <br>
<br>
procedure TForm1.FormCreate(Sender: TObject);<br>
begin<br>
//获得观察链中下一个窗口句柄<br>
NextClipHwnd:=SetClipBoardViewer(Handle);<br>
end;<br>
<br>
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);<br>
begin<br>
//从观察链中删除本观察窗口<br>
ChangeClipboardChain(Handle,NextClipHwnd);<br>
<br>
//将WM_DRAWCLIPBOARD消息传递到下一个观察链中的窗口<br>
SendMessage(NextClipHwnd,WM_CHANGECBCHAIN,Handle,NextClipHwnd);<br>
end;<br>
<br>
在Form1上分别放置一个Memo1和Image1，分别用于显示粘贴板上的内容<br>
procedure TForm1.WMDrawClipBoard(var AMessage: TMessage);<br>
Var<br>
Bitmap: TBitmap;<br>
begin<br>
//将WM_DRAWCLIPBOARD消息传递到下一个观察链中的窗口<br>
SendMessage(NextClipHwnd,AMessage.Msg,AMessage.WParam,AMessage.LParam);<br>
<br>
//查询剪贴板中特定格式的数据内容<br>
if (Clipboard.HasFormat(CF_TEXT) or
Clipboard.HasFormat(CF_OEMTEXT)) then<br>
begin<br>
//处理剪贴板中文本内容<br>
Memo1.Lines.Add(Clipboard.asText) ;<br>
End Else<br>
if Clipboard.HasFormat(CF_BITMAP) Then<br>
Begin<br>
//处理剪贴板中图片内容<br>
Bitmap := TBitmap.Create;<br>
try<br>
Bitmap.Assign(Clipboard);<br>
Image1.Canvas.Draw(0, 0, Bitmap);<br>
finally<br>
Bitmap.Free;<br>
end;<br>
End ;<br>
end;<br>
<br>
</span>
<span style="background-color: #FF0000"><a href="00405.zip">源程序下载</a></span>
</p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -