Работа с файлами и директориями

[botan32]

Добрый день! Нужна помощь. Есть функция, которая считает количество файлов в директории. Работает нормально, результат сходится со свойствами Windows, но когда пытаюсь получить количество файлов в папке Windows, результат сильно расходится. С чем это может быть связано и как доработать функцию, что бы выдавала верный результат?

Вот функция:

function  CountOfFiles(Dir: string) : integer;
var
  lResult : integer;
  SearchRec: TSearchRec;
begin
  Dir := IncludeTrailingBackslash(Dir);
  lResult := 0;
  if FindFirst(Dir + '*.*', faAnyFile, SearchRec) = 0 then
    repeat
      Application.ProcessMessages;
      if (SearchRec.Attr and faDirectory) <> 0 then
      begin
        if (SearchRec.name <> '.') and (SearchRec.name <> '..') then
              lResult := lResult +  CountOfFiles(Dir + SearchRec.name);
      end
      else
        Inc(lResult);
    until FindNext(SearchRec) <> 0;
  FindClose(SearchRec);
  CountOfFiles := lResult;
end;

[Stilet]

Ну не исключено что запуск с правами админа нужен.

[botan32]

А каким образом тогда реализовать выполнение этой функции с правами админа? И вообще это возможно?

Для сравнения пробовал поиск Total Commander-ом, его результат сходится со свойствами системы и запускается он без прав администратора.

[Stilet]

Что я могу тебе сказать?...
Безымянный.jpg
Ищи проблему в запуске своего приложения... Не хватает ему доступа.

[botan32]

У меня Windows 10. Наблюдается интересная ситуация. Если я запускаю в обычном режиме, то показывает меньше файлов чем система (рисунок Безымянный1), а если запускаю с правами админа - то больше (рисунок Безымянный)

[Stilet]

У меня старушка Win-7. Она еще не умеет готовить кофе в пастель, поэтому показывает ровно столько, сколько есть (бугагагага!)

[botan32]

Ща попробовал на другом компе с Win-7. Разница тоже есть. Не знаю как быть, очень нужна помощь.

[Stilet]

Ну твой код правильный. Это 100 пудов. Проблема не в нем...
Скрытые файлы может не учитываются...

[botan32]

Может я неправильно реализовал функцию. Вот для примера исходник

По поводу скрытых файлов, там стоит атрибут "ВСЕ ФАЙЛЫ".

[Stilet]

Да все правильно... Ну приложи еще скомпилированный файл - я запущу у себя.