Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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 го уровня начиная с текущего

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



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

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

Наверх





Память: 0.54 MB
Время: 0.014 c
3-75510
Сидоров Юрий
2001-12-21 09:18
2002.01.24
Проблемы с таблицами Paradox


1-75542
Michael
2002-01-04 15:27
2002.01.24
доступ к адресной книге Outlook Express


1-75595
Eraser
2002-01-04 23:51
2002.01.24
HELP как-нибудь


1-75629
dima2002
2002-01-08 20:57
2002.01.24
Мастера!!! подскажите !!!


1-75547
Yuraz
2002-01-04 19:13
2002.01.24
Не получается стереть рисунок с формы, делаю так:





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский