|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
||||
|
||||
Код:
function IsDirEmpty(sDirPath: String): Boolean; var fs: TSearchRec; begin Result := True; sDirPath:= IncludeTrailingPathDelimiter(sDirPath); if FindFirst(sDirPath+ '*.*', faAnyFile, fs) = 0 then repeat if (fs.Name <> '.') and (fs.Name <> '..') then begin Result := False; FindClose(fs); Exit; end; until FindNext(fs) <> 0; FindClose(fs); end; Пример использованя: if IsDirEmpty('c:\dir') then MessageBox(0,PChar('Папка "c:\dir" пуста!!'),'',MB_ICONINFORMATION); PS Писал на скорую руку, мог ошибиться... THE CRACKER IS OUT THERE Последний раз редактировалось 4kusNick, 07.11.2006 в 11:58. |