[poli-smen]

Сообщение от Delphi_Source

Вот это и имел ввиду.
Теперь все работает.
В очередной раз большое спасибо

Нашёл у себя ошибку - вот так должно быть (иначе в Memo будут выводиться не выделенные, а все элементы):

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

uses Printers;       procedure TForm1.Button2Click(sender: tobject); var   Prn: TextFile;   i: integer; begin   if ShellListView1.SelCount = 0 then     raise Exception.Create('Ничего не выделено');       AssignPrn(Prn); // Переназначаем вывод в файл на вывод в принтер   Rewrite(Prn); // Готовим принтер к печати        Memo1.Clear;   // Цикл печати:   for i := 0 to ShellListView1.Items.Count - 1 do   begin     if ShellListView1.Items[i].Selected then     begin       Writeln(Prn, ShellListView1.Folders[i].PathName);       Memo1.Lines.Add(ShellListView1.Folders[i].PathName);     end;   end;         CloseFile(Prn); end;