Как сделать так, чтобы настройка «показать / скрыть значки на рабочем столе» вступила в силу?
Приведенный ниже код вызывает функцию SHGetSetSettings, чтобы скрыть значки на рабочем столе, но он просто отключен «Показать значки на рабочем столе» в меню просмотра.
я звонилSHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_FLUSHNOWAIT, nil, nil);
обновить рабочий стол, но это не работает?
var
lpss: SHELLSTATE;
begin
lpss.Data := High(cardinal);
lpss.Data2 := Low(cardinal);
SHGetSetSettings(lpss,SSF_HIDEICONS,true);
SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_FLUSHNOWAIT, nil, nil);
end;