📄 jq9.htm
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>用Delphi实现壁纸更换</title>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
</head>
<body stylesrc="API扩展Delphi函数.htm" bgcolor="#EEEEFF">
<table>
<tr>
<td bgColor="#55002b" vAlign="top" width="672"><p align="center"><font color="#ffffff"
face="黑体"><b>用Delphi实现壁纸更换</b></font></td>
</tr>
<tr align="left" vAlign="bottom">
<td width="672"><p align="left"> 在Windows95/98中，都是使用注册表对系统数据进行管理,有关壁纸的设置数据保存在Hkey_Current_User\Control
Panel\Desktop的Wallpaper和TileWallpaper 等键值中,只要成功修改了这两个键值,然后发消息给Windows即可更换壁纸。在本例的程序中,使用了一个Tform;两个Tspeedbutton(Speedbutton1用于接受用户的浏览命令,Speedbutton2用于接受用户的更换壁纸命令);一个Timage(用于显示图片)。另外，还用到一组文件控件：Tfilelistbox,Tdrivecombobox,Tdirectorylistbox,用于选择图片文件，可以设置FileListBox的mask属性，筛选显示在FileListBox
中的文件类型(如只显示.bmp文件)。下面的两个程序段是实现浏览图片和更换壁纸的关键代码。<br>
Procedure Tform1.SpeedButton1Click(Sender:Tobject);<br>
Begin<br>
If (filelistbox1.FileName=<br>
′′) Then {判断Filelistbox1中文件有没有被选中}<br>
Messagedlg(′请先选择一幅位图′,mtInformation,[mbOK],0)<br>
Else<br>
Image1.Picture.LoadFormFile(Filelistbox1.FileName);{加载图片文件并显示}<br>
End;<br>
ProcedureTform1.SpeedButton2Click(Sender:TObject);<br>
Var <br>
Reg:Tregistry;{Tregistry 对象在Registry 单元中声明，需用Uses令引用Registry单元}<br>
}<br>
Begin<br>
If (Filelistbox1.FileName=′′) Then<br>
Messagedlg(′请先选择一幅位图′,mtinformation,[mbOK],0)<br>
Else<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′,<br>
′0′);<br>
Reg.WriteString<br>
′Wallpaper′，fileli⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -