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;
时间: 2024-10-27 10:17:07
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;