Получение даты создания каталогаDelphi , Файловая система , ДиректорииПолучение даты создания каталога
Автор: Dimka Maslov { **** UBPFD *********** by delphibase.endimus.com **** >> Получение даты создания каталога Функция определяет дату и время создания каталога и возвращает результат в формате TDateTime. Cм. также: http://delphibase.endimus.com/?action=viewfunc&topic=fileattr&id=10497 Зависимости: Windows Автор: Dimka Maslov, mainbox@endimus.com, ICQ:148442121, Санкт-Петербург Copyright: Dimka Maslov Дата: 4 февраля 2004 г. ***************************************************** } function GetDirTime(const Dir: string): TDateTime; var H: Integer; F: TFileTime; S: TSystemTime; begin H := CreateFile(PChar(Dir), $0080, 0, nil, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, 0); if H <> -1 then begin GetFileTime(H, @F, nil, nil); FileTimeToLocalFileTime(F, F); FileTimeToSystemTime(F, S); Result := SystemTimeToDateTime(S); CloseHandle(H); end else Result := -1; end; Пример использования: ShowMessage(DateTimeToStr(GetDirTime('c:\Program Files'))); Функция GetDirTime позволяет получить дату и время создания каталога в формате TDateTime, используя функцию CreateFile для открытия файла каталога и FileTimeToLocalFileTime/GetFileTime для извлечения информации о времени создания. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Директории ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |