API Delphi

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