stringlist

[grater83]

Подскажите извлекаю иконки все работает ,но вместе сними извлекаются еще другие иконки ввиде папок. Что не так?
это может быть из-за символов #13#10.

var sl:TStringList;
   i:integer;
   itm:TListItem;
     FileInfo: SHFILEINFO;
     f:tIcon;
   begin
         sl := TStringList.Create;
    if FileExists('C:\1.txt') then
 sl.LoadFromFile('C:\1.txt');
   for i := 0 to sl.count  -1 do
  begin
    itm:=ListView1.Items.Add;
  f:=tIcon.create;
    SHGetFileInfo(PChar(sl[i]), 0, FileInfo, SizeOf(FileInfo),
       SHGFI_ICON or SHGFI_LARGEICON or
       SHGFI_SYSICONINDEX);
     f.Handle := FileInfo.hIcon;
   Itm.Caption := ExtractFileName(sl[i]);
Itm.ImageIndex := ImageList1.AddIcon(f);
f.Free;
 end;
 sl.free;
end;

[Stilet]

Если я правильно твою проблему понял, то поставь условие:

If DirectoryExists(sl[i]) then continue

в цикл, и пусть пропускает директории, учитывая что в sl[i] полный путь

[grater83]

попробовал это не то. может попробуешь вставить код в обработчик так будет понятнее .не знаю как лучше обьяснить,а в txt вставь путь к файлу