1.引入单元
uses ShlObj;
2.执行命令
procedure TForm1.Button1Click(Sender: TObject);
begin
SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
end;
时间: 2024-10-21 16:54:20
1.引入单元
uses ShlObj;
2.执行命令
procedure TForm1.Button1Click(Sender: TObject);
begin
SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
end;