开发环境DelphiXE11.3UnitunitUnit1;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes,Vcl.Graphics,Vcl.Controls,Vcl.Forms,Vcl.Dialogs,Vcl.StdCtrls,winapi.ShellAPI,ShlObj,TLHelp32;typeTForm1