delphi 如何在程序中动态设置墙纸（使用IActiveDesktop接口）

本文整理自网络，侵删。

 
uses ShlObj, ComObj;
 
/// 用指定的方式改变墙纸
/// </summary>
/// <param name="strFile">墙纸图片文件</param>
/// <param name="style">样式</param>
procedure TfrmPara.SetWallPaper(strFile: string; style: Integer);
var
　　dt : IActiveDesktop;
　　wpo : TWallPaperOpt;
　　ws : WideString;
begin
　　dt := CreateComObject(CLSID_ActiveDesktop) as IActiveDesktop;
　　ws := strFile;
　　case style of
　　　　0 : wpo.dwStyle := WPSTYLE_CENTER; //居中
　　　　1 : wpo.dwStyle := WPSTYLE_TILE; //平铺
　　　　2 : wpo.dwStyle := WPSTYLE_STRETCH; //拉伸
　　　　3 : wpo.dwStyle := WPSTYLE_MAX; //
　　else
　　　　wpo.dwStyle := WPSTYLE_CENTER;
　　end;
　　wpo.dwSize := SizeOf(wpo);
　　dt.SetWallpaperOptions(wpo, 0);
　　dt.SetWallpaper(PWideChar(ws), 0);
　　dt.ApplyChanges(AD_APPLY_ALL);
end;
 

相关阅读 >>

Delphi encddecd 加密解密

d10环境下调用hidcontroller1.0.35获取数据乱码问题

Delphi 利用tidencodermime tiddecodermime 组件字符串加密解密

Delphi中使用tthread类实现多线程

Delphi获取系统电源状态的信息

Delphi unidac 连接mdb access 数据库

Delphi xe使用tjsonobject解析json数据

Delphi string.create(char,count)

Delphi 超短精简进制转换

Delphi 将汉字翻译成拼音缩写的函数

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 如何在程序中动态设置墙纸（使用IActiveDesktop接口）