Обновить рабочий стол

Оформил: DeeCo

 uses
   ShlObj;

 procedure RefreshDesktop1;
 begin
   SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
 end;