Подскажите пожалуйста почему после смены картинки
Reg := TRegIniFile.Create('Control Panel');
Reg.WriteString('desktop', 'Wallpaper', reg_str);
Reg.WriteString('desktop', 'TileWallpaper', '1');
Reg.Free;
SendMessage(FindWindow('Progman', 'Program Manager'), WM_COMMAND, $A065, 0);
uses ..., Registry, ...;
{ в коде где-то пишешь: }
var
Reg: TRegIniFile;
begin
Reg := TRegIniFile.Create('Control Panel');
Reg.WriteString('desktop', 'Wallpaper', 'c:\windows\Установка.bmp');
Reg.WriteString('desktop', 'TileWallpaper', '0');
Reg.Free;
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE);
end;