ShellListView вместо FileListBox

← →
Zheksonz (2009-02-26 12:24) [0]

имеется, следующий ниже, несложный код, который перебирает и обрабатывает выделенные файлы.

for n := 0 to (FileListBox1.Items.Count - 1) do begin try if FileListBox1.Selected[n] then begin if not FileExists(FileListBox1.Items.Strings[n]) then begin MessageDlg("File: " + FileListBox1.Items.Strings[n] + " not found", mtError, [mbOk], 0); Continue; end; ShowMessage(FileListBox1.Items.Strings[n]); end; finally { do something here } end; end; ShowMessage("Обработка завершена!"); end;

Хотелось бы использовать для этих же целей компонент ShellListView, но справки по нему я не нашёл, использования в дэмосах тоже нет((

Количество выделенных - ShellListView1.SelCount-1, а вот как перевести остальные ф-ции???

Johnman и Сергей М., прошу не беспокоить.

← →
Zheksonz (2009-02-26 12:28) [1]

ShowMessage(FileListBox1.Items.Strings[n]);

упс, вот эта строчка лишняя и не несёт смысловой нагрузки...

← →
Zheksonz (2009-02-26 17:29) [2]

Встретил множество подобных вопросов в интернете, но ответа нигде нет.

Вариант о вселенском заговоре рассматривается, но он не основной. Остаётся вариант с не изученностью подобного вопроса. Но если он и здесь не изучен, то придется обращаться в корпорацию Борланд.

ShellListView вместо FileListBox Найти похожие ветки