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

Вниз

Как определить время создания файла и директории?   Найти похожие ветки 

 
Buster ©   (2004-06-28 13:11) [0]

Необходимо написать функцию, которая будет определять время создания директории или файла.

function DirFileDateTime(name_file_dir : String; mode : Integer) : TDateTime;
var
 file_attr : WIN32_FILE_ATTRIBUTE_DATA;
 dtDOS : LongRec;

begin
   GetFileAttributesEx(PChar name_file_dir),GetFileExInfoStandard,@file_attr);
   case mode of
     cCreateDateTime : FileTimeToDosDateTime(file_attr.ftCreationTime,dtDOS.Hi ,dtDOS.Lo);
     cLastWriteDateTime : FileTimeToDosDateTime(file_attr.ftLastWriteTime,dtDOS.Hi,dtDOS.Lo);
     cLastAccessDateTime : FileTimeToDosDateTime(file_attr.ftLastAccessTime,dtDOS.Hi,dtDOS.Lo);
   end;

   Result:=FileDateToDateTime(Integer(dtDOS));
end;


Вот что написал я, но возвращаемое время не соответствует действительности, а иногда возникает ошибка типа EConvertError.
Помогите пожалуйста.


 
CHES ©   (2004-06-28 14:14) [1]

Переделай ее так


function DirFileDateTime(name_file_dir : String; mode : Integer) : TDateTime;
var
file_attr : WIN32_FIND_DATA;
dtDOS : LongRec;
begin
  if FindFirstFile(PChar(name_file_dir),file_attr)<> INVALID_HANDLE_VALUE then
   begin
     case mode of
       cCreateDateTime : FileTimeToDosDateTime(file_attr.ftCreationTime,dtDOS.Hi ,dtDOS.Lo);
       cLastWriteDateTime : FileTimeToDosDateTime(file_attr.ftLastWriteTime,dtDOS.Hi,dtDOS.Lo);
       cLastAccessDateTime : FileTimeToDosDateTime(file_attr.ftLastAccessTime,dtDOS.Hi,dtDOS.Lo);
     end;
     Result:=FileDateToDateTime(Integer(dtDOS));
   end;
end;



Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2004.08.08;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.041 c
14-1090409056
ййй
2004-07-21 15:24
2004.08.08
PHP NUKE


14-1090176989
GanibalLector
2004-07-18 22:56
2004.08.08
и это уже не в первый раз


1-1090565921
Jaxtor
2004-07-23 10:58
2004.08.08
Уничтожение всех объектов данного класса


1-1090922875
HanIP
2004-07-27 14:07
2004.08.08
лабел и IE


14-1090309167
ИМХО
2004-07-20 11:39
2004.08.08
О теннисе





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