标签：
1 //1.引入单元 2 uses ShlObj; 3 4 //2.执行命令 5 procedure TForm1.Button1Click(Sender: TObject); 6 begin 7 SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil); 8 end;
F5 刷新功能
原文地址：http://www.cnblogs.com/FKdelphi/p/4633757.html
