// 相关定义 Type TListData = Record FileName: String; Percent: Integer; End; PListData = ^TListData; // 需要Use CommCtrl Function GetSubItemRect(handle, ItemsIndex, SubIndex: Integer): TRect; Begin ListView_GetSubItemRect(handle, ItemsIndex, SubIndex, , @R…