设置Windows墙纸
来源:互联网 发布:原生js获取兄弟节点 编辑:程序博客网 时间:2024/03/29 06:35
需引用ComObj, ShlObj单元
procedure SetActiveWallpaper(Filename: String);
var
ADesk: IActiveDesktop;
Pwpo: TWallpaperOpt;
Wallpaper: WideString;
begin
ADesk := CreateComObject(CLSID_ActiveDesktop) as IActiveDesktop;
try
//Pwpo.dwStyle := WPSTYLE_CENTER; //居中
//Pwpo.dwStyle := WPSTYLE_TILE; {平铺}
Pwpo.dwStyle := WPSTYLE_STRETCH; {拉伸}
Pwpo.dwSize := sizeOf(Pwpo);
ADesk.SetWallpaperOptions(Pwpo,0);
Wallpaper := WideString(Filename);
ADesk.SetWallpaper(PWideChar(Wallpaper), 0);
ADesk.ApplyChanges(AD_APPLY_ALL);
finally
ADesk := nil
end;
end;
- 设置Windows墙纸
- 设置墙纸
- HOW TO:墙纸设置
- 设置墙纸(可用htm,bmp)
- 如何在程序中动态设置墙纸
- 如何在程序中动态设置墙纸
- 如何在程序中动态设置墙纸
- 如何在程序中动态设置墙纸
- 如何在程序中动态设置墙纸
- 将Android Activity背景设置为墙纸
- 如何在程序中动态设置墙纸
- android2.3 Launcher墙纸设置代码追踪
- PAIP.在程序中设置壁纸墙纸
- OnLongClickListener长按事件设置墙纸
- 如何在程序中动态设置墙纸
- Launcher App:墙纸太大造成设置墙纸时产生“OutOfMemoryError: bitmap size exceeds VM budget”
- 为JEdit设置墙纸(add wallpaper for jedit)
- 如何将照片设置为手机墙纸/桌面
- linux是个迷人的东西
- 获取一些常用的系统目录
- 一些常用的Delphi函数
- 这个季节
- 《编译技术》考试了
- 设置Windows墙纸
- 获取及设置屏幕分辨率
- MultiExtractor v1.0.1 by Maciej Drobinski
- JAVA?
- UPX Graphical 1.34 by Dirk Paehl
- 盛夏大餐--水煮多线程
- 两个32位数的乘法程序
- 志奋领奖学金简介
- ASP.NET基于角色的窗体安全认证机制