Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Проверка папки по указаному пути. [D7]


Wolferio ©   (2005-10-03 14:27:00) 

Добрый день!

Как програмно определить создана ли папка по указаному пути?

Спасибо!


antonn   (2005-10-03 15:24:00) [1]

ну и я тоже скажу:
function DirectoryExists(const Name: string): Boolean;
asm
       PUSH     EAX
       CALL     GetFileAttributes
       INC      EAX
       JZ       @@exit
       DEC      EAX
       {$IFDEF PARANOIA}
       DB $24, FILE_ATTRIBUTE_DIRECTORY
       {$ELSE}
       AND      AL, FILE_ATTRIBUTE_DIRECTORY
       {$ENDIF}
       SETNZ    AL
@@exit:
end;


umbra   (2005-10-03 14:32:00) [2]

DirectoryExists(drive:\defined\path)


begin...end   (2005-10-03 14:32:00) [3]

DirectoryExists


Наверх

Титульная страница Поиск, карта сайта Написать письмо