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