[Delphi_Source]

Доброго времени суток, уважаемые пользователи!
Помогите разработать приложение для печати списка выделенных объектов файловой системы.
Спасибо за внимание!

[poli-smen]

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

Доброго времени суток, уважаемые пользователи!
Помогите разработать приложение для печати списка выделенных объектов файловой системы.
Спасибо за внимание!

Выделенных в чём? В проводнике что-ли? Или там "Far Manager"-е или в "Total Commander"-е каком нибудь?

[Delphi_Source]

Хочу, чтобы исходя из данной формы приложения производилась печать списка выделенных объектов файловой системы. (см.вложение)

[poli-smen]

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

Хочу, чтобы исходя из данной формы приложения производилась печать списка выделенных объектов файловой системы. (см.вложение)

И чем это задание отличается от этого?

[Delphi_Source]

Как заставить печатать выделенные объекты?

[poli-smen]

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

Как заставить печатать выделенные объекты?

Выделенные объекты отображаются в Memo?
Как распечатывать содержимое Memo здесь уже описано.
Поэтому я пока не пойму чем отличаются эти задания.

[Страдалецъ]

Тэкс, имеем не умение задавать вопросы, и не умение понять простой вопрос от избытка знаний
Вы хотите получить список имен файлов, каталогов выделенных в левом окне или же вам нужно еще и содержимое каталогов распечатать? И в каком виде вы хотите это распечатать, как снимок левой части экрана, или просто как список. А может вам нужно содержимое файла, что скрыто под ярлыком распечатать? Во сколько вопросов встречных появилось.

[Delphi_Source]

Сообщение от Страдалецъ

Тэкс, имеем не умение задавать вопросы, и не умение понять простой вопрос от избытка знаний
Вы хотите получить список имен файлов, каталогов выделенных в левом окне или же вам нужно еще и содержимое каталогов распечатать? И в каком виде вы хотите это распечатать, как снимок левой части экрана, или просто как список. А может вам нужно содержимое файла, что скрыто под ярлыком распечатать? Во сколько вопросов встречных появилось.

Я хочу распечатать только список выделенных объектов.

[poli-smen]

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

Я хочу распечатать только список выделенных объектов.

Распечатать на принтере?

[Delphi_Source]

Сообщение от poli-smen

Распечатать на принтере?

Да, конечно.

[poli-smen]

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

Да, конечно.

Распечатать на принтере список файлов которые находятся в Memo или список файлов которые выделены в ShellListView ?

[Delphi_Source]

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

[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;

[Delphi_Source]

А как выделить несколько элементов файловой системы?

[poli-smen]

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

А как выделить несколько элементов файловой системы?

Естественно удерживая клавишу Ctrl чтобы выделять поштучно или Shift чтобы выделять диапазон.
Если речь идёт о ShellListView, то ещё нужно у него установить свойство MultiSelect в True.