работа с TShellListView и TShellTreeView, переход по папкам Опции

[kr3v3tkus]

подскажите плз как осуществляется работа с TShellListView и TShellTreeView, конкретнее - необходимо указать директорию, у которой в нутри есть папки, для каждой из них сделать проверку SelectedFolder.SubFolders, если подпапок нет - совершить какое-либо действие, если же есть - то уйти вниз ещё на уровень и снова совершить предыдущее действие. Тоесть например:

в папке Black Lagoon ещё 2 папки в каждой из которых уже нет подпапок
а в папке !new1 есть ещё подпапки, в которых тоже могут быть подпапки
Подскажите или киньте ссылку на толковый мануал плиз

[kr3v3tkus]

Что имеется в виду "не считается"? Папка появляется в Гриде, проверил. Количество видео-файлов в ней тоже появляется. Все ее подпапки тоже появляются, тоже проверил. Картинок не вижу никаких вообще, что именно у тебя "сдвигается" - непонятно.

действительно в гриде есть... а в выходном хтмл файле нету... блин
нащёт регистра - я тоже думал, изза этого проблема была с vob, просто незнал как сделать
а нащёт однотипных действий - я просто ночью делал - лиш бы уж както сделать буду потом потихоньку всё оптимизирувать

зы ты знаешь, действительно исправил я условия, правда эффект не совсем тот получился - теперь и в гриде не отображает эту папку

ззы как ты и сказал - переделал всю процедуру так

Код

procedure VideoShare(path: string; SearchRec:TSearchRec);
var
  AType: TStringList;
  ext: string;
begin
  AType := TStringList.Create;

  if (UpperCase(ExtractFileExt(SearchRec.Name)) = '.AVI')or(UpperCase(ExtractFileExt(SearchRec.Name)) = '.MKV')
    or(UpperCase(ExtractFileExt(SearchRec.Name)) = '.VOB')or(UpperCase(ExtractFileExt(SearchRec.Name)) ='.OGM')
    or(UpperCase(ExtractFileExt(SearchRec.Name)) = '.MP4') then
    begin
      inc(vcount);
      ext := UpperCase(ExtractFileExt(SearchRec.Name));
      ext := copy(ext, 2, length(ext)-1);
  
      if pos(ext, Form1.Grid.Cells[4,gridcell-1]) = 0 then
      begin
        if Form1.Grid.Cells[4,gridcell-1] = '' then
        begin
          Image(path);
          PathList.Add(path);
          infill(path, AType);
        end;
        Form1.Grid.Cells[4,gridcell-1] := Form1.Grid.Cells[4,gridcell-1] + ext + ' ';
      end;
    end;

  AType.Free;
end;

правда теперь снова в гриде нет папки - а картинка её высвечивается в хтмлке

Сообщение отредактировано: kr3v3tkus - 14.02.2008 20:05