[poli-smen]

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

Cписок файлов, которые выделены в ShellListView

Как-то так:

Код:

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); // Готовим принтер к печати
 
  // Цикл печати: 
  for i := 0 to ShellListView1.Items.Count - 1 do
  begin
    if ShellListView1.Items[i].Selected then
      Writeln(Prn, ShellListView1.Folders[i].PathName); 
  end;
  
  CloseFile(Prn);
end;