Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.08.19;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.007 c
3-60519
AlexDulub
2002-07-30 00:55
2002.08.19
Работа с ADO


3-60525
vasilly
2002-07-30 11:06
2002.08.19
Возможно ли?АДО для доступа к MSSQL7 и Oracle в одном приложении


3-60547
Alinka
2002-07-30 18:48
2002.08.19
Мастера, помогите!!


14-60861
Svetlana
2002-07-23 12:38
2002.08.19
Экзамен Microsoft


7-60886
Сявчик
2002-06-01 08:21
2002.08.19
EXE





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский