// Variante 1: Der Hintergrund (nicht die Icons) wird neu gezeichnet
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  invalidaterect(windowfromdc(0), nil, false); 
end; 
 
//----------------------------------------- 
 
// Variante 2: Der Desktop wird aktualisiert (wie bei F5)
 
uses 
  shlobj; 
 
procedure DeskRefresh; 
begin 
  SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil); 
end;