function TfrmMain.AddFile(Path: String; rec: TSearchRec; Index: Integer) : boolean;

var

new: TListItem;

info: TSHFileInfo;

Ext, OtherExt: String;

begin

dlgTarget.GetInfo(Path, info);

new := lvFileList.Items.Add;

new.Caption := Path;

new.ImageIndex := info.iIcon;

new.SubItems.Add(GetSize(rec.Size, rec.Attr));

new.SubItems.Add(asFileTypes[aFileInfos[Index].ftFileType]);

new.SubItems.Add(GetMod(rec.FindData.ftLastWriteTime));

new.SubItems.Add(aFileInfos[Index].sDescription);

Ext := ExtractFileExt(Path);

Ext := Copy(Ext, 2, Length(Ext) - 1);

OtherExt := '.' + Ext + '.';

if (AnsiUpperCase(Ext) <> aFileInfos[Index].sDefaultExtension) and

(Pos(AnsiUpperCase(OtherExt), aFileInfos[Index].sOtherExtensions) = 0) then

new.SubItems.Add('확장자변경(' + aFileInfos[Index].sDefaultExtension + ')')

else

new.SubItems.Add(' ');

new.SubItems.Add(IntToStr(Index));

new.SubItems.Add(IntToStr(rec.Size));

Inc(FileCount);

Result := True;

StatusBar.Panels[0].Text := '총 ' + IntToStr(lvFileList.Items.Count) + ' 객체';

end;