procedure TForm1.Button1Click(Sender: TObject);
 begin
 SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
 end;