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);
но все равно тоже самое.