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

Вниз

Ошибка диска А   Найти похожие ветки 

 
anod ©   (2002-08-06 11:24) [0]

Подскажите, я перебираю подкаталоги путей, содержащихся в списке. Если там есть дисковод или CD-rom? то выдается ошибка отсутствия дискеты(диска), как избавится от него.
Пытаюсь делать так:
procedure FindFiles(StartFolder:string; List: TStrings);
var
SearchRec: TSearchRec;
FindResult: Integer;
OldErrorMode:Word;
begin
List.BeginUpdate;
OldErrorMode := SetErrorMode(SEM_NOOPENFILEERRORBOX);
try
StartFolder:=IncludeTrailingBackslash(StartFolder);
FindResult:=FindFirst(StartFolder+"*.*", faDirectory, SearchRec);
try
while FindResult = 0 do with SearchRec do begin
if (Attr and faDirectory)<>0 then begin
if (Name<>".") and (Name<>"..") then List.Add(StartFolder+Name);
end;
FindResult:=FindNext(SearchRec);
end;
finally
FindClose(SearchRec);
end;
finally
List.EndUpdate;
end;
SetErrorMode(OldErrorMode);
end;


 
Ученик ©   (2002-08-06 11:40) [1]

SetErrorMode(SEM_FAILCRITICALERRORS);



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

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

Наверх




Память: 0.46 MB
Время: 0.013 c
14-60802
Yuri Btr
2002-07-22 17:39
2002.08.19
Глюки в IDE ???


1-60672
MikeFW
2002-08-06 11:05
2002.08.19
Как закрыть открытый узел в ТreeView?


1-60639
Leha-neo
2002-08-07 20:25
2002.08.19
Как считывать файлы...


1-60628
I__am
2002-08-07 19:59
2002.08.19
Срочно надо! Вопрос по нестандартным формам


3-60502
alexvan
2002-07-28 18:32
2002.08.19
Просто, но чего-то нигде не могу найти.