F5 刷新功能

//1.引入单元
uses ShlObj;

//2.执行命令
procedure TForm1.Button1Click(Sender: TObject);
begin
 SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
end;