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;