[poli-smen]

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

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

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

Код:

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;