Поиск файлов сразу с несколькими расширениями. Как???

[mutabor]

Показывай по алфавиту, да и всё. То что ты хочешь сделать никому не нужно (мне уж точно), кто их запоминает? Сейчас мне нужно один файл найти - отсортировал папку по дате, через пять минут другой - отсортировал по размеру или по типу, к программе то какие могут быть претензии?

Если технически, то это где-то в свойствах эксплорера надо прочесть режим показа, а потом в своей программе при поиске сортировать по этому же параметру (с этим проще, но вот с эксплорером...).

[mihali4]

Как мне узнать имена тех, которые стоят до и после определённого файла в данный момент???

Сначала (перед началом показа) - составить список файлов в листбоксе, например...

[SNUPY]

Полностью согласен с mihali4 лучше держать все каком-нибудь массиве и сортировать самому пузырьком например =) Ну конечно есть минус в том, что этот список будет показывать ситуацию не реального времени =(

[mihali4]

и сортировать самому пузырьком

У листбокса есть ствойство Sorted.

этот список будет показывать ситуацию не реального времени

А кнопку "Обновить" во всех программах ставят зачем?

[SNUPY]

А кнопку "Обновить" во всех программах ставят зачем?

Ну обычно рядовые пользователи любят что бы всё было автоматически.

[НЕ_АЙС]

Ну сделай вызов по таймеру...делов то.
Проблема решена?

[mutabor]

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

Сначала (перед началом показа) - составить список файлов в листбоксе, например...

mihali4 вы не поняли о чем он, по моему он хочет узнать в каком порядке отображаются файлы у юзера в проводнике
хотя, может я не умею читать между строк?

[Altera]

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

mihali4 вы не поняли о чем он, по моему он хочет узнать в каком порядке отображаются файлы у юзера в проводнике
хотя, может я не умею читать между строк?

Вот-вот! Это и хочу узнать... А так как сказал Михалыч, у меня уже сделано... Там у меня f_list: tStringList;
Вот потностью та процедура:

procedure{ создание списка файлов }file_list_create(const s: string);
begin
   f_list.Free;
   f_list := tStringList.Create;
   if findFirst(s+'*.jpg', faAnyFile, sr) = 0 then
   begin
      f_list.add(extractFileName(sr.Name));
      while findNext(sr) = 0 do f_list.add(extractFileName(sr.Name));
   end;
   if findFirst(s+'*.bmp', faAnyFile, sr) = 0 then
   begin
      f_list.add(extractFileName(sr.Name));
      while findNext(sr) = 0 do f_list.add(extractFileName(sr.Name));
   end;
   if findFirst(s+'*.ico', faAnyFile, sr) = 0 then
   begin
      f_list.add(extractFileName(sr.Name));
      while findNext(sr) = 0 do f_list.add(extractFileName(sr.Name));
   end;
   if findFirst(s+'*.jpeg', faAnyFile, sr) = 0 then
   begin
      f_list.add(extractFileName(sr.Name));
      while findNext(sr) = 0 do f_list.add(extractFileName(sr.Name));
   end;
   if findFirst(s+'*.wmf', faAnyFile, sr) = 0 then
   begin
      f_list.add(extractFileName(sr.Name));
      while findNext(sr) = 0 do f_list.add(extractFileName(sr.Name));
   end;
   if findFirst(s+'*.emf', faAnyFile, sr) = 0 then
   begin
      f_list.add(extractFileName(sr.Name));
      while findNext(sr) = 0 do f_list.add(extractFileName(sr.Name));
   end;
   findClose(sr);
   f_list.Sort;
   l_count := f_list.count - 1;
   count_test;
   with aFind_form do
   begin
      file_list.Items := f_list;
      direct_out.Text := f_path;
   end;
end;

А почему меня не устраевает этот способ? Потому, что там целая возня переменной, обозначающей позицию... Не выставлять же её в ноль при удаленни файлов...

з.ы. Винвовая прога просмотра картинок как раз так и делает, открывает файлы в том порядке, в каком они у юзера...
Во вложении моя прога.
Если понадобиться, могу и исходник кинуть, всё равно вы его на делфи 7 не откомпилите )))

[Altera]

Что, никто не может мне помочь?

[Air]

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

Что, никто не может мне помочь?

Скажи почему тебе не подходят вырианты с потоками или таймерами.