Вопрос: 
как заставить Рабочий Стола Windows обновится? 
Ответ:
См. пример. 
Пример:
             procedure TForm1.Button1Click(Sender: TObject); 

             begin 

               SendMessage(FindWindow('Progman', 'Program Manager'), 

                           WM_COMMAND, 

                           $A065, 

                           0); 

             end;