System Delphi

Title: Refreshing the windows desktop
Question: How do I cause the Windows Desktop icons to refresh?
Answer:
procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(FindWindow('Progman', 'Program Manager'),
WM_COMMAND,
$A065,
0);
end;