本文整理自网络，侵删。
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 xe 10.2.1 fmx平台 在图片上写字方法
Delphi idhttp最简洁的修改和取得cookie例子
更多相关阅读请进入《Delphi》频道 >>
