SetFileTime

← →
antonioxxx © (2002-10-18 16:17) [0]

Увжаемые программисты! Объясните, пожалуйста, почему не работает следующая процедура по установке времени создания файла - вроде бы писалась строго по справке... Заранее спасибо!

Procedure SetFileDateEx(FileName:String; fFileDate:TDateTime);
Var
F:Cardinal;
FileTime: TFileTime;
SystemTime: TSystemTime;
Begin
If FileExists(FileName) Then
Begin
F:=FileOpen(FileName,GENERIC_WRITE);
DateTimeToSystemTime(fFileDate,SystemTime);
SystemTimeToFileTime(SystemTime,FileTime);
SetFileTime(F,@FileTime,nil,nil);
FileClose(F);
ZeroMemory(@FileTime,SizeOf(@FileTime));
End
Else
MessageBoxEx(0,"Файл по указанному адресу не найден","Ошибка",MB_IconError,0);
End;

← →
apay © (2002-10-21 02:23) [1]

во первых, попробуй SetFileTime(F,@FileTime,@FileTime,@FileTime);
во вторых я не понял смысл строки
ZeroMemory(@FileTime,SizeOf(@FileTime));
зачем ее обнулять и если обнулять, то почему только первые 4 байта

SetFileTime Найти похожие ветки