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;

 

posted on 2015-07-09 17:25  疯狂delphi  阅读(490)  评论(0)  编辑  收藏  举报

导航