Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.23;
Скачать: CL | DM;

Вниз

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 байта



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

Текущий архив: 2002.12.23;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.019 c
1-74663
Alexander Vasjuk
2002-12-10 18:04
2002.12.23
как узнать сколько и какие иконки в файле *.ico ?


1-74784
Sergy
2002-12-11 10:27
2002.12.23
Как правильно определить, открыто ли уже такая форма?


3-74616
HP
2002-12-05 10:50
2002.12.23
FastReport


1-74696
Hirara
2002-12-10 19:56
2002.12.23
-------------------------->


14-74972
Дмитрий К.К.
2002-12-03 06:18
2002.12.23
Регистрация домена com