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

Code:

procedure RefreshDesktop;

{©Drkb v.3}

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;

Code:

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

Code:

procedure TForm1.Button1Click(Sender: TObject);

begin

SendMessage(FindWindow('Progman', 'Program Manager'),

             WM_COMMAND,

             $A065,

             0);

end;

Code:

uses

  ShlObj;

procedure RefreshDesktop1;

begin

  SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);

end;