Как обновить рабочий стол?

procedureRefreshDesktop;
var
  c1 : cardinal;
begin
c1:=FindWindowEx(FindWindowEx(FindWindow('Progman','Program Manager'),,'SHELLDLL_DefView',''),0,'SysListView32','');  


PostMessage(c1,WM_KEYDOWN,VK_F5,0);  
PostMessage(c1,WM_KEYUP,VK_F5,1 shl 31);  
end;

Автор ответа: neutrino
Взято с Vingrad.ru


winexec(Pchar( 'rundll32 user,repaintscreen' ),sw_Show);

Автор ответа: Radmin
Взято с Vingrad.ru


procedure TForm1.Button1Click(Sender: TObject); 
begin 
  SendMessage(FindWindow('Progman', 'Program Manager'), 
              WM_COMMAND, 
              $A065, 
              0); 
end;