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);
 
原创粉丝点击