Ошибка диска А [D6, WinXP]
anod © (2002-08-06 11:24:00)
Подскажите, я перебираю подкаталоги путей, содержащихся в
списке. Если там есть дисковод или 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:00) [1]
SetErrorMode(SEM_FAILCRITICALERRORS);
Наверх 
ЧАТ |
Орешник |
|
