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);