SetFileTime [D5, Win95/98, WinXP]
antonioxxx © (2002-10-18 16:17:00)
Увжаемые программисты! Объясните, пожалуйста, почему не
работает следующая процедура по установке времени создания файла -
вроде бы писалась строго по справке... Заранее спасибо!
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:00) [1]
во первых, попробуй
SetFileTime(F,@FileTime,@FileTime,@FileTime);
во вторых я не понял смысл строки
ZeroMemory(@FileTime,SizeOf(@FileTime));
зачем ее обнулять и если обнулять, то почему только первые 4
байта
Наверх 
ЧАТ |
Орешник |
|
