Сканирование директории. ShellListView

[artemavd]

Пишу программу, которая должна сканировать указанную ей директорию на наличие новых файлов в конкретной папке и сравнивал с датой, указанной в DateTimePicker1. Почти закончил, нашел нужный код, но он почему-то не работает. Вот:

procedure TForm1.BtnClick(Sender: TObject);
var
 SR: TSearchRec;
 FindRes: integer;
begin
 ShellListView1.Clear;
 FindRes:=FindFirst('E:\Documents and Settings\Artem Glavackij\Рабочий стол\Cheking',faAnyFile,SR);
 while FindRes = 0 do
 begin
  if ((SR.Attr and faDirectory) = faDirectory) and ((Sr.Name = '.') or (SR.Name = '..')) then
  begin
   FindRes:=FindNext(SR);
   Continue;
  end;
  if FileDateToDateTime(SR.Time) < DateTimePicker1.Date then
  begin
   FindRes:=FindNext(SR);
   Continue;
  end;
  ShellListView1.Items.Add;
  FindRes:=FindNext(SR);
 end;
 FindClose(SR);
 Form1.Timer1.Enabled:=True;
end;

Но не работае. Когда я указываю ему папку и нажимаю на кнопку, то показывается только первый файл, который я сегодня создал днем, а остальные нет.
Полагаю, что косяк в этой строчке:

ShellListView1.Items.Add;

Или я ошибаюсь?

[igh0st]

Если работаешь с TListView, то добавлять в него элементы нужно так

var
    Item: TListItem
begin
    ...    
    ShellListView1.Items.BeginUpdate;
    ...
    Item := ShellListView1.Items.Add;
    Item.Caption := 'Заголовок';
    ...
    ShellListView1.Items.EndUpdate;
    ...
end;

[artemavd]

Ээээмм..у меня ShellListView

[igh0st]

А... извиняюсь. Но по-моему ShellListView отображает файлы заданой папки, туда руками ничего не добавляется. Ошибаюсь?

[artemavd]

Да я не хотел добавлять туда ничего. Мне всего лишь нужно было проводжить сканирование директории на наличие новых файлов в ней

[igh0st]

Алгоритмически вроде все ок, попробуй в обычное ListView выводить результаты.

Вот это вот не совсем понятно что делает:

ShellListView1.Items.Add;

ShellListView1 - это TcxShellListView класс?

[Stilet]

artemavd, видишь ли в чем дело.
Компонент, который ты выбрал, не пригоден для ручного заполнения. Это проводник чистой воды, Он не любит когда в него что-то добавляют без его ведома. Если тебе нужно написать свой проводник забудь о Shell-компонентах. Они автоматизированы, и лучше в них не лезть. Лучше возьми простой ListView, и на его основе напиши свой компонент

на наличие новых файлов в конкретной папке

Кстати у этого компонента за такое отвечает метод Refresh.

Например обрати внимание на такой код:

procedure TForm1.Button1Click(Sender: TObject);
var
 SR: TSearchRec;
 FindRes: integer; i:TListItem;
begin


  with ShellListView1.Items.Add do begin
   Caption:='q';
  end;

end;


procedure TForm1.FormCreate(Sender: TObject);
begin
ShellListView1.Clear;
end;

Кликай по кнопке - вроде кажется что ты добавляешь что-то с именем q, ан нет. Он просто будет добавлять файл который следующий в списке папки.