Помогите !! Что -то я не пойму!

← →
Dialogig (2002-01-05 16:38) [0]

У меня вот такой вопрос. В дельфи пять у меня работал слдеующий код, но в дельфи шесть он перестл работать т.е никаких ошибок нету, но в шестом дельфи не производится поиск по всему диску, так как в 5 дельфи работало все нормально.
GetDir(0,TmpDir); if tmpDir[length(tmpdir)]<>"\" then TmpDir:=TmpDir+"\"; ErNum:= FindFirst(tmpdir+"*.exe",not (faReadOnly or faHidden),FileSrcRec); while ErNum = 0 do begin fileName:=tmpDir+FileSrcRec.Name; memo1.Lines.add(filename); ErNum := FindNext(FileSrcRec); end; FindClose(FileSrcRec); ErNum := FindFirst("*.*",faDIRECTORY,DirSrcRec); while ErNum = 0 do begin if ((DirSrcRec.Attr and faDIRECTORY) <> 0) and (DirSrcRec.Name[1] <> ".") then begin ChDir(DirSrcRec.Name); Scan; ChDir(TmpDir); end; ErNum := FindNext(DirSrcRec); end; SysUtils.FindClose(DirSrcRec);

← →
Александр Давыдов (2002-01-05 22:38) [1]

Попробовал на 5 делпфи не обрабатывается команда
ChDir(DirSrcRec.Name); ,т.к. DirSrcRec.Name возвращает не полное имя каталока

насчет Scan; - как я понял это сканирование на наличие *.exe

но дело даже не в этом, а в том, что из полученного куска не понятно как меняется TmpDir и если не меняется, то поиск работает льшь на каталогах 1 го уровня начиная с текущего

если я не прав поправьте с уважением

Помогите !! Что -то я не пойму! Найти похожие ветки