Actualiser le bureau

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