Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.24;
Скачать: CL | DM;

Вниз

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

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

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



Страницы: 1 вся ветка

Текущий архив: 2002.01.24;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.006 c
7-75694
aleXXoft
2001-10-11 12:54
2002.01.24
PC-speaker & SoundBlaster


1-75616
Lotus
2002-01-05 17:33
2002.01.24
Нужно интерпретировать математические выражения


4-75721
lionheart
2001-11-23 11:15
2002.01.24
SetWindowsHookEx


14-75683
IvanIvanov
2001-11-27 22:44
2002.01.24
Может здесь кто знает?????


14-75663
Founder
2001-11-29 11:34
2002.01.24
Алгоритм.