Delphi内更换墙纸
来源:互联网 发布:非零矩阵 编辑:程序博客网 时间:2024/03/29 16:03
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.OpenKey('Control PanelDesktop',False);
Reg.WriteString('TileWallpaper','0');
Reg.WriteString('WallPaperStyle','0');
Reg.WriteString('Wallpaper','C:MyWallpaper.bmp');
Reg.CloseKey;
Reg.Free;
SystemParametersInfo(SPI_SETDESKWALLPAPER,0,nil,SPIF_SENDCHANGE + SPIF_UPDATEINIFILE);
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.OpenKey('Control PanelDesktop',False);
Reg.WriteString('TileWallpaper','0');
Reg.WriteString('WallPaperStyle','0');
Reg.WriteString('Wallpaper','C:MyWallpaper.bmp');
Reg.CloseKey;
Reg.Free;
SystemParametersInfo(SPI_SETDESKWALLPAPER,0,nil,SPIF_SENDCHANGE + SPIF_UPDATEINIFILE);
- Delphi内更换墙纸
- 开机自动更换墙纸
- 开机自动更换墙纸
- 用脚本更换墙纸
- 在Delphi中更改墙纸
- 如何在Delphi中更改墙纸
- 注册对话框内更换新头像
- [原]墙纸
- 键盘墙纸
- 设置墙纸
- 动态墙纸
- Delphi内的字符串分隔
- 怎么自动换墙纸?
- [原]Hillin Design 墙纸
- 设置Windows墙纸
- HOW TO:墙纸设置
- windows7墙纸的位置?
- android-修改默认墙纸
- Delphi 多声卡开发
- 关于面试
- Delphi 7 使用WebService时报错
- 打算学习java!
- ASP.NET取客户机MAC地址
- Delphi内更换墙纸
- Delphi内的图片缩放的实现
- Delphi内JPG与BMP的互相转换
- Delphi 取Jpg图片内的Exif信息(需要GDI Plus)
- SQL取汉字拼音首字母的存储过程、函数
- JSF学习资料大全
- 如何在SQL语句内引用别的数据源
- 如何制作万能DVD
- 用Delphi编写Windows服务(Service)