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;

 

作者：疯狂Delphi
本文版权归作者和博客园共有，欢迎转载，但未经作者同意必须保留此段声明，且在文章页面明显位置给出原文连接，否则保留追究法律责任的权利.