怎么刷新开始菜单或桌面，以及对修改后注册表进行刷新？谢谢

Question

有人说可以用
SendMessage(FindWindow('Progman', 'Program Manager'), WM_COMMAND, 106597,
0); 但是没有任何作用。

Answer 1

var c1:THandle;
------------------------------刷新桌面
c1:=FindWindowEx(FindWindowEx(windows.FindWindow('Progman','Program  Manager'),0,'SHELLDLL_DefView',''),0,'SysListView32','');
     PostMessage(c1,WM_KEYDOWN,VK_F5,0);
     PostMessage(c1,WM_KEYUP,VK_F5,1 shl 31);

Answer 2

//try
uses ShlObj;procedure TForm1.Button1Click(Sender: TObject);
begin
  SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
end;