Главная страница
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.025 c
4-75033
apay
2002-11-09 02:07
2002.12.23
Как получить MenuSpeed (delay-before-show time)


1-74669
Jony
2002-12-13 10:46
2002.12.23
Исчезает надпись.


1-74687
Tundra
2002-12-12 07:32
2002.12.23
Подскажите как сделать заголовок ListBox как у форме.


14-74897
Beginner
2002-12-03 23:35
2002.12.23
Посветка синтаксиса


6-74880
Nikolas SHmuS
2002-10-25 18:09
2002.12.23
Прослушивание порта!