F5 刷新功能

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;
【推广】 免费学中医，健康全家人
原文地址：https://www.cnblogs.com/FKdelphi/p/4633757.html