Цитата:
Сообщение от 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;