随笔分类 -  《21天学通Delphi》

摘要：1 //1.引入单元2 uses ShlObj;3 4 //2.执行命令5 procedure TForm1.Button1Click(Sender: TObject);6 begin7 SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, n... 阅读全文