Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];




Вниз

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


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 го уровня начиная с текущего

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




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.063 c
14-75660          VID                   2001-11-25 19:32  2002.01.24  
И мне денег содрать нужно :)


3-75524           Dim                   2001-12-21 14:34  2002.01.24  
Первый раз такое вижу. Что это такое?


4-75717           Miwa                  2001-11-13 09:53  2002.01.24  
Windows Media Player


1-75580           Анатолий              2002-01-02 04:30  2002.01.24  
Формулы в тексте


1-75605           Dmitriy_R             2002-01-04 20:15  2002.01.24  
Помогите разобратся с Hintami