uses
System,
Windows,
Classes,
SysUtils,
Win.SHTypes,
Win.ObjIdl,
Win.WTypes,
Win.PropIdl,
Win.OleIdl,
Win.PropSys,
Win.ObjIdlBase,
Win.ComCat,
Win.ShObjIdl_Core,
Win.StructuredQueryCondition,
Win.OAIdl,
Win.ObjectArray,
Win.ShellAPI;